--- rpl/src/sequenceur.c	2012/12/19 09:58:28	1.64
+++ rpl/src/sequenceur.c	2013/03/27 21:26:11	1.71
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  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.
 
@@ -44,6 +44,9 @@ sequenceur(struct_processus *s_etat_proc
 	struct_objet				*s_objet_evaluation;
 	struct_objet				*s_sous_objet;
 
+	integer8					niveau;
+	integer8					position_courante;
+
 	logical1					drapeau_appel_definition;
 	logical1					drapeau_fin;
 	logical1					drapeau_then;
@@ -64,9 +67,6 @@ sequenceur(struct_processus *s_etat_proc
 	unsigned char				tampon_retour;
 	unsigned char				*t_ligne;
 
-	unsigned long				niveau;
-	unsigned long				position_courante;
-
 	Keymap						ancien_keymap;
 	Keymap						nouveau_keymap;
 
@@ -80,12 +80,12 @@ sequenceur(struct_processus *s_etat_proc
 		{
 			if ((*s_etat_processus).langue == 'F')
 			{
-				printf("[%d] Exécution récursive de niveau %lu\n",
+				printf("[%d] Exécution récursive de niveau %lld\n",
 						(int) getpid(), (*s_etat_processus).niveau_recursivite);
 			}
 			else
 			{
-				printf("[%d] %lu level recursive execution\n",
+				printf("[%d] %lld level recursive execution\n",
 						(int) getpid(), (*s_etat_processus).niveau_recursivite);
 			}
 		}
@@ -93,7 +93,7 @@ sequenceur(struct_processus *s_etat_proc
 		{
 			if ((*s_etat_processus).langue == 'F')
 			{
-				printf("[%d] Exécution\n", (int) getpid());
+				printf("[%d] Exécution\n", (int) getpid());
 			}
 			else
 			{
@@ -349,7 +349,7 @@ sequenceur(struct_processus *s_etat_proc
 
 							if ((*s_etat_processus).langue == 'F')
 							{
-								printf("+++Erreur : Défaut d'argument\n");
+								printf("+++Erreur : Défaut d'argument\n");
 							}
 							else
 							{
@@ -593,7 +593,7 @@ sequenceur(struct_processus *s_etat_proc
 							else
 							{
 								printf("[%d] Pushing %s as %d type shared "
-										"variable \n", (int) getpid(),
+										"variable\n", (int) getpid(),
 										(*s_etat_processus)
 										.instruction_courante,
 										(*(*(*s_etat_processus)
@@ -721,7 +721,7 @@ sequenceur(struct_processus *s_etat_proc
 									.niveau_courant;
 
 							(*s_etat_processus).position_courante =
-									(*((unsigned long *)
+									(*((integer8 *)
 									((*(*(*s_etat_processus)
 									.pointeur_variable_courante)
 									.objet).objet)));
@@ -951,8 +951,8 @@ sequenceur(struct_processus *s_etat_proc
 				free(instruction_majuscule);
 			}
 
-			erreur |= (((*s_etat_processus).erreur_execution != d_ex)
-					? d_erreur : d_absence_erreur);
+			erreur = (logical1) (erreur | (((*s_etat_processus)
+					.erreur_execution != d_ex) ? d_erreur : d_absence_erreur));
 		}
 		else
 		{
@@ -993,7 +993,7 @@ sequenceur(struct_processus *s_etat_proc
 				{
 					if (strncmp(getenv("LANG"), "fr", 2) == 0)
 					{
-						printf("[%d] Arrêt\n", (int) getpid());
+						printf("[%d] Arrêt\n", (int) getpid());
 					}
 					else
 					{
@@ -1065,7 +1065,7 @@ sequenceur(struct_processus *s_etat_proc
 			(*s_etat_processus).exception = d_ep;
 			erreur = d_absence_erreur;
 
-			(*s_etat_processus).position_courante -=
+			(*s_etat_processus).position_courante -= (integer8)
 					strlen((*s_etat_processus).instruction_courante);
 		}
 
@@ -1175,7 +1175,7 @@ sequenceur(struct_processus *s_etat_proc
 									.niveau_courant;
 
 							(*s_etat_processus).position_courante =
-									(*((unsigned long *)
+									(*((integer8 *)
 									((*(*(*s_etat_processus)
 									.pointeur_variable_courante)
 									.objet).objet)));