From: keie <none@none>
Date: Mon, 21 Jan 1985 23:48:06 +0000 (+0000)
Subject: Added test for outcome of request for more core.
X-Git-Tag: release-5-5~5739
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5fc9fdf795796d3cf11a7cc76b0431ba1de92659;p=ack.git

Added test for outcome of request for more core.
If no more core is available a fatal error message is produced.
---

diff --git a/lang/basic/src.old/util.c b/lang/basic/src.old/util.c
index bf9fcad36..7ef314dc2 100644
--- a/lang/basic/src.old/util.c
+++ b/lang/basic/src.old/util.c
@@ -66,6 +66,7 @@ unsigned length;
 	char *s,*c;
 	extern char *malloc() ;
 	s=c= malloc(length);
+	if ( !s ) fatal("Out of memory") ;
 	while(length--)*c++ =0;
 	return(s);
 }