--- rpl/src/types.c	2013/03/16 11:31:41	1.58
+++ rpl/src/types.c	2013/03/21 11:30:31	1.59
@@ -38,7 +38,24 @@
 void
 recherche_type(struct_processus *s_etat_processus)
 {
-	int							nombre_elements_convertis;
+	integer8					i;
+	integer8					j;
+	integer8					niveau;
+	integer8					niveau_maximal;
+	integer8					nombre_colonnes;
+	integer8					nombre_egalites;
+	integer8					nombre_elements;
+	integer8					nombre_elements_convertis;
+	integer8					nombre_exposants;
+	integer8					nombre_lignes;
+	integer8					nombre_lignes_a_supprimer;
+	integer8					nombre_points;
+	integer8					nombre_virgules;
+	integer8					position_courante;
+	integer8					profondeur_finale;
+	integer8					profondeur_initiale;
+	integer8					sauvegarde_niveau_courant;
+	integer8					sauvegarde_longueur_definitions_chainees;
 
 	struct_liste_chainee		*l_base_liste_fonctions;
 	struct_liste_chainee		*l_base_liste_decomposition;
@@ -82,24 +99,6 @@ recherche_type(struct_processus *s_etat_
 	unsigned char				*tampon;
 	unsigned char				variable_implicite;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				niveau;
-	unsigned long				niveau_maximal;
-	unsigned long				nombre_colonnes;
-	unsigned long				nombre_egalites;
-	unsigned long				nombre_elements;
-	unsigned long				nombre_exposants;
-	unsigned long				nombre_lignes;
-	unsigned long				nombre_lignes_a_supprimer;
-	unsigned long				nombre_points;
-	unsigned long				nombre_virgules;
-	unsigned long				position_courante;
-	unsigned long				profondeur_finale;
-	unsigned long				profondeur_initiale;
-	unsigned long				sauvegarde_niveau_courant;
-	unsigned long				sauvegarde_longueur_definitions_chainees;
-
 	void						*element;
 
 	if ((s_objet = allocation(s_etat_processus, NON)) == NULL)
@@ -289,10 +288,10 @@ recherche_type(struct_processus *s_etat_
 			sauvegarde_longueur_definitions_chainees =
 					(*s_etat_processus).longueur_definitions_chainees;
 
-			tampon = (unsigned char *) malloc(
+			tampon = (unsigned char *) malloc(((size_t)
 					(((*s_etat_processus).longueur_definitions_chainees
-					= strlen((*s_etat_processus).instruction_courante)
-					+ 4) + 1) * sizeof(unsigned char));
+					= (integer8) strlen((*s_etat_processus)
+					.instruction_courante) + 4) + 1)) * sizeof(unsigned char));
 
 			if (tampon == NULL)
 			{
@@ -432,7 +431,7 @@ recherche_type(struct_processus *s_etat_
 				liberation(s_etat_processus, s_objet);
 				free(element);
 
-				for(i = 0; i < (unsigned long) nombre_elements_convertis; i++)
+				for(i = 0; i < nombre_elements_convertis; i++)
 				{
 					if (depilement(s_etat_processus, &((*s_etat_processus)
 							.l_base_pile), &s_sous_objet) == d_erreur)
@@ -458,7 +457,7 @@ recherche_type(struct_processus *s_etat_
 					if ((*s_sous_objet).type == INT)
 					{
 						(*((struct_complexe16 *) element)).partie_imaginaire =
-								(*((integer8 *) (*s_sous_objet).objet));
+								(real8) (*((integer8 *) (*s_sous_objet).objet));
 					}
 					else if ((*s_sous_objet).type == REL)
 					{
@@ -488,7 +487,8 @@ recherche_type(struct_processus *s_etat_
 						if ((*s_sous_objet).type == INT)
 						{
 							(*((struct_complexe16 *) element)).partie_reelle =
-									(*((integer8 *) (*s_sous_objet).objet));
+									(real8) (*((integer8 *)
+									(*s_sous_objet).objet));
 						}
 						else if ((*s_sous_objet).type == REL)
 						{
@@ -544,7 +544,8 @@ recherche_type(struct_processus *s_etat_
 			{
 				case 'b' :
 				{
-					i = strlen((*s_etat_processus).instruction_courante) - 2;
+					i = ((integer8) strlen((*s_etat_processus)
+							.instruction_courante)) - 2;
 					valeur_base = 1;
 					
 					(*((logical8 *) element)) = 0;
@@ -618,7 +619,8 @@ recherche_type(struct_processus *s_etat_
 
 				case 'o' :
 				{
-					i = strlen((*s_etat_processus).instruction_courante) - 2;
+					i = ((integer8) strlen((*s_etat_processus)
+							.instruction_courante)) - 2;
 					valeur_base = 1;
 					
 					(*((logical8 *) element)) = 0;
@@ -722,7 +724,8 @@ recherche_type(struct_processus *s_etat_
 
 				case 'd' :
 				{
-					i = strlen((*s_etat_processus).instruction_courante) - 2;
+					i = ((integer8) strlen((*s_etat_processus)
+							.instruction_courante)) - 2;
 					valeur_base = 1;
 					
 					(*((logical8 *) element)) = 0;
@@ -836,7 +839,8 @@ recherche_type(struct_processus *s_etat_
 
 				case 'h' :
 				{
-					i = strlen((*s_etat_processus).instruction_courante) - 2;
+					i = ((integer8) strlen((*s_etat_processus)
+							.instruction_courante)) - 2;
 					valeur_base = 1;
 					
 					(*((logical8 *) element)) = 0;
@@ -1089,10 +1093,11 @@ recherche_type(struct_processus *s_etat_
 					sauvegarde_longueur_definitions_chainees =
 							(*s_etat_processus).longueur_definitions_chainees;
 
-					tampon = (unsigned char *) malloc(
+					tampon = (unsigned char *) malloc(((size_t)
 							(((*s_etat_processus).longueur_definitions_chainees
-							= strlen((*s_etat_processus).instruction_courante)
-							+ 4) + 1) * sizeof(unsigned char));
+							= (integer8) strlen((*s_etat_processus)
+							.instruction_courante) + 4) + 1)) *
+							sizeof(unsigned char));
 
 					if (tampon == NULL)
 					{
@@ -1313,22 +1318,23 @@ recherche_type(struct_processus *s_etat_
 					if (drapeau_complexe == d_vrai)
 					{
 						(*((struct_vecteur *) element)).tableau = (void *)
-								((struct_complexe16 *) malloc(nombre_colonnes *
+								((struct_complexe16 *) malloc(((size_t)
+								nombre_colonnes) *
 								sizeof(struct_complexe16)));
 						(*((struct_vecteur *) element)).type = 'C';
 					}
 					else if (drapeau_reel == d_vrai)
 					{
 						(*((struct_vecteur *) element)).tableau = (void *)
-								((real8 *) malloc(nombre_colonnes *
+								((real8 *) malloc(((size_t) nombre_colonnes) *
 								sizeof(real8)));
 						(*((struct_vecteur *) element)).type = 'R';
 					}
 					else
 					{
 						(*((struct_vecteur *) element)).tableau = (void *)
-								((integer8 *) malloc(nombre_colonnes *
-								sizeof(integer8)));
+								((integer8 *) malloc(((size_t) nombre_colonnes)
+								* sizeof(integer8)));
 						(*((struct_vecteur *) element)).type = 'I';
 					}
 
@@ -1501,10 +1507,11 @@ recherche_type(struct_processus *s_etat_
 					sauvegarde_longueur_definitions_chainees =
 							(*s_etat_processus).longueur_definitions_chainees;
 
-					tampon = (unsigned char *) malloc(
+					tampon = (unsigned char *) malloc(((size_t)
 							(((*s_etat_processus).longueur_definitions_chainees
-							= strlen((*s_etat_processus).instruction_courante)
-							+ 4) + 1) * sizeof(unsigned char));
+							= (integer8) strlen((*s_etat_processus)
+							.instruction_courante) + 4) + 1)) *
+							sizeof(unsigned char));
 
 					if (tampon == NULL)
 					{
@@ -1791,7 +1798,7 @@ recherche_type(struct_processus *s_etat_
 						{
 							if (((*((struct_matrice *) element)).tableau =
 									(void **) ((struct_complexe16 **)
-									malloc(nombre_lignes * sizeof(
+									malloc(((size_t) nombre_lignes) * sizeof(
 									struct_complexe16 *)))) == NULL)
 							{
 								liberation(s_etat_processus, s_objet_registre);
@@ -1810,8 +1817,8 @@ recherche_type(struct_processus *s_etat_
 								if ((((*((struct_matrice *)
 										element)).tableau)[i] = (void *)
 										((struct_complexe16 *)
-										malloc(nombre_colonnes * sizeof(
-										struct_complexe16)))) == NULL)
+										malloc(((size_t) nombre_colonnes) *
+										sizeof(struct_complexe16)))) == NULL)
 								{
 									liberation(s_etat_processus,
 											s_objet_registre);
@@ -1828,8 +1835,8 @@ recherche_type(struct_processus *s_etat_
 						else if (drapeau_reel == d_vrai)
 						{
 							if (((*((struct_matrice *) element)).tableau =
-									(void **) ((real8 **)
-									malloc(nombre_lignes * sizeof(real8 *))))
+									(void **) ((real8 **) malloc(((size_t)
+									nombre_lignes) * sizeof(real8 *))))
 									== NULL)
 							{
 								liberation(s_etat_processus, s_objet_registre);
@@ -1847,7 +1854,7 @@ recherche_type(struct_processus *s_etat_
 							{
 								if ((((*((struct_matrice *)element)).tableau)[i]
 										= (void *) ((real8 *)
-										malloc(nombre_colonnes *
+										malloc(((size_t) nombre_colonnes) *
 										sizeof(real8)))) == NULL)
 								{
 									liberation(s_etat_processus,
@@ -1866,7 +1873,7 @@ recherche_type(struct_processus *s_etat_
 						{
 							if (((*((struct_matrice *) element)).tableau =
 									(void **) ((integer8 **)
-									malloc(nombre_lignes *
+									malloc(((size_t) nombre_lignes) *
 									sizeof(integer8 *)))) == NULL)
 							{
 								liberation(s_etat_processus, s_objet_registre);
@@ -1885,7 +1892,7 @@ recherche_type(struct_processus *s_etat_
 								if ((((*((struct_matrice *)
 										element)).tableau)[i] = (void *)
 										((integer8 *)
-										malloc(nombre_colonnes *
+										malloc(((size_t) nombre_colonnes) *
 										sizeof(integer8)))) == NULL)
 								{
 									liberation(s_etat_processus,
@@ -2132,10 +2139,10 @@ recherche_type(struct_processus *s_etat_
 			sauvegarde_longueur_definitions_chainees =
 					(*s_etat_processus).longueur_definitions_chainees;
 
-			tampon = (unsigned char *) malloc(
+			tampon = (unsigned char *) malloc(((size_t)
 					(((*s_etat_processus).longueur_definitions_chainees =
-					strlen((*s_etat_processus).instruction_courante) + 4) + 1)
-					* sizeof(unsigned char));
+					(integer8) strlen((*s_etat_processus)
+					.instruction_courante) + 4) + 1)) * sizeof(unsigned char));
 
 			if (tampon == NULL)
 			{
@@ -2911,10 +2918,11 @@ recherche_type(struct_processus *s_etat_
 				sauvegarde_longueur_definitions_chainees =
 						(*s_etat_processus).longueur_definitions_chainees;
 
-				tampon = (unsigned char *) malloc(
+				tampon = (unsigned char *) malloc(((size_t)
 						(((*s_etat_processus).longueur_definitions_chainees
-						= strlen((*s_etat_processus).instruction_courante)
-						+ 2) + 1) * sizeof(unsigned char));
+						= (integer8) strlen((*s_etat_processus)
+						.instruction_courante) + 2) + 1)) *
+						sizeof(unsigned char));
 
 				if (tampon == NULL)
 				{
@@ -3141,7 +3149,8 @@ recherche_type(struct_processus *s_etat_
 				(*((struct_tableau *) element)).nombre_elements = nombre_lignes;
 
 				if (((*((struct_tableau *) element)).elements =
-						malloc(nombre_lignes * sizeof(struct_objet *))) == NULL)
+						malloc(((size_t) nombre_lignes) *
+						sizeof(struct_objet *))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;