Files
Nim/tests/tobject2.nim
2009-09-15 23:22:22 +02:00

22 lines
280 B
Nim
Executable File

# Tests the object implementation
type
TPoint2d = 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)