--- rpl/src/instructions_c6.c	2012/04/03 13:38:27	1.36
+++ rpl/src/instructions_c6.c	2013/02/26 19:56:13	1.45
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.7
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.12
+  Copyright (C) 1989-2013 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;