[BACK]Return to instructions_c4.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/instructions_c4.c between versions 1.35 and 1.57

version 1.35, 2011/11/28 21:42:04 version 1.57, 2014/04/25 07:37:30
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.5    RPL/2 (R) version 4.1.18
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2014 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 39 Line 39
 void  void
 instruction_cov(struct_processus *s_etat_processus)  instruction_cov(struct_processus *s_etat_processus)
 {  {
     integer8                            nombre_colonnes;  
   
     logical1                            erreur;      logical1                            erreur;
   
     struct_objet                        *s_objet_statistique;      struct_objet                        *s_objet_statistique;
     struct_objet                        *s_objet_resultat;      struct_objet                        *s_objet_resultat;
   
       integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 179  instruction_corr(struct_processus *s_eta Line 179  instruction_corr(struct_processus *s_eta
     struct_objet                        *s_objet_statistique;      struct_objet                        *s_objet_statistique;
     struct_objet                        *s_objet_resultat;      struct_objet                        *s_objet_resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 372  instruction_convert(struct_processus *s_ Line 372  instruction_convert(struct_processus *s_
   
     logical1                    last_valide;      logical1                    last_valide;
   
     long                        longueur_chaine;      size_t                      longueur_chaine;
   
     logical1                    presence_resultat;      logical1                    presence_resultat;
   
Line 779  instruction_close(struct_processus *s_et Line 779  instruction_close(struct_processus *s_et
   
         if (fclose((*descripteur).descripteur_c) != 0)          if (fclose((*descripteur).descripteur_c) != 0)
         {          {
               perror("fclose");
             free(descripteur);              free(descripteur);
             liberation(s_etat_processus, s_objet_argument);              liberation(s_etat_processus, s_objet_argument);
   
Line 1085  instruction_cswp(struct_processus *s_eta Line 1086  instruction_cswp(struct_processus *s_eta
     struct_objet                *s_objet_argument_2;      struct_objet                *s_objet_argument_2;
     struct_objet                *s_objet_argument_3;      struct_objet                *s_objet_argument_3;
   
     signed long                 colonne_1;      integer8                    colonne_1;
     signed long                 colonne_2;      integer8                    colonne_2;
       integer8                    i;
     unsigned long               i;  
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1160  instruction_cswp(struct_processus *s_eta Line 1160  instruction_cswp(struct_processus *s_eta
   
         if ((*s_objet_argument_3).type == MIN)          if ((*s_objet_argument_3).type == MIN)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Line 1197  instruction_cswp(struct_processus *s_eta Line 1197  instruction_cswp(struct_processus *s_eta
         }          }
         else if ((*s_objet_argument_3).type == MRL)          else if ((*s_objet_argument_3).type == MRL)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Line 1234  instruction_cswp(struct_processus *s_eta Line 1234  instruction_cswp(struct_processus *s_eta
         }          }
         else if ((*s_objet_argument_3).type == MCX)          else if ((*s_objet_argument_3).type == MCX)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Removed from v.1.35  
changed lines
  Added in v.1.57

CVSweb interface <joel.bertrand@systella.fr>