--- rpl/src/instructions_r3.c	2013/03/16 11:31:41	1.50
+++ rpl/src/instructions_r3.c	2013/03/20 22:24:37	1.51
@@ -353,8 +353,8 @@ instruction_rnrm(struct_processus *s_eta
 	struct_objet				*s_objet_argument;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	void						*accumulateur;
 
@@ -622,8 +622,8 @@ instruction_rnrm(struct_processus *s_eta
 				return;
 			}
 
-			if ((accumulateur = malloc((*((struct_matrice *)
-					(*s_objet_argument).objet)).nombre_colonnes *
+			if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_argument).objet)).nombre_colonnes) *
 					sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -671,8 +671,8 @@ instruction_rnrm(struct_processus *s_eta
 			return;
 		}
 
-		if ((accumulateur = malloc((*((struct_matrice *)
-				(*s_objet_argument).objet)).nombre_colonnes * sizeof(real8)))
+		if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
+				(*s_objet_argument).objet)).nombre_colonnes) * sizeof(real8)))
 				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -718,8 +718,8 @@ instruction_rnrm(struct_processus *s_eta
 			return;
 		}
 
-		if ((accumulateur = malloc((*((struct_matrice *)
-				(*s_objet_argument).objet)).nombre_colonnes * sizeof(real8)))
+		if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
+				(*s_objet_argument).objet)).nombre_colonnes) * sizeof(real8)))
 				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -1024,7 +1024,7 @@ instruction_recall(struct_processus *s_e
 	unsigned char			*tampon_definitions_chainees;
 	unsigned char			*tampon_instruction_courante;
 
-	unsigned long			position_courante;
+	integer8				position_courante;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1319,7 +1319,7 @@ instruction_recall(struct_processus *s_e
 			return;
 		}
 
-		if ((chaine = malloc((nombre_caracteres_source + 1)
+		if ((chaine = malloc((((size_t) nombre_caracteres_source) + 1)
 				* sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -1360,7 +1360,7 @@ instruction_recall(struct_processus *s_e
 					}
 				}
 
-				if ((chaine[i] = caractere) == '\"')
+				if ((chaine[i] = (unsigned char) caractere) == '\"')
 				{
 					if (i > 0)
 					{
@@ -1587,9 +1587,9 @@ instruction_rcws(struct_processus *s_eta
 {
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				longueur;
+	integer8					i;
+	integer8					j;
+	integer8					longueur;
 
 	(*s_etat_processus).erreur_execution = d_ex;