[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 05/07: Build CPS2 with transient intmaps
From: |
Andy Wingo |
Subject: |
[Guile-commits] 05/07: Build CPS2 with transient intmaps |
Date: |
Mon, 11 May 2015 20:46:12 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit 3ab3cdecdaf70944ec84dfd2fc94169259a0cdc6
Author: Andy Wingo <address@hidden>
Date: Mon May 11 22:42:50 2015 +0200
Build CPS2 with transient intmaps
* module/language/tree-il/compile-cps2.scm (with-cps)
(cps-convert/thunk): Use transient intmaps.
---
module/language/tree-il/compile-cps2.scm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/module/language/tree-il/compile-cps2.scm
b/module/language/tree-il/compile-cps2.scm
index f4cfb29..aa3c4d2 100644
--- a/module/language/tree-il/compile-cps2.scm
+++ b/module/language/tree-il/compile-cps2.scm
@@ -144,7 +144,7 @@
(with-cps cps clause ...)))
((_ cps (letk label cont) clause ...)
(let-fresh (label) ()
- (with-cps (intmap-add cps label (build-cont cont))
+ (with-cps (intmap-add! cps label (build-cont cont))
clause ...)))
((_ cps (letv v ...) clause ...)
(let-fresh () (v ...)
@@ -759,7 +759,7 @@ integer."
($ ((lambda (cps)
(let ((init (build-cont
($kfun (tree-il-src exp) '() init ktail kclause))))
- (with-cps (intmap-add cps kinit init)
+ (with-cps (persistent-intmap (intmap-add! cps kinit init))
kinit))))))))
(define *comp-module* (make-fluid))
- [Guile-commits] branch master updated (d99fedc -> b31af02), Andy Wingo, 2015/05/11
- [Guile-commits] 01/07: Fix intset-add! transient bug, Andy Wingo, 2015/05/11
- [Guile-commits] 02/07: Fix another intset transient bug, Andy Wingo, 2015/05/11
- [Guile-commits] 03/07: compute-dom-edges returns a persistent intmap, Andy Wingo, 2015/05/11
- [Guile-commits] 04/07: Tree-IL -> CPS2 -> CPS, Andy Wingo, 2015/05/11
- [Guile-commits] 06/07: Adapt return arities in Tree-IL -> CPS2 conversion, Andy Wingo, 2015/05/11
- [Guile-commits] 05/07: Build CPS2 with transient intmaps,
Andy Wingo <=
- [Guile-commits] 07/07: Consolidate CPS2 above CPS in the compiler, Andy Wingo, 2015/05/11