Use less constness in MAD code
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 26 Aug 2009 12:32:22 +0000 (14:32 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 26 Aug 2009 12:32:22 +0000 (14:32 +0200)
This suppresses warnings, because sometimes the constness was taken away

embed.fnc
op.c
op.h
proto.h

index 33774c7..3f9ddcd 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2156,7 +2156,7 @@ Mp        |void   |append_madprops|NULLOK MADPROP* tm|NULLOK OP* o|char slot
 Mp     |void   |addmad         |NULLOK MADPROP* tm|NULLOK MADPROP** root \
                                |char slot
 Mp     |MADPROP*|newMADsv      |char key|NN SV* sv
-Mp     |MADPROP*|newMADPROP    |char key|char type|NULLOK const void* val \
+Mp     |MADPROP*|newMADPROP    |char key|char type|NULLOK void* val \
                                |I32 vlen
 Mp     |void   |mad_free       |NULLOK MADPROP* mp
 
diff --git a/op.c b/op.c
index e03997a..e31c050 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2770,7 +2770,7 @@ Perl_token_getmad(pTHX_ TOKEN* tk, OP* o, char slot)
     /* faked up qw list? */
     if (slot == '(' &&
        tm->mad_type == MAD_SV &&
-       SvPVX((const SV *)tm->mad_val)[0] == 'q')
+       SvPVX((SV *)tm->mad_val)[0] == 'q')
            slot = 'x';
 
     if (o) {
@@ -2927,7 +2927,7 @@ Perl_newMADsv(pTHX_ char key, SV* sv)
 }
 
 MADPROP *
-Perl_newMADPROP(pTHX_ char key, char type, const void* val, I32 vlen)
+Perl_newMADPROP(pTHX_ char key, char type, void* val, I32 vlen)
 {
     MADPROP *mp;
     Newxz(mp, 1, MADPROP);
diff --git a/op.h b/op.h
index e8ba8ef..9608564 100644 (file)
--- a/op.h
+++ b/op.h
@@ -646,7 +646,7 @@ struct loop {
 
 struct madprop {
     MADPROP* mad_next;
-    const void *mad_val;
+    void *mad_val;
     U32 mad_vlen;
 /*    short mad_count; */
     char mad_key;
diff --git a/proto.h b/proto.h
index 5fe779a..0dc4aab 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6510,7 +6510,7 @@ PERL_CALLCONV MADPROP*    Perl_newMADsv(pTHX_ char key, SV* sv)
 #define PERL_ARGS_ASSERT_NEWMADSV      \
        assert(sv)
 
-PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, const void* val, I32 vlen);
+PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, void* val, I32 vlen);
 PERL_CALLCONV void     Perl_mad_free(pTHX_ MADPROP* mp);
 
 #  if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)