--- rpl/src/instructions_c6.c	2013/02/27 17:11:41	1.46
+++ rpl/src/instructions_c6.c	2013/03/20 17:11:44	1.47
@@ -140,8 +140,8 @@ instruction_col_fleche(struct_processus
 	struct_objet				*s_objet;
 	struct_objet				*s_objet_elementaire;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -206,8 +206,8 @@ instruction_col_fleche(struct_processus
 					.nombre_lignes;
 
 			if (((*((struct_matrice *) (*s_objet_elementaire).objet)).tableau =
-					malloc((*((struct_matrice *) (*s_objet).objet))
-					.nombre_lignes * sizeof(integer8 *))) == NULL)
+					malloc(((size_t) (*((struct_matrice *) (*s_objet).objet))
+					.nombre_lignes) * sizeof(integer8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -257,8 +257,8 @@ instruction_col_fleche(struct_processus
 					.nombre_lignes;
 
 			if (((*((struct_matrice *) (*s_objet_elementaire).objet)).tableau =
-					malloc((*((struct_matrice *) (*s_objet).objet))
-					.nombre_lignes * sizeof(real8 *))) == NULL)
+					malloc(((size_t) (*((struct_matrice *) (*s_objet).objet))
+					.nombre_lignes) * sizeof(real8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -308,8 +308,8 @@ instruction_col_fleche(struct_processus
 					.nombre_lignes;
 
 			if (((*((struct_matrice *) (*s_objet_elementaire).objet)).tableau =
-					malloc((*((struct_matrice *) (*s_objet).objet))
-					.nombre_lignes * sizeof(complex16 *))) == NULL)
+					malloc(((size_t) (*((struct_matrice *) (*s_objet).objet))
+					.nombre_lignes) * sizeof(complex16 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -842,7 +842,7 @@ creation_table(struct_processus *s_etat_
 {
 	struct_objet		*s_table;
 
-	unsigned long		i;
+	integer8			i;
 
 	if ((s_table = allocation(s_etat_processus, TBL)) == NULL)
 	{
@@ -850,13 +850,13 @@ creation_table(struct_processus *s_etat_
 	}
 
 	(*((struct_tableau *) (*s_table).objet)).nombre_elements =
-			(unsigned long) (*((integer8 *) (*(*dimensions).donnee).objet));
+			(*((integer8 *) (*(*dimensions).donnee).objet));
 
 	dimensions = (*dimensions).suivant;
 
 	if (((*((struct_tableau *) (*s_table).objet)).elements =
-			malloc((*((struct_tableau *) (*s_table).objet))
-			.nombre_elements * sizeof(struct_objet *))) == NULL)
+			malloc(((size_t) (*((struct_tableau *) (*s_table).objet))
+			.nombre_elements) * sizeof(struct_objet *))) == NULL)
 	{
 		return(NULL);
 	}