mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Fix baseline compilation error for make-struct/simple

Browse source 
* module/language/tree-il/compile-bytecode.scm (compile-closure):
  $allocate-struct takes an SCM.
This commit is contained in:
Andy Wingo 2020-05-11 13:31:40 +02:00
parent c0a27de50d
commit 527262fef0
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/language/tree-il/compile-bytecode.scm
View file

@ -1142,12 +1142,14 @@ in the frame with for the lambda-case clause @var{clause}."
('make-struct/simple
(match args
((vtable . args)
(let ((len (length args)))
(emit-$allocate-struct asm 0 vtable len)
(let lp ((i 0) (args args))
(when (< i len)
(emit-struct-init! asm 0 i (car args) 1)
(lp (1+ i) (cdr args)))))))))
(emit-load-constant asm 0 (length args))
(emit-$allocate-struct asm 0 vtable 0)
(let lp ((i 0) (args args))
(match args
(() #t)
((arg . args)
(emit-struct-init! asm 0 i arg 1)
(lp (1+ i) args))))))))
(emit-mov asm dst 0)))
(($ <primcall> src name args)