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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-05-13 00:26:28 -04:00
parent 1f6acbc4e2
commit 206bd1554b
1 changed files with 20 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
scheme/cyclone/optimize-cps.sld
View file

@ -31,7 +31,8 @@
adb:get/default adb:get/default
adb:set! adb:set!
adb:get-db adb:get-db
;; Variables simple-lambda?
;; Analyze variables
adb:make-var adb:make-var
%adb:make-var %adb:make-var
adb:variable? adb:variable?
@ -40,7 +41,7 @@
adbv:defined-by adbv:set-defined-by! adbv:defined-by adbv:set-defined-by!
adbv:assigned adbv:set-assigned! adbv:assigned adbv:set-assigned!
adbv:assigned-locally adbv:set-assigned-locally! adbv:assigned-locally adbv:set-assigned-locally!
;; Functions ;; Analyze functions
adb:make-fnc adb:make-fnc
%adb:make-fnc %adb:make-fnc
adb:function? adb:function?
@ -67,7 +68,7 @@
(ref-by adbv:ref-by adbv:set-ref-by!) (ref-by adbv:ref-by adbv:set-ref-by!)
) )
(define (adb:make-var) (define (adb:make-var)
(%adb:make-var #f #f #f #t '())) (%adb:make-var '? '? '? '? '()))
(define-record-type <analysis-db-function> (define-record-type <analysis-db-function>
(%adb:make-fnc simple unused-params) (%adb:make-fnc simple unused-params)
@ -76,19 +77,18 @@
(unused-params adbf:unused-params adbf:set-unused-params!) (unused-params adbf:unused-params adbf:set-unused-params!)
) )
(define (adb:make-fnc) (define (adb:make-fnc)
(%adb:make-fnc #f #f)) (%adb:make-fnc '? '?))
; TODO: analyze-cps
(define (analyze-cps exp) (define (analyze-cps exp)
(define (analyze exp lid) (define (analyze exp lid)
(cond (cond
; Core forms: ; Core forms:
((ast:lambda? exp) ((ast:lambda? exp)
(let ((id (ast:lambda-id exp))) (let ((id (ast:lambda-id exp))
(fnc (adb:make-fnc)))
;; save lambda to adb ;; save lambda to adb
(adb:set! (adb:set! id fnc)
id ;; Analyze the lambda
(adb:make-fnc)) ;; TODO: anything to record???? params?
(for-each (for-each
(lambda (arg) (lambda (arg)
(let ((var (adb:get/default arg (adb:make-var)))) (let ((var (adb:get/default arg (adb:make-var))))
@ -135,4 +135,15 @@
#f))) #f)))
(analyze exp -1) ;; Top-level is lambda ID -1 (analyze exp -1) ;; Top-level is lambda ID -1
) )
;; TODO: make another pass for simple lambda's
;can use similar logic to cps-optimize-01:
;- body is a lambda app
;- no lambda args are referenced in the body of that lambda app
; (ref-by is empty or the defining lid)
;
; Need to check analysis DB against CPS generated and make sure
; things like ref-by make sense (ref by seems like its only -1 right now??)
(define (simple-lambda? exp)
#f)
)) ))