fix for Issue #629 Recursive generic types not working
This commit is contained in:
parent
7832f25abf
commit
9df232911c
1 changed files with 2 additions and 0 deletions
|
|
@ -825,6 +825,8 @@ proc SameTypeAux(x, y: PType, c: var TSameTypeClosure): bool =
|
||||||
of dcEqOrDistinctOf:
|
of dcEqOrDistinctOf:
|
||||||
while a.kind == tyDistinct: a = a.sons[0]
|
while a.kind == tyDistinct: a = a.sons[0]
|
||||||
if a.kind != b.kind: return false
|
if a.kind != b.kind: return false
|
||||||
|
if x.Kind == tyGenericInst or y.Kind == tyGenericInst:
|
||||||
|
c.cmp = dcEqIgnoreDistinct
|
||||||
case a.Kind
|
case a.Kind
|
||||||
of tyEmpty, tyChar, tyBool, tyNil, tyPointer, tyString, tyCString,
|
of tyEmpty, tyChar, tyBool, tyNil, tyPointer, tyString, tyCString,
|
||||||
tyInt..tyBigNum, tyStmt:
|
tyInt..tyBigNum, tyStmt:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue