version 1.19, 2011/01/03 12:08:05
|
version 1.41, 2012/09/29 17:53:02
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.20 |
RPL/2 (R) version 4.1.10 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 428 instruction_fleche(struct_processus *s_e
|
Line 428 instruction_fleche(struct_processus *s_e
|
if (recherche_variable(s_etat_processus, s_variable.nom) == d_vrai) |
if (recherche_variable(s_etat_processus, s_variable.nom) == d_vrai) |
{ |
{ |
if ((*s_etat_processus).niveau_courant == |
if ((*s_etat_processus).niveau_courant == |
(*s_etat_processus).s_liste_variables[(*s_etat_processus) |
(*(*s_etat_processus).pointeur_variable_courante).niveau) |
.position_variable_courante].niveau) |
|
{ |
{ |
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
free(s_variable.nom); |
free(s_variable.nom); |
Line 985 instruction_for(struct_processus *s_etat
|
Line 984 instruction_for(struct_processus *s_etat
|
} |
} |
} |
} |
|
|
empilement_pile_systeme(s_etat_processus); |
|
|
|
if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
&s_objet_1) == d_erreur) |
&s_objet_1) == d_erreur) |
{ |
{ |
Line 1027 instruction_for(struct_processus *s_etat
|
Line 1024 instruction_for(struct_processus *s_etat
|
instruction_valide = (*s_etat_processus).instruction_valide; |
instruction_valide = (*s_etat_processus).instruction_valide; |
(*s_etat_processus).test_instruction = 'Y'; |
(*s_etat_processus).test_instruction = 'Y'; |
|
|
|
empilement_pile_systeme(s_etat_processus); |
|
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
|
{ |
|
return; |
|
} |
|
|
if ((*s_etat_processus).mode_execution_programme == 'Y') |
if ((*s_etat_processus).mode_execution_programme == 'Y') |
{ |
{ |
if (recherche_instruction_suivante(s_etat_processus) == d_erreur) |
if (recherche_instruction_suivante(s_etat_processus) == d_erreur) |
Line 1044 instruction_for(struct_processus *s_etat
|
Line 1048 instruction_for(struct_processus *s_etat
|
free((*s_etat_processus).instruction_courante); |
free((*s_etat_processus).instruction_courante); |
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
depilement_pile_systeme(s_etat_processus); |
|
|
(*s_etat_processus).erreur_execution = d_ex_nom_reserve; |
(*s_etat_processus).erreur_execution = d_ex_nom_reserve; |
return; |
return; |
} |
} |
Line 1058 instruction_for(struct_processus *s_etat
|
Line 1064 instruction_for(struct_processus *s_etat
|
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_2); |
liberation(s_etat_processus, s_objet_2); |
|
|
|
depilement_pile_systeme(s_etat_processus); |
return; |
return; |
} |
} |
|
|
Line 1067 instruction_for(struct_processus *s_etat
|
Line 1074 instruction_for(struct_processus *s_etat
|
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_2); |
liberation(s_etat_processus, s_objet_2); |
|
|
|
depilement_pile_systeme(s_etat_processus); |
|
|
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
return; |
return; |
} |
} |
Line 1078 instruction_for(struct_processus *s_etat
|
Line 1087 instruction_for(struct_processus *s_etat
|
{ |
{ |
if ((*s_etat_processus).expression_courante == NULL) |
if ((*s_etat_processus).expression_courante == NULL) |
{ |
{ |
|
depilement_pile_systeme(s_etat_processus); |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
return; |
return; |
} |
} |
Line 1102 instruction_for(struct_processus *s_etat
|
Line 1112 instruction_for(struct_processus *s_etat
|
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_2); |
liberation(s_etat_processus, s_objet_2); |
|
|
|
depilement_pile_systeme(s_etat_processus); |
|
|
(*s_etat_processus).erreur_execution = d_ex_erreur_traitement_boucle; |
(*s_etat_processus).erreur_execution = d_ex_erreur_traitement_boucle; |
return; |
return; |
} |
} |
Line 1110 instruction_for(struct_processus *s_etat
|
Line 1122 instruction_for(struct_processus *s_etat
|
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_1); |
liberation(s_etat_processus, s_objet_2); |
liberation(s_etat_processus, s_objet_2); |
|
|
|
depilement_pile_systeme(s_etat_processus); |
|
|
(*s_etat_processus).erreur_execution = d_ex_erreur_traitement_boucle; |
(*s_etat_processus).erreur_execution = d_ex_erreur_traitement_boucle; |
return; |
return; |
} |
} |