more fixes for new integer promotion rules; fixes #152; fixes #157; fixes #156; fixes #155

2012-07-09 21:11:11 +02:00 · 2012-07-09 21:11:11 +02:00 · 4966212141
commit 4966212141
parent 049de0ef66
8 changed files with 27 additions and 20 deletions
--- a/compiler/types.nim
+++ b/compiler/types.nim
@ -1094,3 +1094,9 @@ proc getSize(typ: PType): biggestInt =
  result = computeSize(typ)
  if result < 0: InternalError("getSize(" & $typ.kind & ')')

+  
+proc containsGenericTypeIter(t: PType, closure: PObject): bool = 
+  result = t.kind in GenericTypes
+
+proc containsGenericType*(t: PType): bool = 
+  result = iterOverType(t, containsGenericTypeIter, nil)