Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Set mutability for quoted pairs

Browse source
This commit is contained in:
Justin Ethier 2019-05-14 13:06:10 -04:00
parent f0b84ce122
commit f2b9658b21
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/cgen.sld
View file

@ -407,19 +407,29 @@
(define (c-compile-quote qexp use-alloca)
(let ((exp (cadr qexp)))
(c-compile-scalars exp use-alloca)))
(c-compile-scalars exp use-alloca #t)))
(define (c-compile-scalars args use-alloca)
(define (c-compile-scalars args use-alloca quoted)
(letrec (
(addr-op (if use-alloca "" "&"))
;; (deref-op (if use-alloca "->" "."))
(c-make-macro (if use-alloca "alloca_pair" "make_pair"))
(set-mutability
(lambda (cvar)
(cond
((and quoted use-alloca)
(string-append cvar "->hdr.immutable = 1;"))
(quoted ;; no alloca
(string-append cvar ".hdr.immutable = 1;"))
(else "")))) ;; Mutable (default)
(num-args 0)
(create-cons
(lambda (cvar a b)
(c-code/vars
(string-append c-make-macro "(" cvar "," (c:body a) "," (c:body b) ");")
(append (c:allocs a) (c:allocs b)))))
(string-append
c-make-macro "(" cvar "," (c:body a) "," (c:body b) ");"
(set-mutability cvar))
(append (c:allocs a) (c:allocs b)))))
(_c-compile-scalars
(lambda (args)
(cond
@ -586,7 +596,7 @@
((null? exp)
(c-code "NULL"))
((pair? exp)
(c-compile-scalars exp use-alloca))
(c-compile-scalars exp use-alloca #f)) ;; TODO: quoted should be an input param
((vector? exp)
(c-compile-vector exp use-alloca))
((bytevector? exp)