--- rpl/src/gestion_objets.c	2015/11/26 11:44:31	1.125
+++ rpl/src/gestion_objets.c	2017/06/29 12:33:34	1.132
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.24
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.27
+  Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -343,6 +343,8 @@ allocation(struct_processus *s_etat_proc
 	}
 
 	(*s_objet).type = type;
+	(*s_objet).extension_type = 0;
+	(*s_objet).descripteur_bibliotheque = NULL;
 
 	switch(type)
 	{
@@ -434,6 +436,12 @@ allocation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case EXT :
+		{
+			// Aucune allocation
+			break;
+		}
+
 		case FCT :
 		{
 			if ((*s_etat_processus).pointeur_fct > 0)
@@ -950,6 +958,19 @@ liberation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case EXT :
+		{
+			if (decrementation_atomique(s_objet) > 0)
+			{
+				return;
+			}
+
+			BUG((*s_objet).descripteur_bibliotheque == NULL,
+					pthread_mutex_unlock(&((*s_objet).mutex)),
+					printf("(*s_objet).liberation==NULL\n"));
+			break;
+		}
+
 		case FCH :
 		{
 			if (decrementation_atomique(s_objet) > 0)