[svn:parrot] r49684 - branches/opmap_aware_pmcs/src/pmc

[cotto at svn.parrot.org]

Author: cotto
Date: Tue Oct 26 19:18:00 2010
New Revision: 49684
URL: https://trac.parrot.org/parrot/changeset/49684

Log:
[pmc] add some methods that will be needed by PackfileBytecodeSegment

Modified:
   branches/opmap_aware_pmcs/src/pmc/oplib.pmc

Modified: branches/opmap_aware_pmcs/src/pmc/oplib.pmc
==============================================================================
--- branches/opmap_aware_pmcs/src/pmc/oplib.pmc	Tue Oct 26 19:17:13 2010	(r49683)
+++ branches/opmap_aware_pmcs/src/pmc/oplib.pmc	Tue Oct 26 19:18:00 2010	(r49684)
@@ -116,8 +116,7 @@
         return STATICSELF.elements();
     }
 
-    METHOD op_family(STRING *shortname)
-    {
+    METHOD op_family(STRING *shortname) {
         char * const sname = Parrot_str_to_cstring(INTERP, shortname);
         op_lib_t  *oplib;
         op_info_t *table;
@@ -136,6 +135,25 @@
         Parrot_str_free_cstring(sname);
         RETURN(PMC *result);
     }
+
+    METHOD major_version() {
+        op_lib_t *oplib;
+        GET_ATTR_oplib(INTERP, SELF, oplib);
+        RETURN (INTVAL oplib->major_version);
+    }
+
+    METHOD minor_version() {
+        op_lib_t *oplib;
+        GET_ATTR_oplib(INTERP, SELF, oplib);
+        RETURN (INTVAL oplib->minor_version);
+    }
+
+    METHOD patch_version() {
+        op_lib_t *oplib;
+        GET_ATTR_oplib(INTERP, SELF, oplib);
+        RETURN (INTVAL oplib->patch_version);
+    }
+
 }
 
 /*