Diff for /rpl/src/instructions_r4.c between versions 1.76 and 1.77

version 1.76, 2013/03/20 22:24:37 version 1.77, 2013/03/21 16:31:59
Line 855  instruction_read(struct_processus *s_eta Line 855  instruction_read(struct_processus *s_eta
     integer8                        i;      integer8                        i;
     integer8                        id;      integer8                        id;
     integer8                        position_clef;      integer8                        position_clef;
       integer8                        longueur;
   
     integer8                        longueur_effective;      integer8                        longueur_effective;
     integer8                        longueur_enregistrement;      integer8                        longueur_enregistrement;
     integer8                        longueur_questure;      integer8                        longueur_questure;
Line 869  instruction_read(struct_processus *s_eta Line 871  instruction_read(struct_processus *s_eta
     logical1                        presence_indicateur;      logical1                        presence_indicateur;
     logical1                        trame_complete;      logical1                        trame_complete;
   
     long                            longueur;  
   
     socklen_t                       longueur_adresse;      socklen_t                       longueur_adresse;
   
     sqlite3_stmt                    *ppStmt;      sqlite3_stmt                    *ppStmt;
Line 1111  instruction_read(struct_processus *s_eta Line 1111  instruction_read(struct_processus *s_eta
                 presence_chaine = d_faux;                  presence_chaine = d_faux;
                 niveau = 1;                  niveau = 1;
   
                 if (fseek((*descripteur).descripteur_c, position_finale,                  if (fseek((*descripteur).descripteur_c, (long) position_finale,
                         SEEK_SET) != 0)                          SEEK_SET) != 0)
                 {                  {
                     liberation(s_etat_processus, s_objet_argument_1);                      liberation(s_etat_processus, s_objet_argument_1);
Line 1201  instruction_read(struct_processus *s_eta Line 1201  instruction_read(struct_processus *s_eta
                     return;                      return;
                 }                  }
   
                 if (fseek((*descripteur).descripteur_c, position_initiale,                  if (fseek((*descripteur).descripteur_c,
                         SEEK_SET) != 0)                          (long) position_initiale, SEEK_SET) != 0)
                 {                  {
                     liberation(s_etat_processus, s_objet_argument_1);                      liberation(s_etat_processus, s_objet_argument_1);
                     free(tampon_lecture);                      free(tampon_lecture);
Line 2052  instruction_read(struct_processus *s_eta Line 2052  instruction_read(struct_processus *s_eta
                         // Détermination de la longueur                          // Détermination de la longueur
                         format_degenere = d_faux;                          format_degenere = d_faux;
   
                         if (sscanf(&(format_chaine[8]), "%ld", &longueur) != 1)                          if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1)
                         {                          {
                             liberation(s_etat_processus, s_objet_argument_1);                              liberation(s_etat_processus, s_objet_argument_1);
                             liberation(s_etat_processus, s_objet_resultat);                              liberation(s_etat_processus, s_objet_resultat);
Line 2075  instruction_read(struct_processus *s_eta Line 2075  instruction_read(struct_processus *s_eta
                         } while((c != '\n') && (c != EOF));                          } while((c != '\n') && (c != EOF));
   
                         if (fseek((*descripteur).descripteur_c,                          if (fseek((*descripteur).descripteur_c,
                                 position_initiale, SEEK_SET) != 0)                                  (long) position_initiale, SEEK_SET) != 0)
                         {                          {
                             liberation(s_etat_processus, s_objet_argument_1);                              liberation(s_etat_processus, s_objet_argument_1);
                             liberation(s_etat_processus, s_objet_resultat);                              liberation(s_etat_processus, s_objet_resultat);

Removed from v.1.76  
changed lines
  Added in v.1.77


CVSweb interface <joel.bertrand@systella.fr>