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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Sep 25 13:02:25 2010
New Revision: 49324
URL: https://trac.parrot.org/parrot/changeset/49324

Log:
r49300 was a mistake

Modified:
   trunk/src/ops/cmp.ops
   trunk/src/ops/core_ops.c

Modified: trunk/src/ops/cmp.ops
==============================================================================
--- trunk/src/ops/cmp.ops	Sat Sep 25 11:34:15 2010	(r49323)
+++ trunk/src/ops/cmp.ops	Sat Sep 25 13:02:25 2010	(r49324)
@@ -960,7 +960,7 @@
 inline op not(out PMC, invar PMC) :base_core {
     const INTVAL a = ! VTABLE_get_bool(interp, $2);
     if (PMC_IS_NULL($1))
-        $1 = VTABLE_clone(interp, $2);
+        $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Boolean));
     VTABLE_set_bool(interp, $1, a);
 }
 

Modified: trunk/src/ops/core_ops.c
==============================================================================
--- trunk/src/ops/core_ops.c	Sat Sep 25 11:34:15 2010	(r49323)
+++ trunk/src/ops/core_ops.c	Sat Sep 25 13:02:25 2010	(r49324)
@@ -18244,7 +18244,7 @@
     const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
     const INTVAL a = ! VTABLE_get_bool(interp, PREG(2));
     if (PMC_IS_NULL(PREG(1)))
-        PREG(1) = VTABLE_clone(interp, PREG(2));
+        PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Boolean));
     VTABLE_set_bool(interp, PREG(1), a);
 
 return (opcode_t *)cur_opcode + 3;}