version 1.62, 2012/12/17 21:22:44
|
version 1.67, 2013/03/05 16:20:47
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 689 sequenceur(struct_processus *s_etat_proc
|
Line 689 sequenceur(struct_processus *s_etat_proc
|
(*s_etat_processus).autorisation_empilement_programme = |
(*s_etat_processus).autorisation_empilement_programme = |
'N'; |
'N'; |
|
|
|
uprintf("<A1>\n"); |
empilement_pile_systeme(s_etat_processus); |
empilement_pile_systeme(s_etat_processus); |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
Line 1155 sequenceur(struct_processus *s_etat_proc
|
Line 1156 sequenceur(struct_processus *s_etat_proc
|
else if ((*(*(*s_etat_processus) |
else if ((*(*(*s_etat_processus) |
.pointeur_variable_courante).objet).type == ADR) |
.pointeur_variable_courante).objet).type == ADR) |
{ |
{ |
|
uprintf("<A2>\n"); |
empilement_pile_systeme(s_etat_processus); |
empilement_pile_systeme(s_etat_processus); |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
Line 1224 sequenceur(struct_processus *s_etat_proc
|
Line 1226 sequenceur(struct_processus *s_etat_proc
|
== 0) || (strcmp(instruction_majuscule, |
== 0) || (strcmp(instruction_majuscule, |
"START") == 0)) |
"START") == 0)) |
{ |
{ |
|
uprintf("<A3>\n"); |
empilement_pile_systeme(s_etat_processus); |
empilement_pile_systeme(s_etat_processus); |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
Line 1236 sequenceur(struct_processus *s_etat_proc
|
Line 1239 sequenceur(struct_processus *s_etat_proc
|
} |
} |
else |
else |
{ |
{ |
|
uprintf("<A4>\n"); |
empilement_pile_systeme(s_etat_processus); |
empilement_pile_systeme(s_etat_processus); |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |