--- rpl/src/types.c	2014/07/24 14:38:44	1.67
+++ rpl/src/types.c	2014/07/26 09:58:02	1.68
@@ -38,8 +38,6 @@
 void
 recherche_type(struct_processus *s_etat_processus)
 {
-	enum t_type					registre_type;
-
 	integer8					i;
 	integer8					j;
 	integer8					niveau;
@@ -276,6 +274,7 @@ recherche_type(struct_processus *s_etat_
 			element = (void *) ((struct_complexe16 *) malloc(
 					sizeof(struct_complexe16)));
 
+			if (element == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				(*s_etat_processus).traitement_interruptible =
@@ -1084,21 +1083,6 @@ recherche_type(struct_processus *s_etat_
 
 				case d_faux :
 				{
-					registre_type = (*s_etat_processus).type_en_cours;
-
-					if (drapeau_complexe == d_vrai)
-					{
-						(*s_etat_processus).type_en_cours = VCX;
-					}
-					else if (drapeau_reel == d_vrai)
-					{
-						(*s_etat_processus).type_en_cours = VRL;
-					}
-					else
-					{
-						(*s_etat_processus).type_en_cours = VIN;
-					}
-
 
 /*
 -- Sauvegarde des paramètres du processus pour analyser le vecteur -------------
@@ -1507,7 +1491,6 @@ recherche_type(struct_processus *s_etat_
 						(*s_objet).type = VIN;
 					}
 
-					(*s_etat_processus).type_en_cours = registre_type;
 					break;
 				}
 
@@ -1519,21 +1502,6 @@ recherche_type(struct_processus *s_etat_
 
 				case d_vrai :
 				{
-					registre_type = (*s_etat_processus).type_en_cours;
-
-					if (drapeau_complexe == d_vrai)
-					{
-						(*s_etat_processus).type_en_cours = MCX;
-					}
-					else if (drapeau_reel == d_vrai)
-					{
-						(*s_etat_processus).type_en_cours = MRL;
-					}
-					else
-					{
-						(*s_etat_processus).type_en_cours = MIN;
-					}
-
 					nombre_lignes--;
 
 					sauvegarde_longueur_definitions_chainees =
@@ -2153,7 +2121,6 @@ recherche_type(struct_processus *s_etat_
 						fflush(stdout);
 					}
 
-					(*s_etat_processus).type_en_cours = registre_type;
 					break;
 				}
 			}
@@ -2169,9 +2136,6 @@ recherche_type(struct_processus *s_etat_
 
 		case '{' :
 		{
-			registre_type = (*s_etat_processus).type_en_cours;
-			(*s_etat_processus).type_en_cours = LST;
-
 			sauvegarde_longueur_definitions_chainees =
 					(*s_etat_processus).longueur_definitions_chainees;
 
@@ -2553,7 +2517,6 @@ recherche_type(struct_processus *s_etat_
 			(*s_objet).type = LST;
 			element = (void *) l_element_courant;
 
-			(*s_etat_processus).type_en_cours = registre_type;
 			break;
 		}
 
@@ -2948,8 +2911,6 @@ recherche_type(struct_processus *s_etat_
 
 		case '<' :
 		{
-			registre_type = (*s_etat_processus).type_en_cours;
-
 			if ((*s_etat_processus).instruction_courante[1] == '[')
 			{
 				// Tableau
@@ -3284,7 +3245,6 @@ recherche_type(struct_processus *s_etat_
 				}
 			}
 
-			(*s_etat_processus).type_en_cours = registre_type;
 			break;
 		}