fixes the recently discovered GC memory leaks

This revision is intended as comparison point between the old and the new GC
The used GC can be switched in mmdisp and various statistics will be gathered during
execution (these will be removed/disabled in later revisions)

compiler/ccgtypes.nim

@@ -285,6 +285,12 @@ proc getParamTypeDesc(m: BModule, t: PType, check: var TIntSet): PRope =
         return getTypeDescAux(m, b, check)
   result = getTypeDescAux(m, t, check)
 
+proc paramStorageLoc(param: PSym): TStorageLoc =
+  if param.typ.skipTypes({tyVar}).kind notin {tyArray, tyOpenArray}:
+    result = OnStack
+  else:
+    result = OnUnknown
+
 proc genProcParams(m: BModule, t: PType, rettype, params: var PRope, 
                    check: var TIntSet, declareEnvironment=true) = 
   params = nil
@@ -297,7 +303,8 @@ proc genProcParams(m: BModule, t: PType, rettype, params: var PRope,
     var param = t.n.sons[i].sym
     if isCompileTimeOnly(param.typ): continue
     if params != nil: app(params, ~", ")
-    fillLoc(param.loc, locParam, param.typ, mangleName(param), OnStack)
+    fillLoc(param.loc, locParam, param.typ, mangleName(param),
+            param.paramStorageLoc)
     app(params, getParamTypeDesc(m, param.typ, check))
     if ccgIntroducedPtr(param): 
       app(params, ~"*")

compiler/idents.nim

@@ -25,7 +25,7 @@ type
     next*: PIdent             # for hash-table chaining
     h*: THash                 # hash value of s
   
-var buckets: array[0..4096 * 2 - 1, PIdent]
+var buckets*: array[0..4096 * 2 - 1, PIdent]
 
 proc cmpIgnoreStyle(a, b: cstring, blen: int): int =
   var i = 0
@@ -102,5 +102,5 @@ proc getIdent*(identifier: string, h: THash): PIdent =
 proc IdentEq*(id: PIdent, name: string): bool = 
   result = id.id == getIdent(name).id
 
-let idAnon* = getIdent":anonymous"
+var idAnon* = getIdent":anonymous"
 

compiler/main.nim

@@ -394,7 +394,57 @@ proc dbgseqimp(x: PGenericSeq) {.cdecl.} =
 
 seqdbg = dbgseqimp
 
+proc resetMemory =
+  resetCompilationLists()
+  ccgutils.resetCaches()
+  ResetAllModules()
+  resetRopeCache()
+  resetSysTypes()
+  gGenericsCache = nil
+  gOwners = @[]
+  rangeDestructorProc = nil
+  for i in low(buckets)..high(buckets):
+    buckets[i] = nil
+  idAnon = nil
+  
+  # XXX: clean these global vars
+  # ccgstmts.gBreakpoints
+  # ccgthreadvars.nimtv
+  # ccgthreadvars.nimtVDeps
+  # ccgthreadvars.nimtvDeclared
+  # cgendata
+  # cgmeth?
+  # condsyms?
+  # depends?
+  # lexer.gLinesCompiled
+  # msgs - error counts
+  # magicsys, when system.nim changes
+  # rodread.rodcompilerProcs
+  # rodread.gTypeTable
+  # rodread.gMods
+  
+  # !! ropes.cache
+  # !! semdata.gGenericsCache
+  # semthreads.computed?
+  #
+  # suggest.usageSym
+  #
+  # XXX: can we run out of IDs?
+  # XXX: detect config reloading (implement as error/require restart)
+  # XXX: options are appended (they will accumulate over time)
+  # vis = visimpl
+  gcDebugging = true
+  echo "COLLECT 1"
+  GC_fullCollect()
+  echo "COLLECT 2"
+  GC_fullCollect()
+  echo "COLLECT 3"
+  GC_fullCollect()
+  echo GC_getStatistics()
+
 proc MainCommand =
+  gGlobalOptions.incl(optCaasEnabled)
+    
   # In "nimrod serve" scenario, each command must reset the registered passes
   clearPasses()
   gLastCmdTime = epochTime()
@@ -499,47 +549,7 @@ proc MainCommand =
     # XXX: temporary command for easier testing
     commandEval(mainCommandArg())
   of "reset":
-    ResetModule(gProjectMainIdx)
-    gcDebugging = true
-    GC_fullCollect()
-
-    resetCompilationLists()
-    ccgutils.resetCaches()
-    ResetAllModules()
-    resetRopeCache()
-    resetSysTypes()
-    gGenericsCache = nil
-    gOwners = @[]
-    rangeDestructorProc = nil
-    
-    # XXX: clean these global vars
-    # ccgstmts.gBreakpoints
-    # ccgthreadvars.nimtv
-    # ccgthreadvars.nimtVDeps
-    # ccgthreadvars.nimtvDeclared
-    # cgendata
-    # cgmeth?
-    # condsyms?
-    # depends?
-    # lexer.gLinesCompiled
-    # msgs - error counts
-    # magicsys, when system.nim changes
-    # rodread.rodcompilerProcs
-    # rodread.gTypeTable
-    # rodread.gMods
-    
-    # !! ropes.cache
-    # !! semdata.gGenericsCache
-    # semthreads.computed?
-    #
-    # suggest.usageSym
-    #
-    # XXX: can we run out of IDs?
-    # XXX: detect config reloading (implement as error/require restart)
-    # XXX: options are appended (they will accumulate over time)
-    # vis = visimpl
-    GC_fullCollect()
-    echo GC_getStatistics()
+    resetMemory()
   of "idetools":
     gCmd = cmdIdeTools
     if gEvalExpr != "":
@@ -565,3 +575,5 @@ proc MainCommand =
   echo "  int tries: ", gCacheIntTries
   echo "  efficiency: ", formatFloat(1-(gCacheMisses.float/gCacheTries.float), ffDecimal, 3)
 
+  # resetMemory()
+