[svn:parrot] r43211 - trunk/src/ops

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Dec 22 16:26:32 2009
New Revision: 43211
URL: https://trac.parrot.org/parrot/changeset/43211

Log:
restore partial reversion as it passes now (TT #1368 resolved after context_unify3_simple branch merge)

Modified:
   trunk/src/ops/pmc.ops

Modified: trunk/src/ops/pmc.ops
==============================================================================
--- trunk/src/ops/pmc.ops	Tue Dec 22 16:24:50 2009	(r43210)
+++ trunk/src/ops/pmc.ops	Tue Dec 22 16:26:32 2009	(r43211)
@@ -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);