--- rpl/src/instructions_d5.c	2013/02/27 17:11:42	1.102
+++ rpl/src/instructions_d5.c	2013/03/20 17:11:44	1.103
@@ -40,6 +40,7 @@ instruction_dft(struct_processus *s_etat
 {
 	integer4					erreur;
 	integer4					inverse;
+	integer4					longueur_dft;
 	integer4					nombre_colonnes;
 	integer4					nombre_lignes;
 
@@ -53,10 +54,9 @@ instruction_dft(struct_processus *s_etat
 	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;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -135,7 +135,7 @@ instruction_dft(struct_processus *s_etat
 			return;
 		}
 
-		longueur_dft = longueur_dft_signee;
+		longueur_dft = (integer4) longueur_dft_signee;
 	}
 	else
 	{
@@ -170,11 +170,11 @@ instruction_dft(struct_processus *s_etat
 	{
 		if (presence_longueur_dft == d_faux)
 		{
-			longueur_dft = (*((struct_vecteur *)
+			longueur_dft = (integer4) (*((struct_vecteur *)
 					(*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;
@@ -260,13 +260,13 @@ instruction_dft(struct_processus *s_etat
 	{
 		if (presence_longueur_dft == d_faux)
 		{
-			longueur_dft = (*((struct_matrice *)
+			longueur_dft = (integer4) (*((struct_matrice *)
 					(*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;
@@ -342,8 +342,8 @@ instruction_dft(struct_processus *s_etat
 			}
 		}
 
-		nombre_lignes = (*((struct_matrice *) (*s_objet_argument).objet))
-				.nombre_lignes;
+		nombre_lignes = (integer4) (*((struct_matrice *) (*s_objet_argument)
+				.objet)).nombre_lignes;
 		nombre_colonnes = longueur_dft;
 		inverse = 0;
 
@@ -371,8 +371,8 @@ instruction_dft(struct_processus *s_etat
 				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;
@@ -383,8 +383,8 @@ instruction_dft(struct_processus *s_etat
 		{
 			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;
@@ -859,7 +859,7 @@ instruction_detach(struct_processus *s_e
 
 	unsigned int						erreur;
 
-	unsigned long						i;
+	integer8							i;
 
 	volatile logical1					variable_partagee;
 
@@ -2377,7 +2377,7 @@ instruction_detach(struct_processus *s_e
 					.var_volatile_traitement_retarde_stop;
 			(*s_etat_processus).var_volatile_traitement_retarde_stop = 1;
 
-			for(i = 0; i < (unsigned long) (*(*((struct_processus_fils *)
+			for(i = 0; i < (*(*((struct_processus_fils *)
 					(*(*l_element_courant)
 					.donnee).objet)).thread).nombre_objets_dans_pipe; i++)
 			{