make tests green again

This commit is contained in:
Andreas Rumpf 2018-07-05 19:14:18 +02:00
commit ae82406c8b
13 changed files with 18 additions and 17 deletions

View file

@ -1,5 +1,5 @@
type
TBase = object of TObject
TBase = object of RootObj
x, y: int
TSubclassKind = enum ka, kb, kc, kd, ke, kf
@ -13,7 +13,7 @@ type
n: bool
type
TMyObject = object of TObject
TMyObject = object of RootObj
case disp: range[0..4]
of 0: arg: char
of 1: s: string