runtime: we should never gc the main thread, workaround fix

Signed-off-by: Jafar Al-Gharaibeh <[email protected]>

src/runtime/rmemmgt.r

@@ -1499,7 +1499,7 @@ static void reclaim()
     */
    compact(blkbase);
    }
-
+
 /*
  * cofree - collect co-expression blocks.  This is done after
  *  the marking phase of garbage collection and the stacks that are
@@ -1535,6 +1535,8 @@ static void cofree()
 
          xep = *ep;
          *ep = (*ep)->nextstk;
+         if (xep->program == &rootpstate || xep->id == 1)
+            continue;
          /*
           * Free the astkblks.  There should always be one and it seems that
           *  it's not possible to have more than one, but nonetheless, the
@@ -1547,12 +1549,12 @@ static void cofree()
                free((pointer)xabp);
 #if 0
             else 
-	       fprintf(stderr,"Warning: internal gc error: activator list is not empty.\n"); 
+               fprintf(stderr,"Warning: internal gc error: activator list is not empty.\n"); 
 #endif
             } /* for abp */ 
 
          #ifdef CoClean
- 	    coclean(xep);
+         coclean(xep);
          #endif				/* CoClean */
 
          free((pointer)xep);
@@ -1563,7 +1565,7 @@ static void cofree()
          }
       }
    }
-
+
 /*
  * scollect - collect the string space.  quallist is a list of pointers to
  *  descriptors for all the reachable strings in the string space.  For