bugfix: lambdalifting: addHiddenParam
This commit is contained in:
parent
ca16db6094
commit
51850b546a
1 changed files with 1 additions and 7 deletions
|
|
@ -78,13 +78,7 @@ proc replaceVars(c: PTransf, n: PNode, outerProc, env: PSym) =
|
||||||
|
|
||||||
proc addHiddenParam(routine: PSym, param: PSym) =
|
proc addHiddenParam(routine: PSym, param: PSym) =
|
||||||
var params = routine.ast.sons[paramsPos]
|
var params = routine.ast.sons[paramsPos]
|
||||||
let L = params.len-1
|
param.position = params.len
|
||||||
param.position = L
|
|
||||||
if L >= 0:
|
|
||||||
# update if we already added a hidden parameter:
|
|
||||||
if params.sons[L].kind == nkSym and params.sons[L].sym.kind == skParam:
|
|
||||||
params.sons[L].sym = param
|
|
||||||
return
|
|
||||||
addSon(params, newSymNode(param))
|
addSon(params, newSymNode(param))
|
||||||
#echo "produced environment: ", param.id, " for ", routine.name.s
|
#echo "produced environment: ", param.id, " for ", routine.name.s
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue