From 26b0b8ee72e1704f841057f3778c943f73f1d7f5 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Sun, 17 Feb 2013 21:11:23 +0100
Subject: [PATCH] Map some more SC related ops.

---
 src/QAST/Operations.nqp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/QAST/Operations.nqp b/src/QAST/Operations.nqp
index a2007ad299..bae0a2cee4 100644
--- a/src/QAST/Operations.nqp
+++ b/src/QAST/Operations.nqp
@@ -1766,6 +1766,25 @@ QAST::Operations.add_core_pirop_mapping('getobjsc', 'nqp_get_sc_for_object', 'PP
 QAST::Operations.add_core_pirop_mapping('serialize', 'nqp_serialize_sc', 'SPP');
 QAST::Operations.add_core_pirop_mapping('deserialize', 'nqp_deserialize_sc', '0sPPPP');
 QAST::Operations.add_core_pirop_mapping('wval', 'nqp_get_sc_object', 'Psi');
+QAST::Operations.add_core_op('scwbdisable', -> $qastcomp, $op {
+    my $ops := PIRT::Ops.new();
+    $ops.push_pirop('nqp_disable_sc_write_barrier');
+    $ops.result('null');
+    $ops
+});
+QAST::Operations.add_core_op('scwbenable', -> $qastcomp, $op {
+    my $ops := PIRT::Ops.new();
+    $ops.push_pirop('nqp_enable_sc_write_barrier');
+    $ops.result('null');
+    $ops
+});
+QAST::Operations.add_core_pirop_mapping('pushcompsc', 'nqp_push_compiling_sc', '0P');
+QAST::Operations.add_core_op('popcompsc', -> $qastcomp, $op {
+    my $ops := PIRT::Ops.new();
+    $ops.push_pirop('nqp_pop_compiling_sc');
+    $ops.result('null');
+    $ops
+});
 
 # hll related opcodes
 QAST::Operations.add_core_pirop_mapping('getcomp', 'compreg', 'Ps');