version 1.59, 2012/10/01 11:05:00
|
version 1.62, 2012/10/08 11:53:46
|
Line 802 evaluation(struct_processus *s_etat_proc
|
Line 802 evaluation(struct_processus *s_etat_proc
|
((*s_etat_processus).erreur_systeme == d_es) && |
((*s_etat_processus).erreur_systeme == d_es) && |
((*s_etat_processus).exception == d_ep)) |
((*s_etat_processus).exception == d_ep)) |
{ |
{ |
|
registre_evaluation_expression_compilee = |
|
(*s_etat_processus) |
|
.evaluation_expression_compilee; |
|
|
|
if (((*(*s_etat_processus).pointeur_variable_courante) |
|
.origine == 'E') && ((*(*s_etat_processus) |
|
.pointeur_variable_courante).niveau == 0)) |
|
{ |
|
(*s_etat_processus).evaluation_expression_compilee |
|
= 'Y'; |
|
} |
|
else |
|
{ |
|
(*s_etat_processus).evaluation_expression_compilee |
|
= 'N'; |
|
} |
|
|
analyse(s_etat_processus, (*((struct_fonction *) |
analyse(s_etat_processus, (*((struct_fonction *) |
(*(*l_element_courant).donnee).objet)) |
(*(*l_element_courant).donnee).objet)) |
.fonction); |
.fonction); |
|
|
|
(*s_etat_processus).evaluation_expression_compilee = |
|
registre_evaluation_expression_compilee; |
|
|
if (type_evaluation == 'I') |
if (type_evaluation == 'I') |
{ |
{ |
(*s_etat_processus).derniere_erreur_evaluation = |
(*s_etat_processus).derniere_erreur_evaluation = |
Line 1147 evaluation(struct_processus *s_etat_proc
|
Line 1167 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 1514 evaluation(struct_processus *s_etat_proc
|
Line 1533 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 1900 evaluation(struct_processus *s_etat_proc
|
Line 1918 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 4140 evaluation(struct_processus *s_etat_proc
|
Line 4157 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 4548 evaluation(struct_processus *s_etat_proc
|
Line 4564 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 4922 evaluation(struct_processus *s_etat_proc
|
Line 4937 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 5393 evaluation(struct_processus *s_etat_proc
|
Line 5407 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 5801 evaluation(struct_processus *s_etat_proc
|
Line 5814 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 6175 evaluation(struct_processus *s_etat_proc
|
Line 6187 evaluation(struct_processus *s_etat_proc
|
.niveau_courant--; |
.niveau_courant--; |
|
|
if ( |
if ( |
retrait_variable_par_niveau( |
retrait_variables_par_niveau( |
s_etat_processus) == |
s_etat_processus) == d_erreur) |
d_erreur) |
|
{ |
{ |
if (presence_egalite == |
if (presence_egalite == |
d_vrai) |
d_vrai) |
Line 7179 evaluation(struct_processus *s_etat_proc
|
Line 7190 evaluation(struct_processus *s_etat_proc
|
|
|
(*s_etat_processus).niveau_courant = niveau_initial; |
(*s_etat_processus).niveau_courant = niveau_initial; |
|
|
if (retrait_variable_par_niveau(s_etat_processus) == d_erreur) |
if (retrait_variables_par_niveau(s_etat_processus) == d_erreur) |
{ |
{ |
|
if (presence_egalite == d_vrai) |
|
{ |
|
liberation(s_etat_processus, s_objet_evalue); |
|
} |
|
|
|
(*s_etat_processus).instruction_courante = |
|
instruction_courante; |
|
(*s_etat_processus).mode_execution_programme = |
|
registre_mode_execution_programme; |
return(d_erreur); |
return(d_erreur); |
} |
} |
} |
} |
Line 7189 evaluation(struct_processus *s_etat_proc
|
Line 7209 evaluation(struct_processus *s_etat_proc
|
* Retrait des variables statiques créées dans l'expression |
* Retrait des variables statiques créées dans l'expression |
*/ |
*/ |
|
|
for(n = 0; n < (*s_etat_processus).nombre_variables_statiques; n++) |
if (retrait_variables_statiques_locales(s_etat_processus) == d_erreur) |
{ |
{ |
if ((*s_etat_processus).s_liste_variables_statiques[n] |
if (presence_egalite == d_vrai) |
.niveau > (*s_etat_processus).niveau_courant) |
|
{ |
{ |
if (retrait_variable_statique(s_etat_processus, |
liberation(s_etat_processus, s_objet_evalue); |
(*s_etat_processus).s_liste_variables_statiques[n].nom, |
|
(*s_etat_processus).s_liste_variables_statiques[n] |
|
.variable_statique) == d_erreur) |
|
{ |
|
if (presence_egalite == d_vrai) |
|
{ |
|
liberation(s_etat_processus, s_objet_evalue); |
|
} |
|
|
|
(*s_etat_processus).instruction_courante = |
|
instruction_courante; |
|
(*s_etat_processus).mode_execution_programme = |
|
registre_mode_execution_programme; |
|
return(d_erreur); |
|
} |
|
} |
} |
|
|
|
(*s_etat_processus).instruction_courante = |
|
instruction_courante; |
|
(*s_etat_processus).mode_execution_programme = |
|
registre_mode_execution_programme; |
|
return(d_erreur); |
} |
} |
|
|
/* |
/* |