jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bugfix: tseqtuple

Browse source
This commit is contained in:
Andreas Rumpf 2010-03-10 00:40:34 +01:00
commit 2e280eafa8
4 changed files with 214 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

5
rod/transf.nim
View file

@ -191,7 +191,7 @@ proc newTupleAccess(tup: PNode, i: int): PNode =
proc unpackTuple(c: PTransf, n, father: PNode) =
# XXX: BUG: what if `n` is an expression with side-effects?
for i in countup(0, sonsLen(n) - 1):
for i in countup(0, sonsLen(c.transCon.forStmt) - 3):
addSon(father, newAsgnStmt(c, c.transCon.forStmt.sons[i],
transform(c, newTupleAccess(n, i))))
@ -439,8 +439,7 @@ proc gatherVars(c: PTransf, n: PNode, marked: var TIntSet, owner: PSym,
case s.kind
of skVar: found = not (sfGlobal in s.flags)
of skTemp, skForVar, skParam: found = true
else:
nil
else: nil
if found and (owner.id != s.owner.id) and
not IntSetContainsOrIncl(marked, s.id):
incl(s.flags, sfInClosure)