--- rpl/src/instructions_r4.c	2013/03/20 22:24:37	1.76
+++ rpl/src/instructions_r4.c	2013/03/21 16:31:59	1.77
@@ -855,6 +855,8 @@ instruction_read(struct_processus *s_eta
 	integer8						i;
 	integer8						id;
 	integer8						position_clef;
+	integer8						longueur;
+
 	integer8						longueur_effective;
 	integer8						longueur_enregistrement;
 	integer8						longueur_questure;
@@ -869,8 +871,6 @@ instruction_read(struct_processus *s_eta
 	logical1						presence_indicateur;
 	logical1						trame_complete;
 
-	long							longueur;
-
 	socklen_t						longueur_adresse;
 
 	sqlite3_stmt					*ppStmt;
@@ -1111,7 +1111,7 @@ instruction_read(struct_processus *s_eta
 				presence_chaine = d_faux;
 				niveau = 1;
 
-				if (fseek((*descripteur).descripteur_c, position_finale,
+				if (fseek((*descripteur).descripteur_c, (long) position_finale,
 						SEEK_SET) != 0)
 				{
 					liberation(s_etat_processus, s_objet_argument_1);
@@ -1201,8 +1201,8 @@ instruction_read(struct_processus *s_eta
 					return;
 				}
 
-				if (fseek((*descripteur).descripteur_c, position_initiale,
-						SEEK_SET) != 0)
+				if (fseek((*descripteur).descripteur_c,
+						(long) position_initiale, SEEK_SET) != 0)
 				{
 					liberation(s_etat_processus, s_objet_argument_1);
 					free(tampon_lecture);
@@ -2052,7 +2052,7 @@ instruction_read(struct_processus *s_eta
 						// Détermination de la longueur
 						format_degenere = d_faux;
 
-						if (sscanf(&(format_chaine[8]), "%ld", &longueur) != 1)
+						if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1)
 						{
 							liberation(s_etat_processus, s_objet_argument_1);
 							liberation(s_etat_processus, s_objet_resultat);
@@ -2075,7 +2075,7 @@ instruction_read(struct_processus *s_eta
 						} while((c != '\n') && (c != EOF));
 
 						if (fseek((*descripteur).descripteur_c,
-								position_initiale, SEEK_SET) != 0)
+								(long) position_initiale, SEEK_SET) != 0)
 						{
 							liberation(s_etat_processus, s_objet_argument_1);
 							liberation(s_etat_processus, s_objet_resultat);