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

Only set var when (cell) is called

Browse source
This commit is contained in:
Justin Ethier 2019-09-19 22:02:42 -04:00
parent 6ea8369193
commit fa9fc03043
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -837,7 +837,9 @@
(list (list
(string-append c-func "(" cv-name tdata-comma tdata))))) (string-append c-func "(" cv-name tdata-comma tdata)))))
(else (else
(if (> (string-length tptr) 0) (set! *cell-local-var* tptr)) (if (and (eq? p 'cell)
(> (string-length tptr) 0))
(set! *cell-local-var* tptr))
(c-code/vars (c-code/vars
(string-append c-func "(" tdata tptr-comma tptr) (string-append c-func "(" tdata tptr-comma tptr)
(list tptr-decl)))))) (list tptr-decl))))))