make tsets test green again

This commit is contained in:
Araq 2016-12-22 09:53:46 +01:00
commit 237e2664e0

View file

@ -127,15 +127,16 @@ const
tyDistinct, tyRange, tyStatic, tyAlias} tyDistinct, tyRange, tyStatic, tyAlias}
proc getTypeName(m: BModule; typ: PType; sig: SigHash): Rope = proc getTypeName(m: BModule; typ: PType; sig: SigHash): Rope =
var typ = typ var t = typ
while true: while true:
if typ.sym != nil and {sfImportc, sfExportc} * typ.sym.flags != {}: if t.sym != nil and {sfImportc, sfExportc} * t.sym.flags != {}:
return typ.sym.loc.r return t.sym.loc.r
if typ.kind in irrelevantForBackend: if t.kind in irrelevantForBackend:
typ = typ.lastSon t = t.lastSon
else: else:
break break
let typ = if typ.kind == tyAlias: typ.lastSon else: typ
if typ.loc.r == nil: if typ.loc.r == nil:
typ.loc.r = typ.typeName & $sig typ.loc.r = typ.typeName & $sig
else: else: