From 86bea9ab7759cfbda1065d6d57a146669c680b5c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 31 Jan 1997 15:07:16 -0800
Subject: [PATCH] fixed a core-dumping bug in zzap_try_optimize
Rev: src/las.c:1.17
---
src/las.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/las.c b/src/las.c
index 991a401d3b..1d062f8d4c 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.16 1997/01/30 03:51:34 hubbe Exp $");
+RCSID("$Id: las.c,v 1.17 1997/01/31 23:07:16 hubbe Exp $");
#include "language.h"
#include "interpret.h"
@@ -1312,6 +1312,7 @@ void fix_type_field(node *n)
static void zapp_try_optimize(node *n)
{
+ if(!n) return;
n->node_info &=~ OPT_TRY_OPTIMIZE;
n->tree_info &=~ OPT_TRY_OPTIMIZE;
if(car_is_node(n)) zapp_try_optimize(CAR(n));
--
GitLab