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

Diff for /rpl/src/instructions_f3.c between versions 1.66 and 1.89

version 1.66, 2015/01/05 13:12:35 version 1.89, 2024/01/09 07:33:51
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.19    RPL/2 (R) version 4.1.35
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2024 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 72  instruction_format(struct_processus *s_e Line 72  instruction_format(struct_processus *s_e
         }          }
   
         printf("    { \"STANDARD*(*)\" }\n");          printf("    { \"STANDARD*(*)\" }\n");
         printf("    { { \"NAME\" \"lambda\" } \"SEQUENTIAL\" \"NEW\""          printf("    { { \"NAME\" \"lambda\" } \"SEQUENTIAL\" \"NEW\" "
                 "\"WRITEONLY\" \"FORMATTED\" } OPEN\n            FORMAT\n\n");                  "\"WRITEONLY\" \"FORMATTED\" } OPEN\n            FORMAT\n\n");
   
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
Line 112  instruction_format(struct_processus *s_e Line 112  instruction_format(struct_processus *s_e
         printf("  FLOW\n");          printf("  FLOW\n");
         printf("    { \"LENGTH*(*)\" }\n");          printf("    { \"LENGTH*(*)\" }\n");
         printf("    { \"LENGTH*(%s)\" }\n", d_INT);          printf("    { \"LENGTH*(%s)\" }\n", d_INT);
           printf("    { \"LINE*(*)\" }\n", d_INT);
   
         return;          return;
     }      }
Line 1642  instruction_fleche_num(struct_processus Line 1643  instruction_fleche_num(struct_processus
         return;          return;
     }      }
   
     if ((s_objet_simplifie = simplification(s_etat_processus, s_objet)) == NULL)      if (test_cfsf(s_etat_processus, 46) == d_vrai)
     {      {
         if (last_valide == d_vrai)          if (evaluation(s_etat_processus, s_objet, 'N') == d_erreur)
         {          {
             sf(s_etat_processus, 31);              if (last_valide == d_vrai)
               {
                   sf(s_etat_processus, 31);
               }
   
               if (registre_type_evaluation == 'E')
               {
                   sf(s_etat_processus, 35);
               }
               else
               {
                   cf(s_etat_processus, 35);
               }
   
               liberation(s_etat_processus, s_objet);
               return;
         }          }
   
         if (registre_type_evaluation == 'E')          if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
                   &s_objet) == d_erreur)
         {          {
             sf(s_etat_processus, 35);              if (last_valide == d_vrai)
               {
                   sf(s_etat_processus, 31);
               }
   
               if (registre_type_evaluation == 'E')
               {
                   sf(s_etat_processus, 35);
               }
               else
               {
                   cf(s_etat_processus, 35);
               }
   
               (*s_etat_processus).erreur_execution = d_ex_manque_argument;
               return;
         }          }
         else  
           if ((s_objet_simplifie = simplification(s_etat_processus, s_objet))
                   == NULL)
         {          {
             cf(s_etat_processus, 35);              if (last_valide == d_vrai)
               {
                   sf(s_etat_processus, 31);
               }
   
               if (registre_type_evaluation == 'E')
               {
                   sf(s_etat_processus, 35);
               }
               else
               {
                   cf(s_etat_processus, 35);
               }
   
               return;
         }          }
   
         return;          liberation(s_etat_processus, s_objet);
           s_objet = s_objet_simplifie;
     }      }
   
     liberation(s_etat_processus, s_objet);  
     s_objet = s_objet_simplifie;  
   
     if (evaluation(s_etat_processus, s_objet, 'N') == d_erreur)      if (evaluation(s_etat_processus, s_objet, 'N') == d_erreur)
     {      {
         if (last_valide == d_vrai)          if (last_valide == d_vrai)
Removed from v.1.66  
changed lines
  Added in v.1.89

CVSweb interface <joel.bertrand@systella.fr>