rpl/src/instructions_l5.c - diff

Return to instructions_l5.c CVS log

Up to [local] / rpl / src

-version 1.16, 2011/03/06 16:44:12
+version 1.17, 2011/03/12 17:55:14
  Line 1709  instruction_lcase(struct_processus *s_et
  void
  instruction_l_vers_t(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 1737  instruction_l_vers_t(struct_processus *s
+ Line 1736  instruction_l_vers_t(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_list_fleche(s_etat_processus);
+     if (((*s_etat_processus).erreur_systeme == d_es) &&
+             ((*s_etat_processus).erreur_execution == d_ex))
+     {
+         instruction_fleche_table(s_etat_processus);
+     }
+     if (last == d_vrai)
+     {
+         sf(s_etat_processus, 31);
+     }
      return;
  }