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

simulator seems to be in place

Browse Source
This commit is contained in:
Danny Yoo 2011-04-12 16:12:46 -04:00
parent 57027917f1
commit 2bc4b2a224
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
simulator.rkt
View File

@ -62,6 +62,8 @@
(let: ([stmt : Statement (vector-ref (machine-text m) i)]) (let: ([stmt : Statement (vector-ref (machine-text m) i)])
(when (symbol? stmt) (when (symbol? stmt)
(hash-set! (machine-jump-table m) stmt i)) (hash-set! (machine-jump-table m) stmt i))
(when (LinkedLabel? stmt)
(hash-set! (machine-jump-table m) (LinkedLabel-label stmt) i))
(loop (add1 i))))) (loop (add1 i)))))
m))])) m))]))