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

I think the output looks more correct.

Browse Source
This commit is contained in:
dyoo 2011-03-03 15:26:30 -05:00
parent 6ebef1c206
commit 30e9e82877
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compile.rkt
View File

@ -300,11 +300,13 @@
;; The last operand needs to be handled specially: it currently lives in
;; val. We move the procedure at env[n] over to proc, and move the
;; last operand at 'val into env[n].
(make-instruction-sequence
`(,(make-AssignImmediateStatement 'proc
(make-EnvLexicalReference n))
,(make-AssignImmediateStatement (make-EnvOffset n)
(make-Reg 'val))))]
(append-instruction-sequences
(car ops)
(make-instruction-sequence
`(,(make-AssignImmediateStatement 'proc
(make-EnvLexicalReference n))
,(make-AssignImmediateStatement (make-EnvOffset n)
(make-Reg 'val)))))]
[else
;; Otherwise, add instructions to juggle the operator and operands in the stack.
(append-instruction-sequences (car ops)
@ -328,15 +330,18 @@
primitive-branch)))
compiled-branch
(compile-proc-appl cenv n target compiled-linkage)
(end-with-application-linkage
compiled-linkage
cenv
(compile-proc-appl cenv n target compiled-linkage))
primitive-branch
(end-with-application-linkage linkage
cenv
(make-instruction-sequence
`(,(make-AssignPrimOpStatement
target
(make-ApplyPrimitiveProcedure n)))))
(end-with-linkage linkage
cenv
(make-instruction-sequence
`(,(make-AssignPrimOpStatement
target
(make-ApplyPrimitiveProcedure n)))))
after-call))))