405b86068
8178cd4fa ^
8b2a9401a ^
1 2
3
4
5 6 7 8 9
10
11 12 13 14 15 16 17 18 19 20 21
# Tests the object implementation type TPoint2d {.inheritable.} = object x, y: int TPoint3d = object of TPoint2d z: int # added a field proc getPoint( p: var TPoint2d) = {.breakpoint.} writeln(stdout, p.x) var p: TPoint3d TPoint2d(p).x = 34 p.y = 98 p.z = 343 getPoint(p)