version 1.19, 2010/06/24 09:21:43
|
version 1.28, 2010/09/23 15:27:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.16 |
RPL/2 (R) version 4.0.20 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
#define TEST(instruction) (fonction == instruction) |
#define TEST(instruction) (fonction == instruction) |
#define vers_niveau_inferieur instruction_vers_niveau_inferieur |
#define vers_niveau_inferieur instruction_vers_niveau_inferieur |
Line 771 evaluation(struct_processus *s_etat_proc
|
Line 771 evaluation(struct_processus *s_etat_proc
|
registre_retour_definition = (*(*s_etat_processus).l_base_pile_systeme) |
registre_retour_definition = (*(*s_etat_processus).l_base_pile_systeme) |
.retour_definition; |
.retour_definition; |
(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N'; |
(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N'; |
|
(*(*s_etat_processus).l_base_pile_systeme).pointeur_adresse_retour = |
|
s_objet; |
|
|
l_element_courant = (struct_liste_chainee *) (*s_objet).objet; |
l_element_courant = (struct_liste_chainee *) (*s_objet).objet; |
autorisation_empilement_programme = (*s_etat_processus) |
autorisation_empilement_programme = (*s_etat_processus) |
Line 1161 evaluation(struct_processus *s_etat_proc
|
Line 1163 evaluation(struct_processus *s_etat_proc
|
{ |
{ |
depilement_pile_systeme( |
depilement_pile_systeme( |
s_etat_processus); |
s_etat_processus); |
|
} |
|
|
if ((*s_etat_processus) |
if ((*s_etat_processus) |
.erreur_systeme != d_es) |
.erreur_systeme != d_es) |
|
{ |
|
if (presence_egalite == |
|
d_vrai) |
{ |
{ |
if (presence_egalite == |
liberation( |
d_vrai) |
s_etat_processus, |
{ |
s_objet_evalue); |
liberation( |
|
s_etat_processus, |
|
s_objet_evalue); |
|
} |
|
|
|
(*s_etat_processus) |
|
.instruction_courante = |
|
instruction_courante; |
|
return(d_erreur); |
|
} |
} |
|
|
|
(*s_etat_processus) |
|
.instruction_courante = |
|
instruction_courante; |
|
return(d_erreur); |
} |
} |
} |
} |
} |
} |
Line 5470 evaluation(struct_processus *s_etat_proc
|
Line 5472 evaluation(struct_processus *s_etat_proc
|
(*s_etat_processus).instruction_courante = |
(*s_etat_processus).instruction_courante = |
(*((struct_fonction *) (*s_objet).objet)).nom_fonction; |
(*((struct_fonction *) (*s_objet).objet)).nom_fonction; |
|
|
|
registre_type_evaluation = (test_cfsf(s_etat_processus, 35) == d_vrai) |
|
? 'E' : 'N'; |
|
cf(s_etat_processus, 35); |
|
|
analyse(s_etat_processus, (*((struct_fonction *) |
analyse(s_etat_processus, (*((struct_fonction *) |
(*s_objet).objet)).fonction); |
(*s_objet).objet)).fonction); |
|
|
(*s_etat_processus).instruction_courante = instruction_courante; |
(*s_etat_processus).instruction_courante = instruction_courante; |
|
|
|
if (registre_type_evaluation == 'E') |
|
{ |
|
sf(s_etat_processus, 35); |
|
} |
|
else |
|
{ |
|
cf(s_etat_processus, 35); |
|
} |
|
|
if (((*s_etat_processus).erreur_systeme != d_es) || |
if (((*s_etat_processus).erreur_systeme != d_es) || |
((*s_etat_processus).erreur_execution != d_ex) || |
((*s_etat_processus).erreur_execution != d_ex) || |
((*s_etat_processus).exception != d_ep)) |
((*s_etat_processus).exception != d_ep)) |