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

Diff for /rpl/src/types.c between versions 1.67 and 1.68

version 1.67, 2014/07/24 14:38:44 version 1.68, 2014/07/26 09:58:02
Line 38 Line 38
 void  void
 recherche_type(struct_processus *s_etat_processus)  recherche_type(struct_processus *s_etat_processus)
 {  {
     enum t_type                 registre_type;  
   
     integer8                    i;      integer8                    i;
     integer8                    j;      integer8                    j;
     integer8                    niveau;      integer8                    niveau;
Line 276  recherche_type(struct_processus *s_etat_ Line 274  recherche_type(struct_processus *s_etat_
             element = (void *) ((struct_complexe16 *) malloc(              element = (void *) ((struct_complexe16 *) malloc(
                     sizeof(struct_complexe16)));                      sizeof(struct_complexe16)));
   
               if (element == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 (*s_etat_processus).traitement_interruptible =                  (*s_etat_processus).traitement_interruptible =
Line 1084  recherche_type(struct_processus *s_etat_ Line 1083  recherche_type(struct_processus *s_etat_
   
                 case d_faux :                  case d_faux :
                 {                  {
                     registre_type = (*s_etat_processus).type_en_cours;  
   
                     if (drapeau_complexe == d_vrai)  
                     {  
                         (*s_etat_processus).type_en_cours = VCX;  
                     }  
                     else if (drapeau_reel == d_vrai)  
                     {  
                         (*s_etat_processus).type_en_cours = VRL;  
                     }  
                     else  
                     {  
                         (*s_etat_processus).type_en_cours = VIN;  
                     }  
   
   
 /*  /*
 -- Sauvegarde des paramètres du processus pour analyser le vecteur -------------  -- Sauvegarde des paramètres du processus pour analyser le vecteur -------------
Line 1507  recherche_type(struct_processus *s_etat_ Line 1491  recherche_type(struct_processus *s_etat_
                         (*s_objet).type = VIN;                          (*s_objet).type = VIN;
                     }                      }
   
                     (*s_etat_processus).type_en_cours = registre_type;  
                     break;                      break;
                 }                  }
   
Line 1519  recherche_type(struct_processus *s_etat_ Line 1502  recherche_type(struct_processus *s_etat_
   
                 case d_vrai :                  case d_vrai :
                 {                  {
                     registre_type = (*s_etat_processus).type_en_cours;  
   
                     if (drapeau_complexe == d_vrai)  
                     {  
                         (*s_etat_processus).type_en_cours = MCX;  
                     }  
                     else if (drapeau_reel == d_vrai)  
                     {  
                         (*s_etat_processus).type_en_cours = MRL;  
                     }  
                     else  
                     {  
                         (*s_etat_processus).type_en_cours = MIN;  
                     }  
   
                     nombre_lignes--;                      nombre_lignes--;
   
                     sauvegarde_longueur_definitions_chainees =                      sauvegarde_longueur_definitions_chainees =
Line 2153  recherche_type(struct_processus *s_etat_ Line 2121  recherche_type(struct_processus *s_etat_
                         fflush(stdout);                          fflush(stdout);
                     }                      }
   
                     (*s_etat_processus).type_en_cours = registre_type;  
                     break;                      break;
                 }                  }
             }              }
Line 2169  recherche_type(struct_processus *s_etat_ Line 2136  recherche_type(struct_processus *s_etat_
   
         case '{' :          case '{' :
         {          {
             registre_type = (*s_etat_processus).type_en_cours;  
             (*s_etat_processus).type_en_cours = LST;  
   
             sauvegarde_longueur_definitions_chainees =              sauvegarde_longueur_definitions_chainees =
                     (*s_etat_processus).longueur_definitions_chainees;                      (*s_etat_processus).longueur_definitions_chainees;
   
Line 2553  recherche_type(struct_processus *s_etat_ Line 2517  recherche_type(struct_processus *s_etat_
             (*s_objet).type = LST;              (*s_objet).type = LST;
             element = (void *) l_element_courant;              element = (void *) l_element_courant;
   
             (*s_etat_processus).type_en_cours = registre_type;  
             break;              break;
         }          }
   
Line 2948  recherche_type(struct_processus *s_etat_ Line 2911  recherche_type(struct_processus *s_etat_
   
         case '<' :          case '<' :
         {          {
             registre_type = (*s_etat_processus).type_en_cours;  
   
             if ((*s_etat_processus).instruction_courante[1] == '[')              if ((*s_etat_processus).instruction_courante[1] == '[')
             {              {
                 // Tableau                  // Tableau
Line 3284  recherche_type(struct_processus *s_etat_ Line 3245  recherche_type(struct_processus *s_etat_
                 }                  }
             }              }
   
             (*s_etat_processus).type_en_cours = registre_type;  
             break;              break;
         }          }
   
Removed from v.1.67  
changed lines
  Added in v.1.68

CVSweb interface <joel.bertrand@systella.fr>