--- rpl/src/instructions_s10.c	2013/02/27 17:11:44	1.69
+++ rpl/src/instructions_s10.c	2013/03/21 11:30:30	1.70
@@ -1290,7 +1290,7 @@ instruction_smphrtrydecr(struct_processu
 			}
 
 			partie_entiere = floor((*((real8 *) (*s_objet_argument_1).objet)));
-			horodatage.tv_sec += partie_entiere;
+			horodatage.tv_sec += (__time_t) partie_entiere;
 			horodatage.tv_usec += ((suseconds_t) ((*((real8 *)
 					(*s_objet_argument_1).objet)) - partie_entiere)) * 1000000;
 
@@ -1647,8 +1647,8 @@ instruction_svd(struct_processus *s_etat
 
 	struct_vecteur				s_vecteur;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1740,8 +1740,8 @@ instruction_svd(struct_processus *s_etat
 				.nombre_lignes;
 
 		if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat_2).objet))
-				.nombre_lignes * sizeof(real8 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat_2)
+				.objet)).nombre_lignes) * sizeof(real8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1751,9 +1751,9 @@ instruction_svd(struct_processus *s_etat
 				.nombre_lignes; i++)
 		{
 			if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2)
-					.objet)).tableau)[i] = malloc((*((struct_matrice *)
-					(*s_objet_resultat_2).objet)).nombre_colonnes *
-					sizeof(real8 *))) == NULL)
+					.objet)).tableau)[i] = malloc(((size_t)
+					(*((struct_matrice *) (*s_objet_resultat_2).objet))
+					.nombre_colonnes) * sizeof(real8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -1840,8 +1840,8 @@ instruction_svd(struct_processus *s_etat
 				.nombre_lignes;
 
 		if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat_2).objet))
-				.nombre_lignes * sizeof(real8 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat_2)
+				.objet)).nombre_lignes) * sizeof(real8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1851,9 +1851,9 @@ instruction_svd(struct_processus *s_etat
 				.nombre_lignes; i++)
 		{
 			if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2)
-					.objet)).tableau)[i] = malloc((*((struct_matrice *)
-					(*s_objet_resultat_2).objet)).nombre_colonnes *
-					sizeof(real8 *))) == NULL)
+					.objet)).tableau)[i] = malloc(((size_t)
+					(*((struct_matrice *) (*s_objet_resultat_2).objet))
+					.nombre_colonnes) * sizeof(real8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;