--- rpl/src/instructions_g2.c 2012/12/13 16:59:41 1.38 +++ rpl/src/instructions_g2.c 2014/04/25 07:37:31 1.50 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.11 - Copyright (C) 1989-2012 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.18 + Copyright (C) 1989-2014 Dr. BERTRAND Joël This file is part of RPL/2. @@ -48,9 +48,9 @@ instruction_get(struct_processus *s_etat struct_objet *s_objet_element; struct_objet *s_objet_resultat; - unsigned long indice_i; - unsigned long indice_j; - unsigned long nombre_dimensions; + integer8 indice_i; + integer8 indice_j; + integer8 nombre_dimensions; (*s_etat_processus).erreur_execution = d_ex; @@ -543,7 +543,7 @@ instruction_get(struct_processus *s_etat (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .variable_partagee, (*(*s_etat_processus) - .pointeur_variable_courante).origine) == d_faux) + .pointeur_variable_courante).origine) == NULL) { (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution = @@ -1274,10 +1274,10 @@ instruction_geti(struct_processus *s_eta struct_objet *s_objet_3; struct_objet *s_objet_resultat; - unsigned long indice_i; - unsigned long indice_j; - unsigned long nombre_dimensions; - unsigned long nombre_elements; + integer8 indice_i; + integer8 indice_j; + integer8 nombre_dimensions; + integer8 nombre_elements; (*s_etat_processus).erreur_execution = d_ex; @@ -1742,7 +1742,7 @@ instruction_geti(struct_processus *s_eta (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .variable_partagee, (*(*s_etat_processus) - .pointeur_variable_courante).origine) == d_faux) + .pointeur_variable_courante).origine) == NULL) { (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution =