version 1.54, 2011/06/21 07:45:23
|
version 1.63, 2011/08/30 14:19:28
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.1 |
RPL/2 (R) version 4.1.3 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 814 instruction_der(struct_processus *s_etat
|
Line 814 instruction_der(struct_processus *s_etat
|
void |
void |
instruction_detach(struct_processus *s_etat_processus) |
instruction_detach(struct_processus *s_etat_processus) |
{ |
{ |
int status; |
|
|
|
logical1 drapeau; |
logical1 drapeau; |
logical1 variable_partagee; |
logical1 variable_partagee; |
|
|
Line 2455 instruction_detach(struct_processus *s_e
|
Line 2453 instruction_detach(struct_processus *s_e
|
|
|
while((*s_etat_processus).l_base_pile_processus != NULL) |
while((*s_etat_processus).l_base_pile_processus != NULL) |
{ |
{ |
status = 0; |
|
|
|
l_element_courant = (struct_liste_chainee *) |
l_element_courant = (struct_liste_chainee *) |
(*s_etat_processus).l_base_pile_processus; |
(*s_etat_processus).l_base_pile_processus; |
|
|
Line 2737 instruction_detach(struct_processus *s_e
|
Line 2733 instruction_detach(struct_processus *s_e
|
l_element_courant = l_element_suivant; |
l_element_courant = l_element_suivant; |
} |
} |
|
|
|
l_element_courant = (*s_etat_processus).l_base_pile_undo; |
|
while(l_element_courant != NULL) |
|
{ |
|
l_element_suivant = (*l_element_courant).suivant; |
|
|
|
liberation(s_etat_processus, (*l_element_courant).donnee); |
|
free(l_element_courant); |
|
|
|
l_element_courant = l_element_suivant; |
|
} |
|
|
l_element_courant = (*s_etat_processus).l_base_pile_contextes; |
l_element_courant = (*s_etat_processus).l_base_pile_contextes; |
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
{ |
{ |
Line 2927 instruction_detach(struct_processus *s_e
|
Line 2934 instruction_detach(struct_processus *s_e
|
destruction_fifos_signaux(s_etat_processus); |
destruction_fifos_signaux(s_etat_processus); |
# endif |
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
free(s_etat_processus); |
free(s_etat_processus); |
|
|
# ifdef DEBUG_MEMOIRE |
# ifdef DEBUG_MEMOIRE |