version 1.8, 2010/03/17 14:14:37
|
version 1.9, 2010/04/07 13:33:23
|
Line 808 sequenceur(struct_processus *s_etat_proc
|
Line 808 sequenceur(struct_processus *s_etat_proc
|
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
recherche_type(s_etat_processus); |
recherche_type(s_etat_processus); |
|
|
|
if ((*s_etat_processus).autorisation_nom_implicite == 'N') |
|
{ |
|
if ((*s_etat_processus).l_base_pile == NULL) |
|
{ |
|
(*s_etat_processus).erreur_execution = |
|
d_ex_manque_argument; |
|
return(d_erreur); |
|
} |
|
|
|
if ((*(*(*s_etat_processus).l_base_pile).donnee).type |
|
== NOM) |
|
{ |
|
if ((*((struct_nom *) (*(*(*s_etat_processus) |
|
.l_base_pile).donnee).objet)).symbole |
|
== d_faux) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_nom_implicite; |
|
} |
|
} |
|
} |
|
|
// Le séquenceur est appelé depuis la routine d'évaluation |
// Le séquenceur est appelé depuis la routine d'évaluation |
|
|
if ((*s_etat_processus).evaluation_forcee == 'Y') |
if ((*s_etat_processus).evaluation_forcee == 'Y') |