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

[svn:parrot] r35087 - trunk/src/pmc

From:
allison
Date:
January 6, 2009 19:34
Subject:
[svn:parrot] r35087 - trunk/src/pmc
Message ID:
20090107033449.36B3FCB9F9@x12.develooper.com
Author: allison
Date: Tue Jan  6 19:34:47 2009
New Revision: 35087

Modified:
   trunk/src/pmc/default.pmc

Log:
[cage] Fix improper PMCNULL handling in default 'isa_pmc'.


Modified: trunk/src/pmc/default.pmc
==============================================================================
--- trunk/src/pmc/default.pmc	(original)
+++ trunk/src/pmc/default.pmc	Tue Jan  6 19:34:47 2009
@@ -906,6 +906,9 @@
 */
 
     VTABLE INTVAL isa_pmc(PMC *lookup) {
+        if (PMC_IS_NULL(lookup))
+            return 0;
+
         /* RT #46665 - walk mro */
         return parrot_hash_exists(INTERP, SELF->vtable->isa_hash,
                 (void *)VTABLE_get_string(interp, lookup));



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