Re: [Chicken-hackers] [PATCH] mark let-bound variables as inline-transient (resubmission)

[Felix]

From: Felix <address@hidden>
Subject: [PATCH] mark let-bound variables as inline-transient (resubmission)
Date: Tue, 04 Oct 2011 08:11:20 +0200 (CEST)

> Hello!
> 
> 
> Attached once more a patch to fix a bug with let-bound variables
> introduced during inlining.
> 

Here is a better one that actually has a commit message.


cheers,
felix

commit 5898348a5c17a3d0380ed7ec814aca2455ed0789
Author: felix <address@hidden>
Date:   Tue Oct 4 08:13:00 2011 +0200

    Mark let-bound variables as inline-transient, if introduced during 
inlining. If this is not done, then subsequent optimization in the same pass 
will remove the bound variable if the binding has no side-effects

diff --git a/support.scm b/support.scm
index cb95c0d..d2444b8 100644
--- a/support.scm
+++ b/support.scm
@@ -673,6 +673,7 @@
                  (val1 (walk (first subs) rl))
                  (a (gensym v))
                  (rl2 (alist-cons v a rl)) )
+            (put! db a 'inline-transient #t)
             (make-node 
              'let (list a)
              (list val1 (walk (second subs) rl2)))) ]