--- rpl/src/instructions_m4.c	2011/06/21 07:45:25	1.22
+++ rpl/src/instructions_m4.c	2011/06/21 08:01:03	1.23
@@ -38,11 +38,16 @@
 void
 instruction_mem(struct_processus *s_etat_processus)
 {
-	struct_liste_chainee	*l_element_courant;
+	int							j;
+	int							nb_variables;
 
-	struct_objet			*s_objet_resultat;
+	struct_liste_chainee		*l_element_courant;
 
-	unsigned long			i;
+	struct_objet				*s_objet_resultat;
+
+	struct_tableau_variables	*tableau;
+
+	unsigned long				i;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -139,17 +144,30 @@ instruction_mem(struct_processus *s_etat
 	(*((integer8 *) (*((*((*((struct_liste_chainee *)
 			(*s_objet_resultat).objet)).suivant)).donnee)).objet)) = 0;
 
-	/*
-	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
+	nb_variables = nombre_variables(s_etat_processus,
+			(*s_etat_processus).s_arbre_variables);
+
+	if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables)))
+			== NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	liste_variables(s_etat_processus, tableau, 0,
+			(*s_etat_processus).s_arbre_variables);
+
+	for(j = 0; j < nb_variables; j++)
 	{
 		(*((integer8 *) (*((*((*((struct_liste_chainee *) (*s_objet_resultat)
 				.objet)).suivant)).donnee)).objet)) += sizeof(unsigned char) *
-				strlen((*s_etat_processus).s_liste_variables[i].nom);
+				strlen(tableau[j].nom);
 		(*((integer8 *) (*((*((*((struct_liste_chainee *) (*s_objet_resultat)
 				.objet)).suivant)).donnee)).objet)) += occupation_memoire(
-				(*s_etat_processus).s_liste_variables[i].objet);
+				tableau[j].objet);
 	}
-	*/
+
+	free(tableau);
 
 	for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)
 	{