suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing test case since simulator structure changed a little

Browse Source
This commit is contained in:
Danny Yoo 2011-05-11 18:11:56 -04:00
parent 89321ba9b2
commit f16ffbc171
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
simulator-structs.rkt
View File

@ -175,6 +175,11 @@
(define-struct: ToplevelReference ([toplevel : toplevel]
[pos : Natural])
#:transparent)
;; undefined value ;; undefined value
(define-struct: undefined () (define-struct: undefined ()
#:transparent) #:transparent)
@ -185,7 +190,3 @@
(define-predicate frame? frame) (define-predicate frame? frame)
(define-struct: ToplevelReference ([toplevel : toplevel]
[pos : Natural])
#:transparent)

2
test-simulator.rkt
View File

@ -334,6 +334,7 @@
0 0
(list->vector `(,(make-PerformStatement (make-InstallClosureValues!)) (list->vector `(,(make-PerformStatement (make-InstallClosureValues!))
procedure-entry)) procedure-entry))
(make-hash)
0 0
(make-hash))]) (make-hash))])
(test (machine-env (run! m)) (test (machine-env (run! m))
@ -350,6 +351,7 @@
'() '()
0 0
(list->vector `(,(make-AssignPrimOpStatement 'val (make-GetCompiledProcedureEntry)))) (list->vector `(,(make-AssignPrimOpStatement 'val (make-GetCompiledProcedureEntry))))
(make-hash)
0 0
(make-hash))]) (make-hash))])
(test (machine-val (run! m)) (test (machine-val (run! m))