[svn:parrot] r48675 - trunk/src/dynoplibs

[chromatic at svn.parrot.org]

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

Log:
[dynops] Made cmod use init_int VTABLE.

Modified:
   trunk/src/dynoplibs/math.ops

Modified: trunk/src/dynoplibs/math.ops
==============================================================================
--- trunk/src/dynoplibs/math.ops	Thu Aug 26 19:54:32 2010	(r48674)
+++ trunk/src/dynoplibs/math.ops	Thu Aug 26 19:54:37 2010	(r48675)
@@ -95,8 +95,7 @@
 
     result = VTABLE_get_integer(interp, $2) % $3;
 
-    $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
-    VTABLE_set_integer_native(interp, $1, result);
+    $1 = Parrot_pmc_new_init_int(interp, VTABLE_type(interp, $2), result);
 }
 
 inline op cmod(invar PMC, invar PMC, invar PMC) :base_core {
@@ -112,8 +111,7 @@
 
     result = VTABLE_get_integer(interp, $2) % value;
 
-    $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
-    VTABLE_set_integer_native(interp, $1, result);
+    $1 = Parrot_pmc_new_init_int(interp, VTABLE_type(interp, $2), result);
 }
 
 ########################################
@@ -173,8 +171,8 @@
 
     result = fmod(VTABLE_get_integer(interp, $2), value);
 
-    $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
-    VTABLE_set_integer_native(interp, $1, (INTVAL) result);
+    $1 = Parrot_pmc_new_init_int(interp,
+        VTABLE_type(interp, $2), (INTVAL)result);
 }
 
 =back