--- rpl/src/analyse.c	2010/05/05 21:19:24	1.14
+++ rpl/src/analyse.c	2010/07/02 08:40:27	1.21
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.15
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -741,6 +741,7 @@ initialisation_instructions(struct_proce
 	INSTRUCTION("LOGGER", instruction_logger);
 	INSTRUCTION("MCLRIN", instruction_mclrin);
 	INSTRUCTION("NRPROC", instruction_nrproc);
+	INSTRUCTION("PROCID", instruction_procid);
 	INSTRUCTION("PROMPT", instruction_prompt);
 	INSTRUCTION("RCLSWI", instruction_rclswi);
 	INSTRUCTION("RECALL", instruction_recall);
@@ -793,6 +794,7 @@ initialisation_instructions(struct_proce
 	//f(x,y)=fnct complexe évaluée sur la grille (x,y) et affichée comme une
 	//fonction paramétrique.
 	INSTRUCTION("INQUIRE", instruction_inquire);
+	INSTRUCTION("MEMLOCK", instruction_memlock);
 	INSTRUCTION("MTXLOCK", instruction_mtxlock);
 	INSTRUCTION("PERSIST", instruction_persist);
 	INSTRUCTION("PLOTTER", instruction_plotter);
@@ -839,6 +841,7 @@ initialisation_instructions(struct_proce
 	INSTRUCTION("DROPCNTXT", instruction_dropcntxt);
 	INSTRUCTION("EXTERNALS", instruction_externals);
 	INSTRUCTION("HISTOGRAM", instruction_histogram);
+	INSTRUCTION("MEMUNLOCK", instruction_memunlock);
 	INSTRUCTION("MTXSTATUS", instruction_mtxstatus);
 	INSTRUCTION("MTXUNLOCK", instruction_mtxunlock);
 	INSTRUCTION("PARAMETER", instruction_parameter);
@@ -878,7 +881,7 @@ initialisation_instructions(struct_proce
 }
 
 
-inline void *
+extern inline void *
 analyse_instruction(struct_processus *s_etat_processus, unsigned char *ptr)
 {
 	int								pointeur;
@@ -1229,17 +1232,17 @@ analyse(struct_processus *s_etat_process
 				((*s_etat_processus).erreur_systeme != d_es) ||
 				((*s_etat_processus).exception != d_ep))
 		{
-			if ((*s_etat_processus).instruction_derniere_erreur != NULL)
-			{
-				free((*s_etat_processus).instruction_derniere_erreur);
-				(*s_etat_processus).instruction_derniere_erreur = NULL;
-			}
-
 			(*s_etat_processus).niveau_derniere_erreur =
 					(*s_etat_processus).niveau_courant;
 
 			if ((*s_etat_processus).mode_execution_programme == 'Y')
 			{
+				if ((*s_etat_processus).instruction_derniere_erreur != NULL)
+				{
+					free((*s_etat_processus).instruction_derniere_erreur);
+					(*s_etat_processus).instruction_derniere_erreur = NULL;
+				}
+
 				if ((*s_etat_processus).instruction_courante == NULL)
 				{
 					if (((*s_etat_processus).instruction_derniere_erreur =
@@ -1271,11 +1274,22 @@ analyse(struct_processus *s_etat_process
 			}
 			else
 			{
-				if (((*s_etat_processus).instruction_derniere_erreur =
-						formateur(s_etat_processus, 0,
-						(*s_etat_processus).objet_courant)) == NULL)
+				if ((*s_etat_processus).objet_courant != NULL)
 				{
-					return;
+					if ((*s_etat_processus).instruction_derniere_erreur != NULL)
+					{
+						free((*s_etat_processus).instruction_derniere_erreur);
+						(*s_etat_processus).instruction_derniere_erreur = NULL;
+					}
+
+					if (((*s_etat_processus).instruction_derniere_erreur =
+							formateur(s_etat_processus, 0,
+							(*s_etat_processus).objet_courant)) == NULL)
+					{
+						return;
+					}
+
+					(*s_etat_processus).objet_courant = NULL;
 				}
 			}
 		}