rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

-version 1.22, 2010/09/23 15:27:42
+version 1.23, 2010/11/09 10:47:43
  Line 3377  recherche_type(struct_processus *s_etat_
              if ((drapeau_valeur_reelle == d_faux) &&
                      (drapeau_valeur_entiere == d_faux))
              {
+                 ptr = (*s_etat_processus).instruction_courante;
+                 while((*ptr) != d_code_fin_chaine)
+                 {
+                     if (isalnum((*ptr)) == 0)
+                     {
+                         free(s_objet);
+                         (*s_etat_processus).erreur_execution = d_ex_syntaxe;
+                         (*s_etat_processus).traitement_interruptible =
+                                 registre_interruption;
+                         return;
+                     }
+                     ptr++;
+                 }
                  (*s_objet).type = NOM;
                  element = malloc(sizeof(struct_nom));