[Guile-commits] GNU Guile branch, wip-cps-bis, updated. v2.1.0-164-g0cfc827

[Mark H Weaver]

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=0cfc82718ba9a75ca7637cd8cc56b9b306366e25

The branch, wip-cps-bis has been updated
       via  0cfc82718ba9a75ca7637cd8cc56b9b306366e25 (commit)
      from  a156de5e0c02e98290294f961b4a3f6bdd15d3fa (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 0cfc82718ba9a75ca7637cd8cc56b9b306366e25
Author: Mark H Weaver <address@hidden>
Date:   Wed Aug 14 16:37:02 2013 -0400

    Slot indices for free-ref and free-set! don't need allocation.
    
    * module/language/cps/dfg.scm (constant-needs-allocation?): The slot
      indices of 'free-ref' and 'free-set!' don't need allocation.

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

Summary of changes:
 module/language/cps/dfg.scm |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/module/language/cps/dfg.scm b/module/language/cps/dfg.scm
index cd4400c..83b44de 100644
--- a/module/language/cps/dfg.scm
+++ b/module/language/cps/dfg.scm
@@ -215,6 +215,10 @@
            (match (find-exp (lookup-cont* use conts))
              (($ $continue _ ($ $call)) #f)
              (($ $continue _ ($ $values)) #f)
+             (($ $continue _ ($ $primcall 'free-ref (closure slot)))
+              (not (eq? sym slot)))
+             (($ $continue _ ($ $primcall 'free-set! (closure slot value)))
+              (not (eq? sym slot)))
              (($ $continue _ ($ $primcall 'cache-current-module! (mod . _)))
               (eq? sym mod))
              (($ $continue _ ($ $primcall 'cached-toplevel-box _))


hooks/post-receive
-- 
GNU Guile