version 1.65, 2011/06/11 09:36:31
|
version 1.74, 2011/07/22 07:38:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.0 |
RPL/2 (R) version 4.1.1 |
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 46 rplinit(int argc, char *argv[], unsigned
|
Line 46 rplinit(int argc, char *argv[], unsigned
|
|
|
int erreur_historique; |
int erreur_historique; |
int option_P; |
int option_P; |
int status; |
|
|
|
logical1 core; |
logical1 core; |
logical1 debug; |
logical1 debug; |
Line 2991 rplinit(int argc, char *argv[], unsigned
|
Line 2990 rplinit(int argc, char *argv[], unsigned
|
|
|
while((*s_etat_processus).l_base_pile_processus != NULL) |
while((*s_etat_processus).l_base_pile_processus != NULL) |
{ |
{ |
status = 0; |
|
|
|
l_element_courant = (void *) |
l_element_courant = (void *) |
(*s_etat_processus).l_base_pile_processus; |
(*s_etat_processus).l_base_pile_processus; |
|
|
Line 3216 rplinit(int argc, char *argv[], unsigned
|
Line 3213 rplinit(int argc, char *argv[], unsigned
|
* le libérer... |
* le libérer... |
*/ |
*/ |
|
|
#if 0 |
liberation_arbre_variables(s_etat_processus, |
for(i = 0; i < (*s_etat_processus).nombre_variables; i++) |
(*s_etat_processus).s_arbre_variables, d_vrai); |
{ |
free((*s_etat_processus).pointeurs_caracteres_variables); |
liberation(s_etat_processus, |
|
(*s_etat_processus).s_liste_variables[i].objet); |
|
free((*s_etat_processus).s_liste_variables[i].nom); |
|
} |
|
|
|
free((*s_etat_processus).s_liste_variables); |
|
#endif |
|
|
|
for(i = 0; i < (*s_etat_processus) |
for(i = 0; i < (*s_etat_processus) |
.nombre_variables_statiques; i++) |
.nombre_variables_statiques; i++) |