This commit is contained in:
Araq 2011-11-02 02:47:34 +01:00
commit cacb200eff
2 changed files with 3 additions and 4 deletions

View file

@ -172,7 +172,9 @@ proc minRel(a, b: TTypeRelation): TTypeRelation =
proc tupleRel(mapping: var TIdTable, f, a: PType): TTypeRelation = proc tupleRel(mapping: var TIdTable, f, a: PType): TTypeRelation =
result = isNone result = isNone
if sonsLen(a) == sonsLen(f): if sameType(f, a):
result = isEqual
elif sonsLen(a) == sonsLen(f):
result = isEqual result = isEqual
for i in countup(0, sonsLen(f) - 1): for i in countup(0, sonsLen(f) - 1):
var m = typeRel(mapping, f.sons[i], a.sons[i]) var m = typeRel(mapping, f.sons[i], a.sons[i])

View file

@ -1,6 +1,3 @@
discard """
disabled: true
"""
type type
PNode = ref TNode PNode = ref TNode