fixes #2
This commit is contained in:
parent
77222b2aad
commit
cacb200eff
2 changed files with 3 additions and 4 deletions
|
|
@ -172,7 +172,9 @@ proc minRel(a, b: TTypeRelation): TTypeRelation =
|
|||
|
||||
proc tupleRel(mapping: var TIdTable, f, a: PType): TTypeRelation =
|
||||
result = isNone
|
||||
if sonsLen(a) == sonsLen(f):
|
||||
if sameType(f, a):
|
||||
result = isEqual
|
||||
elif sonsLen(a) == sonsLen(f):
|
||||
result = isEqual
|
||||
for i in countup(0, sonsLen(f) - 1):
|
||||
var m = typeRel(mapping, f.sons[i], a.sons[i])
|
||||
|
|
|
|||
|
|
@ -1,6 +1,3 @@
|
|||
discard """
|
||||
disabled: true
|
||||
"""
|
||||
|
||||
type
|
||||
PNode = ref TNode
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue