--- rpl/src/instructions_t1.c	2011/06/21 15:26:34	1.25
+++ rpl/src/instructions_t1.c	2020/01/10 11:15:48	1.75
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.2
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -59,11 +59,12 @@ instruction_type(struct_processus *s_eta
 		printf("    1: %s, %s, %s, %s, %s, %s,\n"
 				"       %s, %s, %s, %s, %s,\n"
 				"       %s, %s, %s, %s, %s,\n"
-				"       %s, %s, %s, %s\n",
+				"       %s, %s, %s, %s,\n"
+				"       %s, %s, %s, %s\n"
+				"       %s\n",
 				d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
-				d_TAB,
 				d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SLB, d_SCK,
-				d_PRC);
+				d_PRC, d_TAB, d_SQL, d_MTX, d_SPH, d_REC);
 		printf("->  1: %s\n\n", d_INT);
 
 		if ((*s_etat_processus).langue == 'F')
@@ -86,6 +87,10 @@ instruction_type(struct_processus *s_eta
 			printf("    14 : processus\n");
 			printf("    15 : fonction\n");
 			printf("    16 : table\n");
+			printf("    17 : connecteur SQL\n");
+			printf("    18 : mutex\n");
+			printf("    19 : sémaphore\n");
+			printf("    20 : enregistrement\n");
 		}
 		else
 		{
@@ -107,6 +112,10 @@ instruction_type(struct_processus *s_eta
 			printf("    14 : process\n");
 			printf("    15 : function\n");
 			printf("    16 : table\n");
+			printf("    17 : SQL connector\n");
+			printf("    18 : mutex\n");
+			printf("    19 : semaphore\n");
+			printf("    20 : record\n");
 		}
 
 		return;
@@ -211,6 +220,26 @@ instruction_type(struct_processus *s_eta
 	{
 		(*((integer8 *) (*s_objet_resultat).objet)) = 16;
 	}
+	else if ((*s_objet_argument).type == SQL)
+	{
+		(*((integer8 *) (*s_objet_resultat).objet)) = 17;
+	}
+	else if ((*s_objet_argument).type == MTX)
+	{
+		(*((integer8 *) (*s_objet_resultat).objet)) = 18;
+	}
+	else if ((*s_objet_argument).type == SPH)
+	{
+		(*((integer8 *) (*s_objet_resultat).objet)) = 19;
+	}
+	else if ((*s_objet_argument).type == REC)
+	{
+		(*((integer8 *) (*s_objet_resultat).objet)) = 20;
+	}
+	else if ((*s_objet_argument).type == EXT)
+	{
+		(*((integer8 *) (*s_objet_resultat).objet)) = 21;
+	}
 	else
 	{
 		/*
@@ -264,7 +293,7 @@ instruction_then(struct_processus *s_eta
 	unsigned char					*instruction_majuscule;
 	unsigned char					*tampon;
 
-	unsigned long					niveau;
+	integer8						niveau;
 
 	void							(*fonction)();
 
@@ -485,6 +514,7 @@ instruction_then(struct_processus *s_eta
 					}
 
 					if ((instruction_majuscule = conversion_majuscule(
+							s_etat_processus,
 							(*s_etat_processus).instruction_courante)) == NULL)
 					{
 						liberation(s_etat_processus, s_objet);
@@ -513,7 +543,8 @@ instruction_then(struct_processus *s_eta
 									"ELSEIF") == 0))
 							{
 								(*s_etat_processus).position_courante
-										-= (strlen(instruction_majuscule) + 1);
+										-= (integer8) (strlen(
+										instruction_majuscule) + 1);
 								drapeau_fin = d_vrai;
 							}
 							else