From: Steve Hay <SteveHay@planit.com>
Date: Tue, 2 Dec 2008 17:47:19 +0000 (+0000)
Subject: Silence a compiler warning introduced by 34963
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f5084fafb145bb35b8f361d4dab26b04511700d;p=p5sagit%2Fp5-mst-13.2.git

Silence a compiler warning introduced by 34963

p4raw-id: //depot/perl@34982
---

diff --git a/embed.fnc b/embed.fnc
index 2ecd5e1..9b2a2ad 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -925,7 +925,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 768738c..f152635 100644
--- a/proto.h
+++ b/proto.h
@@ -2914,7 +2914,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);