version 1.88, 2012/10/05 13:12:38
|
version 1.92, 2012/12/18 13:19:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.12 |
Copyright (C) 1989-2012 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 112 initialisation_allocateur(struct_process
|
Line 112 initialisation_allocateur(struct_process
|
(*s_etat_processus).pointeur_maillons = 0; |
(*s_etat_processus).pointeur_maillons = 0; |
|
|
(*s_etat_processus).pointeur_variables_noeud = 0; |
(*s_etat_processus).pointeur_variables_noeud = 0; |
|
(*s_etat_processus).pointeur_variables_partagees_noeud = 0; |
(*s_etat_processus).pointeur_variables_feuille = 0; |
(*s_etat_processus).pointeur_variables_feuille = 0; |
(*s_etat_processus).pointeur_variables_variable = 0; |
(*s_etat_processus).pointeur_variables_variable = 0; |
(*s_etat_processus).pointeur_variables_tableau_noeuds = 0; |
(*s_etat_processus).pointeur_variables_tableau_noeuds = 0; |
|
(*s_etat_processus).pointeur_variables_tableau_noeuds_partages = 0; |
|
|
return; |
return; |
} |
} |
Line 150 liberation_allocateur(struct_processus *
|
Line 152 liberation_allocateur(struct_processus *
|
|
|
for(i = 0; i < (*s_etat_processus).pointeur_variables_noeud; |
for(i = 0; i < (*s_etat_processus).pointeur_variables_noeud; |
free((*s_etat_processus).variables_noeud[i++])); |
free((*s_etat_processus).variables_noeud[i++])); |
|
for(i = 0; i < (*s_etat_processus).pointeur_variables_partagees_noeud; |
|
free((*s_etat_processus).variables_partagees_noeud[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_variables_feuille; |
for(i = 0; i < (*s_etat_processus).pointeur_variables_feuille; |
free((*s_etat_processus).variables_feuille[i++])); |
free((*s_etat_processus).variables_feuille[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_variables_variable; |
for(i = 0; i < (*s_etat_processus).pointeur_variables_variable; |
free((*s_etat_processus).variables_variable[i++])); |
free((*s_etat_processus).variables_variable[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_variables_tableau_noeuds; |
for(i = 0; i < (*s_etat_processus).pointeur_variables_tableau_noeuds; |
free((*s_etat_processus).variables_tableau_noeuds[i++])); |
free((*s_etat_processus).variables_tableau_noeuds[i++])); |
|
for(i = 0; i < (*s_etat_processus) |
|
.pointeur_variables_tableau_noeuds_partages; |
|
free((*s_etat_processus).variables_tableau_noeuds_partages[i++])); |
|
|
{ |
{ |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
Line 3112 copie_etat_processus(struct_processus *s
|
Line 3119 copie_etat_processus(struct_processus *s
|
* Copie de la table des variables |
* Copie de la table des variables |
*/ |
*/ |
|
|
|
(*s_nouvel_etat_processus).l_liste_variables_statiques = NULL; |
copie_arbre_variables(s_etat_processus, s_nouvel_etat_processus); |
copie_arbre_variables(s_etat_processus, s_nouvel_etat_processus); |
|
|
if ((*s_nouvel_etat_processus).erreur_systeme != d_es) |
if ((*s_nouvel_etat_processus).erreur_systeme != d_es) |
Line 3119 copie_etat_processus(struct_processus *s
|
Line 3127 copie_etat_processus(struct_processus *s
|
return(NULL); |
return(NULL); |
} |
} |
|
|
|
(*(*s_nouvel_etat_processus).l_liste_variables_partagees) = |
|
(*(*s_etat_processus).l_liste_variables_partagees); |
|
(*(*s_nouvel_etat_processus).s_arbre_variables_partagees) = |
|
(*(*s_etat_processus).s_arbre_variables_partagees); |
|
|
/* |
/* |
* Copie de la pile opérationnelle |
* Copie de la pile opérationnelle |
*/ |
*/ |