--- rpl/src/instructions_s5.c	2012/05/21 17:25:45	1.35
+++ rpl/src/instructions_s5.c	2016/09/27 15:29:38	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.9
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.26
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -47,11 +47,11 @@ instruction_s_plus(struct_processus *s_e
 
 	struct_variable						s_variable;
 
-	unsigned long						i;
-	unsigned long						j;
-	unsigned long						k;
-	unsigned long						nombre_colonnes;
-	unsigned long						nombre_lignes;
+	integer8							i;
+	integer8							j;
+	integer8							k;
+	integer8							nombre_colonnes;
+	integer8							nombre_lignes;
 
 	void								*tampon;
 
@@ -266,8 +266,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(integer8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -299,8 +299,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -332,8 +332,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -371,8 +371,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -533,8 +533,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(integer8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -568,8 +568,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -603,8 +603,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -622,8 +622,8 @@ instruction_s_plus(struct_processus *s_e
 				free(tampon);
 
 				if ((((real8 **) (*((struct_matrice *) (*s_objet_statistique)
-						.objet)).tableau)[i] =
-						malloc(nombre_colonnes * sizeof(real8))) == NULL)
+						.objet)).tableau)[i] = malloc(((size_t)
+						nombre_colonnes) * sizeof(real8))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -646,8 +646,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes++;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -660,7 +660,8 @@ instruction_s_plus(struct_processus *s_e
 				{
 					if ((((real8 **) (*((struct_matrice *)
 							(*s_objet_statistique).objet)).tableau)[i] =
-							malloc(nombre_colonnes * sizeof(real8))) == NULL)
+							malloc(((size_t) nombre_colonnes) *
+							sizeof(real8))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
@@ -783,8 +784,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes += nombre_lignes;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(integer8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -826,8 +827,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes += nombre_lignes;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -869,8 +870,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes += nombre_lignes;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -893,7 +894,8 @@ instruction_s_plus(struct_processus *s_e
 				{
 					if ((((real8 **) (*((struct_matrice *)
 							(*s_objet_statistique).objet)).tableau)[i] =
-							malloc(nombre_colonnes * sizeof(real8))) == NULL)
+							malloc(((size_t) nombre_colonnes) *
+							sizeof(real8))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
@@ -917,8 +919,8 @@ instruction_s_plus(struct_processus *s_e
 						.nombre_lignes += nombre_lignes;
 
 				if (((*((struct_matrice *) (*s_objet_statistique).objet))
-						.tableau = malloc((*((struct_matrice *)
-						(*s_objet_statistique).objet)).nombre_lignes *
+						.tableau = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_statistique).objet)).nombre_lignes) *
 						sizeof(real8 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -932,7 +934,7 @@ instruction_s_plus(struct_processus *s_e
 				{
 					if ((((real8 **) (*((struct_matrice *)
 							(*s_objet_statistique).objet)).tableau)[i] =
-							malloc(nombre_colonnes * sizeof(real8)))
+							malloc(((size_t) nombre_colonnes) * sizeof(real8)))
 							== NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -1010,9 +1012,9 @@ instruction_s_moins(struct_processus *s_
 	struct_objet						*s_objet;
 	struct_objet						*s_objet_statistique;
 
-	unsigned long						i;
-	unsigned long						nombre_colonnes;
-	unsigned long						nombre_lignes;
+	integer8							i;
+	integer8							nombre_colonnes;
+	integer8							nombre_lignes;
 
 	void								*tampon;
 
@@ -1170,7 +1172,7 @@ instruction_s_moins(struct_processus *s_
 			if (nombre_lignes == 1)
 			{
 				if (((*((struct_vecteur *) (*s_objet).objet))
-						.tableau = malloc(nombre_colonnes *
+						.tableau = malloc(((size_t) nombre_colonnes) *
 						sizeof(integer8))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1218,9 +1220,9 @@ instruction_s_moins(struct_processus *s_
 					.nombre_lignes--;
 
 			if (((*((struct_matrice *) (*s_objet_statistique)
-					.objet)).tableau = malloc(
+					.objet)).tableau = malloc(((size_t)
 					(*((struct_matrice *) (*s_objet_statistique).objet))
-					.nombre_lignes * sizeof(integer8 *))) == NULL)
+					.nombre_lignes) * sizeof(integer8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -1298,7 +1300,7 @@ instruction_s_moins(struct_processus *s_
 			if (nombre_lignes == 1)
 			{
 				if (((*((struct_vecteur *) (*s_objet).objet))
-						.tableau = malloc(nombre_colonnes *
+						.tableau = malloc(((size_t) nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1346,8 +1348,8 @@ instruction_s_moins(struct_processus *s_
 					.nombre_lignes--;
 
 			if (((*((struct_matrice *) (*s_objet_statistique).objet))
-					.tableau = malloc((*((struct_matrice *)
-					(*s_objet_statistique).objet)).nombre_lignes *
+					.tableau = malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_statistique).objet)).nombre_lignes) *
 					sizeof(real8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;