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

Emit add_global2 calls

Browse source
This commit is contained in:
Justin Ethier 2020-01-27 15:33:05 -05:00
parent 4fb6530056
commit 7a48e046ad
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/cgen.sld
View file

@ -2132,9 +2132,13 @@
;; Initialize global table
(for-each
(lambda (global)
(emits "\n add_global((object *) &")
(emits (cgen:mangle-global (car global)))
(emits ");"))
(let ((mglo (cgen:mangle-global (car global))))
(emits (string-append
"\n add_global2(\""
mglo
"\", (object *) &"))
(emits mglo)
(emits ");")))
*globals*)
(emit "")