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

Changing the structure of installclosurevalues to count how many it needs. That way, we can generate static code for pushing, rather than use .apply

Browse Source
This commit is contained in:
Danny Yoo 2012-02-17 14:41:45 -05:00
parent 97dd749a52
commit 872d72ed2b
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/bootstrapped-primitives.rkt
View File

@ -71,7 +71,7 @@
;; abandon the current continuation, initialize the control and environment, and then jump.
call/cc-closure-entry
(make-AssignImmediate 'val (make-EnvLexicalReference 0 #f))
(make-Perform (make-InstallClosureValues!))
(make-Perform (make-InstallClosureValues! 2))
(make-Perform (make-RestoreControl! default-continuation-prompt-tag))
(make-Perform (make-RestoreEnvironment!))
(make-AssignImmediate 'proc (make-ControlStackLabel))

3
compiler/compiler.rkt
View File

@ -855,7 +855,8 @@
(if (not (empty? (Lam-closure-map exp)))
(append-instruction-sequences
(make-Comment (format "installing closure for ~s" (Lam-name exp)))
(make-Perform (make-InstallClosureValues!)))
(make-Perform (make-InstallClosureValues!
(length (Lam-closure-map exp)))))
empty-instruction-sequence)]
[lam-body-code : InstructionSequence
(compile (Lam-body exp)

2
compiler/il-structs.rkt
View File

@ -387,7 +387,7 @@
;; Adjusts the environment by pushing the values in the
;; closure (held in the proc register) into itself.
(define-struct: InstallClosureValues! ()
(define-struct: InstallClosureValues! ([n : Natural])
#:transparent)