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

Output loop label

Browse source
This commit is contained in:
Justin Ethier 2018-06-05 17:52:25 -04:00
parent f021e01277
commit 66065bb127
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cgen.sld
View file

@ -1219,6 +1219,11 @@
(and (and
(> (string-length tmp-ident) 3) (> (string-length tmp-ident) 3)
(equal? "self" (substring tmp-ident 0 4)))) (equal? "self" (substring tmp-ident 0 4))))
(has-loop?
(and (not has-closure?) ;; Only top-level functions for now
(pair? trace)
(not (null? (cdr trace)))
(adbv:direct-rec-call? (adb:get (cdr trace)))))
(formals* (formals*
(string-append (string-append
(if has-closure? (if has-closure?
@ -1261,7 +1266,12 @@
(c:append (c:append
(c-code (c-code
;; Only trace when entering initial defined function ;; Only trace when entering initial defined function
(if has-closure? "" (st:->code trace))) (cond
(has-closure? "")
(else
(string-append
(if has-loop? "\nloop:\n" "")
(st:->code trace)))))
body) body)
" ") " ")
"; \n" "; \n"