nqp::eqaddr should be core, not NQP only.

Raku · Jun 22, 2013 · ec11079 · ec11079
1 parent d05299e
commit ec11079
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 8 deletions.
diff --git a/src/vm/parrot/NQP/Ops.nqp b/src/vm/parrot/NQP/Ops.nqp
@@ -86,14 +86,6 @@ $ops.add_hll_op('nqp', 'stringify', -> $qastcomp, $op {
     $qastcomp.as_post($op[0], :want('s'))
 });
 
-$ops.add_hll_op('nqp', 'eqaddr', -> $qastcomp, $op {
-    $qastcomp.as_post(QAST::Op.new(
-        :op('iseq_i'),
-        QAST::Op.new( :op('where'), $op[0] ),
-        QAST::Op.new( :op('where'), $op[1] )
-    ))
-});
-
 $ops.add_hll_op('nqp', 'falsey', -> $qastcomp, $op {
     my $res := $*REGALLOC.fresh_i();
     my $ops := PIRT::Ops.new(:result($res));

diff --git a/src/vm/parrot/QAST/Operations.nqp b/src/vm/parrot/QAST/Operations.nqp
@@ -2091,6 +2091,13 @@ QAST::Operations.add_core_pirop_mapping('iscont', 'is_container', 'IP', :inlinab
 QAST::Operations.add_core_pirop_mapping('decont', 'nqp_decontainerize', 'PP', :inlinable(1));
 QAST::Operations.add_core_pirop_mapping('assign', 'nqp_assign', '0PP', :inlinable(1));
 QAST::Operations.add_core_pirop_mapping('assignunchecked', 'nqp_assignunchecked', '0PP', :inlinable(1));
+QAST::Operations.add_core_op('eqaddr', -> $qastcomp, $op {
+    $qastcomp.as_post(QAST::Op.new(
+        :op('iseq_i'),
+        QAST::Op.new( :op('where'), $op[0] ),
+        QAST::Op.new( :op('where'), $op[1] )
+    ))
+});
 
 # lexical related opcodes
 QAST::Operations.add_core_pirop_mapping('getlex', 'find_lex', 'Ps');