--- rpl/src/instructions_p2.c	2013/02/27 17:11:43	1.44
+++ rpl/src/instructions_p2.c	2013/03/20 22:24:36	1.45
@@ -112,7 +112,7 @@ instruction_p_vers_r(struct_processus *s
 		if ((*s_objet_argument).type == INT)
 		{
 			(*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_reelle
-					= (*((integer8 *) (*s_objet_argument).objet));
+					= (real8) (*((integer8 *) (*s_objet_argument).objet));
 		}
 		else
 		{
@@ -389,11 +389,11 @@ instruction_put(struct_processus *s_etat
 	struct_objet						*s_objet_4;
 	struct_objet						*s_objet_element;
 
-	unsigned long						i;
-	unsigned long						indice_i;
-	unsigned long						indice_j;
-	unsigned long						j;
-	unsigned long						nombre_dimensions;
+	integer8							i;
+	integer8							indice_i;
+	integer8							indice_j;
+	integer8							j;
+	integer8							nombre_dimensions;
 
 	void								*tampon;
 
@@ -610,8 +610,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = VRL;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille * sizeof(real8)))
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) * sizeof(real8)))
 						== NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -645,8 +645,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = VCX;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille *
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -726,8 +726,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = VCX;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille *
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -969,8 +969,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = MRL;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes * sizeof(real8 *)))
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *)))
 						== NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -983,8 +983,8 @@ instruction_put(struct_processus *s_etat
 				{
 					if ((((real8 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(real8))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -1022,8 +1022,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = MCX;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes *
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) *
 						sizeof(struct_complexe16 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1036,8 +1036,8 @@ instruction_put(struct_processus *s_etat
 				{
 					if ((((struct_complexe16 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -1122,8 +1122,8 @@ instruction_put(struct_processus *s_etat
 				(*s_objet_3).type = MCX;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes *
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) *
 						sizeof(struct_complexe16 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1136,8 +1136,8 @@ instruction_put(struct_processus *s_etat
 				{
 					if ((((struct_complexe16 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -1646,8 +1646,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = VRL;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille * sizeof(real8)))
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) * sizeof(real8)))
 							== NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -1694,8 +1694,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = VCX;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille *
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -1799,8 +1799,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = VCX;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille *
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -2152,8 +2152,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = MRL;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(real8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -2178,8 +2178,8 @@ instruction_put(struct_processus *s_etat
 					{
 						if ((((real8 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(real8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -2229,8 +2229,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(struct_complexe16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -2255,8 +2255,8 @@ instruction_put(struct_processus *s_etat
 					{
 						if ((((struct_complexe16 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(struct_complexe16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -2366,8 +2366,8 @@ instruction_put(struct_processus *s_etat
 					(*s_objet_4).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(struct_complexe16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -2392,8 +2392,8 @@ instruction_put(struct_processus *s_etat
 					{
 						if ((((struct_complexe16 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(struct_complexe16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -2907,12 +2907,12 @@ instruction_puti(struct_processus *s_eta
 	struct_objet						*s_objet_3;
 	struct_objet						*s_objet_4;
 
-	unsigned long						i;
-	unsigned long						indice_i;
-	unsigned long						indice_j;
-	unsigned long						j;
-	unsigned long						nombre_dimensions;
-	unsigned long						nombre_elements;
+	integer8							i;
+	integer8							indice_i;
+	integer8							indice_j;
+	integer8							j;
+	integer8							nombre_dimensions;
+	integer8							nombre_elements;
 
 	void								*tampon;
 
@@ -3118,8 +3118,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = VRL;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille * sizeof(real8)))
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) * sizeof(real8)))
 						== NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3153,8 +3153,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = VCX;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille *
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3234,8 +3234,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = VCX;
 
 				if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_vecteur *)
-						(*s_objet_3).objet)).taille *
+						= malloc(((size_t) (*((struct_vecteur *)
+						(*s_objet_3).objet)).taille) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3486,8 +3486,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = MRL;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes * sizeof(real8 *)))
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *)))
 						== NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3500,8 +3500,8 @@ instruction_puti(struct_processus *s_eta
 				{
 					if ((((real8 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(real8))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -3539,8 +3539,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = MCX;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes *
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) *
 						sizeof(struct_complexe16 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3553,8 +3553,8 @@ instruction_puti(struct_processus *s_eta
 				{
 					if ((((struct_complexe16 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -3639,8 +3639,8 @@ instruction_puti(struct_processus *s_eta
 				(*s_objet_3).type = MCX;
 
 				if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
-						= malloc((*((struct_matrice *)
-						(*s_objet_3).objet)).nombre_lignes *
+						= malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_3).objet)).nombre_lignes) *
 						sizeof(struct_complexe16 *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3653,8 +3653,8 @@ instruction_puti(struct_processus *s_eta
 				{
 					if ((((struct_complexe16 **) (*((struct_matrice *)
 							(*s_objet_3).objet)).tableau)[i]
-							= malloc((*((struct_matrice *)
-							(*s_objet_3).objet)).nombre_colonnes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_3).objet)).nombre_colonnes) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
@@ -4113,8 +4113,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = VRL;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille * sizeof(real8)))
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) * sizeof(real8)))
 							== NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4161,8 +4161,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = VCX;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille *
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4266,8 +4266,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = VCX;
 
 					if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_vecteur *)
-							(*s_objet_4).objet)).taille *
+							= malloc(((size_t) (*((struct_vecteur *)
+							(*s_objet_4).objet)).taille) *
 							sizeof(struct_complexe16))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4624,8 +4624,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = MRL;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(real8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4650,8 +4650,8 @@ instruction_puti(struct_processus *s_eta
 					{
 						if ((((real8 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(real8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -4701,8 +4701,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(struct_complexe16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4727,8 +4727,8 @@ instruction_puti(struct_processus *s_eta
 					{
 						if ((((struct_complexe16 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(struct_complexe16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -4838,8 +4838,8 @@ instruction_puti(struct_processus *s_eta
 					(*s_objet_4).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
-							= malloc((*((struct_matrice *)
-							(*s_objet_4).objet)).nombre_lignes *
+							= malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_4).objet)).nombre_lignes) *
 							sizeof(struct_complexe16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -4864,8 +4864,8 @@ instruction_puti(struct_processus *s_eta
 					{
 						if ((((struct_complexe16 **) (*((struct_matrice *)
 								(*s_objet_4).objet)).tableau)[i]
-								= malloc((*((struct_matrice *)
-								(*s_objet_4).objet)).nombre_colonnes *
+								= malloc(((size_t) (*((struct_matrice *)
+								(*s_objet_4).objet)).nombre_colonnes) *
 								sizeof(struct_complexe16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)