*** empty log message ***

* empty log message *
56d2031b · Jim Blandy · b0265c64 · 56d2031b
Commit 56d2031b authored Mar 20, 1992 by Jim Blandy
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

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

No files found.
--- a/src/alloc.c
+++ b/src/alloc.c
 /* 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 @@ xrealloc (block, size)
 {
  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;