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