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

1 files changed, 5 insertions, 0 deletions

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