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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-05-21 00:30:47 -04:00
parent 41375c6d41
commit 5ffa085c34
2 changed files with 42 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
scheme/cyclone/cps-optimizations.sld
View file

@ -17,8 +17,8 @@
; can write initial analyze, but can't get too far without being able ; can write initial analyze, but can't get too far without being able
; to uniquely ID each lambda ; to uniquely ID each lambda
;(define-library (optimize-cps) (define-library (cps-optimizations)
(define-library (scheme cyclone cps-optimizations) ;(define-library (scheme cyclone cps-optimizations)
(import (scheme base) (import (scheme base)
(scheme cyclone util) (scheme cyclone util)
(scheme cyclone ast) (scheme cyclone ast)
@ -38,11 +38,16 @@
adb:make-var adb:make-var
%adb:make-var %adb:make-var
adb:variable? adb:variable?
adbv:global adbv:global?
adbv:set-global! adbv:set-global!
adbv:defined-by adbv:set-defined-by! adbv:defined-by
adbv:assigned adbv:set-assigned! adbv:set-defined-by!
adbv:assigned-locally adbv:set-assigned-locally! adbv:assigned?
adbv:set-assigned!
adbv:assigned-locally?
adbv:set-assigned-locally!
adbv:const-value?
adbv:set-const-value!
adbv:ref-by adbv:ref-by
adbv:set-ref-by! adbv:set-ref-by!
;; Analyze functions ;; Analyze functions
@ -65,14 +70,16 @@
(define-record-type <analysis-db-variable> (define-record-type <analysis-db-variable>
(%adb:make-var global defined-by assigned assigned-locally) (%adb:make-var global defined-by assigned assigned-locally)
adb:variable? adb:variable?
(global adbv:global adbv:set-global!) (global adbv:global? adbv:set-global!)
(defined-by adbv:defined-by adbv:set-defined-by!) (defined-by adbv:defined-by adbv:set-defined-by!)
(assigned adbv:assigned adbv:set-assigned!) (assigned adbv:assigned? adbv:set-assigned!)
(assigned-locally adbv:assigned-locally adbv:set-assigned-locally!) (assigned-locally adbv:assigned-locally? adbv:set-assigned-locally!)
(const adbv:const? adbv:set-const!)
(const-value adbv:const-value? adbv:set-const-value!)
(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 '? '? '? '? '())) (%adb:make-var '? '? '? '? #f #f '()))
(define-record-type <analysis-db-function> (define-record-type <analysis-db-function>
(%adb:make-fnc simple unused-params) (%adb:make-fnc simple unused-params)
@ -83,6 +90,20 @@
(define (adb:make-fnc) (define (adb:make-fnc)
(%adb:make-fnc '? '?)) (%adb:make-fnc '? '?))
;; A constant value that cannot be mutated
;; A variable only ever assigned to one of these could have all
;; instances of itself replaced with the value.
(define (const-atomic? exp)
(or (integer? exp)
(real? exp)
;(string? exp)
;(vector? exp)
;(bytevector? exp)
(char? exp)
(boolean? exp)))
;; TODO: check app for const/const-value, also (for now) reset them
;; if the variable is modified via set/define
(define (analyze exp lid) (define (analyze exp lid)
;(tre:error `(analyze ,lid ,exp)) ;(tre:error `(analyze ,lid ,exp))
(cond (cond
@ -129,6 +150,14 @@
; Application: ; Application:
((app? exp) ((app? exp)
;; TODO: if ast-lambda (car),
;; for each arg
;; if arg is const-atomic
;; mark the parameter (variable) as const and give it const-val
;;
;; obviously need to add code later on to reset const if mutated
(for-each (for-each
(lambda (e) (lambda (e)
(analyze e lid)) (analyze e lid))

5
test-opt.scm
View file

@ -8,10 +8,11 @@
(import (scheme base) (scheme write)) (import (scheme base) (scheme write))
(let ((x 1)) (let ((x 1) (z 3))
(define y 2) (define y 2)
(define w 4)
(write (write
(+ x y))) (+ w x y z)))
(define (test a) (define (test a)
(write 3)) (write 3))