# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1000129281 0
# Node ID fcb8e48eec89017ba6a1c0fe6c48264ac7033688
# Parent  377e5f02169aea4606ec60c742e53923c3f7fb6f
allocate_buffer): Call VALIDATE_LISP_STORAGE.

diff -r 377e5f02169a -r fcb8e48eec89 src/alloc.c
--- a/src/alloc.c	Mon Sep 10 13:31:04 2001 +0000
+++ b/src/alloc.c	Mon Sep 10 13:41:21 2001 +0000
@@ -611,8 +611,11 @@
 struct buffer *
 allocate_buffer ()
 {
-  return (struct buffer *) lisp_malloc (sizeof (struct buffer),
-					MEM_TYPE_BUFFER);
+  struct buffer *b 
+    = (struct buffer *) lisp_malloc (sizeof (struct buffer),
+				     MEM_TYPE_BUFFER);
+  VALIDATE_LISP_STORAGE (b, sizeof *b);
+  return b;
 }