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

removing dead code

Browse Source
This commit is contained in:
Danny Yoo 2011-11-02 13:29:28 -04:00
parent 38a0a8544b
commit 716794d338
1 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/compiler.rkt
View File

@ -1420,26 +1420,17 @@
;; cenv is the compile-time enviroment before arguments have been shifted in. ;; cenv is the compile-time enviroment before arguments have been shifted in.
;; extended-cenv is the compile-time environment after arguments have been shifted in. ;; extended-cenv is the compile-time environment after arguments have been shifted in.
(define (compile-general-procedure-call cenv number-of-arguments target linkage) (define (compile-general-procedure-call cenv number-of-arguments target linkage)
(let: ([primitive-branch : Symbol (make-label 'primitiveBranch)] (end-with-linkage
[after-call : Symbol (make-label 'afterCall)]) linkage
(let: ([compiled-linkage : Linkage (if (and (ReturnLinkage? linkage) cenv
(ReturnLinkage-tail? linkage)) (append-instruction-sequences
linkage (make-PerformStatement (make-CheckClosureAndArity!))
(make-LabelLinkage after-call (compile-compiled-procedure-application cenv
(linkage-context linkage)))] number-of-arguments
[primitive-linkage : Linkage 'dynamic
(make-NextLinkage (linkage-context linkage))]) target
(end-with-linkage linkage))))
linkage
cenv
(append-instruction-sequences
(make-PerformStatement (make-CheckClosureAndArity!))
(compile-compiled-procedure-application cenv
number-of-arguments
'dynamic
target
compiled-linkage)
after-call)))))
;; If we know the procedure is implemented as a primitive (as opposed to a general closure), ;; If we know the procedure is implemented as a primitive (as opposed to a general closure),