--- rpl/src/instructions_a5.c	2013/03/20 17:11:44	1.43
+++ rpl/src/instructions_a5.c	2013/03/21 14:39:09	1.45
@@ -43,6 +43,8 @@ instruction_alarm(struct_processus *s_et
 	int							code_retour;
 	int							erreur;
 
+	integer8					nombre_elements;
+
 	logical1					specification_date;
 
 	struct_liste_chainee		*l_element_courant;
@@ -63,8 +65,6 @@ instruction_alarm(struct_processus *s_et
 
 	time_t						alarme;
 
-	unsigned long				nombre_elements;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -249,7 +249,7 @@ instruction_alarm(struct_processus *s_et
 		}
 
 		attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec =
-				(__time_t) floor(duree))) * 1000000000);
+				(time_t) floor(duree))) * 1000000000);
 
 		if ((*s_etat_processus).profilage == d_vrai)
 		{