This commit is contained in:
Andreas Rumpf
2016-09-01 16:19:45 +02:00
parent 3a13706d7d
commit 9c44403934

View File

@@ -812,7 +812,9 @@ proc genTypeInfoAuxBase(m: BModule; typ, origType: PType; name, base: Rope) =
proc genTypeInfoAux(m: BModule, typ, origType: PType, name: Rope) =
var base: Rope
if (sonsLen(typ) > 0) and (typ.sons[0] != nil):
base = genTypeInfo(m, typ.sons[0])
var x = typ.sons[0]
if typ.kind == tyObject: x = x.skipTypes(skipPtrs)
base = genTypeInfo(m, x)
else:
base = rope("0")
genTypeInfoAuxBase(m, typ, origType, name, base)