--- rpl/src/instructions_a5.c	2013/02/27 17:11:41	1.42
+++ rpl/src/instructions_a5.c	2013/03/20 17:11:44	1.43
@@ -153,10 +153,10 @@ instruction_alarm(struct_processus *s_et
 		s_time_actuel = localtime(&(st.time));
 
 		l_element_courant = (*s_objet_argument).objet;
-		s_time_alarme.tm_hour = (*((integer8 *) (*(*l_element_courant)
+		s_time_alarme.tm_hour = (int) (*((integer8 *) (*(*l_element_courant)
 				.donnee).objet));
 		l_element_courant = (*l_element_courant).suivant;
-		s_time_alarme.tm_min = (*((integer8 *) (*(*l_element_courant)
+		s_time_alarme.tm_min = (int) (*((integer8 *) (*(*l_element_courant)
 				.donnee).objet));
 		l_element_courant = (*l_element_courant).suivant;
 
@@ -164,7 +164,7 @@ instruction_alarm(struct_processus *s_et
 
 		if (l_element_courant != NULL)
 		{
-			s_time_alarme.tm_sec = (*((integer8 *) (*(*l_element_courant)
+			s_time_alarme.tm_sec = (int) (*((integer8 *) (*(*l_element_courant)
 					.donnee).objet));
 			l_element_courant = (*l_element_courant).suivant;
 
@@ -172,21 +172,21 @@ instruction_alarm(struct_processus *s_et
 			{
 				specification_date = d_vrai;
 
-				s_time_alarme.tm_mday = (*((integer8 *) (*(*l_element_courant)
-						.donnee).objet));
+				s_time_alarme.tm_mday = (int) (*((integer8 *)
+						(*(*l_element_courant).donnee).objet));
 				l_element_courant = (*l_element_courant).suivant;
 
 				if (l_element_courant != NULL)
 				{
-					s_time_alarme.tm_mon = (*((integer8 *)
-							(*(*l_element_courant).donnee).objet)) - 1;
+					s_time_alarme.tm_mon = (int) ((*((integer8 *)
+							(*(*l_element_courant).donnee).objet)) - 1);
 					l_element_courant = (*l_element_courant).suivant;
 
 					if (l_element_courant != NULL)
 					{
-						s_time_alarme.tm_year = (*((integer8 *)
+						s_time_alarme.tm_year = (int) ((*((integer8 *)
 								(*(*l_element_courant).donnee).objet))
-								- 1900;
+								- 1900);
 						l_element_courant = (*l_element_courant).suivant;
 					}
 					else
@@ -248,8 +248,8 @@ instruction_alarm(struct_processus *s_et
 			alarme = mktime(&s_time_alarme);
 		}
 
-		attente.tv_nsec = (long) ((duree - (attente.tv_sec =
-				(long) floor(duree))) * 1000000000);
+		attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec =
+				(__time_t) floor(duree))) * 1000000000);
 
 		if ((*s_etat_processus).profilage == d_vrai)
 		{