--- rpl/src/instructions_b1.c	2013/03/11 11:07:25	1.44
+++ rpl/src/instructions_b1.c	2013/03/20 17:11:44	1.45
@@ -203,7 +203,7 @@ instruction_b_vers_r(struct_processus *s
 			return;
 		}
 
-		(*((integer8 *) (*s_objet_resultat).objet)) = (*((logical8 *)
+		(*((integer8 *) (*s_objet_resultat).objet)) = (integer8) (*((logical8 *)
 				(*s_objet_argument).objet));
 	}
 	else
@@ -243,23 +243,21 @@ instruction_backspace(struct_processus *
 {
 	struct_descripteur_fichier	*descripteur;
 
-	int							i;
-	int							nombre_octets;
-
+	integer8					i;
+	integer8					nombre_octets;
 	integer8					position_finale;
 	integer8					position_initiale;
 	integer8					saut;
+	integer8					pointeur;
+	integer8					niveau;
+	integer8					longueur_effective;
+	integer8					longueur_questure;
+
 
 	logical1					guillemets_a_cheval;
 	logical1					presence_chaine;
 	logical1					presence_indicateur;
 
-	long						pointeur;
-	long						niveau;
-
-	size_t						longueur_effective;
-	size_t						longueur_questure;
-
 	struct flock				lock;
 
 	struct_objet				*s_objet_argument;
@@ -368,7 +366,7 @@ instruction_backspace(struct_processus *
 
 				longueur_questure = 256;
 
-				if ((tampon_lecture = malloc(longueur_questure *
+				if ((tampon_lecture = malloc(((size_t) longueur_questure) *
 						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -397,8 +395,8 @@ instruction_backspace(struct_processus *
 						return;
 					}
 
-					longueur_effective = fread(tampon_lecture,
-							(size_t) sizeof(unsigned char), longueur_effective,
+					longueur_effective = (integer8) fread(tampon_lecture,
+							sizeof(unsigned char), (size_t) longueur_effective,
 							(*descripteur).descripteur_c);
 
 					pointeur = longueur_effective - 1;
@@ -480,8 +478,8 @@ instruction_backspace(struct_processus *
 						return;
 					}
 
-					longueur_effective = fread(tampon_lecture,
-							(size_t) sizeof(unsigned char), longueur_effective,
+					longueur_effective = (integer8) fread(tampon_lecture,
+							sizeof(unsigned char), (size_t) longueur_effective,
 							(*descripteur).descripteur_c);
 
 					pointeur = longueur_effective - 1;
@@ -659,7 +657,8 @@ instruction_backspace(struct_processus *
 					}
 
 					if (fread(tampon, (size_t) sizeof(unsigned char),
-							nombre_octets, (*descripteur).descripteur_c)
+							(size_t) nombre_octets,
+							(*descripteur).descripteur_c)
 							!= (size_t) nombre_octets)
 					{
 						liberation(s_etat_processus, s_objet_argument);
@@ -1509,7 +1508,7 @@ instruction_bessel(struct_processus *s_e
 							}
 
 							(*((real8 *) (*s_objet_resultat).objet)) =
-									gsl_sf_bessel_Yn((double) ((*((real8 *)
+									gsl_sf_bessel_Yn((int) ((*((real8 *)
 									(*s_objet_argument_2).objet))),
 									(double) ((*((real8 *)
 									(*s_objet_argument_1).objet))));
@@ -1538,7 +1537,7 @@ instruction_bessel(struct_processus *s_e
 							}
 
 							(*((real8 *) (*s_objet_resultat).objet)) =
-									gsl_sf_bessel_In((double) ((*((real8 *)
+									gsl_sf_bessel_In((int) ((*((real8 *)
 									(*s_objet_argument_2).objet))),
 									(double) ((*((real8 *)
 									(*s_objet_argument_1).objet))));
@@ -1567,7 +1566,7 @@ instruction_bessel(struct_processus *s_e
 							}
 
 							(*((real8 *) (*s_objet_resultat).objet)) =
-									gsl_sf_bessel_Kn((double) ((*((real8 *)
+									gsl_sf_bessel_Kn((int) ((*((real8 *)
 									(*s_objet_argument_2).objet))),
 									(double) ((*((real8 *)
 									(*s_objet_argument_1).objet))));