version 1.56, 2012/09/29 17:53:02
|
version 1.59, 2012/10/04 15:21:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.10 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 1244 sequenceur(struct_processus *s_etat_proc
|
Line 1244 sequenceur(struct_processus *s_etat_proc
|
analyse(s_etat_processus, NULL); |
analyse(s_etat_processus, NULL); |
} |
} |
else if ((strcmp(instruction_majuscule, "FOR") == 0) |
else if ((strcmp(instruction_majuscule, "FOR") == 0) |
|| (strcmp(instruction_majuscule, "START") |
|| (strcmp(instruction_majuscule, "FORALL") |
== 0)) |
== 0) || (strcmp(instruction_majuscule, |
|
"START") == 0)) |
{ |
{ |
empilement_pile_systeme(s_etat_processus); |
empilement_pile_systeme(s_etat_processus); |
|
|
Line 1298 sequenceur(struct_processus *s_etat_proc
|
Line 1299 sequenceur(struct_processus *s_etat_proc
|
* Libération des compteurs de boucle. |
* Libération des compteurs de boucle. |
*/ |
*/ |
|
|
presence_compteur = ((*(*s_etat_processus) |
presence_compteur = (((*(*s_etat_processus) |
|
.l_base_pile_systeme).type_cloture |
|
== 'F') || ((*(*s_etat_processus) |
.l_base_pile_systeme).type_cloture |
.l_base_pile_systeme).type_cloture |
== 'F') ? d_vrai : d_faux; |
== 'A')) ? d_vrai : d_faux; |
|
|
if (((*(*s_etat_processus).l_base_pile_systeme) |
if (((*(*s_etat_processus).l_base_pile_systeme) |
.type_cloture != 'S') && |
.type_cloture != 'S') && |
Line 1328 sequenceur(struct_processus *s_etat_proc
|
Line 1331 sequenceur(struct_processus *s_etat_proc
|
|
|
(*s_etat_processus).niveau_courant--; |
(*s_etat_processus).niveau_courant--; |
|
|
if (retrait_variable_par_niveau( |
if (retrait_variables_par_niveau( |
s_etat_processus) == d_erreur) |
s_etat_processus) == d_erreur) |
{ |
{ |
return(d_erreur); |
return(d_erreur); |