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

trying to reduce cost of primitive application

Browse Source
This commit is contained in:
Danny Yoo 2012-02-29 14:04:17 -05:00
parent 8c3cf9c5f2
commit 2ade0f2db6
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/compiler.rkt
View File

@ -1086,7 +1086,6 @@
(extend-compile-time-environment/scratch-space (extend-compile-time-environment/scratch-space
cenv cenv
(length (App-operands exp)))] (length (App-operands exp)))]
[proc-code (compile (App-operator exp) extended-cenv 'proc next-linkage/expects-single)]
[operand-codes (map (lambda: ([operand : Expression] [operand-codes (map (lambda: ([operand : Expression]
[target : Target]) [target : Target])
(compile operand (compile operand
@ -1100,7 +1099,6 @@
(append-instruction-sequences (append-instruction-sequences
(make-PushEnvironment (length (App-operands exp)) #f) (make-PushEnvironment (length (App-operands exp)) #f)
(apply append-instruction-sequences operand-codes) (apply append-instruction-sequences operand-codes)
proc-code
(make-AssignImmediate 'argcount (make-Const (length (App-operands exp)))) (make-AssignImmediate 'argcount (make-Const (length (App-operands exp))))
(if (arity-matches? expected-arity (length (App-operands exp))) (if (arity-matches? expected-arity (length (App-operands exp)))
(compile-primitive-procedure-call primitive-name (compile-primitive-procedure-call primitive-name
@ -1117,7 +1115,8 @@
;; 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),
;; we can do a little less work. ;; we can do a little less work.
;; We don't need to check arity (as that's already been checked statically). ;; We don't need to check arity (as that's already been checked statically).
;; Assumes 1. the procedure value is loaded into proc, ;; Assumes 1. the procedure value is NOT loaded into proc. We know statically what the
;; procedure is supposed to be.
;; 2. number-of-arguments has been written into the argcount register, ;; 2. number-of-arguments has been written into the argcount register,
; ; 3. the number-of-arguments values are on the stack. ; ; 3. the number-of-arguments values are on the stack.
(: compile-primitive-procedure-call (Symbol CompileTimeEnvironment OpArg Target Linkage -> InstructionSequence)) (: compile-primitive-procedure-call (Symbol CompileTimeEnvironment OpArg Target Linkage -> InstructionSequence))

2
js-assembler/assemble-expression.rkt
View File

@ -72,7 +72,7 @@
(open-code-kernel-primitive-procedure op blockht)] (open-code-kernel-primitive-procedure op blockht)]
[(ApplyPrimitiveProcedure? op) [(ApplyPrimitiveProcedure? op)
"M.p._i(M)"] (format "M.primitives[~s]._i(M)" (symbol->string (ApplyPrimitiveProcedure-name op)))]
[(ModuleVariable? op) [(ModuleVariable? op)
(format "M.modules[~s].getNamespace().get(~s)" (format "M.modules[~s].getNamespace().get(~s)"

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.199") (define version "1.201")