--- rpl/src/rpl.h	2012/12/17 21:22:44	1.187
+++ rpl/src/rpl.h	2013/02/10 16:21:44	1.192
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
+  RPL/2 (R) version 4.1.12
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -443,11 +443,12 @@ union semun
 
 	__EXTERN__ pthread_mutex_t		mutex_liste_threads
 											__STATIC_MUTEX_INITIALIZATION__;
-	__EXTERN__ pthread_mutex_t		mutex_liste_variables_partagees
-											__STATIC_MUTEX_INITIALIZATION__;
 	__EXTERN__ pthread_mutex_t		mutex_gestionnaires_signaux_atomique
 											__STATIC_MUTEX_INITIALIZATION__;
+	__EXTERN__ pthread_mutex_t		mutex_creation_variable_partagee
+											__STATIC_MUTEX_INITIALIZATION__;
 	__EXTERN__ pthread_mutex_t		mutex_sections_critiques;
+	__EXTERN__ pthread_mutex_t		mutex_liste_variables_partagees;
 
 	__EXTERN__ sem_t __PTR__		semaphore_gestionnaires_signaux;
 
@@ -1226,6 +1227,7 @@ typedef struct connecteur_sql
 #		ifdef POSTGRESQL_SUPPORT
 			PGconn				*postgresql;
 #		endif
+		sqlite3					*sqlite;
 	} descripteur;
 } struct_connecteur_sql;
 #endif
@@ -1239,6 +1241,10 @@ typedef struct connecteur_sql
 			"POSTGRESQL") == 0) \
 		postgresqlclose((*((struct_connecteur_sql *) (*s_objet).objet)) \
 				.descripteur); \
+	else if (strcmp((*((struct_connecteur_sql *) (*s_objet).objet)).type, \
+			"SQLITE") == 0) \
+		sqlite3_close((*((struct_connecteur_sql *) (*s_objet).objet)) \
+				.descripteur.sqlite); \
 	else \
 		BUG(1, uprintf("SQL type '%s' not allowed!", \
 				(*((struct_connecteur_sql *) (*s_objet).objet)).type));