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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Nov 11 23:26:26 2009
New Revision: 42429
URL: https://trac.parrot.org/parrot/changeset/42429

Log:
[pmc] METHOD type in packfileannotations

Modified:
   trunk/src/pmc/packfileannotations.pmc

Modified: trunk/src/pmc/packfileannotations.pmc
==============================================================================
--- trunk/src/pmc/packfileannotations.pmc	Wed Nov 11 22:54:33 2009	(r42428)
+++ trunk/src/pmc/packfileannotations.pmc	Wed Nov 11 23:26:26 2009	(r42429)
@@ -374,7 +374,23 @@
 
         return res;
     }
+
+/*
+
+=item C<METHOD type()>
+
+Get segment type.
+
+=cut
+
+*/
+
+    METHOD type() {
+        RETURN(INTVAL PF_ANNOTATIONS_SEG);
+    }
+
 }
+
 /*
 
 =back