From: Steve Hay <SteveHay@planit.com>
Date: Wed, 20 Feb 2008 09:17:37 +0000 (+0000)
Subject: Fix Win32/VC6 compiler warnings caused by #33231
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f30de7493b87cd1270b4840a21a0c5c0f76598a7;p=p5sagit%2Fp5-mst-13.2.git

Fix Win32/VC6 compiler warnings caused by #33231

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

diff --git a/perl.h b/perl.h
index 16b0c7c..c241ae6 100644
--- a/perl.h
+++ b/perl.h
@@ -4637,7 +4637,7 @@ typedef regexp*(CPERLscope(*regdupe_t)) (pTHX_ const regexp* r, CLONE_PARAMS *pa
 
 typedef void (*DESTRUCTORFUNC_NOCONTEXT_t) (void*);
 typedef void (*DESTRUCTORFUNC_t) (pTHX_ void*);
-typedef void (*SVFUNC_t) (pTHX_ SV*);
+typedef void (*SVFUNC_t) (pTHX_ SV* const);
 typedef I32  (*SVCOMPARE_t) (pTHX_ SV*, SV*);
 typedef void (*XSINIT_t) (pTHX);
 typedef void (*ATEXIT_t) (pTHX_ void*);
diff --git a/sv.c b/sv.c
index 3d60e02..1ef5e31 100644
--- a/sv.c
+++ b/sv.c
@@ -464,7 +464,7 @@ do_clean_objs(pTHX_ SV *const ref)
 
 #ifndef DISABLE_DESTRUCTOR_KLUDGE
 static void
-do_clean_named_objs(pTHX_ SV *sv)
+do_clean_named_objs(pTHX_ SV *const sv)
 {
     dVAR;
     assert(SvTYPE(sv) == SVt_PVGV);
@@ -11255,7 +11255,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
  * so we know which stashes want their objects cloned */
 
 static void
-do_mark_cloneable_stash(pTHX_ SV *sv)
+do_mark_cloneable_stash(pTHX_ SV *const sv)
 {
     const HEK * const hvname = HvNAME_HEK((HV*)sv);
     if (hvname) {