From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Oct 2003 18:45:03 +0000 (+0000)
Subject: (lisp_align_malloc): If BASE is 0, call memory_full.
X-Git-Tag: ttn-vms-21-2-B4~8550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4532fdde327e5e9b45735e8fe8e44d2601cb2dcc;p=emacs.git

(lisp_align_malloc): If BASE is 0, call memory_full.
---

diff --git a/src/alloc.c b/src/alloc.c
index 56a4c0b6ca0..a001413cb52 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -756,6 +756,11 @@ lisp_align_malloc (nbytes, type)
 #else
       base = malloc (ABLOCKS_BYTES);
       abase = ALIGN (base, BLOCK_ALIGN);
+      if (base == 0)
+	{
+	  UNBLOCK_INPUT;
+	  memory_full ();
+	}
 #endif
 
       aligned = (base == abase);