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

comments

Browse Source
This commit is contained in:
Danny Yoo 2011-03-08 18:34:23 -05:00
parent 683d67038c
commit 5f06c39d67
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compile.rkt
View File

@ -383,18 +383,19 @@
cenv cenv
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignPrimOpStatement `(,(make-AssignPrimOpStatement
;; optimization: we can put the result directly in the registers, or in ;; Optimization: we put the result directly in the registers, or in
;; the appropriate spot on the stack. ;; the appropriate spot on the stack. This takes into account the popenviroment
;; that happens right afterwards.
(cond [(eq? target 'val) (cond [(eq? target 'val)
'val] 'val]
[(eq? target 'proc) [(eq? target 'proc)
'proc] 'proc]
[(EnvLexicalReference? target) [(EnvLexicalReference? target)
;; The optimization is right here.
(make-EnvLexicalReference (+ (EnvLexicalReference-depth target) n))]) (make-EnvLexicalReference (+ (EnvLexicalReference-depth target) n))])
(make-ApplyPrimitiveProcedure n)) (make-ApplyPrimitiveProcedure n))
,(make-PopEnvironment n 0)))) ,(make-PopEnvironment n 0))))
after-call)))) after-call))))