Change 33336: Fix Win32/VC6 compiler warnings caused by #33231

[Steve Hay]

Change 33336 by [EMAIL PROTECTED] on 2008/02/20 09:17:37

        Fix Win32/VC6 compiler warnings caused by #33231

Affected files ...

... //depot/perl/perl.h#828 edit
... //depot/perl/sv.c#1508 edit

Differences ...

==== //depot/perl/perl.h#828 (text) ====
Index: perl/perl.h
--- perl/perl.h#827~33292~      2008-02-12 06:58:50.000000000 -0800
+++ perl/perl.h 2008-02-20 01:17:37.000000000 -0800
@@ -4637,7 +4637,7 @@
 
 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*);

==== //depot/perl/sv.c#1508 (text) ====
Index: perl/sv.c
--- perl/sv.c#1507~33334~       2008-02-18 10:12:12.000000000 -0800
+++ perl/sv.c   2008-02-20 01:17:37.000000000 -0800
@@ -464,7 +464,7 @@
 
 #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 @@
  * 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) {
End of Patch.