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 =
|
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])
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,3 @@
|
||||||
discard """
|
|
||||||
disabled: true
|
|
||||||
"""
|
|
||||||
|
|
||||||
type
|
type
|
||||||
PNode = ref TNode
|
PNode = ref TNode
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue