--- rpl/src/instructions_c6.c	2012/04/03 13:38:27	1.36
+++ rpl/src/instructions_c6.c	2012/08/22 10:47:15	1.41
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.7
+  RPL/2 (R) version 4.1.10
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -836,8 +836,9 @@ instruction_clrfuse(struct_processus *s_
 ================================================================================
 */
 
-static inline struct_objet *
-creation_table(struct_liste_chainee *dimensions)
+static struct_objet *
+creation_table(struct_processus *s_etat_processus,
+		struct_liste_chainee *dimensions)
 {
 	struct_objet		*s_table;
 
@@ -878,7 +879,7 @@ creation_table(struct_liste_chainee *dim
 				.nombre_elements; i++)
 		{
 			if (((*((struct_tableau *) (*s_table).objet)).elements[i] =
-					creation_table(dimensions)) == NULL)
+					creation_table(s_etat_processus, dimensions)) == NULL)
 			{
 				return(NULL);
 			}
@@ -964,8 +965,8 @@ instruction_crtab(struct_processus *s_et
 			l_element_courant = (*l_element_courant).suivant;
 		}
 
-		if ((s_objet_resultat =
-				creation_table((*s_objet_argument).objet)) == NULL)
+		if ((s_objet_resultat = creation_table(s_etat_processus,
+					(*s_objet_argument).objet)) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;