progress towards fixing tgenericshardcases

This commit is contained in:
Zahary Karadjov 2014-01-06 00:15:55 +02:00
commit 1ffae7cbaf
9 changed files with 146 additions and 43 deletions

View file

@ -1231,7 +1231,7 @@ proc getSize(typ: PType): BiggestInt =
if result < 0: internalError("getSize: " & $typ.kind)
proc containsGenericTypeIter(t: PType, closure: PObject): bool =
result = t.kind in GenericTypes + tyTypeClasses + {tyTypeDesc} or
result = t.kind in GenericTypes + tyTypeClasses + {tyTypeDesc,tyFromExpr} or
t.kind == tyStatic and t.n == nil
proc containsGenericType*(t: PType): bool =