--- rpl/src/instructions_i3.c	2013/02/27 17:11:42	1.42
+++ rpl/src/instructions_i3.c	2013/03/20 17:11:45	1.43
@@ -797,10 +797,10 @@ instruction_idft(struct_processus *s_eta
 	struct_objet				*s_objet_longueur_dft;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				k;
-	unsigned long				longueur_dft;
+	integer8					i;
+	integer8					j;
+	integer8					k;
+	integer8					longueur_dft;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -918,7 +918,7 @@ instruction_idft(struct_processus *s_eta
 					(*s_objet_argument).objet)).taille;
 		}
 
-		if ((matrice_f77 = malloc(longueur_dft *
+		if ((matrice_f77 = malloc(((size_t) longueur_dft) *
 				sizeof(struct_complexe16))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -968,7 +968,7 @@ instruction_idft(struct_processus *s_eta
 		}
 
 		nombre_lignes = 1;
-		nombre_colonnes = longueur_dft;
+		nombre_colonnes = (integer4) longueur_dft;
 		inverse = -1;
 
 		dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur);
@@ -1008,9 +1008,9 @@ instruction_idft(struct_processus *s_eta
 					(*s_objet_argument).objet)).nombre_colonnes;
 		}
 
-		if ((matrice_f77 = malloc(longueur_dft *
+		if ((matrice_f77 = malloc(((size_t) longueur_dft) * ((size_t)
 				(*((struct_matrice *) (*s_objet_argument).objet))
-				.nombre_lignes * sizeof(struct_complexe16))) == NULL)
+				.nombre_lignes) * sizeof(struct_complexe16))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1086,9 +1086,9 @@ instruction_idft(struct_processus *s_eta
 			}
 		}
 
-		nombre_lignes = (*((struct_matrice *) (*s_objet_argument).objet))
-				.nombre_lignes;
-		nombre_colonnes = longueur_dft;
+		nombre_lignes = (integer4) (*((struct_matrice *) (*s_objet_argument)
+				.objet)).nombre_lignes;
+		nombre_colonnes = (integer4) longueur_dft;
 		inverse = -1;
 
 		dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur);
@@ -1115,8 +1115,8 @@ instruction_idft(struct_processus *s_eta
 				longueur_dft;
 
 		if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat).objet))
-				.nombre_lignes * sizeof(struct_complexe16 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat)
+				.objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1127,8 +1127,8 @@ instruction_idft(struct_processus *s_eta
 		{
 			if ((((struct_complexe16 **) (*((struct_matrice *)
 					(*s_objet_resultat).objet)).tableau)[i] =
-					malloc((*((struct_matrice *)
-					(*s_objet_resultat).objet)).nombre_colonnes *
+					malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_resultat).objet)).nombre_colonnes) *
 					sizeof(struct_complexe16))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;