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

still trying to optimizing module variable lookup

Browse Source
This commit is contained in:
Danny Yoo 2012-02-28 23:33:03 -05:00
parent d3ab24d6c8
commit fc521f6f7b
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -262,7 +262,7 @@
(define (assemble-prefix-reference a-ref) (define (assemble-prefix-reference a-ref)
(cond (cond
[(EnvPrefixReference-modvar? a-ref) [(EnvPrefixReference-modvar? a-ref)
(format "M.e[M.e.length-~a][~a].prefix[M.e[M.e.length-~a][~a].offset]" (format "M.e[M.e.length-~a][~a][0][M.e[M.e.length-~a][~a][1]]"
(add1 (EnvPrefixReference-depth a-ref)) (add1 (EnvPrefixReference-depth a-ref))
(EnvPrefixReference-pos a-ref) (EnvPrefixReference-pos a-ref)
(add1 (EnvPrefixReference-depth a-ref)) (add1 (EnvPrefixReference-depth a-ref))

4
js-assembler/assemble-perform-statement.rkt
View File

@ -57,11 +57,11 @@
(symbol->string (symbol->string
(ModuleLocator-name (ModuleLocator-name
(ModuleVariable-module-name n)))) (ModuleVariable-module-name n))))
(format "{moduleName:~s,name:~s,prefix:M.modules[~s].prefix,offset:M.modules[~s].getPrefixOffset(~s)}" (format "[M.modules[~s].prefix,M.modules[~s].getPrefixOffset(~s),{moduleName:~s,name:~s}]"
module-name
module-name module-name
(symbol->string (ModuleVariable-name n)) (symbol->string (ModuleVariable-name n))
module-name module-name
module-name
(symbol->string (ModuleVariable-name n)))])])) (symbol->string (ModuleVariable-name n)))])]))
names) names)
",") ",")

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.194") (define version "1.195")