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

[cotto at svn.parrot.org]

Author: cotto
Date: Sat Apr  4 05:30:51 2009
New Revision: 37895
URL: https://trac.parrot.org/parrot/changeset/37895

Log:
[PMC] add get_pointer VTABLE function to Pointer PMC

Modified:
   trunk/src/pmc/pointer.pmc

Modified: trunk/src/pmc/pointer.pmc
==============================================================================
--- trunk/src/pmc/pointer.pmc	Fri Apr  3 20:04:51 2009	(r37894)
+++ trunk/src/pmc/pointer.pmc	Sat Apr  4 05:30:51 2009	(r37895)
@@ -75,6 +75,20 @@
 
 /*
 
+=item C<void *get_pointer()>
+
+Returns the pointer value.
+
+=cut
+
+*/
+
+    VTABLE INTVAL get_integer() {
+        return PMC_data(SELF);
+    }
+
+/*
+
 =item C<INTVAL get_integer()>
 
 Returns the pointer value as an integer.