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

correcting typo in the trampoline detection. Thanks to Campbell Hewett for the bug report.

Browse Source
This commit is contained in:
Danny Yoo 2011-11-21 16:09:08 -05:00
parent b336666943
commit ced1d2ba67
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/assemble.rkt
View File

@ -220,7 +220,7 @@ EOF
(assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht) (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht)
(assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))] (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))]
[else [else
(fprintf op "var ~a=function(M){--M.cbt<0;\n" (fprintf op "var ~a=function(M){\n"
(assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))]) (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))])
(assemble-block-statements (BasicBlock-name a-basic-block) (assemble-block-statements (BasicBlock-name a-basic-block)
(BasicBlock-stmts a-basic-block) (BasicBlock-stmts a-basic-block)

2
js-assembler/runtime-src/baselib-functions.js
View File

@ -300,7 +300,7 @@
var proc = makeClosure(name, var proc = makeClosure(name,
arity, arity,
function(M) { function(M) {
--M.cbt; M.cbt--;
M.v = f(M); M.v = f(M);
M.e.length -= M.a; M.e.length -= M.a;
return M.c.pop().label(M); return M.c.pop().label(M);