--- rpl/src/simplification.c	2010/01/27 22:22:18	1.2
+++ rpl/src/simplification.c	2014/07/17 08:07:27	1.49
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,12 +20,12 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
 ================================================================================
-  Fonction 'simplication' (ne libère pas les paramètres)
+  Fonction 'simplification' (ne libère pas les paramètres)
 ================================================================================
   Entrées : pointeur sur une structure struct_processus
 --------------------------------------------------------------------------------
@@ -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)
 	{