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 2019-01-02 13:16:17 -05:00
parent 533e4fa463
commit 3c965f2e12
1 changed files with 32 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
cps-opt-analyze-call-graph.scm
View file

@ -26,7 +26,7 @@
;; Notes: ;; Notes:
;; Should we pass a copy of the current call graph and then dump it off when a new variable is encountered? In which case, when do we reset the graph? Maybe we just build it up as an a-list as we go, so it resets itself automatically? Then each a-list can exist as part of analysis DB for the variable... would that work? ;; Should we pass a copy of the current call graph and then dump it off when a new variable is encountered? In which case, when do we reset the graph? Maybe we just build it up as an a-list as we go, so it resets itself automatically? Then each a-list can exist as part of analysis DB for the variable... would that work?
#;(define (analyze:build-call-graph sexp) (define (analyze:build-call-graph sexp)
;; Add new entry for each var as it is found... ;; Add new entry for each var as it is found...
(define lookup-tbl (make-hash-table)) (define lookup-tbl (make-hash-table))
@ -34,7 +34,7 @@
;; exp - S-expression to scan ;; exp - S-expression to scan
;; vars - alist of current set of variables ;; vars - alist of current set of variables
(define (scan exp vars) (define (scan exp vars)
;(write `(DEBUG scan ,exp)) (newline) (write `(DEBUG scan ,(ast:ast->pp-sexp exp))) (newline)
(cond (cond
((ast:lambda? exp) ((ast:lambda? exp)
(for-each (for-each
@ -49,7 +49,7 @@
((quote? exp) #f) ((quote? exp) #f)
((const? exp) #f) ((const? exp) #f)
((ref? exp) ((ref? exp)
(hash-table-set! lookup-tbl ref vars) (hash-table-set! lookup-tbl exp vars)
) )
((define? exp) ((define? exp)
(scan (define->exp exp) '())) (scan (define->exp exp) '()))
@ -64,17 +64,36 @@
((app? exp) ((app? exp)
(cond (cond
((ast:lambda? (car exp)) ((ast:lambda? (car exp))
;; TODO: reset vars??? ;; Track deps on lambda var(s)
(for-each
(lambda (e)
(scan e '()))
(cdr exp)))
(else
TODO: no, need to collect vars, and pass them to cont (second arg). car can be ignored
(for-each (for-each
(lambda (e) (lambda (e)
(scan e vars)) (scan e vars))
(cdr exp))))) (ast:lambda-args (car exp)))
;; Scan body, with reset vars (??)
(for-each
(lambda (e)
(scan e '()))
(ast:lambda-body (car exp))))
((and (ref? (car exp))
(list? exp)
(> (length exp) 1))
(let* ((cont (cadr exp))
;; TODO: what if arg is not a ref? Is that possible after cps (probably, with inlining)?
(args (filter ref? (cddr exp)))
(vars* (append args vars))
)
(scan cont vars*)
;(for-each
; (lambda (e)
; (scan e vars*))
; (cdr exp))
))
(else
(for-each
(lambda (e)
(scan e vars))
exp))))
(else (error "unknown expression type: " exp)) (else (error "unknown expression type: " exp))
)) ))
(scan sexp '()) (scan sexp '())
@ -133,6 +152,11 @@
(ast:ast->pp-sexp (ast:ast->pp-sexp
(ast:sexp->ast sexp))) (ast:sexp->ast sexp)))
(newline)
(newline)
(let ((ht (analyze:build-call-graph (ast:sexp->ast sexp))))
(pretty-print (hash-table->alist ht)))
;(pretty-print ;(pretty-print
; (ast:ast->pp-sexp ; (ast:ast->pp-sexp
; (opt:local-var-reduction (ast:sexp->ast sexp))) ; (opt:local-var-reduction (ast:sexp->ast sexp)))