version 1.8, 2010/02/28 14:47:14
|
version 1.15, 2010/06/02 10:28:45
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.0.16 |
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 376 recherche_type(struct_processus *s_etat_
|
Line 376 recherche_type(struct_processus *s_etat_
|
(*s_etat_processus).mode_execution_programme = |
(*s_etat_processus).mode_execution_programme = |
registre_mode_execution_programme; |
registre_mode_execution_programme; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
|
|
Line 1185 recherche_type(struct_processus *s_etat_
|
Line 1186 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 1233 recherche_type(struct_processus *s_etat_
|
Line 1235 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 1592 recherche_type(struct_processus *s_etat_
|
Line 1595 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 1641 recherche_type(struct_processus *s_etat_
|
Line 1645 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 2251 recherche_type(struct_processus *s_etat_
|
Line 2256 recherche_type(struct_processus *s_etat_
|
(*s_etat_processus).autorisation_evaluation_nom = |
(*s_etat_processus).autorisation_evaluation_nom = |
autorisation_evaluation_nom; |
autorisation_evaluation_nom; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
|
|
Line 2318 recherche_type(struct_processus *s_etat_
|
Line 2324 recherche_type(struct_processus *s_etat_
|
(*s_etat_processus).autorisation_evaluation_nom = |
(*s_etat_processus).autorisation_evaluation_nom = |
autorisation_evaluation_nom; |
autorisation_evaluation_nom; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
|
|
Line 2366 recherche_type(struct_processus *s_etat_
|
Line 2373 recherche_type(struct_processus *s_etat_
|
(*s_etat_processus).autorisation_evaluation_nom = |
(*s_etat_processus).autorisation_evaluation_nom = |
autorisation_evaluation_nom; |
autorisation_evaluation_nom; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant; |
|
|
Line 2939 recherche_type(struct_processus *s_etat_
|
Line 2947 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 2988 recherche_type(struct_processus *s_etat_
|
Line 2997 recherche_type(struct_processus *s_etat_
|
|
|
(*s_etat_processus).instruction_courante = tampon; |
(*s_etat_processus).instruction_courante = tampon; |
|
|
|
effacement_pile_systeme(s_etat_processus); |
(*s_etat_processus).l_base_pile_systeme = |
(*s_etat_processus).l_base_pile_systeme = |
s_sauvegarde_pile; |
s_sauvegarde_pile; |
(*s_etat_processus).niveau_courant = |
(*s_etat_processus).niveau_courant = |
Line 3038 recherche_type(struct_processus *s_etat_
|
Line 3048 recherche_type(struct_processus *s_etat_
|
|
|
nombre_lignes = profondeur_finale - profondeur_initiale; |
nombre_lignes = profondeur_finale - profondeur_initiale; |
|
|
element = (void *) ((struct_tableau *) malloc( |
if ((element = malloc(sizeof(struct_tableau))) == NULL) |
sizeof(struct_tableau))); |
|
|
|
if (element == NULL) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
d_es_allocation_memoire; |
d_es_allocation_memoire; |
Line 3121 recherche_type(struct_processus *s_etat_
|
Line 3128 recherche_type(struct_processus *s_etat_
|
d_es_allocation_memoire; |
d_es_allocation_memoire; |
} |
} |
|
|
|
free(s_objet); |
|
|
(*s_etat_processus).traitement_interruptible = |
(*s_etat_processus).traitement_interruptible = |
registre_interruption; |
registre_interruption; |
return; |
return; |