rpl/src/instructions_s1.c - diff

Return to instructions_s1.c CVS log

Up to [local] / rpl / src

-version 1.23.2.2, 2011/04/13 08:32:12
+version 1.23.2.3, 2011/04/13 17:43:14
  Line 3306  instruction_sto(struct_processus *s_etat
          }
          else
          {
+             if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+             {
+                 if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)
+                         .position_variable_courante].niveau == 1)
+                 {
+                     liberation(s_etat_processus, s_objet_1);
+                     liberation(s_etat_processus, s_objet_2);
+                     (*s_etat_processus).erreur_execution =
+                             d_ex_creation_variable_globale;
+                     return;
+                 }
+             }
              liberation(s_etat_processus,
                      (*s_etat_processus).s_liste_variables[(*s_etat_processus)
                      .position_variable_courante].objet);