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

Libraries are initialized in the wrong order in the C code

Browse source
This commit is contained in:
Justin Ethier 2016-05-04 04:22:28 -04:00
parent a48a6fc9a8
commit 04f671efe0
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/opti-test.scm
View file

@ -3,6 +3,7 @@
(scheme write) (scheme write)
(scheme base)) (scheme base))
(adb:init!)
(adb:set! 'v (adb:make-var)) (adb:set! 'v (adb:make-var))
(let ((v (adb:get 'v))) (let ((v (adb:get 'v)))

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

@ -42,9 +42,11 @@
adbf:unused-params adbf:set-unused-params! adbf:unused-params adbf:set-unused-params!
) )
(begin (begin
(define *adb* #f) ;(make-hash-table)) (define *adb* (make-hash-table))
;(define *adb* #f) ;(make-hash-table))
(define (adb:init!) (define (adb:init!)
(set! *adb* (make-hash-table))) ;(set! *adb* (make-hash-table)))
'TODO)
(define (adb:get key) (hash-table-ref *adb* key)) (define (adb:get key) (hash-table-ref *adb* key))
(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>