Diff for /rpl/src/instructions_s9.c between versions 1.10 and 1.15

version 1.10, 2010/04/29 07:30:58 version 1.15, 2010/07/24 18:01:12
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.15    RPL/2 (R) version 4.0.18
   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 463  instruction_sort(struct_processus *s_eta Line 463  instruction_sort(struct_processus *s_eta
                 indice_j = 0;                  indice_j = 0;
                 indice_k = (*((struct_tableau *) (*s_objet_liste).objet))                  indice_k = (*((struct_tableau *) (*s_objet_liste).objet))
                         .nombre_elements - ecartement;                          .nombre_elements - ecartement;
   
                 terminaison_boucle_2 = d_faux;                  terminaison_boucle_2 = d_faux;
   
                 do                  do
Line 557  instruction_sort(struct_processus *s_eta Line 556  instruction_sort(struct_processus *s_eta
   
                             if (condition == d_faux)                              if (condition == d_faux)
                             {                              {
                                 swap((void *) (*((struct_tableau *)                                  swap(&((*((struct_tableau *)
                                     (*s_objet_liste).objet)).elements                                          (*s_objet_liste).objet)).elements
                                     [indice_i - 1], (void *)                                          [indice_i - 1]),
                                     (*((struct_tableau *) (*s_objet_liste)                                          &((*((struct_tableau *) (*s_objet_liste)
                                     .objet)).elements[indice_l - 1],                                          .objet)).elements[indice_l - 1]),
                                     sizeof(struct_objet));                                          sizeof(struct_objet *));
   
                                 indice_i -= ecartement;                                  indice_i -= ecartement;
   
Line 793  instruction_save(struct_processus *s_eta Line 792  instruction_save(struct_processus *s_eta
                 i--;                  i--;
             }              }
   
             (*s_etat_processus).position_variable_courante = i;              if (presence_variable == d_vrai)
               {
                   (*s_etat_processus).position_variable_courante = i;
               }
               else
               {
                   (*s_etat_processus).position_variable_courante = 0;
               }
   
             if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)              if (((*s_etat_processus).s_liste_variables[(*s_etat_processus)
                     .position_variable_courante].niveau == 1)                      .position_variable_courante].niveau == 1) &&
                       (presence_variable == d_vrai))
             {              {
                 // On a trouvé une variable globale correspondant au nom et                  // On a trouvé une variable globale correspondant au nom et
                 // que l'on modifie.                  // que l'on modifie.

Removed from v.1.10  
changed lines
  Added in v.1.15


CVSweb interface <joel.bertrand@systella.fr>