--- rpl/src/instructions_p5.c	2012/12/18 13:19:37	1.40
+++ rpl/src/instructions_p5.c	2020/01/10 11:15:47	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 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.
 
@@ -245,9 +245,9 @@ instruction_putc(struct_processus *s_eta
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_argument_3;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					nombre_elements;
+	integer8						i;
+	integer8						j;
+	integer8						nombre_elements;
 
 	void							*tampon;
 
@@ -468,8 +468,8 @@ instruction_putc(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -516,8 +516,8 @@ instruction_putc(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -563,8 +563,8 @@ instruction_putc(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -1168,9 +1168,9 @@ instruction_putr(struct_processus *s_eta
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_argument_3;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					nombre_elements;
+	integer8						i;
+	integer8						j;
+	integer8						nombre_elements;
 
 	void							*tampon;
 
@@ -1401,8 +1401,8 @@ instruction_putr(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -1449,8 +1449,8 @@ instruction_putr(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -1496,8 +1496,8 @@ instruction_putr(struct_processus *s_eta
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)