--- rpl/src/allocateur.c	2015/02/01 22:49:27	1.7
+++ rpl/src/allocateur.c	2018/12/24 15:54:56	1.21
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.20
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.30
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -287,7 +287,13 @@ allocation_buffer(struct_processus *s_et
 
 	if (longueur == 0)
 	{
-		(*s_buffer).buffer = NULL;
+		if (((*s_buffer).buffer = sys_malloc(sizeof(struct_buffer *))) == NULL)
+		{
+			(*s_etat_processus).erreur_systeme =
+					d_es_allocation_memoire;
+			return(NULL);
+		}
+
 		classe = -1;
 	}
 	else
@@ -556,4 +562,10 @@ sys_free(void *ptr)
 	return;
 }
 
+void *
+sys_realloc(void *ptr, size_t s)
+{
+	return(realloc(ptr, s));
+}
+
 // vim: ts=4