--- rpl/src/instructions_m3.c	2013/02/27 17:11:43	1.41
+++ rpl/src/instructions_m3.c	2013/03/20 22:24:36	1.42
@@ -42,7 +42,7 @@ instruction_mean(struct_processus *s_eta
 	struct_objet						*s_objet_resultat;
 	struct_objet						*s_objet_temporaire;
 
-	unsigned long						nombre_colonnes;
+	integer8							nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -221,7 +221,7 @@ instruction_mins(struct_processus *s_eta
 	struct_objet						*s_objet_statistique;
 	struct_objet						*s_objet_resultat;
 
-	unsigned long						nombre_colonnes;
+	integer8							nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -308,7 +308,7 @@ instruction_mins(struct_processus *s_eta
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.tableau)[0][0];
 
-			for(i = 1; i < (long) (*((struct_matrice *) (*s_objet_statistique)
+			for(i = 1; i < (*((struct_matrice *) (*s_objet_statistique)
 					.objet)).nombre_lignes; i++)
 			{
 				if ((*((real8 *) (*s_objet_resultat).objet)) > ((real8 **)
@@ -334,7 +334,7 @@ instruction_mins(struct_processus *s_eta
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.tableau)[0][0];
 
-			for(i = 1; i < (long) (*((struct_matrice *) (*s_objet_statistique)
+			for(i = 1; i < (*((struct_matrice *) (*s_objet_statistique)
 					.objet)).nombre_lignes; i++)
 			{
 				if ((*((integer8 *) (*s_objet_resultat).objet)) > ((integer8 **)
@@ -363,19 +363,19 @@ instruction_mins(struct_processus *s_eta
 					nombre_colonnes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_colonnes * sizeof(real8))) == NULL)
+					malloc(((size_t) nombre_colonnes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			for(j = 0; j < (long) nombre_colonnes; j++)
+			for(j = 0; j < nombre_colonnes; j++)
 			{
 				((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 						.tableau)[j] = ((real8 **) (*((struct_matrice *)
 						(*s_objet_statistique).objet)).tableau)[0][j];
 
-				for(i = 1; i < (long) (*((struct_matrice *)
+				for(i = 1; i < (*((struct_matrice *)
 						(*s_objet_statistique).objet)).nombre_lignes; i++)
 				{
 					if (((real8 *) (*((struct_vecteur *) (*s_objet_resultat)
@@ -404,19 +404,20 @@ instruction_mins(struct_processus *s_eta
 					nombre_colonnes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_colonnes * sizeof(integer8))) == NULL)
+					malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			for(j = 0; j < (long) nombre_colonnes; j++)
+			for(j = 0; j < nombre_colonnes; j++)
 			{
 				((integer8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 						.tableau)[j] = ((integer8 **) (*((struct_matrice *)
 						(*s_objet_statistique).objet)).tableau)[0][j];
 
-				for(i = 1; i < (long) (*((struct_matrice *)
+				for(i = 1; i < (*((struct_matrice *)
 						(*s_objet_statistique).objet)).nombre_lignes; i++)
 				{
 					if (((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
@@ -465,7 +466,7 @@ instruction_maxs(struct_processus *s_eta
 	struct_objet						*s_objet_statistique;
 	struct_objet						*s_objet_resultat;
 
-	unsigned long						nombre_colonnes;
+	integer8							nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -552,7 +553,7 @@ instruction_maxs(struct_processus *s_eta
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.tableau)[0][0];
 
-			for(i = 1; i < (long) (*((struct_matrice *) (*s_objet_statistique)
+			for(i = 1; i < (*((struct_matrice *) (*s_objet_statistique)
 					.objet)).nombre_lignes; i++)
 			{
 				if ((*((real8 *) (*s_objet_resultat).objet)) < ((real8 **)
@@ -578,7 +579,7 @@ instruction_maxs(struct_processus *s_eta
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.tableau)[0][0];
 
-			for(i = 1; i < (long) (*((struct_matrice *) (*s_objet_statistique)
+			for(i = 1; i < (*((struct_matrice *) (*s_objet_statistique)
 					.objet)).nombre_lignes; i++)
 			{
 				if ((*((integer8 *) (*s_objet_resultat).objet)) < ((integer8 **)
@@ -607,19 +608,19 @@ instruction_maxs(struct_processus *s_eta
 					nombre_colonnes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_colonnes * sizeof(real8))) == NULL)
+					malloc(((size_t) nombre_colonnes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			for(j = 0; j < (long) nombre_colonnes; j++)
+			for(j = 0; j < nombre_colonnes; j++)
 			{
 				((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 						.tableau)[j] = ((real8 **) (*((struct_matrice *)
 						(*s_objet_statistique).objet)).tableau)[0][j];
 
-				for(i = 1; i < (long) (*((struct_matrice *)
+				for(i = 1; i < (*((struct_matrice *)
 						(*s_objet_statistique).objet)).nombre_lignes; i++)
 				{
 					if (((real8 *) (*((struct_vecteur *) (*s_objet_resultat)
@@ -648,19 +649,20 @@ instruction_maxs(struct_processus *s_eta
 					nombre_colonnes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_colonnes * sizeof(integer8))) == NULL)
+					malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			for(j = 0; j < (long) nombre_colonnes; j++)
+			for(j = 0; j < nombre_colonnes; j++)
 			{
 				((integer8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 						.tableau)[j] = ((integer8 **) (*((struct_matrice *)
 						(*s_objet_statistique).objet)).tableau)[0][j];
 
-				for(i = 1; i < (long) (*((struct_matrice *)
+				for(i = 1; i < (*((struct_matrice *)
 						(*s_objet_statistique).objet)).nombre_lignes; i++)
 				{
 					if (((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)