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

assembler seems to be doing the right thing now

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

16
assemble.rkt
View File

@ -329,21 +329,33 @@ EOF
(assemble-jump (GotoStatement-target stmt))]
[(PushControlFrame? stmt)
(format "MACHINE.control.push(new RUNTIME.CallFrame(~a, MACHINE.proc));" (PushControlFrame-label stmt))]
(format "MACHINE.control.push(new RUNTIME.CallFrame(~a, MACHINE.proc));"
(let ([label (PushControlFrame-label stmt)])
(cond
[(symbol? label) label]
[(LinkedLabel? label) (LinkedLabel-label label)])))]
[(PushControlFrame/Prompt? stmt)
;; fixme: use a different frame structure
(format "MACHINE.control.push(new RUNTIME.PromptFrame(~a, ~a));"
(PushControlFrame/Prompt-label stmt)
(let ([label (PushControlFrame/Prompt-label stmt)])
(cond
[(symbol? label) label]
[(LinkedLabel? label) (LinkedLabel-label label)]))
(let ([tag (PushControlFrame/Prompt-tag stmt)])
(cond
[(DefaultContinuationPromptTag? tag)
(assemble-default-continuation-prompt-tag)]
[(OpArg? tag)
(assemble-oparg tag)])))]
[(PopControlFrame? stmt)
"MACHINE.control.pop();"]
[(PopControlFrame/Prompt? stmt)
"MACHINE.control.pop();"]
[(PushEnvironment? stmt)
(if (= (PushEnvironment-n stmt) 0)
""