[svn:parrot] r41229 - in trunk/src: . pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Sep 12 13:14:55 2009
New Revision: 41229
URL: https://trac.parrot.org/parrot/changeset/41229

Log:
[cage] Remove set_string_same/set_number_same/set_integer_same VTABLEs.
Part of TT#866

Modified:
   trunk/src/pmc/float.pmc
   trunk/src/pmc/integer.pmc
   trunk/src/pmc/string.pmc
   trunk/src/vtable.tbl

Modified: trunk/src/pmc/float.pmc
==============================================================================
--- trunk/src/pmc/float.pmc	Sat Sep 12 12:55:08 2009	(r41228)
+++ trunk/src/pmc/float.pmc	Sat Sep 12 13:14:55 2009	(r41229)
@@ -179,22 +179,6 @@
 
 /*
 
-=item C<void set_number_same(PMC *value)>
-
-Sets the value of the number to the value of C<*value>.
-
-=cut
-
-*/
-
-    VTABLE void set_number_same(PMC *value) {
-        FLOATVAL fv;
-        GET_ATTR_fv(INTERP, value, fv);
-        SET_ATTR_fv(INTERP, SELF, fv);
-    }
-
-/*
-
 =item C<void set_string_native(STRING *value)>
 
 Sets the value of the number to the value of C<*value>.

Modified: trunk/src/pmc/integer.pmc
==============================================================================
--- trunk/src/pmc/integer.pmc	Sat Sep 12 12:55:08 2009	(r41228)
+++ trunk/src/pmc/integer.pmc	Sat Sep 12 13:14:55 2009	(r41229)
@@ -258,8 +258,6 @@
 
 /*
 
-=item C<void set_integer_same(PMC *value)>
-
 =item C<void set_integer_native(INTVAL value)>
 
 Sets the value of the integer to the value of the C<Integer> C<*value>.
@@ -268,11 +266,6 @@
 
 */
 
-    VTABLE void set_integer_same(PMC *value) {
-        SELF.set_integer_native(VTABLE_get_integer(INTERP, value));
-    }
-
-
     VTABLE void set_integer_native(INTVAL value) {
         SET_ATTR_iv(INTERP, SELF, value);
     }

Modified: trunk/src/pmc/string.pmc
==============================================================================
--- trunk/src/pmc/string.pmc	Sat Sep 12 12:55:08 2009	(r41228)
+++ trunk/src/pmc/string.pmc	Sat Sep 12 13:14:55 2009	(r41229)
@@ -256,22 +256,6 @@
 
 /*
 
-=item C<VOID set_string_same(PMC *value)>
-
-Sets the value of the string to the value of
-the specified C<String> PMC.
-
-=cut
-
-*/
-
-    VTABLE void set_string_same(PMC *value) {
-        SET_ATTR_str_val(INTERP, SELF,
-            Parrot_str_set(INTERP, SELF.get_string(), VTABLE_get_string(INTERP, value)));
-    }
-
-/*
-
 =item C<VOID set_pmc(PMC *value)>
 
 Sets the value of the string to the string value of

Modified: trunk/src/vtable.tbl
==============================================================================
--- trunk/src/vtable.tbl	Sat Sep 12 12:55:08 2009	(r41228)
+++ trunk/src/vtable.tbl	Sat Sep 12 13:14:55 2009	(r41229)
@@ -66,13 +66,11 @@
 
 [STORE] :write
 void set_integer_native(INTVAL value)
-void set_integer_same(PMC* value)
 void set_integer_keyed(PMC* key, INTVAL value)
 void set_integer_keyed_int(INTVAL key, INTVAL value)
 void set_integer_keyed_str(STRING* key, INTVAL value)
 
 void set_number_native(FLOATVAL value)
-void set_number_same(PMC* value)
 void set_number_keyed(PMC* key, FLOATVAL value)
 void set_number_keyed_int(INTVAL key, FLOATVAL value)
 void set_number_keyed_str(STRING* key, FLOATVAL value)
@@ -83,7 +81,6 @@
 
 void set_string_native(STRING* value)
 void assign_string_native(STRING* value)
-void set_string_same(PMC* value)
 void set_string_keyed(PMC* key, STRING* value)
 void set_string_keyed_int(INTVAL key, STRING* value)
 void set_string_keyed_str(STRING* key, STRING* value)