--- rpl/src/instructions_e1.c	2010/05/24 10:58:32	1.8
+++ rpl/src/instructions_e1.c	2015/01/27 14:18:06	1.54
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.20
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -121,6 +121,7 @@ instruction_eval(struct_processus *s_eta
 			sf(s_etat_processus, 31);
 		}
 
+		liberation(s_etat_processus, s_objet);
 		return;
 	}
 
@@ -185,10 +186,12 @@ instruction_eval(struct_processus *s_eta
 void
 instruction_end(struct_processus *s_etat_processus)
 {
-	struct_objet					*s_objet;
-
 	logical1						condition;
 
+	struct_liste_pile_systeme		*l_element_courant;
+
+	struct_objet					*s_objet;
+
 	(*s_etat_processus).erreur_execution = d_ex;
 	
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -227,6 +230,10 @@ instruction_end(struct_processus *s_etat
 		printf("        (expression 2)]\n");
 		printf("    END\n\n");
 
+		printf("    CRITICAL\n");
+		printf("        (expression)\n");
+		printf("    END\n\n");
+
 		printf("    DO\n");
 		printf("        (expression)\n");
 		printf("    UNTIL\n");
@@ -262,6 +269,12 @@ instruction_end(struct_processus *s_etat
 		return;
 	}
 
+	if ((*s_etat_processus).l_base_pile_systeme == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
+	}
+
 	if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'I')
 			|| ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'J'))
 	{
@@ -366,21 +379,72 @@ instruction_end(struct_processus *s_etat
 	}
 	else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'C')
 	{
-		if ((*(*s_etat_processus).l_base_pile_systeme).clause != 'Q')
+		depilement_pile_systeme(s_etat_processus);
+
+		if ((*s_etat_processus).erreur_systeme != d_es)
 		{
-			depilement_pile_systeme(s_etat_processus);
+			return;
+		}
+	}
+	else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'K')
+	{
+		l_element_courant = (*(*s_etat_processus).l_base_pile_systeme).suivant;
 
-			if ((*s_etat_processus).erreur_systeme != d_es)
+		while(l_element_courant != NULL)
+		{
+			switch((*l_element_courant).clause)
 			{
-				return;
+				case 'K' :
+				case 'Q' :
+				case 'C' :
+				{
+					if ((*l_element_courant).clause == 'Q')
+					{
+						(*l_element_courant).clause = 'C';
+					}
+					else
+					{
+						(*l_element_courant).clause = (*(*s_etat_processus)
+								.l_base_pile_systeme).clause;
+					}
+
+					l_element_courant = NULL;
+					break;
+				}
+
+				default :
+				{
+					l_element_courant = (*l_element_courant).suivant;
+					break;
+				}
 			}
 		}
-		else
+
+		depilement_pile_systeme(s_etat_processus);
+
+		if ((*s_etat_processus).erreur_systeme != d_es)
+		{
+			return;
+		}
+	}
+	else if ((*(*s_etat_processus).l_base_pile_systeme).type_cloture == 'Q')
+	{
+		depilement_pile_systeme(s_etat_processus);
+
+		if ((*s_etat_processus).erreur_systeme != d_es)
 		{
-			(*(*s_etat_processus).l_base_pile_systeme).clause = 'C';
+			return;
 		}
+
+		if (pthread_mutex_unlock(&mutex_sections_critiques) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_processus;
+			return;
+		}
+
+		(*s_etat_processus).sections_critiques--;
 	}
-	else 
+	else
 	{
 		(*s_etat_processus).erreur_systeme = d_es_end_incoherent;
 	}
@@ -412,7 +476,7 @@ instruction_else(struct_processus *s_eta
 	unsigned char				*instruction_majuscule;
 	unsigned char				*tampon;
 
-	unsigned long				niveau;
+	integer8					niveau;
 
 	void						(*fonction)();
 
@@ -480,6 +544,7 @@ instruction_else(struct_processus *s_eta
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);
@@ -493,8 +558,9 @@ instruction_else(struct_processus *s_eta
 				{
 					if (strcmp(instruction_majuscule, "END") == 0)
 					{
-						(*s_etat_processus).position_courante -= (strlen(
-								instruction_majuscule) + 1);
+						(*s_etat_processus).position_courante -=
+								(((integer8) strlen(
+								instruction_majuscule)) + 1);
 						drapeau_fin = d_vrai;
 					}
 					else
@@ -691,7 +757,7 @@ instruction_elseif(struct_processus *s_e
 	unsigned char				*instruction_majuscule;
 	unsigned char				*tampon;
 
-	unsigned long				niveau;
+	integer8					niveau;
 
 	void						(*fonction)();
 
@@ -770,6 +836,7 @@ instruction_elseif(struct_processus *s_e
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);
@@ -783,8 +850,9 @@ instruction_elseif(struct_processus *s_e
 				{
 					if (strcmp(instruction_majuscule, "END") == 0)
 					{
-						(*s_etat_processus).position_courante -= (strlen(
-								instruction_majuscule) + 1);
+						(*s_etat_processus).position_courante -=
+								(((integer8) strlen(
+								instruction_majuscule)) + 1);
 						drapeau_fin = d_vrai;
 					}
 					else
@@ -1132,7 +1200,7 @@ instruction_eng(struct_processus *s_etat
 				return;
 			}
 
-			(*((logical8 *) (*s_objet).objet)) =
+			(*((logical8 *) (*s_objet).objet)) = (logical8)
 					(*((integer8 *) (*s_objet_argument).objet));
 
 			i43 = test_cfsf(s_etat_processus, 43);
@@ -1170,15 +1238,15 @@ instruction_eng(struct_processus *s_etat
 			{
 				if (valeur_binaire[i] == '0')
 				{
-					cf(s_etat_processus, j++);
+					cf(s_etat_processus, (unsigned char) j++);
 				}
 				else
 				{
-					sf(s_etat_processus, j++);
+					sf(s_etat_processus, (unsigned char) j++);
 				}
 			}
 
-			for(; j <= 56; cf(s_etat_processus, j++));
+			for(; j <= 56; cf(s_etat_processus, (unsigned char) j++));
 
 			sf(s_etat_processus, 49);
 			sf(s_etat_processus, 50);