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

Diff for /rpl/src/instructions_e1.c between versions 1.1 and 1.41

version 1.1, 2010/01/26 15:22:45 version 1.41, 2013/02/26 19:56:14
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    RPL/2 (R) version 4.1.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
   
 /*  /*
Line 185  instruction_eval(struct_processus *s_eta Line 185  instruction_eval(struct_processus *s_eta
 void  void
 instruction_end(struct_processus *s_etat_processus)  instruction_end(struct_processus *s_etat_processus)
 {  {
     struct_objet                    *s_objet;  
   
     logical1                        condition;      logical1                        condition;
   
       struct_liste_pile_systeme       *l_element_courant;
   
       struct_objet                    *s_objet;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
           
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 227  instruction_end(struct_processus *s_etat Line 229  instruction_end(struct_processus *s_etat
         printf("        (expression 2)]\n");          printf("        (expression 2)]\n");
         printf("    END\n\n");          printf("    END\n\n");
   
           printf("    CRITICAL\n");
           printf("        (expression)\n");
           printf("    END\n\n");
   
         printf("    DO\n");          printf("    DO\n");
         printf("        (expression)\n");          printf("        (expression)\n");
         printf("    UNTIL\n");          printf("    UNTIL\n");
Line 262  instruction_end(struct_processus *s_etat Line 268  instruction_end(struct_processus *s_etat
         return;          return;
     }      }
   
       if ((*s_etat_processus).l_base_pile_systeme == NULL)
       {
           (*s_etat_processus).erreur_systeme = d_es_processus;
           return;
       }
   
     if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'I')      if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'I')
             || ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'J'))              || ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'J'))
     {      {
Line 366  instruction_end(struct_processus *s_etat Line 378  instruction_end(struct_processus *s_etat
     }      }
     else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'C')      else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'C')
     {      {
         if ((*(*s_etat_processus).l_base_pile_systeme).clause != 'Q')          depilement_pile_systeme(s_etat_processus);
   
           if ((*s_etat_processus).erreur_systeme != d_es)
         {          {
             depilement_pile_systeme(s_etat_processus);              return;
           }
       }
       else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'K')
       {
           l_element_courant = (*(*s_etat_processus).l_base_pile_systeme).suivant;
   
             if ((*s_etat_processus).erreur_systeme != d_es)          while(l_element_courant != NULL)
           {
               switch((*l_element_courant).clause)
             {              {
                 return;                  case 'K' :
                   case 'Q' :
                   case 'C' :
                   {
                       if ((*l_element_courant).clause == 'Q')
                       {
                           (*l_element_courant).clause = 'C';
                       }
                       else
                       {
                           (*l_element_courant).clause = (*(*s_etat_processus)
                                   .l_base_pile_systeme).clause;
                       }
   
                       l_element_courant = NULL;
                       break;
                   }
   
                   default :
                   {
                       l_element_courant = (*l_element_courant).suivant;
                       break;
                   }
             }              }
         }          }
         else  
           depilement_pile_systeme(s_etat_processus);
   
           if ((*s_etat_processus).erreur_systeme != d_es)
         {          {
             (*(*s_etat_processus).l_base_pile_systeme).clause = 'C';              return;
         }          }
     }      }
     else       else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'Q')
       {
           depilement_pile_systeme(s_etat_processus);
   
           if ((*s_etat_processus).erreur_systeme != d_es)
           {
               return;
           }
   
           if (pthread_mutex_unlock(&mutex_sections_critiques) != 0)
           {
               (*s_etat_processus).erreur_systeme = d_es_processus;
               return;
           }
   
           (*s_etat_processus).sections_critiques--;
       }
       else
     {      {
         (*s_etat_processus).erreur_systeme = d_es_end_incoherent;          (*s_etat_processus).erreur_systeme = d_es_end_incoherent;
     }      }
Removed from v.1.1  
changed lines
  Added in v.1.41

CVSweb interface <joel.bertrand@systella.fr>