rpl/src/instructions_t3.c - diff

Return to instructions_t3.c CVS log

Up to [local] / rpl / src

-version 1.19, 2011/03/06 16:44:14
+version 1.20, 2011/03/12 17:55:14
  Line 912  instruction_tokenize(struct_processus *s
  void
  instruction_t_vers_l(struct_processus *s_etat_processus)
  {
-     struct_objet            *s_objet_argument;
+     logical1                    last;
-     struct_objet            *s_objet_resultat;
      (*s_etat_processus).erreur_execution = d_ex;
- Line 940  instruction_t_vers_l(struct_processus *s
+ Line 939  instruction_t_vers_l(struct_processus *s
          return;
      }
+     if (test_cfsf(s_etat_processus, 31) == d_vrai)
+     {
+         last = d_vrai;
+         cf(s_etat_processus, 31);
+         if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
+         {
+             return;
+         }
+     }
+     else
+     {
+         last = d_faux;
+     }
+     instruction_table_fleche(s_etat_processus);
+     if (((*s_etat_processus).erreur_systeme == d_es) &&
+             ((*s_etat_processus).erreur_execution == d_ex))
+     {
+         instruction_fleche_list(s_etat_processus);
+     }
+     if (last == d_vrai)
+     {
+         sf(s_etat_processus, 31);
+     }
      return;
  }
  // vim: ts=4