the return value of start_subparse() can legally be ignored

p4raw-id: //depot/perl@25664

diff --git a/embed.fnc b/embed.fnc
index c8f96ec..d2e41a1 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -715,7 +715,7 @@ np  |Signal_t |sighandler   |int sig
 Anp    |Signal_t |csighandler  |int sig
 #endif
 Ap     |SV**   |stack_grow     |NN SV** sp|NN SV**p|int n
-ApR    |I32    |start_subparse |I32 is_format|U32 flags
+Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|NN CV* cv
 Apd    |bool   |sv_2bool       |NN SV* sv
 Apd    |CV*    |sv_2cv         |NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref

diff --git a/gv.c b/gv.c
index 1543059..66003af 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -164,7 +164,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
        SvIOK_off(gv);
        ENTER;
        /* XXX unsafe for threads if eval_owner isn't held */
-       start_subparse(0,0);            /* Create CV in compcv. */
+       (void) start_subparse(0,0);     /* Create empty CV in compcv. */
        GvCV(gv) = PL_compcv;
        LEAVE;
 

diff --git a/proto.h b/proto.h
index d09f802..9996bf3 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1987,9 +1987,7 @@ PERL_CALLCONV SV**        Perl_stack_grow(pTHX_ SV** sp, SV**p, int n)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV I32      Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
-                       __attribute__warn_unused_result__;
-
+PERL_CALLCONV I32      Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
 PERL_CALLCONV void     Perl_sub_crush_depth(pTHX_ CV* cv)
                        __attribute__nonnull__(pTHX_1);