bugfix: tcan_inherit_generic works again

This commit is contained in:
Araq 2012-10-19 21:43:18 +02:00
commit ac978b3203
2 changed files with 9 additions and 1 deletions

View file

@ -92,7 +92,7 @@ proc InvalidGenericInst(f: PType): bool =
proc isPureObject(typ: PType): bool =
var t = typ
while t.sons[0] != nil: t = t.sons[0]
while t.kind == tyObject and t.sons[0] != nil: t = t.sons[0]
result = t.sym != nil and sfPure in t.sym.flags
proc getOrdValue(n: PNode): biggestInt =