fixes JS codegen regressions

This commit is contained in:
Andreas Rumpf 2016-02-06 09:03:53 +01:00
commit d3cb1bedfa

View file

@ -1750,9 +1750,8 @@ proc genReturnStmt(p: PProc, n: PNode) =
addf(p.body, "break BeforeRet;$n" | "goto BeforeRet;$n", []) addf(p.body, "break BeforeRet;$n" | "goto BeforeRet;$n", [])
proc frameCreate(p: PProc; procname, filename: Rope): Rope = proc frameCreate(p: PProc; procname, filename: Rope): Rope =
result = (("var F={procname:$1,prev:framePtr,filename:$2,line:0};$n" | result = (("var F={procname:$1,prev:framePtr,filename:$2,line:0};$nframePtr = F;$n" |
"global $$framePtr; $$F=array('procname'=>$#,'prev'=>$$framePtr,'filename'=>$#,'line'=>0);$n") & "global $$framePtr; $$F=array('procname'=>$#,'prev'=>$$framePtr,'filename'=>$#,'line'=>0);$n$$framePtr = &$$F;$n")) % [
"$$framePtr = &$$F;$n") % [
procname, filename] procname, filename]
proc frameDestroy(p: PProc): Rope = proc frameDestroy(p: PProc): Rope =