Index: src/ops/core.ops
===================================================================
--- src/ops/core.ops	(revision 38332)
+++ src/ops/core.ops	(working copy)
@@ -749,6 +749,34 @@
     $1        = (INTVAL)ptr;
 }
 
+inline op get_label(out INT, invar PMC) {
+    void *ptr = VTABLE_get_pointer(interp, $2);
+    $1        = PTR2OPCODE_T(ptr);
+}
+
+=item B<set_label>(invar PMC, inconst LABEL)
+
+Sets the target label for PMCs that need an opcode_t label destination.
+
+=item B<set_label(invar PMC, invar LABEL)
+
+Sets the target label for PMCs that need an opcode_t label destination.
+
+=item B<get_label(out INT, invar PMC)
+
+Gets the label from the given PMC
+
+=cut
+
+inline op set_label(invar PMC, inconst LABEL) {
+    VTABLE_set_pointer(interp, $1, (CUR_OPCODE + 2));
+}
+
+inline op set_label(invar PMC, invar LABEL) {
+    VTABLE_set_pointer(interp, $1, (void*)$2);
+}
+
+
 =back
 
 =cut