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

Diff for /rpl/src/instructions_n1.c between versions 1.39 and 1.45

version 1.39, 2012/10/01 11:05:05 version 1.45, 2013/03/20 22:24:36
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.11    RPL/2 (R) version 4.1.13
   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 27 Line 27
 ================================================================================  ================================================================================
   Fonction 'neg'    Fonction 'neg'
 ================================================================================  ================================================================================
   Entrées :    Entrées :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sorties :    Sorties :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Effets de bord : néant    Effets de bord : néant
 ================================================================================  ================================================================================
 */  */
   
Line 48  instruction_neg(struct_processus *s_etat Line 48  instruction_neg(struct_processus *s_etat
     struct_objet                *s_objet_argument;      struct_objet                *s_objet_argument;
     struct_objet                *s_objet_resultat;      struct_objet                *s_objet_resultat;
   
     unsigned long               i;      integer8                    i;
     unsigned long               j;      integer8                    j;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 641  instruction_neg(struct_processus *s_etat Line 641  instruction_neg(struct_processus *s_etat
 ================================================================================  ================================================================================
   Fonction 'not'    Fonction 'not'
 ================================================================================  ================================================================================
   Entrées : pointeur sur une struct_processus    Entrées : pointeur sur une struct_processus
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sorties :    Sorties :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Effets de bord : néant    Effets de bord : néant
 ================================================================================  ================================================================================
 */  */
   
Line 978  instruction_not(struct_processus *s_etat Line 978  instruction_not(struct_processus *s_etat
 ================================================================================  ================================================================================
   Fonction '<>'    Fonction '<>'
 ================================================================================  ================================================================================
   Entrées :    Entrées :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sorties :    Sorties :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Effets de bord : néant    Effets de bord : néant
 ================================================================================  ================================================================================
 */  */
   
Line 1003  instruction_ne(struct_processus *s_etat_ Line 1003  instruction_ne(struct_processus *s_etat_
   
     logical1                    difference;      logical1                    difference;
   
     unsigned long               i;      integer8                    i;
     unsigned long               j;      integer8                    j;
     unsigned long               nombre_elements;      integer8                    nombre_elements;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 2044  instruction_ne(struct_processus *s_etat_ Line 2044  instruction_ne(struct_processus *s_etat_
 ================================================================================  ================================================================================
   Fonction 'next'    Fonction 'next'
 ================================================================================  ================================================================================
   Entrées :    Entrées :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sorties :    Sorties :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Effets de bord : néant    Effets de bord : néant
 ================================================================================  ================================================================================
 */  */
   
Line 2288  instruction_next(struct_processus *s_eta Line 2288  instruction_next(struct_processus *s_eta
             {              {
                 (*s_etat_processus).niveau_courant--;                  (*s_etat_processus).niveau_courant--;
   
                 if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)                  if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
                 {                  {
                     return;                      return;
                 }                  }
Line 2433  instruction_next(struct_processus *s_eta Line 2433  instruction_next(struct_processus *s_eta
   
             (*s_etat_processus).niveau_courant--;              (*s_etat_processus).niveau_courant--;
   
             if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)              if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
             {              {
                 return;                  return;
             }              }
Line 2462  instruction_next(struct_processus *s_eta Line 2462  instruction_next(struct_processus *s_eta
 ================================================================================  ================================================================================
   Fonction 'nrand'    Fonction 'nrand'
 ================================================================================  ================================================================================
   Entrées : structure processus    Entrées : structure processus
 -------------------------------------------------------------------------------  -------------------------------------------------------------------------------
   Sorties :    Sorties :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Effets de bord : néant    Effets de bord : néant
 ================================================================================  ================================================================================
 */  */
   
Removed from v.1.39  
changed lines
  Added in v.1.45

CVSweb interface <joel.bertrand@systella.fr>