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

minor: optimizing the splice a little more for code generation

Browse Source
This commit is contained in:
Danny Yoo 2012-02-27 14:39:40 -05:00
parent b1a09f3e9d
commit 40b616e9ea
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
js-assembler/assemble.rkt
View File

@ -587,11 +587,20 @@ EOF
[else [else
(format "M.e.length-=~a;" (format "M.e.length-=~a;"
(assemble-oparg (PopEnvironment-n stmt) blockht))])] (assemble-oparg (PopEnvironment-n stmt) blockht))])]
[else
(define skip (PopEnvironment-skip stmt))
(define n (PopEnvironment-n stmt))
(cond
[(and (Const? skip) (Const? n))
(format "M.e.splice(M.e.length-~a,~a);"
(+ (ensure-natural (Const-const skip))
(ensure-natural (Const-const n)))
(Const-const n))]
[else [else
(format "M.e.splice(M.e.length-(~a+~a),~a);" (format "M.e.splice(M.e.length-(~a+~a),~a);"
(assemble-oparg (PopEnvironment-skip stmt) blockht) (assemble-oparg skip blockht)
(assemble-oparg (PopEnvironment-n stmt) blockht) (assemble-oparg n blockht)
(assemble-oparg (PopEnvironment-n stmt) blockht))]))] (assemble-oparg n blockht))])]))]
[(PushImmediateOntoEnvironment? stmt) [(PushImmediateOntoEnvironment? stmt)
(format "M.e.push(~a);" (format "M.e.push(~a);"