--- rpl/src/instructions_g4.c	2013/02/27 17:11:42	1.43
+++ rpl/src/instructions_g4.c	2013/03/20 17:11:45	1.44
@@ -47,10 +47,10 @@ instruction_getc(struct_processus *s_eta
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				colonne;
-	unsigned long				nombre_colonnes;
+	integer8					i;
+	integer8					j;
+	integer8					colonne;
+	integer8					nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -280,8 +280,8 @@ instruction_getc(struct_processus *s_eta
 					(*s_objet_resultat).type = MIN;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(integer8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -305,8 +305,8 @@ instruction_getc(struct_processus *s_eta
 							.objet)).nombre_lignes; i++)
 					{
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc(nombre_colonnes *
-								sizeof(integer8))) == NULL)
+								.tableau[i] = malloc(((size_t) nombre_colonnes)
+								* sizeof(integer8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
 							{
@@ -358,8 +358,8 @@ instruction_getc(struct_processus *s_eta
 					(*s_objet_resultat).type = MRL;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(real8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -383,8 +383,8 @@ instruction_getc(struct_processus *s_eta
 							.objet)).nombre_lignes; i++)
 					{
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc(nombre_colonnes *
-								sizeof(real8))) == NULL)
+								.tableau[i] = malloc(((size_t) nombre_colonnes)
+								* sizeof(real8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
 							{
@@ -436,8 +436,8 @@ instruction_getc(struct_processus *s_eta
 					(*s_objet_resultat).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(complex16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -461,8 +461,8 @@ instruction_getc(struct_processus *s_eta
 							.objet)).nombre_lignes; i++)
 					{
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc(nombre_colonnes *
-								sizeof(complex16))) == NULL)
+								.tableau[i] = malloc(((size_t) nombre_colonnes)
+								* sizeof(complex16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
 							{
@@ -617,10 +617,10 @@ instruction_getr(struct_processus *s_eta
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				ligne;
-	unsigned long				nombre_lignes;
+	integer8					i;
+	integer8					j;
+	integer8					ligne;
+	integer8					nombre_lignes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -845,7 +845,7 @@ instruction_getr(struct_processus *s_eta
 					.nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(void *))) == NULL)
+					malloc(((size_t) nombre_lignes) * sizeof(void *))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -878,8 +878,9 @@ instruction_getr(struct_processus *s_eta
 								.objet)) - 1;
 
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc((*((struct_matrice *)
-								(*s_objet_resultat).objet)).nombre_colonnes *
+								.tableau[i] = malloc(((size_t)
+								(*((struct_matrice *)
+								(*s_objet_resultat).objet)).nombre_colonnes) *
 								sizeof(integer8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -930,8 +931,9 @@ instruction_getr(struct_processus *s_eta
 								.objet)) - 1;
 
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc((*((struct_matrice *)
-								(*s_objet_resultat).objet)).nombre_colonnes *
+								.tableau[i] = malloc(((size_t)
+								(*((struct_matrice *)
+								(*s_objet_resultat).objet)).nombre_colonnes) *
 								sizeof(real8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -982,8 +984,9 @@ instruction_getr(struct_processus *s_eta
 								.objet)) - 1;
 
 						if (((*((struct_matrice *) (*s_objet_resultat).objet))
-								.tableau[i] = malloc((*((struct_matrice *)
-								(*s_objet_resultat).objet)).nombre_colonnes *
+								.tableau[i] = malloc(((size_t)
+								(*((struct_matrice *)
+								(*s_objet_resultat).objet)).nombre_colonnes) *
 								sizeof(complex16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -1204,7 +1207,7 @@ instruction_gamma(struct_processus *s_et
 
 		if ((*s_objet_argument).type == INT)
 		{
-			argument_reel = (*((integer8 *) (*s_objet_argument).objet));
+			argument_reel = (real8) (*((integer8 *) (*s_objet_argument).objet));
 		}
 		else
 		{