From 1aeeafd149d354d058cff7cd435279b68615c9ec Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 7 Mar 2011 16:55:13 -0500 Subject: [PATCH] testing make-compiled-procedure --- test-simulator.rkt | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/test-simulator.rkt b/test-simulator.rkt index f7f0ec0..f0bd72a 100644 --- a/test-simulator.rkt +++ b/test-simulator.rkt @@ -287,7 +287,7 @@ (list 1 2 3 true false))) - +;; get-compiled-procedure-entry (let ([m (make-machine (make-undefined) (make-closure 'procedure-entry (list 1 2 3)) @@ -299,9 +299,19 @@ '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))))]) (test ...)) #;(let ([m (new-machine `(,(make-AssignPrimOpStatement (make-LookupLexicalAddress))))])