123456789101112131415161718192021222324 |
- # 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()
|