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

trying to reduce a little allocation

Browse Source
This commit is contained in:
Danny Yoo 2012-02-16 17:09:32 -05:00
parent 7b31b119a5
commit a97e858b43
2 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,6 +17,16 @@
"M.p.label"] "M.p.label"]
[(MakeCompiledProcedure? op) [(MakeCompiledProcedure? op)
(cond
;; Small optimization: try to avoid creating the array if we know up front
;; that the closure has no closed values.
[(null? (MakeCompiledProcedure-closed-vals op))
(format "new RT.Closure(~a,~a,undefined,~a)"
(assemble-label (make-Label (MakeCompiledProcedure-label op))
blockht)
(assemble-arity (MakeCompiledProcedure-arity op))
(assemble-display-name (MakeCompiledProcedure-display-name op)))]
[else
(format "new RT.Closure(~a,~a,[~a],~a)" (format "new RT.Closure(~a,~a,[~a],~a)"
(assemble-label (make-Label (MakeCompiledProcedure-label op)) (assemble-label (make-Label (MakeCompiledProcedure-label op))
blockht) blockht)
@ -29,7 +39,7 @@
;; during install-closure-values. ;; during install-closure-values.
(reverse (MakeCompiledProcedure-closed-vals op))) (reverse (MakeCompiledProcedure-closed-vals op)))
",") ",")
(assemble-display-name (MakeCompiledProcedure-display-name op)))] (assemble-display-name (MakeCompiledProcedure-display-name op)))])]
[(MakeCompiledProcedureShell? op) [(MakeCompiledProcedureShell? op)
(format "new RT.Closure(~a,~a,undefined,~a)" (format "new RT.Closure(~a,~a,undefined,~a)"

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.142") (define version "1.143")