[svn:parrot] r30314 - in branches/gsoc_pdd09/src: . gc ops

[Whiteknight]

Author: Whiteknight
Date: Mon Aug 18 15:14:22 2008
New Revision: 30314

Modified:
   branches/gsoc_pdd09/src/gc/gc_it.c
   branches/gsoc_pdd09/src/oo.c
   branches/gsoc_pdd09/src/ops/pmc.ops
   branches/gsoc_pdd09/src/vtables.c

Log:
[gsoc_pdd09] remove some obnoxious debugging messages that weren't helping, 
comment out the PMC sweep code, which exposes a different problem.

Modified: branches/gsoc_pdd09/src/gc/gc_it.c
==============================================================================
--- branches/gsoc_pdd09/src/gc/gc_it.c  (original)
+++ branches/gsoc_pdd09/src/gc/gc_it.c  Mon Aug 18 15:14:22 2008
@@ -328,7 +328,7 @@
         case GC_IT_SWEEP_PMCS:
             if (Parrot_is_blocked_GC_sweep(interp))
                 break;
-            gc_it_sweep_pmc_pools(interp);
+            //gc_it_sweep_pmc_pools(interp);
             gc_priv_data->state = GC_IT_SWEEP_BUFFERS;
             GC_IT_BREAK_AFTER_5;
 

Modified: branches/gsoc_pdd09/src/oo.c
==============================================================================
--- branches/gsoc_pdd09/src/oo.c        (original)
+++ branches/gsoc_pdd09/src/oo.c        Mon Aug 18 15:14:22 2008
@@ -273,22 +273,19 @@
     PMC * const ns     = Parrot_get_namespace_keyed_str(interp, hll_ns, name);
     PMC * const _class = PMC_IS_NULL(ns)
                        ? PMCNULL : VTABLE_get_class(interp, ns);
-    fprintf(stderr, "Creating %s _class %p\n", _class == PMCNULL ? "null":"non 
null", _class);
+
     /* Look up a low-level class and create a proxy */
     if (PMC_IS_NULL(_class)) {
         const INTVAL type = pmc_type(interp, name);
 
         /* Reject invalid type numbers */
-        if (type > interp->n_vtable_max || type <= 0) {
-            fprintf(stderr, "Creating NULL pmc class\n");
+        if (type > interp->n_vtable_max || type <= 0)
             return PMCNULL;
-        }
         else {
             PMC * const type_num = pmc_new(interp, enum_class_Integer);
             PMC * c;
             VTABLE_set_integer_native(interp, type_num, type);
             c = pmc_new_init(interp, enum_class_PMCProxy, type_num);
-            fprintf(stderr, "Creating class %p from type %d\n", c, 
enum_class_PMCProxy);
             return c;
         }
     }

Modified: branches/gsoc_pdd09/src/ops/pmc.ops
==============================================================================
--- branches/gsoc_pdd09/src/ops/pmc.ops (original)
+++ branches/gsoc_pdd09/src/ops/pmc.ops Mon Aug 18 15:14:22 2008
@@ -86,10 +86,8 @@
     STRING * const classname = $2;
     PMC * const classobj = Parrot_oo_get_class_str(interp, classname);
 
-    if (!PMC_IS_NULL(classobj)) {
-        fprintf(stderr, "Instantiating class from %p\n", classobj);
+    if (!PMC_IS_NULL(classobj))
         $1 = VTABLE_instantiate(interp, classobj, PMCNULL);
-    }
     else {
         const INTVAL type = pmc_type(interp, classname);
         if (type <= 0)

Modified: branches/gsoc_pdd09/src/vtables.c
==============================================================================
--- branches/gsoc_pdd09/src/vtables.c   (original)
+++ branches/gsoc_pdd09/src/vtables.c   Mon Aug 18 15:14:22 2008
@@ -209,12 +209,8 @@
             pobject_lives(interp, (PObj *)vtable->whoami);
         if (vtable->provides_str)
             pobject_lives(interp, (PObj *)vtable->provides_str);
-        if (vtable->pmc_class) {
-            fprintf(stderr, "Marking class pmc %p\n", vtable->pmc_class);
+        if (vtable->pmc_class)
             pobject_lives(interp, (PObj *)vtable->pmc_class);
-        } else {
-            fprintf(stderr, "vtable has no class pmc!\n");
-        }
     }
 }