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 bf9fcad..7ef314d 100644 (file)
--- 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);
 }