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

adding more of the singular checks

Browse Source
This commit is contained in:
Danny Yoo 2011-04-17 14:31:42 -04:00
parent 97ace1e517
commit 832df0a2be
1 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler.rkt
View File

@ -303,14 +303,16 @@
(ToplevelSet-pos exp))]) (ToplevelSet-pos exp))])
(let ([get-value-code (let ([get-value-code
(compile (ToplevelSet-value exp) cenv lexical-pos (compile (ToplevelSet-value exp) cenv lexical-pos
next-linkage-expects-single)]) next-linkage-expects-single)]
[singular-context-check (compile-singular-context-check linkage)])
(end-with-linkage (end-with-linkage
linkage linkage
cenv cenv
(append-instruction-sequences (append-instruction-sequences
get-value-code get-value-code
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignImmediateStatement target (make-Const (void)))))))))) `(,(make-AssignImmediateStatement target (make-Const (void)))))
singular-context-check)))))
(: compile-branch (Branch CompileTimeEnvironment Target Linkage -> InstructionSequence)) (: compile-branch (Branch CompileTimeEnvironment Target Linkage -> InstructionSequence))
@ -399,9 +401,11 @@
;; The lambda will close over the free variables. ;; The lambda will close over the free variables.
;; Assumption: all of the lambda bodies have already been written out at the top, in -compile. ;; Assumption: all of the lambda bodies have already been written out at the top, in -compile.
(define (compile-lambda exp cenv target linkage) (define (compile-lambda exp cenv target linkage)
(let ([singular-context-check (compile-singular-context-check linkage)])
(end-with-linkage (end-with-linkage
linkage linkage
cenv cenv
(append-instruction-sequences
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignPrimOpStatement `(,(make-AssignPrimOpStatement
target target
@ -410,16 +414,19 @@
(make-ArityAtLeast (Lam-num-parameters exp)) (make-ArityAtLeast (Lam-num-parameters exp))
(Lam-num-parameters exp)) (Lam-num-parameters exp))
(Lam-closure-map exp) (Lam-closure-map exp)
(Lam-name exp))))))) (Lam-name exp)))))
singular-context-check))))
(: compile-lambda-shell (Lam CompileTimeEnvironment Target Linkage -> InstructionSequence)) (: compile-lambda-shell (Lam CompileTimeEnvironment Target Linkage -> InstructionSequence))
;; Write out code for lambda expressions, minus the closure map. ;; Write out code for lambda expressions, minus the closure map.
;; Assumption: all of the lambda bodies have already been written out at the top, in -compile. ;; Assumption: all of the lambda bodies have already been written out at the top, in -compile.
(define (compile-lambda-shell exp cenv target linkage) (define (compile-lambda-shell exp cenv target linkage)
(let ([singular-context-check (compile-singular-context-check linkage)])
(end-with-linkage (end-with-linkage
linkage linkage
cenv cenv
(append-instruction-sequences
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignPrimOpStatement `(,(make-AssignPrimOpStatement
target target
@ -427,7 +434,8 @@
(if (Lam-rest? exp) (if (Lam-rest? exp)
(make-ArityAtLeast (Lam-num-parameters exp)) (make-ArityAtLeast (Lam-num-parameters exp))
(Lam-num-parameters exp)) (Lam-num-parameters exp))
(Lam-name exp))))))) (Lam-name exp)))))
singular-context-check))))
(: compile-lambda-body (Lam CompileTimeEnvironment -> InstructionSequence)) (: compile-lambda-body (Lam CompileTimeEnvironment -> InstructionSequence))