develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35479 - branches/pcc_invoke_convert/src/pmc

From:
allison
Date:
January 12, 2009 23:59
Subject:
[svn:parrot] r35479 - branches/pcc_invoke_convert/src/pmc
Message ID:
20090113075943.4E054CB9F9@x12.develooper.com
Author: allison
Date: Mon Jan 12 23:59:42 2009
New Revision: 35479

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

Log:
[calling_conventions] Re-removing unnecessary mark from CPointer PMC.


Modified: branches/pcc_invoke_convert/src/pmc/cpointer.pmc
==============================================================================
--- branches/pcc_invoke_convert/src/pmc/cpointer.pmc	(original)
+++ branches/pcc_invoke_convert/src/pmc/cpointer.pmc	Mon Jan 12 23:59:42 2009
@@ -90,18 +90,6 @@
         if (data->sig)
             pobject_lives(interp, (PObj *)data->sig);
 
-        if (data->pointer) {
-            if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
-                PMC **pmc_pointer = (PMC **) data->pointer;
-                PARROT_ASSERT(*pmc_pointer);
-                pobject_lives(interp, (PObj *) *pmc_pointer);
-            }
-            else if (string_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
-                STRING **str_pointer = (STRING **) data->pointer;
-                PARROT_ASSERT(*str_pointer);
-                pobject_lives(interp, (PObj *) *str_pointer);
-            }
-        }
     }
 
 /*



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About