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

optimization: when doing primitive application, the result value can be directly placed if targetted to a lexical reference.

Browse Source
This commit is contained in:
Danny Yoo 2011-03-08 04:05:52 -05:00
parent 393e0707e1
commit 703edc46a0
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compile.rkt
View File

@ -384,10 +384,17 @@
cenv cenv
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignPrimOpStatement `(,(make-AssignPrimOpStatement
'val ;; optimization: we can put the result directly in the registers, or in
;; the appropriate spot on the stack.
(cond [(eq? target 'val)
'val]
[(eq? target 'proc)
'proc]
[(EnvLexicalReference? target)
(make-EnvLexicalReference (+ (EnvLexicalReference-depth target) n))])
(make-ApplyPrimitiveProcedure n)) (make-ApplyPrimitiveProcedure n))
,(make-PopEnvironment n 0) ,(make-PopEnvironment n 0))))
,(make-AssignImmediateStatement target (make-Reg 'val)))))
after-call)))) after-call))))