Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 01:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bugfix, do not add & for "fast" functions

Browse source
This commit is contained in:
Justin Ethier 2016-10-14 23:10:16 -04:00
parent cf735c7917
commit 5d089b83eb
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -552,7 +552,12 @@
(lambda (type)
(let ((cv-name (mangle (gensym 'c))))
(c-code/vars
(string-append (if (prim:cont? p) "" "&") cv-name)
(string-append
(if (or (prim:cont? p)
(prim/c-var-pointer p)) ;; Assume returns object
""
"&")
cv-name)
(list
(string-append
;; Define closure if necessary (apply only)