[svn:parrot] r48069 - trunk/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Jul 11 01:10:24 2010
New Revision: 48069
URL: https://trac.parrot.org/parrot/changeset/48069

Log:
Add Key.set_register method to be able to create keys-which-hold-registers in PIR.

Modified:
   trunk/src/pmc/key.pmc

Modified: trunk/src/pmc/key.pmc
==============================================================================
--- trunk/src/pmc/key.pmc	Sun Jul 11 01:10:11 2010	(r48068)
+++ trunk/src/pmc/key.pmc	Sun Jul 11 01:10:24 2010	(r48069)
@@ -388,6 +388,18 @@
     VTABLE STRING* get_repr() {
         return key_set_to_string(INTERP, SELF);
     }
+
+/*
+=item C<set_register(reg_no, type)>
+
+Set key to hold particular register.
+
+=cut
+*/
+    METHOD set_register(INTVAL reg_no, INTVAL reg_type) {
+        key_set_register(INTERP, SELF, reg_no, reg_type);
+    }
+
 }
 
 /*