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

testing make-compiled-procedure

Browse Source
This commit is contained in:
Danny Yoo 2011-03-07 16:55:13 -05:00
parent f27072da7b
commit 1aeeafd149
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test-simulator.rkt
View File

@ -287,7 +287,7 @@
(list 1 2 3 true false))) (list 1 2 3 true false)))
;; get-compiled-procedure-entry
(let ([m (let ([m
(make-machine (make-undefined) (make-machine (make-undefined)
(make-closure 'procedure-entry (list 1 2 3)) (make-closure 'procedure-entry (list 1 2 3))
@ -299,9 +299,19 @@
'procedure-entry)) 'procedure-entry))
;; make-compiled-procedure, with empty closure set
(let ([m (new-machine `(,(make-AssignPrimOpStatement
'val
(make-MakeCompiledProcedure 'procedure-entry (list)))
,(make-GotoStatement (make-Label 'end))
procedure-entry
end
))])
(test (machine-val (run m))
(make-closure 'procedure-entry (list))))
#;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-MakeCompiledProcedure))))])
(test ...))
#;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-ApplyPrimitiveProcedure))))]) #;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-ApplyPrimitiveProcedure))))])
(test ...)) (test ...))
#;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-LookupLexicalAddress))))]) #;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-LookupLexicalAddress))))])