From f8ea414c9294b12b5cd9115bce96fb5d5a8066fa Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Fri, 12 Feb 2010 21:36:42 +0100
Subject: [PATCH] Implement x_setprophash dynop for pmichaud++.

---
 src/ops/perl6.ops | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
index f038c3b883b..658fd04dfc2 100644
--- a/src/ops/perl6.ops
+++ b/src/ops/perl6.ops
@@ -686,6 +686,21 @@ inline op bind_signature(in PMC) :base_core {
     }
 }
 
+
+/*
+
+=item x_setprophash(in PMC, in PMC)
+
+Sets the properties hash of $1 to be $2.
+
+=cut
+
+*/
+inline op x_setprophash(in PMC, in PMC) :base_core {
+    PMC_metadata($1) = $2;
+    goto NEXT();
+}
+
 /*
  * Local variables:
  *   c-file-style: "parrot"