--- rpl/src/instructions_p8.c	2013/02/27 17:11:43	1.16
+++ rpl/src/instructions_p8.c	2013/03/20 22:24:37	1.17
@@ -42,7 +42,8 @@ instruction_poll(struct_processus *s_eta
 	int						i;
 	int						ios;
 	int						nombre_descripteurs;
-	int						timeout;
+
+	integer8				timeout;
 
 	logical1				drapeau;
 
@@ -138,14 +139,14 @@ instruction_poll(struct_processus *s_eta
 			l_element_courant = (*l_element_courant).suivant;
 		}
 
-		if ((s_poll = malloc(nombre_descripteurs * sizeof(struct pollfd)))
-				== NULL)
+		if ((s_poll = malloc(((size_t) nombre_descripteurs) *
+				sizeof(struct pollfd))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
-		if ((s_objet_tmp = malloc(nombre_descripteurs *
+		if ((s_objet_tmp = malloc(((size_t) nombre_descripteurs) *
 				sizeof(struct_objet *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -317,7 +318,8 @@ instruction_poll(struct_processus *s_eta
 				return;
 			}
 
-			if ((ios = poll(s_poll, nombre_descripteurs, timeout)) < 0)
+			if ((ios = poll(s_poll, (nfds_t) nombre_descripteurs,
+					(int) timeout)) < 0)
 			{
 				erreur = errno;