version 1.52, 2015/01/05 13:12:34
|
version 1.66, 2018/12/24 15:55:36
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.19 |
RPL/2 (R) version 4.1.30 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2018 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 544 instruction_else(struct_processus *s_eta
|
Line 544 instruction_else(struct_processus *s_eta
|
} |
} |
|
|
if ((instruction_majuscule = conversion_majuscule( |
if ((instruction_majuscule = conversion_majuscule( |
|
s_etat_processus, |
(*s_etat_processus).instruction_courante)) == NULL) |
(*s_etat_processus).instruction_courante)) == NULL) |
{ |
{ |
free((*s_etat_processus).instruction_courante); |
free((*s_etat_processus).instruction_courante); |
Line 835 instruction_elseif(struct_processus *s_e
|
Line 836 instruction_elseif(struct_processus *s_e
|
} |
} |
|
|
if ((instruction_majuscule = conversion_majuscule( |
if ((instruction_majuscule = conversion_majuscule( |
|
s_etat_processus, |
(*s_etat_processus).instruction_courante)) == NULL) |
(*s_etat_processus).instruction_courante)) == NULL) |
{ |
{ |
free((*s_etat_processus).instruction_courante); |
free((*s_etat_processus).instruction_courante); |
Line 1038 instruction_elseif(struct_processus *s_e
|
Line 1040 instruction_elseif(struct_processus *s_e
|
void |
void |
instruction_sensible_e(struct_processus *s_etat_processus) |
instruction_sensible_e(struct_processus *s_etat_processus) |
{ |
{ |
|
(*s_etat_processus).instruction_sensible = 'Y'; |
|
|
if (strcmp((*s_etat_processus).instruction_courante, "e") == 0) |
if (strcmp((*s_etat_processus).instruction_courante, "e") == 0) |
{ |
{ |
instruction_e(s_etat_processus); |
instruction_e(s_etat_processus); |