This commit is contained in:
Araq
2014-11-18 01:46:52 +01:00
parent c5cc20d337
commit 17736a1eb4
2 changed files with 17 additions and 1 deletions

View File

@@ -1125,7 +1125,7 @@ proc genObjConstr(p: BProc, e: PNode, d: var TLoc) =
ty = getUniqueType(ty.sons[0])
if field == nil or field.loc.r == nil: internalError(e.info, "genObjConstr")
if it.len == 3 and optFieldCheck in p.options:
genFieldCheck(p, it.sons[2], r, field)
genFieldCheck(p, it.sons[2], tmp2.r, field)
app(tmp2.r, ".")
app(tmp2.r, field.loc.r)
tmp2.k = locTemp

View File

@@ -32,3 +32,19 @@ type
size: tuple[w, h: float]
var d = Graphic(kind: 1, size: (12.9, 6.9))
# bug #1274
type
K = enum Koo, Kar
Graphic2 = object of RootObj
case kind: K
of Koo:
radius: float
of Kar:
size: tuple[w, h: float]
type NamedGraphic = object of Graphic2
name: string
var ngr = NamedGraphic(kind: Koo, radius: 6.9, name: "Foo")
echo ngr.name