--- rpl/src/instructions_g2.c 2010/07/14 14:19:36 1.10 +++ rpl/src/instructions_g2.c 2011/06/21 15:26:31 1.22 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.18 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.0.prerelease.2 + Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -535,8 +535,7 @@ instruction_get(struct_processus *s_etat return; } - s_objet_3 = (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].objet; + s_objet_3 = (*(*s_etat_processus).pointeur_variable_courante).objet; if (s_objet_3 == NULL) { @@ -548,12 +547,10 @@ instruction_get(struct_processus *s_etat } if (recherche_variable_partagee(s_etat_processus, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].nom, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_partagee, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].origine) == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .pointeur_variable_courante).origine) == d_faux) { if (pthread_mutex_unlock(&((*(*s_etat_processus) .s_liste_variables_partagees).mutex)) != 0) @@ -1740,8 +1737,7 @@ instruction_geti(struct_processus *s_eta return; } - s_objet_3 = (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].objet; + s_objet_3 = (*(*s_etat_processus).pointeur_variable_courante).objet; if (s_objet_3 == NULL) { @@ -1753,12 +1749,10 @@ instruction_geti(struct_processus *s_eta } if (recherche_variable_partagee(s_etat_processus, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].nom, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_partagee, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].origine) == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .pointeur_variable_courante).origine) == d_faux) { if (pthread_mutex_unlock(&((*(*s_etat_processus) .s_liste_variables_partagees).mutex)) != 0)