version 1.74, 2013/03/06 10:05:09
|
version 1.75, 2013/03/20 17:11:43
|
Line 48 evaluation(struct_processus *s_etat_proc
|
Line 48 evaluation(struct_processus *s_etat_proc
|
{ |
{ |
integer8 i; |
integer8 i; |
integer8 j; |
integer8 j; |
|
integer8 k; |
|
integer8 l; |
|
integer8 niveau_initial; |
|
integer8 nombre_termes; |
|
integer8 registre_hauteur_pile_operationnelle; |
|
integer8 registre_position_courante; |
|
|
|
|
logical1 drapeau_then; |
logical1 drapeau_then; |
logical1 erreur_evaluation; |
logical1 erreur_evaluation; |
Line 89 evaluation(struct_processus *s_etat_proc
|
Line 96 evaluation(struct_processus *s_etat_proc
|
unsigned char registre_test_2; |
unsigned char registre_test_2; |
unsigned char registre_type_evaluation; |
unsigned char registre_type_evaluation; |
|
|
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; |
|
|
unsigned long k; |
|
unsigned long l; |
|
unsigned long niveau_initial; |
|
unsigned long nombre_termes; |
|
unsigned long registre_hauteur_pile_operationnelle; |
|
unsigned long registre_position_courante; |
|
|
|
void (*fonction)(); |
void (*fonction)(); |
|
|
Line 291 evaluation(struct_processus *s_etat_proc
|
Line 291 evaluation(struct_processus *s_etat_proc
|
if (presence_variable_partagee == d_faux) |
if (presence_variable_partagee == d_faux) |
{ |
{ |
(*s_etat_processus).position_courante = |
(*s_etat_processus).position_courante = |
(*((unsigned long *) ((*(*(*s_etat_processus) |
(*((integer8 *) ((*(*(*s_etat_processus) |
.pointeur_variable_courante).objet).objet))); |
.pointeur_variable_courante).objet).objet))); |
} |
} |
else |
else |
{ |
{ |
(*s_etat_processus).position_courante = |
(*s_etat_processus).position_courante = |
(*((unsigned long *) (*s_copie_variable_partagee) |
(*((integer8 *) (*s_copie_variable_partagee) |
.objet)); |
.objet)); |
liberation(s_etat_processus, s_copie_variable_partagee); |
liberation(s_etat_processus, s_copie_variable_partagee); |
} |
} |
Line 3408 evaluation(struct_processus *s_etat_proc
|
Line 3408 evaluation(struct_processus *s_etat_proc
|
.niveau_courant; |
.niveau_courant; |
|
|
(*s_etat_processus).position_courante = |
(*s_etat_processus).position_courante = |
(*((unsigned long *) |
(*((integer8 *) ((*(*(*s_etat_processus) |
((*(*(*s_etat_processus) |
|
.pointeur_variable_courante).objet).objet))); |
.pointeur_variable_courante).objet).objet))); |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if ((*s_etat_processus).profilage == d_vrai) |
Line 6497 evaluation(struct_processus *s_etat_proc
|
Line 6496 evaluation(struct_processus *s_etat_proc
|
if (presence_variable_partagee == d_faux) |
if (presence_variable_partagee == d_faux) |
{ |
{ |
(*s_etat_processus).position_courante = |
(*s_etat_processus).position_courante = |
(*((unsigned long *) |
(*((integer8 *) |
((*(*(*s_etat_processus) |
((*(*(*s_etat_processus) |
.pointeur_variable_courante) |
.pointeur_variable_courante) |
.objet).objet))); |
.objet).objet))); |
Line 6505 evaluation(struct_processus *s_etat_proc
|
Line 6504 evaluation(struct_processus *s_etat_proc
|
else |
else |
{ |
{ |
(*s_etat_processus).position_courante = |
(*s_etat_processus).position_courante = |
(*((unsigned long *) |
(*((integer8 *) |
(*s_copie_variable_partagee).objet)); |
(*s_copie_variable_partagee).objet)); |
liberation(s_etat_processus, |
liberation(s_etat_processus, |
s_copie_variable_partagee); |
s_copie_variable_partagee); |