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

eliminating dead code

Browse Source
This commit is contained in:
Danny Yoo 2011-04-24 18:27:20 -04:00
parent d805bca845
commit d90817e09f
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler.rkt
View File

@ -1058,8 +1058,7 @@
;; occur when we're in tail position, and we should be in tail position ;; occur when we're in tail position, and we should be in tail position
;; only when the target is the val register. ;; only when the target is the val register.
(error 'compile "return linkage, target not val: ~s" target)])] (error 'compile "return linkage, target not val: ~s" target)])]
[else [else
(cond [(eq? target 'val) (cond [(eq? target 'val)
;; This case happens for a function call that isn't in ;; This case happens for a function call that isn't in
;; tail position. ;; tail position.
@ -1076,21 +1075,7 @@
proc-return)] proc-return)]
[else [else
;; This case happens for evaluating arguments, since the (error 'compile "return linkage, target not val: ~s" target)])])]
;; arguments are being installed into the scratch space.
(append-instruction-sequences
(make-instruction-sequence
`(,(make-PushControlFrame/Call proc-return)))
maybe-install-jump-address
(make-instruction-sequence
`(,(make-GotoStatement entry-point-target)))
proc-return-multiple
(make-instruction-sequence
`(,(make-PopEnvironment (make-Reg 'argcount)
(make-Const 0))))
proc-return
(make-instruction-sequence
`(,(make-AssignImmediateStatement target (make-Reg 'val)))))])])]
[(NextLinkage? linkage) [(NextLinkage? linkage)
(cond [(eq? target 'val) (cond [(eq? target 'val)