develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
allison
Date:
January 27, 2009 20:53
Subject:
[svn:parrot] r36078 - trunk/src/pmc
Message ID:
20090128045238.072D9CB9AE@x12.develooper.com
Author: allison
Date: Tue Jan 27 20:52:37 2009
New Revision: 36078

Modified:
   trunk/src/pmc/string.pmc

Log:
[cage] Remove custom 'is_same' vtable function from String PMC.
Resolves TT #11.


Modified: trunk/src/pmc/string.pmc
==============================================================================
--- trunk/src/pmc/string.pmc	(original)
+++ trunk/src/pmc/string.pmc	Tue Jan 27 20:52:37 2009
@@ -485,34 +485,6 @@
 
 /*
 
-=item C<INTVAL is_same(PMC *value)>
-
-Compares the string in this PMC with the one in the C<value> PMC.
-Returns true if this PMC and the one in C<value> are of the same PMC
-class and their strings are aliases of the same internal string.
-
-(this can only happen if you use the set_string_native method)
-
-=cut
-
-*/
-    VTABLE INTVAL is_same(PMC *value) {
-        if (PMC_IS_NULL(value)) {
-            return 0;
-        }
-        else {
-            if (value->vtable == SELF->vtable) {
-                const STRING * const s = VTABLE_get_string(INTERP, SELF);
-                const STRING * const v = VTABLE_get_string(INTERP, value);
-                return (INTVAL)(s == v);
-            }
-            else
-                return 0;
-        }
-    }
-
-/*
-
 =item C<INTVAL cmp(PMC *value)>
 
 Compares the string with C<value>; returns -1 if the



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About