--- rpl/src/instructions_r5.c	2013/02/27 17:11:44	1.46
+++ rpl/src/instructions_r5.c	2013/03/20 22:24:37	1.47
@@ -43,8 +43,8 @@ instruction_rswp(struct_processus *s_eta
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_argument_3;
 
-	signed long					ligne_1;
-	signed long					ligne_2;
+	integer8					ligne_1;
+	integer8					ligne_2;
 
 	void						*tampon;
 
@@ -212,8 +212,8 @@ instruction_row_plus(struct_processus *s
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_argument_3;
 
-	unsigned long					i;
-	unsigned long					j;
+	integer8						i;
+	integer8						j;
 
 	void							**tableau;
 	void							*tampon;
@@ -473,8 +473,8 @@ instruction_row_plus(struct_processus *s
 						.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)
@@ -521,8 +521,8 @@ instruction_row_plus(struct_processus *s
 						.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)
@@ -568,8 +568,8 @@ instruction_row_plus(struct_processus *s
 						.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)
@@ -619,8 +619,8 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -667,8 +667,8 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -714,8 +714,8 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -786,8 +786,8 @@ instruction_row_plus(struct_processus *s
 	if (matrice_vide == d_faux)
 	{
 		if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau
-				= malloc(((*((struct_matrice *) (*s_objet_argument_3).objet))
-				.nombre_lignes + 1) * sizeof(void *))) == NULL)
+				= malloc(((size_t) ((*((struct_matrice *) (*s_objet_argument_3)
+				.objet)).nombre_lignes + 1)) * sizeof(void *))) == NULL)
 		{
 			if (variable_partagee == d_vrai)
 			{
@@ -809,7 +809,7 @@ instruction_row_plus(struct_processus *s
 			for(j = i = 0; i < (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes; i++)
 			{
-				if (i == (unsigned long) (position - 1))
+				if (i == (position - 1))
 				{
 					(*((struct_matrice *) (*s_objet_argument_3).objet))
 							.tableau[i] = (*((struct_matrice *)
@@ -930,9 +930,9 @@ instruction_row_moins(struct_processus *
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				colonne;
+	integer8					i;
+	integer8					j;
+	integer8					colonne;
 
 	void						**tableau;
 
@@ -1168,8 +1168,9 @@ instruction_row_moins(struct_processus *
 						.tableau;
 
 				if (((*((struct_matrice *) (*s_objet_argument_2).objet)).tableau
-						= malloc(((*((struct_matrice *) (*s_objet_argument_2)
-						.objet)).nombre_lignes - 1) * sizeof(void *))) == NULL)
+						= malloc(((size_t) ((*((struct_matrice *)
+						(*s_objet_argument_2).objet)).nombre_lignes - 1)) *
+						sizeof(void *))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{