version 1.46, 2013/09/06 10:30:53
|
version 1.66, 2018/12/24 15:55:36
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.16 |
RPL/2 (R) version 4.1.30 |
Copyright (C) 1989-2013 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 121 instruction_eval(struct_processus *s_eta
|
Line 121 instruction_eval(struct_processus *s_eta
|
sf(s_etat_processus, 31); |
sf(s_etat_processus, 31); |
} |
} |
|
|
|
liberation(s_etat_processus, s_objet); |
return; |
return; |
} |
} |
|
|
Line 543 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 834 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 1037 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); |