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

Diff for /rpl/src/instructions_s9.c between versions 1.54 and 1.61

version 1.54, 2012/12/13 16:59:42 version 1.61, 2013/04/01 15:29:38
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.11    RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2012 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 60  instruction_sort(struct_processus *s_eta Line 60  instruction_sort(struct_processus *s_eta
     struct_objet                *s_objet_registre;      struct_objet                *s_objet_registre;
     struct_objet                *s_objet_test;      struct_objet                *s_objet_test;
   
     signed long                 indice_i;      integer8                    ecartement;
     signed long                 indice_j;      integer8                    indice_i;
     signed long                 indice_k;      integer8                    indice_j;
     signed long                 indice_l;      integer8                    indice_k;
       integer8                    indice_l;
     unsigned long               ecartement;  
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 158  instruction_sort(struct_processus *s_eta Line 157  instruction_sort(struct_processus *s_eta
                     (*(*s_etat_processus).pointeur_variable_courante).nom,                      (*(*s_etat_processus).pointeur_variable_courante).nom,
                     (*(*s_etat_processus).pointeur_variable_courante)                      (*(*s_etat_processus).pointeur_variable_courante)
                     .variable_partagee, (*(*s_etat_processus)                      .variable_partagee, (*(*s_etat_processus)
                     .pointeur_variable_courante).origine) == d_faux)                      .pointeur_variable_courante).origine) == NULL)
             {              {
                 (*s_etat_processus).erreur_execution =                  (*s_etat_processus).erreur_execution =
                         d_ex_erreur_type_argument;                          d_ex_erreur_type_argument;
Line 1397  instruction_swi(struct_processus *s_etat Line 1396  instruction_swi(struct_processus *s_etat
             }              }
         }          }
   
         interruption_reduite = interruption;          interruption_reduite = (int) interruption;
   
         attente.tv_sec = 0;          attente.tv_sec = 0;
         attente.tv_nsec = GRANULARITE_us * 1000;          attente.tv_nsec = GRANULARITE_us * 1000;
Removed from v.1.54  
changed lines
  Added in v.1.61

CVSweb interface <joel.bertrand@systella.fr>