[perl #28899] [PATCH] de-consting: objects.c

[via RT]

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


cc: Warning: src/objects.c, line 485: In this statement, the referenced
type of the pointer value "prop_str" is const, but the referenced type
of the target of this assignment is not. (notconstqual)
                (Hash*) PMC_struct_val(props), prop_str);
-----------------------------------------------^


-- 
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'.  It is 'dead'." -- Jack Cohen


--- src/objects.c.dist  2004-04-17 12:34:29.000000000 +0300
+++ src/objects.c       2004-04-17 12:39:07.000000000 +0300
@@ -482,7 +482,7 @@
     if ( !(props = PMC_metadata(class)))
         return NULL;
     b = hash_get_bucket(interpreter,
-                (Hash*) PMC_struct_val(props), prop_str);
+                (Hash*) PMC_struct_val(props), (STRING*) prop_str);
     if (!b)
         return NULL;
     meth = PMC_str_val((PMC*) b->value);