[svn:parrot] r36639 - trunk/languages/lua/src/pmc

[fperrad at svn.parrot.org]

Author: fperrad
Date: Thu Feb 12 19:52:14 2009
New Revision: 36639
URL: https://trac.parrot.org/parrot/changeset/36639

Log:
[Lua] remove VTABLE_morph

Modified:
   trunk/languages/lua/src/pmc/luaany.pmc
   trunk/languages/lua/src/pmc/luanumber.pmc
   trunk/languages/lua/src/pmc/luastring.pmc

Modified: trunk/languages/lua/src/pmc/luaany.pmc
==============================================================================
--- trunk/languages/lua/src/pmc/luaany.pmc	Thu Feb 12 19:30:15 2009	(r36638)
+++ trunk/languages/lua/src/pmc/luaany.pmc	Thu Feb 12 19:52:14 2009	(r36639)
@@ -90,20 +90,6 @@
     dynpmc
     group lua_group
     hll lua {
-/*
-
-=item C<void morph(INTVAL type)>
-
-Changes the PMC to a PMC of a new type
-
-=cut
-
-*/
-    VTABLE void morph(INTVAL type) {
-        if (PMC_type(SELF) == type)
-            return;
-        pmc_reuse(INTERP, SELF, type, 0);
-    }
 
 /*
 
@@ -139,8 +125,10 @@
 
 */
     VTABLE void assign_pmc(PMC *value) {
-        VTABLE_morph(INTERP, SELF, PMC_type(value));
-        if (PMC_type(value) != dynpmc_LuaNil)
+        const INTVAL type = PMC_type(value);
+        if (PMC_type(SELF) != type)
+            pmc_reuse(INTERP, SELF, type, 0);
+        if (type != dynpmc_LuaNil)
             SELF.set_pmc(value);
     }
 

Modified: trunk/languages/lua/src/pmc/luanumber.pmc
==============================================================================
--- trunk/languages/lua/src/pmc/luanumber.pmc	Thu Feb 12 19:30:15 2009	(r36638)
+++ trunk/languages/lua/src/pmc/luanumber.pmc	Thu Feb 12 19:52:14 2009	(r36639)
@@ -195,7 +195,7 @@
 
 */
     VTABLE void set_string_native(STRING *value) {
-        SELF.morph(dynpmc_LuaString);
+        pmc_reuse(INTERP, SELF, dynpmc_LuaString, 0);
         SELF.set_string_native(value);
     }
 

Modified: trunk/languages/lua/src/pmc/luastring.pmc
==============================================================================
--- trunk/languages/lua/src/pmc/luastring.pmc	Thu Feb 12 19:30:15 2009	(r36638)
+++ trunk/languages/lua/src/pmc/luastring.pmc	Thu Feb 12 19:52:14 2009	(r36639)
@@ -138,7 +138,7 @@
 
 */
     VTABLE void set_integer_native(INTVAL value) {
-        SELF.morph(dynpmc_LuaNumber);
+        pmc_reuse(INTERP, SELF, dynpmc_LuaNumber, 0);
         SELF.set_integer_native(value);
     }
 
@@ -150,7 +150,7 @@
 
 */
     VTABLE void set_number_native(FLOATVAL value) {
-        SELF.morph(dynpmc_LuaNumber);
+        pmc_reuse(INTERP, SELF, dynpmc_LuaNumber, 0);
         SELF.set_number_native(value);
     }