version 1.46, 2013/02/28 12:41:27
|
version 1.48, 2013/03/20 17:11:45
|
Line 623 instruction_errm(struct_processus *s_eta
|
Line 623 instruction_errm(struct_processus *s_eta
|
{ |
{ |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned int registre_erreur_execution; |
int registre_erreur_execution; |
unsigned int registre_erreur_systeme; |
int registre_erreur_systeme; |
unsigned int registre_exception; |
int registre_exception; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 1018 instruction_externals(struct_processus *
|
Line 1018 instruction_externals(struct_processus *
|
{ |
{ |
logical1 ambiguite; |
logical1 ambiguite; |
|
|
unsigned long i; |
integer8 i; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
|
|
Line 1187 instruction_exit(struct_processus *s_eta
|
Line 1187 instruction_exit(struct_processus *s_eta
|
unsigned char *instruction_majuscule; |
unsigned char *instruction_majuscule; |
unsigned char *tampon; |
unsigned char *tampon; |
|
|
unsigned long niveau; |
integer8 niveau; |
|
|
void (*fonction)(); |
void (*fonction)(); |
|
|
Line 1338 instruction_exit(struct_processus *s_eta
|
Line 1338 instruction_exit(struct_processus *s_eta
|
{ |
{ |
if ((strcmp(instruction_majuscule, "FOR") == 0) || |
if ((strcmp(instruction_majuscule, "FOR") == 0) || |
(strcmp(instruction_majuscule, "FORALL") == 0) |
(strcmp(instruction_majuscule, "FORALL") == 0) |
|| (strcmp(instruction_majuscule, "START") |
|| (strcmp(instruction_majuscule, "START") |
== 0)) |
== 0)) |
{ |
{ |
niveau++; |
niveau++; |
Line 1829 instruction_exit(struct_processus *s_eta
|
Line 1829 instruction_exit(struct_processus *s_eta
|
if ((drapeau_boucle_definie == d_vrai) && |
if ((drapeau_boucle_definie == d_vrai) && |
(drapeau_presence_fin_boucle == d_vrai)) |
(drapeau_presence_fin_boucle == d_vrai)) |
{ |
{ |
presence_compteur = ((*(*s_etat_processus).l_base_pile_systeme) |
presence_compteur = (((*(*s_etat_processus).l_base_pile_systeme) |
.type_cloture == 'F') ? d_vrai : d_faux; |
.type_cloture == 'F') || ((*(*s_etat_processus) |
|
.l_base_pile_systeme).type_cloture == 'A')) ? d_vrai : d_faux; |
|
|
if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture != 'S') |
if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture != 'S') |
&& (presence_compteur == d_faux)) |
&& (presence_compteur == d_faux)) |