--- rpl/src/instructions_t1.c	2010/08/26 19:07:40	1.17
+++ rpl/src/instructions_t1.c	2014/07/17 08:07:24	1.53
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.19
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -59,11 +59,11 @@ 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\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);
 		printf("->  1: %s\n\n", d_INT);
 
 		if ((*s_etat_processus).langue == 'F')
@@ -86,6 +86,9 @@ 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");
 		}
 		else
 		{
@@ -107,6 +110,9 @@ 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");
 		}
 
 		return;
@@ -211,6 +217,18 @@ 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
 	{
 		/*
@@ -264,7 +282,7 @@ instruction_then(struct_processus *s_eta
 	unsigned char					*instruction_majuscule;
 	unsigned char					*tampon;
 
-	unsigned long					niveau;
+	integer8						niveau;
 
 	void							(*fonction)();
 
@@ -513,7 +531,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