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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-10-19 13:23:18 -04:00
parent b37cbc3106
commit 23aaae8f05
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scheme/cyclone/cgen.sld
View file

@ -839,7 +839,7 @@
"\n"
cgen-body ;; TODO: (c:body cgen) ;; TODO: re-assign function args, longer-term using temp variables
"\n"
"goto loop;")))
"continue;")))
)
((prim? fun)
@ -1484,10 +1484,15 @@
(> (string-length tmp-ident) 3)
(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)))))
(or
(adbf:calls-self? (adb:get/default (ast:lambda-id exp) (adb:make-fnc)))
;; Older direct recursive logic
(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*
(string-append
(if has-closure?
@ -1536,8 +1541,8 @@
(else
(string-append
(st:->code trace)
;; TODO: probably needs brackets afterwards...
(if has-loop? "\nloop: {\n" "")
TODO: does not work for calls-self, need to invoke that elsewhere...
(if has-loop? "\n while(1) {\n" "")
))))
body)
" ")