Diff for /rpl/src/instructions_r7.c between versions 1.42 and 1.48

version 1.42, 2018/12/21 14:38:06 version 1.48, 2020/01/10 11:15:48
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.29    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2018 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 719  instruction_rgdr(struct_processus *s_eta Line 719  instruction_rgdr(struct_processus *s_eta
 static int  static int
 fonction_comparaison(const void *argument_1, const void *argument_2)  fonction_comparaison(const void *argument_1, const void *argument_2)
 {  {
         return(strcmp((unsigned char *) (**((struct_objet **) argument_1))      return(strcmp((unsigned char *) (**((struct_objet **) argument_1)).objet,
                 .objet, (unsigned char *) (**((struct_objet **) argument_2))              (unsigned char *) (**((struct_objet **) argument_2)).objet));
                 .objet));  
 }  }
   
   

Removed from v.1.42  
changed lines
  Added in v.1.48


CVSweb interface <joel.bertrand@systella.fr>