From 6509695947bf163ddac09b9c21696c760fd940a2 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 1 Aug 2005 21:53:00 +0000
Subject: [PATCH] Exit if malloc fails in make_var.  From Carl Shapiro.

---
 lisp/vars.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/vars.c b/lisp/vars.c
index e2c1df04b..b43396b4a 100644
--- a/lisp/vars.c
+++ b/lisp/vars.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.3 2004/07/08 17:49:04 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.4 2005/08/01 21:53:00 rtoy Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <stdlib.h>
@@ -103,10 +103,16 @@ lispobj obj;
 
 static struct var *make_var(char *name, boolean perm)
 {
-    struct var *var = (struct var *)malloc(sizeof(struct var));
+    struct var *var;
     char buffer[256];
     int index;
 
+    var = (struct var *)malloc(sizeof(struct var));
+    if (var == NULL) {
+      perror("malloc");
+      exit(1);
+    }
+    
     if (name == NULL) {
         sprintf(buffer, "%d", tempcntr++);
         name = buffer;
-- 
GitLab