[perl #15949] [PATCH] Silence warning in hash clone

[via RT]

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



 hash->num_buckets is unsigned, so we were getting a "comparison between
 signed and unsigned" warning. Patch below fixes.

 Simon

--- hash.c.old  Fri Aug  2 16:51:05 2002
+++ hash.c      Fri Aug  2 16:52:28 2002
@@ -432,7 +432,7 @@ HASH *
 hash_clone(struct Parrot_Interp * interp, HASH * hash) {
     HASH * ret = new_hash(interp);
     HASHBUCKET ** table = (HASHBUCKET **)hash->buffer.bufstart;
-    int i;
+    UINTVAL i;
     for (i = 0; i < hash->num_buckets; i++) {
         HASHBUCKET * b = table[i];
         while (b) {