[PATCH] 2 warnings in key.c

[David M. Lloyd]

These are both warnings regarding using a STRING * to refer to a BUCKET *.

"key.c", line 275: warning: argument #2 is incompatible with prototype:
        prototype: pointer to struct _bucket {struct _key_pair {..} pair, pointer to 
struct  {..} key, pointer to struct _bucket {..} next} : "key.c", line 65
        argument : pointer to struct  {pointer to void bufstart, unsigned long long 
buflen, unsigned long long flags, unsigned long long bufused, unsigned long long 
strlen, pointer to const struct  {..} encoding, pointer to const struct  {..} type, 
long long language}
"key.c", line 339: warning: assignment type mismatch:
        pointer to struct  {pointer to void bufstart, unsigned long long buflen, 
unsigned long long flags, unsigned long long bufused, unsigned long long strlen, 
pointer to const struct  {..} encoding, pointer to const struct  {..} type, long long 
language} "=" pointer to struct _bucket {struct _key_pair {..} pair, pointer to struct 
 {..} key, pointer to struct _bucket {..} next}

Here's the patch:

Index: key.c
===================================================================
RCS file: /home/perlcvs/parrot/key.c,v
retrieving revision 1.10
diff -u -r1.10 key.c
--- key.c       8 Jan 2002 20:05:18 -0000       1.10
+++ key.c       8 Jan 2002 22:14:34 -0000
@@ -272,7 +272,7 @@
     if(idx != NULL) {
       INTVAL hash = key_hash(interpreter,idx);
       hash = hash % NUM_BUCKETS;
-      pair =
find_bucket(interpreter,key->keys[hash].cache.struct_val,idx);
+      pair = find_bucket(interpreter,(BUCKET
*)key->keys[hash].cache.struct_val,idx);
       if(pair == NULL) {
         fprintf(stderr,"*** key_element_value_s pair returning a null
key\n");
       }
@@ -336,7 +336,7 @@
           }
           else {
           }
-          key->keys[hash].cache.struct_val = bucket;
+          key->keys[hash].cache.struct_val = (STRING *)bucket;
           key->keys[hash].type = enum_key_bucket;
         }
         else {


- D

<[EMAIL PROTECTED]>