From: Andy Lester <andy@petdance.com>
Date: Sun, 28 May 2006 12:24:25 +0000 (-0500)
Subject: [PATCH] gv.c consting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1146e912246ab46f43c0d3339f2b5af9a23a2e49;p=p5sagit%2Fp5-mst-13.2.git

[PATCH] gv.c consting
Date: Sun, 28 May 2006 12:24:25 -0500
Message-ID: <20060528172425.GA8291@petdance.com>

Subject: [PATCH] mg.c consting
From: andy@petdance.com (Andy Lester)
Date: Sun, 28 May 2006 11:34:33 -0500
Message-ID: <20060528163433.GA5518@petdance.com>

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

diff --git a/embed.fnc b/embed.fnc
index bd4bd93..2050be8 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -269,7 +269,7 @@ Ap	|GV*	|gv_AVadd	|NN GV* gv
 Ap	|GV*	|gv_HVadd	|NN GV* gv
 Ap	|GV*	|gv_IOadd	|NN GV* gv
 ApR	|GV*	|gv_autoload4	|NULLOK HV* stash|NN const char* name|STRLEN len|I32 method
-Ap	|void	|gv_check	|NN HV* stash
+Ap	|void	|gv_check	|NN const HV* stash
 Ap	|void	|gv_efullname	|NN SV* sv|NN const GV* gv
 Apmb	|void	|gv_efullname3	|NN SV* sv|NN const GV* gv|NULLOK const char* prefix
 Ap	|void	|gv_efullname4	|NN SV* sv|NN const GV* gv|NULLOK const char* prefix|bool keepmain
@@ -417,7 +417,7 @@ p	|int	|magic_clear_all_env|NN SV* sv|NN MAGIC* mg
 dp	|int	|magic_clearhint|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_clearpack|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_clearsig	|NN SV* sv|NN MAGIC* mg
-p	|int	|magic_existspack|NN SV* sv|NN MAGIC* mg
+p	|int	|magic_existspack|NN SV* sv|NN const MAGIC* mg
 p	|int	|magic_freeregexp|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_freeovrld|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_get	|NN SV* sv|NN MAGIC* mg
diff --git a/gv.c b/gv.c
index c9861e9..7d49b83 100644
--- a/gv.c
+++ b/gv.c
@@ -1313,7 +1313,7 @@ Perl_newIO(pTHX)
 }
 
 void
-Perl_gv_check(pTHX_ HV *stash)
+Perl_gv_check(pTHX_ const HV *stash)
 {
     dVAR;
     register I32 i;
diff --git a/mg.c b/mg.c
index 3e8ca7c..041a09e 100644
--- a/mg.c
+++ b/mg.c
@@ -1662,7 +1662,7 @@ Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key)
 }
 
 int
-Perl_magic_existspack(pTHX_ SV *sv, MAGIC *mg)
+Perl_magic_existspack(pTHX_ SV *sv, const MAGIC *mg)
 {
     return magic_methpack(sv,mg,"EXISTS");
 }
diff --git a/proto.h b/proto.h
index baafa91..5063dce 100644
--- a/proto.h
+++ b/proto.h
@@ -600,7 +600,7 @@ PERL_CALLCONV GV*	Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN le
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV void	Perl_gv_check(pTHX_ HV* stash)
+PERL_CALLCONV void	Perl_gv_check(pTHX_ const HV* stash)
 			__attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV void	Perl_gv_efullname(pTHX_ SV* sv, const GV* gv)
@@ -1082,7 +1082,7 @@ PERL_CALLCONV int	Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV int	Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg)
+PERL_CALLCONV int	Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);