--- rpl/src/instructions_d3.c	2011/06/09 14:48:36	1.19
+++ rpl/src/instructions_d3.c	2019/10/31 15:40:10	1.67
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -43,12 +43,12 @@ instruction_draw(struct_processus *s_eta
 
 	int							dimensions;
 
+	integer8					hauteur_pile;
+
 	logical1					last_valide;
 	logical1					premiere_iteration;
 	logical1					retour_suite_erreur;
 
-	long						hauteur_pile;
-
 	real8						borne_maximale_x;
 	real8						borne_maximale_y;
 	real8						borne_minimale_x;
@@ -78,7 +78,7 @@ instruction_draw(struct_processus *s_eta
 	unsigned char				*nom_x;
 	unsigned char				*nom_y;
 
-	unsigned long				niveau_courant;
+	integer8					niveau_courant;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -643,8 +643,7 @@ instruction_draw(struct_processus *s_eta
 				return;
 			}
 
-			if (recherche_variable_globale(s_etat_processus, "EQ")
-					== d_faux)
+			if (recherche_variable_globale(s_etat_processus, "EQ") == d_faux)
 			{
 				/*
 				 * Aucune variable "EQ" n'existe.
@@ -755,7 +754,7 @@ instruction_draw(struct_processus *s_eta
 					 */
 
 					while((*s_etat_processus).hauteur_pile_operationnelle >
-							(unsigned long) hauteur_pile)
+							hauteur_pile)
 					{
 						if (depilement(s_etat_processus, &((*s_etat_processus)
 								.l_base_pile), &s_objet) == d_erreur)
@@ -1493,8 +1492,7 @@ instruction_draw(struct_processus *s_eta
 				return;
 			}
 
-			if (recherche_variable_globale(s_etat_processus, "EQ")
-					== d_faux)
+			if (recherche_variable_globale(s_etat_processus, "EQ") == d_faux)
 			{
 				/*
 				 * Aucune variable "EQ" n'existe.
@@ -1598,7 +1596,7 @@ instruction_draw(struct_processus *s_eta
 					 */
 
 					while((*s_etat_processus).hauteur_pile_operationnelle >
-							(unsigned long) hauteur_pile)
+							hauteur_pile)
 					{
 						if (depilement(s_etat_processus, &((*s_etat_processus)
 								.l_base_pile), &s_objet) == d_erreur)
@@ -2337,8 +2335,7 @@ instruction_draw(struct_processus *s_eta
 				return;
 			}
 
-			if (recherche_variable_globale(s_etat_processus, "EQ")
-					== d_faux)
+			if (recherche_variable_globale(s_etat_processus, "EQ") == d_faux)
 			{
 				/*
 				 * Aucune variable "EQ" n'existe.
@@ -2443,7 +2440,7 @@ instruction_draw(struct_processus *s_eta
 					 */
 
 					while((*s_etat_processus).hauteur_pile_operationnelle >
-							(unsigned long) hauteur_pile)
+							hauteur_pile)
 					{
 						if (depilement(s_etat_processus, &((*s_etat_processus)
 								.l_base_pile), &s_objet) == d_erreur)
@@ -3881,7 +3878,7 @@ instruction_draw(struct_processus *s_eta
 						 */
 
 						while((*s_etat_processus).hauteur_pile_operationnelle >
-								(unsigned long) hauteur_pile)
+								hauteur_pile)
 						{
 							if (depilement(s_etat_processus,
 									&((*s_etat_processus)