better better fix for Issue #629 Recursive generic types not working
This commit is contained in:
parent
4330c986db
commit
f8206cb357
1 changed files with 4 additions and 5 deletions
|
|
@ -838,10 +838,9 @@ proc SameTypeAux(x, y: PType, c: var TSameTypeClosure): bool =
|
||||||
of tyDistinct:
|
of tyDistinct:
|
||||||
CycleCheck()
|
CycleCheck()
|
||||||
if c.cmp == dcEq:
|
if c.cmp == dcEq:
|
||||||
result = false
|
if sameFlags(a, b):
|
||||||
if a.sym != nil and b.sym != nil:
|
IfFastObjectTypeCheckFailed(a, b):
|
||||||
if a.sym.name == b.sym.name:
|
result = sameTypeAux(a.sons[0], b.sons[0], c)
|
||||||
result = sameTypeAux(a.sons[0], b.sons[0], c) and sameFlags(a, b)
|
|
||||||
else:
|
else:
|
||||||
result = sameTypeAux(a.sons[0], b.sons[0], c) and sameFlags(a, b)
|
result = sameTypeAux(a.sons[0], b.sons[0], c) and sameFlags(a, b)
|
||||||
of tyEnum, tyForward, tyProxy:
|
of tyEnum, tyForward, tyProxy:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue