This commit is contained in:
Araq
2011-11-02 02:47:34 +01:00
parent 77222b2aad
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 =
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])

View File

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