rpl/src/rpl.c - diff

Return to rpl.c CVS log

Up to [local] / rpl / src

version 1.65, 2011/06/11 09:36:31	version 1.70, 2011/06/22 13:27:04
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.0	RPL/2 (R) version 4.1.0.prerelease.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 3216 rplinit(int argc, char *argv[], unsigned	Line 3216 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++)