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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2018-06-07 13:24:58 -04:00
parent a61ba42a1d
commit 8fed2b738d
1 changed files with 53 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
scheme/cyclone/cgen.sld
View file

@ -743,6 +743,59 @@
(cgen-allocs (cgen-allocs
(apply string-append (apply string-append
(map (lambda (a) (c:allocs->str (c:allocs a))) cgen-lis))) (map (lambda (a) (c:allocs->str (c:allocs a))) cgen-lis)))
;; TODO: extract top-level function args from anaylsis DB??
;; (shorterp
;; .
;; #((record-marker)
;; #((record-marker)
;; "<analysis-db-variable>"
;; (global
;; defined-by
;; defines-lambda-id
;; const
;; const-value
;; ref-count
;; ref-by
;; reassigned
;; assigned-value
;; app-fnc-count
;; app-arg-count
;; inlinable
;; mutated-indirectly
;; cont
;; def-in-loop
;; ref-in-loop
;; direct-rec-call))
;; #(?
;; -1
;; 130
;; #f
;; #f
;; 3
;; (130 -1 138)
;; #f
;; (#((record-marker)
;; #((record-marker)
;; "<lambda-ast>"
;; (id args body has-cont))
;; #(130
;; (k$241 x$6$133 y$5$132)
;; ((if (null? y$5$132)
;; (k$241 #f)
;; (if (null? x$6$133)
;; (k$241 #t)
;; (shorterp k$241 (cdr x$6$133) (cdr y$5$132)))))
;; #t)))
;; 2
;; 0
;; #f
;; #f
;; #f
;; #f
;; #f
;; #t)))
;;
) )
(trace:info `(loop ,cgen-lis)) (trace:info `(loop ,cgen-lis))
(c-code (c-code