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:
|
||||
while a.kind == tyDistinct: a = a.sons[0]
|
||||
if a.kind != b.kind: return false
|
||||
if x.Kind == tyGenericInst or y.Kind == tyGenericInst:
|
||||
c.cmp = dcEqIgnoreDistinct
|
||||
case a.Kind
|
||||
of tyEmpty, tyChar, tyBool, tyNil, tyPointer, tyString, tyCString,
|
||||
tyInt..tyBigNum, tyStmt:
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue