[perl #17402] [PATCH] Duplicate defined_keyed in array.pmc

[via RT]

# New Ticket Created by  Leon Brocard 
# Please include the string:  [perl #17402]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17402 >


classes/array.pmc had a duplicate defined_keyed which gcc under
Jagwyre complained. Here is a patch to remove one of the
duplicates. The tests still pass.

Leon
-- 
Leon Brocard.............................http://www.astray.com/
scribot.................................http://www.scribot.com/

....... Consciousness: that annoying time between naps


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/38003/30897/317896/array.pmc.patch


Index: classes/array.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/array.pmc,v
retrieving revision 1.33
diff -u -r1.33 array.pmc
--- classes/array.pmc   18 Sep 2002 05:09:24 -0000      1.33
+++ classes/array.pmc   18 Sep 2002 11:54:04 -0000
@@ -575,24 +575,6 @@
         return array[ix] != NULL;
     }
 
-    INTVAL defined_keyed (PMC* key) {
-        INTVAL ix;
-        PMC* nextkey;
-        PMC* box;
-
-        if (!key)
-           return 0;
-        ix = key_integer(INTERP, key);
-        nextkey = key_next(INTERP, key);
-        if (nextkey == NULL)
-           return SELF.exists_keyed_int(&ix);
-
-        box = SELF.get_pmc_keyed_int(&ix);
-        if (box == NULL)
-           return 0;
-        return box->vtable->exists_keyed(INTERP, box, nextkey);
-    }
-
     /* == operation */
     INTVAL is_equal (PMC* value) {
         return 0;