From b3dbd76e6e180b608015c6158c3fec9739ef1343 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 30 Oct 2008 22:27:16 +0000 Subject: [PATCH] Change 34627 didn't realise that if S_find_uninit_var() takes a const SV *, then so can Perl_report_uninit(). p4raw-id: //depot/perl@34673 --- embed.fnc | 2 +- proto.h | 2 +- sv.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/embed.fnc b/embed.fnc index 5b0736a..c3835b3 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1022,7 +1022,7 @@ p |U32 |parse_unicode_opts|NN const char **popt 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|... diff --git a/proto.h b/proto.h index a4cc460..c466fba 100644 --- a/proto.h +++ b/proto.h @@ -3681,7 +3681,7 @@ PERL_CALLCONV UV Perl_get_hash_seed(pTHX) __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); diff --git a/sv.c b/sv.c index 6811155..a425a5b 100644 --- a/sv.c +++ b/sv.c @@ -12835,7 +12835,7 @@ Print appropriate "Use of uninitialized variable" warning */ void -Perl_report_uninit(pTHX_ SV* uninit_sv) +Perl_report_uninit(pTHX_ const SV *uninit_sv) { dVAR; if (PL_op) { -- 2.7.4