Silence a compiler warning introduced by 34963
authorSteve Hay <SteveHay@planit.com>
Tue, 2 Dec 2008 17:47:19 +0000 (17:47 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 30 Mar 2009 15:05:19 +0000 (16:05 +0100)
p4raw-id: //depot/perl@34982

(cherry picked from commit 4f5084fafb145bb35b8f361d4dab26b04511700d)

embed.fnc
proto.h

index 49cdf63..6c0208f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -906,7 +906,7 @@ Ap  |void   |save_sptr      |NN SV** sptr
 Ap     |SV*    |save_svref     |NN SV** sptr
 Ap     |void   |save_pushptr   |NULLOK void *const ptr|const int type
 : Used by SAVECOPARYBASE() in op.c
-p      |void   |save_pushi32ptr|I32 i|NULLOK void *const ptr|const int type
+p      |void   |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type
 : Used by SAVESWITCHSTACK() in pp.c
 p      |void   |save_pushptrptr|NULLOK void *const ptr1 \
                                |NULLOK void *const ptr2|const int type
diff --git a/proto.h b/proto.h
index 1f6d4a7..d17c4bd 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2923,7 +2923,7 @@ PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr)
        assert(sptr)
 
 PERL_CALLCONV void     Perl_save_pushptr(pTHX_ void *const ptr, const int type);
-PERL_CALLCONV void     Perl_save_pushi32ptr(pTHX_ I32 i, void *const ptr, const int type);
+PERL_CALLCONV void     Perl_save_pushi32ptr(pTHX_ const I32 i, void *const ptr, const int type);
 PERL_CALLCONV void     Perl_save_pushptrptr(pTHX_ void *const ptr1, void *const ptr2, const int type);
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 STATIC void    S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2, const int type);