Diff for /rpl/src/instructions_s9.c between versions 1.1 and 1.7

version 1.1, 2010/01/26 15:22:45 version 1.7, 2010/04/07 13:45:09
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    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 186  instruction_sort(struct_processus *s_eta Line 186  instruction_sort(struct_processus *s_eta
                 return;                  return;
             }              }
   
             if ((*(*(*s_etat_processus).s_liste_variables_partagees)              if (((*(*(*s_etat_processus).s_liste_variables_partagees)
                     .table[(*(*s_etat_processus).s_liste_variables_partagees)                      .table[(*(*s_etat_processus).s_liste_variables_partagees)
                     .position_variable].objet).type != LST)                      .position_variable].objet).type != LST) &&
                       ((*(*(*s_etat_processus).s_liste_variables_partagees)
                       .table[(*(*s_etat_processus).s_liste_variables_partagees)
                       .position_variable].objet).type != TBL))
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .s_liste_variables_partagees).mutex)) != 0)
Line 230  instruction_sort(struct_processus *s_eta Line 233  instruction_sort(struct_processus *s_eta
         }          }
         else          else
         {          {
             if ((*(*s_etat_processus).s_liste_variables              if (((*(*s_etat_processus).s_liste_variables
                       [(*s_etat_processus).position_variable_courante].objet)
                       .type != LST) &&
                       ((*(*s_etat_processus).s_liste_variables
                     [(*s_etat_processus).position_variable_courante].objet)                      [(*s_etat_processus).position_variable_courante].objet)
                     .type != LST)                      .type != TBL))
             {              {
                 (*s_etat_processus).erreur_execution =                  (*s_etat_processus).erreur_execution =
                         d_ex_erreur_type_argument;                          d_ex_erreur_type_argument;

Removed from v.1.1  
changed lines
  Added in v.1.7


CVSweb interface <joel.bertrand@systella.fr>