Author: jonathan
Date: Sat Apr 14 08:16:08 2007
New Revision: 18197
Modified:
trunk/src/pmc/class.pmc
trunk/src/pmc/role.pmc
trunk/t/oo/ops.t
Log:
[PDD15]: Fix clone of null PMC bug in inspect vtable methods and un-todo a test
that failed due to it.
Modified: trunk/src/pmc/class.pmc
==============================================================================
--- trunk/src/pmc/class.pmc (original)
+++ trunk/src/pmc/class.pmc Sat Apr 14 08:16:08 2007
@@ -498,7 +498,7 @@
}
/* Clone and return. */
- return VTABLE_clone(interp, found);
+ return PMC_IS_NULL(found) ? PMCNULL : VTABLE_clone(interp, found);
}
/*
Modified: trunk/src/pmc/role.pmc
==============================================================================
--- trunk/src/pmc/role.pmc (original)
+++ trunk/src/pmc/role.pmc Sat Apr 14 08:16:08 2007
@@ -294,7 +294,7 @@
}
/* Clone and return. */
- return VTABLE_clone(interp, found);
+ return PMC_IS_NULL(found) ? PMCNULL : VTABLE_clone(interp, found);
}
Modified: trunk/t/oo/ops.t
==============================================================================
--- trunk/t/oo/ops.t (original)
+++ trunk/t/oo/ops.t Sat Apr 14 08:16:08 2007
@@ -41,7 +41,7 @@
ok 2 - addrole op actually added the role
OUT
-pir_output_is( <<'CODE', <<'OUT', 'inspect_p_p', todo => 'inspect vtable
method for class broke' );
+pir_output_is( <<'CODE', <<'OUT', 'inspect_p_p' );
.sub 'test' :main
$P0 = new 'Class'
