From 9669e837f444bf82e0f613001fc6f215a06483bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 27 Feb 1997 00:09:46 -0800
Subject: [PATCH] core-dumping bug fixed
Rev: src/las.c:1.22
---
src/las.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/las.c b/src/las.c
index 5e66d7fd3d..84e0681789 100644
--- a/src/las.c
+++ b/src/las.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: las.c,v 1.21 1997/02/18 05:13:35 hubbe Exp $");
+RCSID("$Id: las.c,v 1.22 1997/02/27 08:09:46 hubbe Exp $");
#include "language.h"
#include "interpret.h"
@@ -1942,16 +1942,16 @@ static struct svalue *is_stupid_func(node *n,
break;
}
- if(n->token != F_RETURN) return 0;
+ if(!n || n->token != F_RETURN) return 0;
n=CAR(n);
- if(n->token != F_APPLY) return 0;
+ if(!n || n->token != F_APPLY) return 0;
tmp=stupid_args(CDR(n),0,vargs);
if(!(vargs?tmp==65535:tmp==args)) return 0;
n=CAR(n);
- if(n->token != F_CONSTANT) return 0;
+ if(!n || n->token != F_CONSTANT) return 0;
return &n->u.sval;
}
--
GitLab