[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-222-g61c7264
Date: Sat, 05 Oct 2013 14:01:34 +0000

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".

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


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 
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)
       (match exp

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]