--- rpl/src/instructions_e1.c 2014/10/13 07:12:54 1.51 +++ rpl/src/instructions_e1.c 2016/03/01 22:12:30 1.60 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.19 - Copyright (C) 1989-2014 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.25 + Copyright (C) 1989-2016 Dr. BERTRAND Joël This file is part of RPL/2. @@ -544,6 +544,7 @@ instruction_else(struct_processus *s_eta } if ((instruction_majuscule = conversion_majuscule( + s_etat_processus, (*s_etat_processus).instruction_courante)) == NULL) { free((*s_etat_processus).instruction_courante); @@ -835,6 +836,7 @@ instruction_elseif(struct_processus *s_e } if ((instruction_majuscule = conversion_majuscule( + s_etat_processus, (*s_etat_processus).instruction_courante)) == NULL) { free((*s_etat_processus).instruction_courante); @@ -1038,6 +1040,8 @@ instruction_elseif(struct_processus *s_e void instruction_sensible_e(struct_processus *s_etat_processus) { + (*s_etat_processus).instruction_sensible = 'Y'; + if (strcmp((*s_etat_processus).instruction_courante, "e") == 0) { instruction_e(s_etat_processus);