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

Diff for /rpl/src/sequenceur.c between versions 1.7 and 1.11

version 1.7, 2010/03/04 10:17:55 version 1.11, 2010/04/17 18:57:36
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.12    RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 808  sequenceur(struct_processus *s_etat_proc Line 808  sequenceur(struct_processus *s_etat_proc
                     (*s_etat_processus).erreur_systeme = d_es;                      (*s_etat_processus).erreur_systeme = d_es;
                     recherche_type(s_etat_processus);                      recherche_type(s_etat_processus);
   
                       if ((*s_etat_processus).autorisation_nom_implicite == 'N')
                       {
                           if ((*s_etat_processus).l_base_pile == NULL)
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_manque_argument;
                               return(d_erreur);
                           }
   
                           if ((*(*(*s_etat_processus).l_base_pile).donnee).type
                                   == NOM)
                           {
                               if ((*((struct_nom *) (*(*(*s_etat_processus)
                                       .l_base_pile).donnee).objet)).symbole
                                       == d_faux)
                               {
                                   if (depilement(s_etat_processus,
                                           &((*s_etat_processus).l_base_pile),
                                           &s_objet_evaluation) == d_erreur)
                                   {
                                       (*s_etat_processus).erreur_execution =
                                               d_ex_manque_argument;
                                       return(d_erreur);
                                   }
   
                                   liberation(s_etat_processus,
                                           s_objet_evaluation);
                                   free((*s_etat_processus).instruction_courante);
   
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_manque_argument;
                                   return(d_erreur);
                               }
                           }
                       }
   
                     // Le séquenceur est appelé depuis la routine d'évaluation                      // Le séquenceur est appelé depuis la routine d'évaluation
   
                     if ((*s_etat_processus).evaluation_forcee == 'Y')                      if ((*s_etat_processus).evaluation_forcee == 'Y')
Removed from v.1.7  
changed lines
  Added in v.1.11

CVSweb interface <joel.bertrand@systella.fr>