# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1066070703 0
# Node ID 1bbf3f5668791ea65dd8bf4a229a3c00f0f257bd
# Parent  a832ae35953207d749c24de7b92b10d7bef4e559
(lisp_align_malloc): If BASE is 0, call memory_full.

diff -r a832ae359532 -r 1bbf3f566879 src/alloc.c
--- a/src/alloc.c	Mon Oct 13 18:44:22 2003 +0000
+++ b/src/alloc.c	Mon Oct 13 18:45:03 2003 +0000
@@ -756,6 +756,11 @@
 #else
       base = malloc (ABLOCKS_BYTES);
       abase = ALIGN (base, BLOCK_ALIGN);
+      if (base == 0)
+	{
+	  UNBLOCK_INPUT;
+	  memory_full ();
+	}
 #endif
 
       aligned = (base == abase);