tests/objects/tobject2.nim


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)