--- rpl/src/instructions_d3.c	2012/04/13 14:12:53	1.35
+++ rpl/src/instructions_d3.c	2013/03/21 16:31:58	1.44
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.8
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 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;
 
@@ -754,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)
@@ -1596,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)
@@ -2440,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)
@@ -3878,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)