make tsets test green again
This commit is contained in:
parent
0f9d746da5
commit
237e2664e0
1 changed files with 6 additions and 5 deletions
|
|
@ -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:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue