This commit is contained in:
Zahary Karadjov 2013-05-25 15:19:03 +03:00
commit 7fccdedcb5
5 changed files with 192 additions and 105 deletions

View file

@ -982,6 +982,8 @@ proc matchTypeClass*(bindings: var TIdTable, typeClass, t: PType): bool =
# if the loop finished without returning, either all constraints matched
# or none of them matched.
result = if tfAny in typeClass.flags: false else: true
if result == true:
IdTablePut(bindings, typeClass, t)
proc matchTypeClass*(typeClass, typ: PType): bool =
var bindings: TIdTable