--- rpl/src/instructions_e1.c 2014/10/13 07:12:54 1.51 +++ rpl/src/instructions_e1.c 2018/12/24 15:55:36 1.66 @@ -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.30 + Copyright (C) 1989-2018 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);