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

re-indentation

Browse Source
This commit is contained in:
Danny Yoo 2011-08-07 17:32:23 -04:00
parent 0757040ec2
commit ea7b298314
1 changed files with 606 additions and 612 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/compiler.rkt
View File

@ -7,7 +7,6 @@
"kernel-primitives.rkt" "kernel-primitives.rkt"
"optimize-il.rkt" "optimize-il.rkt"
"analyzer-structs.rkt" "analyzer-structs.rkt"
#;"analyzer.rkt"
"../parameters.rkt" "../parameters.rkt"
"../sets.rkt" "../sets.rkt"
racket/match racket/match
@ -22,17 +21,12 @@
#;(: current-analysis (Parameterof Analysis))
#;(define current-analysis (make-parameter (empty-analysis)))
(: -compile (Expression Target Linkage -> (Listof Statement))) (: -compile (Expression Target Linkage -> (Listof Statement)))
;; Generates the instruction-sequence stream. ;; Generates the instruction-sequence stream.
;; Note: the toplevel generates the lambda body streams at the head, and then the ;; Note: the toplevel generates the lambda body streams at the head, and then the
;; rest of the instruction stream. ;; rest of the instruction stream.
(define (-compile exp target linkage) (define (-compile exp target linkage)
(parameterize (#;[current-analysis (analyze exp)])
(let* ([after-lam-bodies (make-label 'afterLamBodies)] (let* ([after-lam-bodies (make-label 'afterLamBodies)]
[before-pop-prompt-multiple (make-label 'beforePopPromptMultiple)] [before-pop-prompt-multiple (make-label 'beforePopPromptMultiple)]
[before-pop-prompt (make-LinkedLabel [before-pop-prompt (make-LinkedLabel
@ -56,7 +50,7 @@
before-pop-prompt before-pop-prompt
(if (eq? target 'val) (if (eq? target 'val)
empty-instruction-sequence empty-instruction-sequence
(make-AssignImmediateStatement target (make-Reg 'val))))))))) (make-AssignImmediateStatement target (make-Reg 'val))))))))
(define-struct: lam+cenv ([lam : (U Lam CaseLam)] (define-struct: lam+cenv ([lam : (U Lam CaseLam)]
@ -787,7 +781,7 @@
(: EmptyClosureReference-arity (EmptyClosureReference -> Arity)) (: EmptyClosureReference-arity (EmptyClosureReference -> Arity))
(define (EmptyClosureReference-arity lam) (define (EmptyClosureReference-arity lam)
(if (EmptyClosureReference-rest? lam) (if (EmptyClosureReference-rest? lam)
(make-ArityAtLeast (EmptyClosureReference-num-parameters lam)) (make-ArityAtLeast (EmptyClosureReference-num-parameters lam))
(EmptyClosureReference-num-parameters lam))) (EmptyClosureReference-num-parameters lam)))