Applied, thanks.

Mike Lambert

Simon Glover wrote:

> Date: Fri, 02 Aug 2002 21:00:19 GMT
> From: Simon Glover <[EMAIL PROTECTED]>
> Reply-To: [EMAIL PROTECTED]
> To: [EMAIL PROTECTED]
> Subject: [perl #15949] [PATCH] Silence warning in hash clone
> Resent-Date: 2 Aug 2002 21:00:19 -0000
> Resent-From: [EMAIL PROTECTED]
> Resent-To: [EMAIL PROTECTED]
>
> # 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) {
>
>
>
>
>
>

Reply via email to