--- rpl/src/instructions_c2.c	2013/03/16 11:31:41	1.48
+++ rpl/src/instructions_c2.c	2013/03/20 17:11:44	1.49
@@ -47,7 +47,7 @@ instruction_cycle(struct_processus *s_et
 	unsigned char					*instruction_majuscule;
 	unsigned char					*tampon;
 
-	unsigned long					niveau;
+	integer8						niveau;
 
 	void							(*fonction)();
 
@@ -439,11 +439,11 @@ instruction_con(struct_processus *s_etat
 	logical1						argument_nom;
 	logical1						variable_partagee;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					nombre_colonnes;
-	unsigned long					nombre_dimensions;
-	unsigned long					nombre_lignes;
+	integer8						i;
+	integer8						j;
+	integer8						nombre_colonnes;
+	integer8						nombre_dimensions;
+	integer8						nombre_lignes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -816,7 +816,8 @@ instruction_con(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(integer8))) == NULL)
+					malloc(((size_t) nombre_lignes) * sizeof(integer8)))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -842,7 +843,7 @@ instruction_con(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(real8))) == NULL)
+					malloc(((size_t) nombre_lignes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -868,7 +869,8 @@ instruction_con(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(struct_complexe16))) == NULL)
+					malloc(((size_t) nombre_lignes) *
+					sizeof(struct_complexe16))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -908,7 +910,8 @@ instruction_con(struct_processus *s_etat
 					nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(integer8 *))) == NULL)
+					malloc(((size_t) nombre_lignes) * sizeof(integer8 *)))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -917,8 +920,8 @@ instruction_con(struct_processus *s_etat
 			for(i = 0; i < nombre_lignes; i++)
 			{
 				if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat)
-						.objet)).tableau)[i] = malloc(
-						nombre_colonnes * sizeof(integer8))) == NULL)
+						.objet)).tableau)[i] = malloc(((size_t)
+						nombre_colonnes) * sizeof(integer8))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -948,7 +951,7 @@ instruction_con(struct_processus *s_etat
 					nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(real8 *))) == NULL)
+					malloc(((size_t) nombre_lignes) * sizeof(real8 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -957,8 +960,8 @@ instruction_con(struct_processus *s_etat
 			for(i = 0; i < nombre_lignes; i++)
 			{
 				if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat)
-						.objet)).tableau)[i] = malloc(
-						nombre_colonnes * sizeof(real8))) == NULL)
+						.objet)).tableau)[i] = malloc(((size_t)
+						nombre_colonnes) * sizeof(real8))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -988,8 +991,8 @@ instruction_con(struct_processus *s_etat
 					nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-					malloc(nombre_lignes * sizeof(struct_complexe16 *)))
-					== NULL)
+					malloc(((size_t) nombre_lignes) *
+					sizeof(struct_complexe16 *))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -999,7 +1002,7 @@ instruction_con(struct_processus *s_etat
 			{
 				if ((((struct_complexe16 **) (*((struct_matrice *)
 						(*s_objet_resultat).objet)).tableau)[i] =
-						malloc(nombre_colonnes *
+						malloc(((size_t) nombre_colonnes) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1300,25 +1303,28 @@ instruction_cross(struct_processus *s_et
 		}
 
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
-				.tableau)[0] = (((integer8 *) (*((struct_vecteur *)
+				.tableau)[0] = ((real8) ((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_2).objet)).tableau)[1] * ((real8 *)
 				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[2])
-				- (((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[2] * ((real8 *) (*((struct_vecteur *)
+				- ((real8) ((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2).objet)).tableau)[2] *
+				((real8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[1]);
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
-				.tableau)[1] = (((integer8 *) (*((struct_vecteur *)
+				.tableau)[1] = ((real8) ((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_2).objet)).tableau)[2] * ((real8 *)
 				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[0])
-				- (((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[0] * ((real8 *) (*((struct_vecteur *)
+				- ((real8) ((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2) .objet)).tableau)[0] *
+				((real8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[2]);
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
-				.tableau)[2] = (((integer8 *) (*((struct_vecteur *)
+				.tableau)[2] = ((real8) ((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_2).objet)).tableau)[0] * ((real8 *)
 				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[1])
-				- (((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[1] * ((real8 *) (*((struct_vecteur *)
+				- ((real8) ((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2).objet)).tableau)[1] *
+				((real8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[0]);
 	}
 	else if (((*s_objet_argument_1).type == VIN) &&
@@ -1353,24 +1359,28 @@ instruction_cross(struct_processus *s_et
 
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 				.tableau)[0] = (((real8 *) (*((struct_vecteur *)
-				(*s_objet_argument_2).objet)).tableau)[1] * ((integer8 *)
-				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[2])
+				(*s_objet_argument_2).objet)).tableau)[1] * (real8)
+				((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_1).objet)).tableau)[2])
 				- (((real8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[2] * ((integer8 *) (*((struct_vecteur *)
+				.objet)).tableau)[2] * (real8) ((integer8 *)
+				(*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[1]);
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 				.tableau)[1] = (((real8 *) (*((struct_vecteur *)
-				(*s_objet_argument_2).objet)).tableau)[2] * ((integer8 *)
-				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[0])
-				- (((real8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[0] * ((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2).objet)).tableau)[2] * (real8)
+				((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1)
+				.objet)).tableau)[0]) - (((real8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2) .objet)).tableau)[0] * (real8)
+				((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[2]);
 		((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet))
 				.tableau)[2] = (((real8 *) (*((struct_vecteur *)
-				(*s_objet_argument_2).objet)).tableau)[0] * ((integer8 *)
-				(*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[1])
-				- (((real8 *) (*((struct_vecteur *) (*s_objet_argument_2)
-				.objet)).tableau)[1] * ((integer8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2).objet)).tableau)[0] * (real8)
+				((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1)
+				.objet)).tableau)[1]) - (((real8 *) (*((struct_vecteur *)
+				(*s_objet_argument_2) .objet)).tableau)[1] * (real8)
+				((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[0]);
 	}
 	else if (((*s_objet_argument_1).type == VRL) &&