--- rpl/src/instructions_b1.c	2013/03/11 11:07:25	1.44
+++ rpl/src/instructions_b1.c	2022/09/07 13:40:33	1.72
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.34
+  Copyright (C) 1989-2021 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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 =
@@ -389,16 +387,16 @@ instruction_backspace(struct_processus *
 						longueur_effective = longueur_questure;
 					}
 
-					if (fseek((*descripteur).descripteur_c, position_initiale,
-							SEEK_SET) != 0)
+					if (fseek((*descripteur).descripteur_c,
+							(long) position_initiale, SEEK_SET) != 0)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_erreur_fichier;
 						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;
@@ -472,16 +470,16 @@ instruction_backspace(struct_processus *
 						position_finale--;
 					}
 
-					if (fseek((*descripteur).descripteur_c, position_initiale,
-							SEEK_SET) != 0)
+					if (fseek((*descripteur).descripteur_c,
+							(long) position_initiale, SEEK_SET) != 0)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_erreur_fichier;
 						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;
@@ -551,7 +549,7 @@ instruction_backspace(struct_processus *
 					return;
 				}
 
-				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);
@@ -612,8 +610,8 @@ instruction_backspace(struct_processus *
 					return;
 				}
 
-				if (fseek((*descripteur).descripteur_c, position_finale - 1,
-						SEEK_SET) != 0)
+				if (fseek((*descripteur).descripteur_c,
+						((long) position_finale) - 1, SEEK_SET) != 0)
 				{
 					liberation(s_etat_processus, s_objet_argument);
 
@@ -648,8 +646,9 @@ instruction_backspace(struct_processus *
 						return;
 					}
 
-					if (fseek((*descripteur).descripteur_c, position_finale
-							- nombre_octets, SEEK_SET) != 0)
+					if (fseek((*descripteur).descripteur_c,
+							((long) (position_finale - nombre_octets)),
+							SEEK_SET) != 0)
 					{
 						liberation(s_etat_processus, s_objet_argument);
 
@@ -659,7 +658,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);
@@ -686,7 +686,7 @@ instruction_backspace(struct_processus *
 				if (position_finale - saut >= 0)
 				{
 					if (fseek((*descripteur).descripteur_c,
-							position_finale - saut, SEEK_SET) != 0)
+							(long) (position_finale - saut), SEEK_SET) != 0)
 					{
 						liberation(s_etat_processus, s_objet_argument);
 
@@ -1509,7 +1509,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 +1538,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 +1567,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))));