Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added TODO items

Browse source
This commit is contained in:
Justin Ethier 2018-08-15 09:51:17 -04:00
parent cb8bf9e725
commit 3065eae9a4
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -104,7 +104,9 @@
(define (adb:set! key val) (hash-table-set! *adb* key val)) (define (adb:set! key val) (hash-table-set! *adb* key val))
(define-record-type <analysis-db-variable> (define-record-type <analysis-db-variable>
(%adb:make-var (%adb:make-var
global defined-by global
;; TODO: defined-in-sym
defined-by
defines-lambda-id defines-lambda-id
const const-value const const-value
ref-count ref-by ref-count ref-by
@ -119,6 +121,11 @@
) )
adb:variable? adb:variable?
(global adbv:global? adbv:set-global!) (global adbv:global? adbv:set-global!)
;; TODO: Symbol of the top-level define the variable is defined in, or *top-level-sym* (??) if
;; variable is defined at the top level.
;; TODO: defined-in-sym
;; TODO: once this is in place, populate it when mutating indirectly (will need to contain a list of these)
;; and use it when checking the value of mutated-indirectly
(defined-by adbv:defined-by adbv:set-defined-by!) (defined-by adbv:defined-by adbv:set-defined-by!)
(defines-lambda-id adbv:defines-lambda-id adbv:set-defines-lambda-id!) (defines-lambda-id adbv:defines-lambda-id adbv:set-defines-lambda-id!)
(const adbv:const? adbv:set-const!) (const adbv:const? adbv:set-const!)