Merge branch 'ng' of git@github.com:rakudo/rakudo into ng

rakudo · Feb 12, 2010 · 1aa8acf · 1aa8acf
2 parents 90ba35c + f8ea414
commit 1aa8acf
Showing 1 changed file with 15 additions and 0 deletions.
diff --git 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"