--- rpl/src/rpl.h	2014/07/15 14:20:10	1.247
+++ rpl/src/rpl.h	2015/01/05 13:12:42	1.254
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1706,10 +1706,10 @@ typedef struct tableau
 
 typedef struct arbre
 {
-	struct_objet		*objet;
+	struct_liste_chainee		*feuille;
 
-	unsigned long		nombre_feuilles;
-	struct arbre		**feuilles;
+	integer8					nombre_branches;
+	struct arbre				**branches;
 } struct_arbre;
 
 
@@ -2316,6 +2316,8 @@ typedef struct processus
 
 	logical1					processus_detache;
 
+	enum t_type					type_en_cours;
+
 /* Profilage											*/
 
 	logical1					profilage;
@@ -2577,6 +2579,7 @@ void instruction_elseif(struct_processus
 void instruction_end(struct_processus *s_etat_processus);
 void instruction_eng(struct_processus *s_etat_processus);
 void instruction_epsilon(struct_processus *s_etat_processus);
+void instruction_eqv(struct_processus *s_etat_processus);
 void instruction_erase(struct_processus *s_etat_processus);
 void instruction_errm(struct_processus *s_etat_processus);
 void instruction_errn(struct_processus *s_etat_processus);
@@ -3336,6 +3339,8 @@ logical1 initialisation_fichier_acces_in
 		sqlite3 *sqlite, integer8 position_clef, logical1 binaire);
 logical1 lancement_thread_signaux(struct_processus *s_etat_processus);
 logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);
+logical1 recherche_instruction_suivante_recursive(
+		struct_processus *s_etat_processus, integer8 recursivite);
 logical1 retrait_variable(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, unsigned char type);
 logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus);
@@ -3521,22 +3526,6 @@ struct_liste_variables_partagees *recher
 #endif
 
 /*
---------------------------------------------------------------------------------
-  Fonctions gérant les arbres de simplification
---------------------------------------------------------------------------------
-*/
-
-#ifndef RPLARGS
-struct_arbre *creation_arbre(struct_processus *s_etat_processus,
-		struct_objet **t_objets, integer8 indice, integer8 indice_maximal);
-void liberation_arbre(struct_processus *s_etat_processus,
-		struct_arbre *s_noeud);
-void parcours_arbre(struct_processus *s_etat_processus, struct_arbre *s_noeud);
-void simplification_arbre(struct_processus *s_etat_processus,
-		struct_arbre *s_noeud);
-#endif
-
-/*
 --------------------------------------------------------------------------------
   Fonctions gérant la complétion automatique
 --------------------------------------------------------------------------------