[Guile-commits] GNU Guile branch, master, updated. v2.1.0-222-g61c7264

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=61c7264fccd44cf1cd3c7401b6c23dc7c26fa9d8

The branch, master has been updated
       via  61c7264fccd44cf1cd3c7401b6c23dc7c26fa9d8 (commit)
      from  f8fb13ef8c3c491983a90bfcfac1257e93a8186d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 61c7264fccd44cf1cd3c7401b6c23dc7c26fa9d8
Author: Andy Wingo <address@hidden>
Date:   Sat Oct 5 15:57:54 2013 +0200

    Fix slot allocation bug
    
    * module/language/cps/slot-allocation.scm (allocate-slots): Fix
      dead-after-use computation to use the expression's label and not its
      continuation.

-----------------------------------------------------------------------

Summary of changes:
 module/language/cps/slot-allocation.scm |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/slot-allocation.scm 
b/module/language/cps/slot-allocation.scm
index a7b9f74..b446d9e 100644
--- a/module/language/cps/slot-allocation.scm
+++ b/module/language/cps/slot-allocation.scm
@@ -340,8 +340,9 @@ are comparable with eqv?.  A tmp slot may be used."
 
     (define (visit-exp exp label k live-set)
       (define (use sym live-set)
-        (if (and (lookup-slot sym allocation) (dead-after-use? sym k dfg))
-            (dead sym k live-set)
+        (if (and (and=> (lookup-slot sym allocation) (cut > <> nargs))
+                 (dead-after-use? sym label dfg))
+            (dead sym label live-set)
             live-set))
 
       (match exp


hooks/post-receive
-- 
GNU Guile