From 571f328a062bb0cf50376c28e2ba93bf6b315bf6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Tue, 3 Oct 2000 14:16:51 +0200
Subject: [PATCH] Fixed type propagation bug. ( ({ "x" })*3 )*"y" now doesn't
cause a compilation error any more.
Rev: src/treeopt.in:1.49
---
src/treeopt.in | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/src/treeopt.in b/src/treeopt.in
index 9a2ec7df97..4aafead187 100644
--- a/src/treeopt.in
+++ b/src/treeopt.in
@@ -1,6 +1,6 @@
// -*- c -*-
//
-// $Id: treeopt.in,v 1.48 2000/10/02 23:00:21 grubba Exp $
+// $Id: treeopt.in,v 1.49 2000/10/03 12:16:51 grubba Exp $
//
// The tree optimizer
//
@@ -77,6 +77,8 @@ F_APPLY(0 = F_CONSTANT
n->hash = hash_node(n);
n->node_info |= OPT_DEFROSTED;
#endif /* SHARED_NODES */
+ _CDR(n)->parent = NULL;
+ fix_type_field(_CDR(n));
free_node(arglist);
#ifdef PIKE_DEBUG
if (l_flag > 4) {
@@ -108,6 +110,8 @@ F_APPLY(0 = F_CONSTANT
n->hash = hash_node(n);
n->node_info |= OPT_DEFROSTED;
#endif /* SHARED_NODES */
+ _CDR(n)->parent = NULL;
+ fix_type_field(_CDR(n));
free_node(arglist);
#ifdef PIKE_DEBUG
if (l_flag > 4) {
@@ -141,6 +145,8 @@ F_APPLY(0 = F_CONSTANT
n->hash = hash_node(n);
n->node_info |= OPT_DEFROSTED;
#endif /* SHARED_NODES */
+ _CDR(n)->parent = NULL;
+ fix_type_field(_CDR(n));
free_node(arglist);
#ifdef PIKE_DEBUG
if (l_flag > 4) {
--
GitLab