--- rpl/src/simplification.c	2011/06/21 07:45:28	1.21
+++ rpl/src/simplification.c	2013/12/03 09:36:16	1.46
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.1
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.17
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -38,19 +38,21 @@
 struct_objet *
 simplification(struct_processus *s_etat_processus, struct_objet *s_objet)
 {
-
+#ifdef EXPERIMENTAL_CODE
 	struct_arbre			*s_arbre;
 	struct_arbre			*s_noeud_courant;
 
 	struct_liste_chainee	*l_element_courant;
-
+#endif
 	struct_objet			*s_objet_simplifie;
+#ifdef EXPERIMENTAL_CODE
 	struct_objet			**t_expression;
 
 	unsigned long			i;
 	unsigned long			nombre_elements;
 
 	s_arbre = NULL;
+#endif
 
 	if ((*s_objet).type == ALG)
 	{
@@ -126,12 +128,11 @@ simplification(struct_processus *s_etat_
 
 struct_arbre *
 creation_arbre(struct_processus *s_etat_processus,
-		struct_objet **t_objets, unsigned long indice,
-		unsigned long indice_maximal)
+		struct_objet **t_objets, integer8 indice, integer8 indice_maximal)
 {
 	struct_arbre		*s_noeud;
 
-	unsigned long		i;
+	//unsigned long		i;
 
 	if ((s_noeud = malloc(sizeof(struct_arbre))) == NULL)
 	{