From 05533f6244addf59caf3bcd2cd2e6e084da7ce62 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 6 Feb 1997 17:06:12 -0800
Subject: [PATCH] bugfixes
Rev: src/las.c:1.18
---
src/las.c | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/las.c b/src/las.c
index 1d062f8d4c..6ea1d1e1a6 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.17 1997/01/31 23:07:16 hubbe Exp $");
+RCSID("$Id: las.c,v 1.18 1997/02/07 01:06:12 hubbe Exp $");
#include "language.h"
#include "interpret.h"
@@ -470,10 +470,12 @@ void resolv_constant(node *n)
case F_LOCAL:
yyerror("Expected constant, got local variable");
push_int(0);
+ break;
case F_GLOBAL:
yyerror("Expected constant, got global variable");
push_int(0);
+ break;
}
}
}
@@ -492,7 +494,7 @@ node *index_node(node *n, struct pike_string * id)
UNSET_ONERROR(tmp);
yyerror("Couldn't index module.");
- push_svalue(0);
+ push_int(0);
}else{
resolv_constant(n);
push_string(id);
@@ -652,6 +654,7 @@ node *copy_node(node *n)
int is_const(node *n)
{
+ if(!n) return 1;
return !(n->tree_info & (OPT_SIDE_EFFECT |
OPT_NOT_CONST |
OPT_ASSIGNMENT |
--
GitLab