version 1.117, 2012/09/15 12:57:09
|
version 1.119, 2012/10/04 15:21:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.10 |
RPL/2 (R) version 4.1.11 |
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 1969 rplinit(int argc, char *argv[], char *en
|
Line 1969 rplinit(int argc, char *argv[], char *en
|
(*s_etat_processus).l_liste_variables_par_niveau = NULL; |
(*s_etat_processus).l_liste_variables_par_niveau = NULL; |
(*s_etat_processus).gel_liste_variables = d_faux; |
(*s_etat_processus).gel_liste_variables = d_faux; |
(*s_etat_processus).pointeur_variable_courante = NULL; |
(*s_etat_processus).pointeur_variable_courante = NULL; |
(*s_etat_processus).s_liste_variables_statiques = NULL; |
(*s_etat_processus).pointeur_variable_statique_courante = NULL; |
(*s_etat_processus).nombre_variables_statiques = 0; |
(*s_etat_processus).l_liste_variables_statiques = NULL; |
(*s_etat_processus).nombre_variables_statiques_allouees = 0; |
|
(*s_etat_processus).niveau_courant = 0; |
(*s_etat_processus).niveau_courant = 0; |
(*s_etat_processus).niveau_initial = 0; |
(*s_etat_processus).niveau_initial = 0; |
(*s_etat_processus).creation_variables_statiques = d_faux; |
(*s_etat_processus).creation_variables_statiques = d_faux; |
(*s_etat_processus).creation_variables_partagees = d_faux; |
(*s_etat_processus).creation_variables_partagees = d_faux; |
(*s_etat_processus).position_variable_statique_courante = 0; |
|
|
|
(*s_etat_processus).s_bibliotheques = NULL; |
(*s_etat_processus).s_bibliotheques = NULL; |
(*s_etat_processus).s_instructions_externes = NULL; |
(*s_etat_processus).s_instructions_externes = NULL; |
Line 3347 rplinit(int argc, char *argv[], char *en
|
Line 3345 rplinit(int argc, char *argv[], char *en
|
(*s_etat_processus).s_arbre_variables, d_vrai); |
(*s_etat_processus).s_arbre_variables, d_vrai); |
free((*s_etat_processus).pointeurs_caracteres_variables); |
free((*s_etat_processus).pointeurs_caracteres_variables); |
|
|
|
#warning A FIXER |
|
/* |
for(i = 0; i < (*s_etat_processus) |
for(i = 0; i < (*s_etat_processus) |
.nombre_variables_statiques; i++) |
.nombre_variables_statiques; i++) |
{ |
{ |
Line 3357 rplinit(int argc, char *argv[], char *en
|
Line 3357 rplinit(int argc, char *argv[], char *en
|
} |
} |
|
|
free((*s_etat_processus).s_liste_variables_statiques); |
free((*s_etat_processus).s_liste_variables_statiques); |
|
*/ |
|
|
for(i = 0; i < (*((*s_etat_processus) |
for(i = 0; i < (*((*s_etat_processus) |
.s_liste_variables_partagees)).nombre_variables; |
.s_liste_variables_partagees)).nombre_variables; |