# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 701071276 0
# Node ID 1a6483439accd88f22dd96bace58629d9f38871f
# Parent  03fd51103bc32da2c11738a79f92a8e05b2ac63c
*** empty log message ***

diff -r 03fd51103bc3 -r 1a6483439acc src/alloc.c
--- a/src/alloc.c	Wed Mar 18 23:58:40 1992 +0000
+++ b/src/alloc.c	Fri Mar 20 06:01:16 1992 +0000
@@ -1,5 +1,5 @@
 /* Storage allocation and gc for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1988, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -163,7 +163,12 @@
 {
   register long *val;
 
-  val = (long *) realloc (block, size);
+  /* We must call malloc explicitly when BLOCK is 0, since some
+     reallocs don't do this.  */
+  if (! block)
+    val = (long *) malloc (size);
+  ese
+    val = (long *) realloc (block, size);
 
   if (!val && size) memory_full ();
   return val;