[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.0 +0300
+++ src/objects.c   2004-04-17 12:39:07.0 +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);

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

[Leopold Toetsch]

Jarkko Hietaniemi [EMAIL PROTECTED] wrote:
 -(Hash*) PMC_struct_val(props), prop_str);
 +(Hash*) PMC_struct_val(props), (STRING*) prop_str);

That only helps certain compilers. I've put in a const_cast().

leo