[svn:parrot] r40581 - branches/pcc_arg_unify/src/pmc

allison at svn.parrot.org allison at svn.parrot.org
Sun Aug 16 05:37:17 UTC 2009


Author: allison
Date: Sun Aug 16 05:37:16 2009
New Revision: 40581
URL: https://trac.parrot.org/parrot/changeset/40581

Log:
[pcc] Removing unnecessary mark.

Modified:
   branches/pcc_arg_unify/src/pmc/cpointer.pmc

Modified: branches/pcc_arg_unify/src/pmc/cpointer.pmc
==============================================================================
--- branches/pcc_arg_unify/src/pmc/cpointer.pmc	Sun Aug 16 05:23:19 2009	(r40580)
+++ branches/pcc_arg_unify/src/pmc/cpointer.pmc	Sun Aug 16 05:37:16 2009	(r40581)
@@ -87,19 +87,6 @@
 
         if (data->sig) {
             Parrot_gc_mark_PObj_alive(interp, (PObj *)data->sig);
-
-            if (data->pointer) {
-                if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P"))) {
-                    PMC ** const pmc_pointer = (PMC **) data->pointer;
-                    PARROT_ASSERT(*pmc_pointer);
-                    Parrot_gc_mark_PObj_alive(interp, (PObj *) *pmc_pointer);
-                }
-                else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "S"))) {
-                    STRING ** const str_pointer = (STRING **) data->pointer;
-                    PARROT_ASSERT(*str_pointer);
-                    Parrot_gc_mark_PObj_alive(interp, (PObj *) *str_pointer);
-                }
-            }
         }
     }
 


More information about the parrot-commits mailing list