From 4532fdde327e5e9b45735e8fe8e44d2601cb2dcc Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 13 Oct 2003 18:45:03 +0000
Subject: [PATCH] (lisp_align_malloc): If BASE is 0, call memory_full.

---
 src/alloc.c | 5 +++++
 1 file changed, 5 insertions(+)

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);
-- 
2.39.2