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

better instruction selection when the popenvironment doesn't have to skip any frames.

Browse Source
This commit is contained in:
Danny Yoo 2011-03-27 00:03:19 -04:00
parent a640cfe083
commit 2c887255d8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
assemble.rkt
View File

@ -285,10 +285,12 @@ EOF
"undefined"))) "undefined")))
", "))] ", "))]
[(PopEnvironment? stmt) [(PopEnvironment? stmt)
(if (= (PopEnvironment-skip stmt) 0)
(format "MACHINE.env.length = MACHINE.env.length - ~a;" (PopEnvironment-n stmt))
(format "MACHINE.env.splice(MACHINE.env.length-(~a),~a);" (format "MACHINE.env.splice(MACHINE.env.length-(~a),~a);"
(+ (PopEnvironment-skip stmt) (+ (PopEnvironment-skip stmt)
(PopEnvironment-n stmt)) (PopEnvironment-n stmt))
(PopEnvironment-n stmt))]))) (PopEnvironment-n stmt)))])))