mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Re-add compiler backend support for immutable vectors

Browse source 
* 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?.
This commit is contained in:
Andy Wingo 2018-01-07 17:37:16 +01:00
parent 9b3c4612bd
commit 8ed5d9f237
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/compile-bytecode.scm
View file

@ -479,6 +479,8 @@
(#('symbol? #f (a)) (unary emit-symbol? a)) (#('symbol? #f (a)) (unary emit-symbol? a))
(#('variable? #f (a)) (unary emit-variable? a)) (#('variable? #f (a)) (unary emit-variable? a))
(#('vector? #f (a)) (unary emit-vector? 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)) (#('string? #f (a)) (unary emit-string? a))
(#('heap-number? #f (a)) (unary emit-heap-number? a)) (#('heap-number? #f (a)) (unary emit-heap-number? a))
(#('hash-table? #f (a)) (unary emit-hash-table? a)) (#('hash-table? #f (a)) (unary emit-hash-table? a))

2
module/system/vm/assembler.scm
View file

@ -113,6 +113,8 @@
emit-symbol? emit-symbol?
emit-variable? emit-variable?
emit-vector? emit-vector?
emit-mutable-vector?
emit-immutable-vector?
emit-weak-vector? emit-weak-vector?
emit-string? emit-string?
emit-heap-number? emit-heap-number?