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

test case for assembling make-CompiledProcedureClosureReference

Browse Source
This commit is contained in:
Danny Yoo 2011-05-04 18:27:42 -04:00
parent 42ca09b260
commit d9e96d3dab
3 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
assemble-helpers.rkt
View File

@ -181,7 +181,8 @@
(: assemble-compiled-procedure-closure-reference (CompiledProcedureClosureReference -> String))
(define (assemble-compiled-procedure-closure-reference a-ref)
(format "(~a).closedVals[~a]"
(format "(~a).closedVals[(~a).closedVals.length - 1 - ~a]"
(assemble-oparg (CompiledProcedureClosureReference-proc a-ref))
(assemble-oparg (CompiledProcedureClosureReference-proc a-ref))
(CompiledProcedureClosureReference-n a-ref)))

5
assemble-perform-statement.rkt
View File

@ -58,8 +58,10 @@
[(InstallClosureValues!? op)
"MACHINE.env.splice.apply(MACHINE.env, [MACHINE.env.length, 0].concat(MACHINE.proc.closedVals));"]
[(RestoreEnvironment!? op)
"MACHINE.env = MACHINE.env[MACHINE.env.length - 2].slice(0);"]
[(RestoreControl!? op)
(format "RUNTIME.restoreControl(MACHINE, ~a);"
(let: ([tag : (U DefaultContinuationPromptTag OpArg)
@ -69,6 +71,7 @@
(assemble-default-continuation-prompt-tag)]
[(OpArg? tag)
(assemble-oparg tag)])))]
[(FixClosureShellMap!? op)
(format "MACHINE.env[MACHINE.env.length - 1 - ~a].closedVals = [~a]"
(FixClosureShellMap!-depth op)
@ -80,9 +83,11 @@
;; during install-closure-values.
(reverse (FixClosureShellMap!-closed-vals op)))
", "))]
[(SetFrameCallee!? op)
(format "MACHINE.control[MACHINE.control.length-1].proc = ~a;"
(assemble-oparg (SetFrameCallee!-proc op)))]
[(SpliceListIntoStack!? op)
(format "RUNTIME.spliceListIntoStack(MACHINE, ~a);"
(assemble-oparg (SpliceListIntoStack!-depth op)))]

30
test-assemble.rkt
View File

@ -493,3 +493,33 @@
end)
"MACHINE.val")
"ok")
;; Let's test closure value lookup.
(test (E-many `(,(make-PushImmediateOntoEnvironment (make-Const 3) #f)
,(make-PushImmediateOntoEnvironment (make-Const 4) #f)
procedure-entry
;; doesn't matter about the procedure entry...
,(make-AssignPrimOpStatement
'proc
(make-MakeCompiledProcedure 'procedure-entry (make-ArityAtLeast 2) (list 0 1) 'procedure-entry))
,(make-AssignImmediateStatement 'val (make-CompiledProcedureClosureReference (make-Reg 'proc) 0)))
"MACHINE.val")
"4")
(test (E-many `(,(make-PushImmediateOntoEnvironment (make-Const 3) #f)
,(make-PushImmediateOntoEnvironment (make-Const 4) #f)
procedure-entry
;; doesn't matter about the procedure entry...
,(make-AssignPrimOpStatement
'proc
(make-MakeCompiledProcedure 'procedure-entry (make-ArityAtLeast 2) (list 0 1) 'procedure-entry))
,(make-AssignImmediateStatement 'val (make-CompiledProcedureClosureReference (make-Reg 'proc) 1)))
"MACHINE.val")
"3")