--- rpl/src/instructions_c1.c	2013/02/27 17:11:41	1.42
+++ rpl/src/instructions_c1.c	2013/03/20 17:11:44	1.43
@@ -425,7 +425,7 @@ instruction_ceil(struct_processus *s_eta
 			return;
 		}
 
-		(*((integer8 *) (*s_objet_resultat).objet)) =
+		(*((integer8 *) (*s_objet_resultat).objet)) = (integer8)
 				ceil((*((real8 *) (*s_objet_argument).objet)));
 
 		if (!(((((*((integer8 *) (*s_objet_resultat).objet)) - 1) <
@@ -802,8 +802,8 @@ instruction_c_vers_r(struct_processus *s
 	struct_objet					*s_objet_resultat_1;
 	struct_objet					*s_objet_resultat_2;
 
-	unsigned long					i;
-	unsigned long					j;
+	integer8						i;
+	integer8						j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -909,16 +909,16 @@ instruction_c_vers_r(struct_processus *s
 		}
 
 		if (((*((struct_vecteur *) (*s_objet_resultat_1).objet)).tableau =
-				malloc((*(((struct_vecteur *) (*s_objet_argument)
-				.objet))).taille * sizeof(real8))) == NULL)
+				malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument)
+				.objet))).taille) * sizeof(real8))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
 		if (((*((struct_vecteur *) (*s_objet_resultat_2).objet)).tableau =
-				malloc((*(((struct_vecteur *) (*s_objet_argument)
-				.objet))).taille * sizeof(real8))) == NULL)
+				malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument)
+				.objet))).taille) * sizeof(real8))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -965,16 +965,16 @@ instruction_c_vers_r(struct_processus *s
 		}
 
 		if (((*((struct_matrice *) (*s_objet_resultat_1).objet)).tableau =
-				malloc((*(((struct_matrice *) (*s_objet_argument)
-				.objet))).nombre_lignes * sizeof(real8 *))) == NULL)
+				malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument)
+				.objet))).nombre_lignes) * sizeof(real8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
 		if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau =
-				malloc((*(((struct_matrice *) (*s_objet_argument)
-				.objet))).nombre_lignes * sizeof(real8 *))) == NULL)
+				malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument)
+				.objet))).nombre_lignes) * sizeof(real8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -995,18 +995,18 @@ instruction_c_vers_r(struct_processus *s
 				.nombre_lignes; i++)
 		{
 			if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_1)
-					.objet)).tableau)[i] = malloc(
+					.objet)).tableau)[i] = malloc(((size_t)
 					(*(((struct_matrice *) (*s_objet_argument).objet)))
-					.nombre_colonnes * sizeof(real8))) == NULL)
+					.nombre_colonnes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
 			if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2)
-					.objet)).tableau)[i] = malloc(
+					.objet)).tableau)[i] = malloc(((size_t)
 					(*(((struct_matrice *) (*s_objet_argument).objet)))
-					.nombre_colonnes * sizeof(real8))) == NULL)
+					.nombre_colonnes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -1082,8 +1082,8 @@ instruction_conj(struct_processus *s_eta
 	struct_objet				*s_objet_argument;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;