--- rpl/src/gestion_niveaux.c	2010/05/24 10:58:30	1.8
+++ rpl/src/gestion_niveaux.c	2015/02/19 11:01:20	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -76,12 +76,12 @@ instruction_vers_niveau_superieur(struct
 	{
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("[%d] Initialisation du niveau %lu\n", (int) getpid(),
+			printf("[%d] Initialisation du niveau %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 		else
 		{
-			printf("[%d] Initialization of level %lu\n", (int) getpid(),
+			printf("[%d] Initialization of level %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 
@@ -126,12 +126,12 @@ instruction_vers_niveau_inferieur(struct
 	{
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("[%d] Fermeture du niveau %lu\n", (int) getpid(),
+			printf("[%d] Fermeture du niveau %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 		else
 		{
-			printf("[%d] Closing of level %lu\n", (int) getpid(),
+			printf("[%d] Closing of level %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 
@@ -168,12 +168,12 @@ instruction_vers_niveau_inferieur(struct
 				if ((*s_etat_processus).langue == 'F')
 				{
 					printf("[%d] Retour récursif de niveau "
-							"%lu\n", (int) getpid(), (*s_etat_processus)
+							"%lld\n", (int) getpid(), (*s_etat_processus)
 							.niveau_recursivite);
 				}
 				else
 				{
-					printf("[%d] Level %lu recursive "
+					printf("[%d] Level %lld recursive "
 							"return\n", (int) getpid(), (*s_etat_processus)
 							.niveau_recursivite);
 				}
@@ -216,10 +216,9 @@ instruction_vers_niveau_inferieur(struct
 	 */
 
 	if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)
-			.s_liste_variables != NULL) && ((*s_etat_processus)
 			.gel_liste_variables == d_faux))
 	{
-		if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+		if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 		{
 			return;
 		}