#1393: t/compilers/pge/pge_examples.t: PASS by itself, FAIL during 'make smoke'
---------------------+------------------------------------------------------
Reporter: jkeenan | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: testing | Version: 1.9.0
Severity: medium | Keywords:
Lang: | Patch:
Platform: |
---------------------+------------------------------------------------------
Changes (by jkeenan):
* cc: mikehh (added)
Comment:
Today I had the time to do some bisection on this problem. It appears
that the culprit is r43211:
{{{
Index: src/ops/pmc.ops
===================================================================
--- src/ops/pmc.ops (revision 43210)
+++ src/ops/pmc.ops (revision 43211)
@@ -51,7 +51,9 @@
op new(out PMC, in STR) {
STRING * const name = $2;
- PMC * const _class = Parrot_oo_get_class_str(interp, name);
+ PMC * const _class = Parrot_pcc_get_HLL(interp,
CURRENT_CONTEXT(interp))
+ ? Parrot_oo_get_class_str(interp, name)
+ : PMCNULL;
if (!PMC_IS_NULL(_class))
$1 = VTABLE_instantiate(interp, _class, PMCNULL);
@@ -69,7 +71,9 @@
op new(out PMC, in STR, in PMC) {
STRING * const name = $2;
- PMC * const _class = Parrot_oo_get_class_str(interp, name);
+ PMC * const _class = Parrot_pcc_get_HLL(interp,
CURRENT_CONTEXT(interp))
+ ? Parrot_oo_get_class_str(interp, name)
+ : PMCNULL;
if (!PMC_IS_NULL(_class))
$1 = VTABLE_instantiate(interp, _class, $3);
}}}
Beginning with r43211, `perl t/harness --gc-debug
t/compilers/pge/pge_examples.t` gives the FAIL described in previous
posts, while `perl t/harness t/compilers/pge/pge_examples.t` gives a PASS.
Why such a small change should cause such an unusual FAIL I cannot say.
mikehh, can you take a look? Thanks.
kid51
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/1393#comment:9>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
