Change 34673 by [EMAIL PROTECTED] on 2008/10/30 22:27:16
Change 34627 didn't realise that if S_find_uninit_var() takes a
const SV *, then so can Perl_report_uninit().
Affected files ...
... //depot/perl/embed.fnc#628 edit
... //depot/perl/proto.h#963 edit
... //depot/perl/sv.c#1570 edit
Differences ...
==== //depot/perl/embed.fnc#628 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#627~34672~ 2008-10-30 15:08:41.000000000 -0700
+++ perl/embed.fnc 2008-10-30 15:27:16.000000000 -0700
@@ -1022,7 +1022,7 @@
Ap |U32 |seed
pR |UV |get_hash_seed
p |void |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op
-XEpd |void |report_uninit |NULLOK SV* uninit_sv
+XEpd |void |report_uninit |NULLOK const SV *uninit_sv
Afpd |void |warn |NN const char* pat|...
Ap |void |vwarn |NN const char* pat|NULLOK va_list* args
Afp |void |warner |U32 err|NN const char* pat|...
==== //depot/perl/proto.h#963 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#962~34672~ 2008-10-30 15:08:41.000000000 -0700
+++ perl/proto.h 2008-10-30 15:27:16.000000000 -0700
@@ -3681,7 +3681,7 @@
__attribute__warn_unused_result__;
PERL_CALLCONV void Perl_report_evil_fh(pTHX_ const GV *gv, const IO *io,
I32 op);
-PERL_CALLCONV void Perl_report_uninit(pTHX_ SV* uninit_sv);
+PERL_CALLCONV void Perl_report_uninit(pTHX_ const SV *uninit_sv);
PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...)
__attribute__format__(__printf__,pTHX_1,pTHX_2)
__attribute__nonnull__(pTHX_1);
==== //depot/perl/sv.c#1570 (text) ====
Index: perl/sv.c
--- perl/sv.c#1569~34671~ 2008-10-30 14:39:14.000000000 -0700
+++ perl/sv.c 2008-10-30 15:27:16.000000000 -0700
@@ -12835,7 +12835,7 @@
*/
void
-Perl_report_uninit(pTHX_ SV* uninit_sv)
+Perl_report_uninit(pTHX_ const SV *uninit_sv)
{
dVAR;
if (PL_op) {
End of Patch.
