From ed1aadce8721cb23c38e6daf28cbc5620e114067 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 1 Sep 2000 13:19:35 -0700
Subject: [PATCH] inherit_list fixed [bug 153]
Rev: src/testsuite.in:1.325
---
src/testsuite.in | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 3e2b1e633c..b210639168 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.324 2000/08/27 13:50:37 grubba Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.325 2000/09/01 20:19:35 hubbe Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -626,12 +626,15 @@ void low_generate(int depth,
"mixed Q() { return "+acc+"();}\n"
"int main() { trace(9); werror(\"%O\\n\","+acc+"()); }\n"
;
+
+ mixed tmp;
mixed err=catch {
- mixed tmp=compile_string(test)();
+ tmp=compile_string(test)();
res=tmp->Q();
if(res != ans)
throw("Test failed");
};
+ mixed x=Program.inherit_list(object_program(tmp));
if(err)
{
errors++;
--
GitLab