--- rpl/src/instructions_p3.c	2013/02/26 19:56:15	1.42
+++ rpl/src/instructions_p3.c	2020/01/10 11:15:47	1.69
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -47,7 +47,7 @@ instruction_pourcent(struct_processus *s
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				nombre_elements;
+	integer8					nombre_elements;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -667,7 +667,7 @@ instruction_pourcent_ch(struct_processus
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				nombre_elements;
+	integer8					nombre_elements;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1293,7 +1293,7 @@ instruction_pos(struct_processus *s_etat
 
 	unsigned char				*pointeur_occurrence;
 
-	unsigned long				position;
+	integer8					position;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1645,7 +1645,7 @@ instruction_prompt(struct_processus *s_e
 	unsigned char				*tampon;
 	unsigned char				*tampon2;
 
-	unsigned long				i;
+	integer8					i;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1758,7 +1758,7 @@ instruction_prompt(struct_processus *s_e
 			ptr_l++;
 		}
 
-		if ((tampon2 = malloc((strlen(tampon) + 1 + i) *
+		if ((tampon2 = malloc((strlen(tampon) + 1 + ((size_t) i)) *
 				sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;