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

[chromatic at svn.parrot.org]

Author: chromatic
Date: Thu Aug 26 19:54:27 2010
New Revision: 48673
URL: https://trac.parrot.org/parrot/changeset/48673

Log:
[PMC] Added init_int VTABLE to BigInt.

Modified:
   trunk/src/pmc/bigint.pmc

Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc	Thu Aug 26 17:19:01 2010	(r48672)
+++ trunk/src/pmc/bigint.pmc	Thu Aug 26 19:54:27 2010	(r48673)
@@ -1258,6 +1258,12 @@
         PObj_custom_destroy_SET(SELF);
     }
 
+    VTABLE void init_int(INTVAL iv) {
+        bigint_init(INTERP, SELF);
+        bigint_set_long(INTERP, SELF, (long)iv);
+        PObj_custom_destroy_SET(SELF);
+    }
+
     VTABLE PMC *clone() {
         PMC *res = Parrot_pmc_new(INTERP, SELF->vtable->base_type);
         bigint_set(INTERP, res, SELF);