guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] 16/25: Re-add compiler backend support for immutable vec


From: Andy Wingo
Subject: [Guile-commits] 16/25: Re-add compiler backend support for immutable vectors
Date: Mon, 8 Jan 2018 09:25:04 -0500 (EST)

wingo pushed a commit to branch master
in repository guile.

commit 8ed5d9f2372a1f7c874703c8589b708b1e6c3d80
Author: Andy Wingo <address@hidden>
Date:   Sun Jan 7 17:37:16 2018 +0100

    Re-add compiler backend support for immutable vectors
    
    * module/language/cps/compile-bytecode.scm (compile-function): Add cases
      for mutable-vector? and immutable-vector?.
    * module/system/vm/assembler.scm: Export emit-mutable-vector? and
      emit-immutable-vector?.
---
 module/language/cps/compile-bytecode.scm | 2 ++
 module/system/vm/assembler.scm           | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/module/language/cps/compile-bytecode.scm 
b/module/language/cps/compile-bytecode.scm
index ec93eaa..5978492 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -479,6 +479,8 @@
         (#('symbol? #f (a)) (unary emit-symbol? a))
         (#('variable? #f (a)) (unary emit-variable? a))
         (#('vector? #f (a)) (unary emit-vector? a))
+        (#('mutable-vector? #f (a)) (unary emit-mutable-vector? a))
+        (#('immutable-vector? #f (a)) (unary emit-immutable-vector? a))
         (#('string? #f (a)) (unary emit-string? a))
         (#('heap-number? #f (a)) (unary emit-heap-number? a))
         (#('hash-table? #f (a)) (unary emit-hash-table? a))
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 83d5b11..46c0ed3 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -113,6 +113,8 @@
             emit-symbol?
             emit-variable?
             emit-vector?
+            emit-mutable-vector?
+            emit-immutable-vector?
             emit-weak-vector?
             emit-string?
             emit-heap-number?



reply via email to

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