allocate_buffer): Call VALIDATE_LISP_STORAGE.

11d81650 · Gerd Moellmann · b52758d1 · 11d81650
Commit 11d81650 authored Sep 10, 2001 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

src/alloc.c src/alloc.c +5 -2

No files found.
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -611,8 +611,11 @@ lisp_malloc (nbytes, type)
 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;
 }