mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-11 14:57:36 +02:00
Only set var when (cell) is called
This commit is contained in:
parent
6ea8369193
commit
fa9fc03043
1 changed files with 3 additions and 1 deletions
|
@ -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))))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue