Nim/tests/typerel/tregionptrs2.nim
2015-01-31 11:31:59 +01:00

23 lines
314 B
Nim

# bug #2039
type
RegionTy = object
ThingyPtr = RegionTy ptr Thingy
Thingy = object
next: ThingyPtr
name: string
proc iname(t: ThingyPtr) =
var x = t
while not x.isNil:
echo x.name
x = x.next
proc go() =
var athing : ThingyPtr
iname(athing)
go()