--- rpl/src/simplification.c	2013/02/27 17:11:46	1.41
+++ rpl/src/simplification.c	2013/03/21 11:30:31	1.42
@@ -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)
 	{