[svn:parrot] r47328 - branches/gc_massacre/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Jun  3 10:29:52 2010
New Revision: 47328
URL: https://trac.parrot.org/parrot/changeset/47328

Log:
Pacify compiler.

Modified:
   branches/gc_massacre/src/gc/gc_tms.c

Modified: branches/gc_massacre/src/gc/gc_tms.c
==============================================================================
--- branches/gc_massacre/src/gc/gc_tms.c	Thu Jun  3 08:53:49 2010	(r47327)
+++ branches/gc_massacre/src/gc/gc_tms.c	Thu Jun  3 10:29:52 2010	(r47328)
@@ -13,6 +13,7 @@
 */
 
 #include "parrot/parrot.h"
+#include "parrot/gc_api.h"
 #include "gc_private.h"
 #include "list.h"
 #include "pool_allocator.h"
@@ -668,7 +669,7 @@
     Parrot_gc_trace_root(interp, NULL, GC_TRACE_FULL);
 
     if (interp->pdb && interp->pdb->debugger) {
-        Parrot_gc_trace_root(interp->pdb->debugger, NULL, Parrot_gc_trace_type(0));
+        Parrot_gc_trace_root(interp->pdb->debugger, NULL, (Parrot_gc_trace_type)0);
     }
 
     gc_tms_mark_pmc_header(interp, PMCNULL);
@@ -681,7 +682,7 @@
     self.mark_real($_) for self.grey_objects;
     */
     counter = 0;
-    while (tmp = Parrot_gc_list_pop(interp, self->grey_objects)) {
+    while ((tmp = Parrot_gc_list_pop(interp, self->grey_objects))) {
         PARROT_ASSERT(tmp->owner == self->grey_objects);
         PARROT_ASSERT(PObj_grey_TEST(LLH2Obj_typed(tmp, PMC)));
 
@@ -742,7 +743,7 @@
     self->objects = list;
 
     //fprintf(stderr, "Appending %zd\n", self->black_objects->count);
-    while (tmp = Parrot_gc_list_pop(interp, self->black_objects)) {
+    while ((tmp = Parrot_gc_list_pop(interp, self->black_objects))) {
         PARROT_ASSERT(tmp->owner == self->black_objects);
         Parrot_gc_list_append(interp, self->objects, tmp);
     }