--- rpl/src/sequenceur.c	2013/03/06 09:00:26	1.68
+++ rpl/src/sequenceur.c	2013/03/21 11:30:31	1.69
@@ -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;
 
@@ -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
 		{
@@ -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)));