Skip to content

Commit

Permalink
sv_inline.h:Perl_new_sv: prevent unused parameter warnings
Browse files Browse the repository at this point in the history
This would warn if you built with -DDEBUG_LEAKING_SCALARS and without
-DDEBUGGING and without -DPERL_MEM_LOG, since these enable the code
that actually uses the parameters.

sv_inline.h: In function 'Perl_new_sv':
sv_inline.h:72:31: warning: unused parameter 'file' [-Wunused-parameter]
   72 | Perl_new_sv(pTHX_ const char *file, int line, const char *func)
      |                   ~~~~~~~~~~~~^~~~
sv_inline.h:72:41: warning: unused parameter 'line' [-Wunused-parameter]
   72 | Perl_new_sv(pTHX_ const char *file, int line, const char *func)
      |                                     ~~~~^~~~
sv_inline.h:72:59: warning: unused parameter 'func' [-Wunused-parameter]
   72 | Perl_new_sv(pTHX_ const char *file, int line, const char *func)
      |                                               ~~~~~~~~~~~~^~~~

Fixes #22806
  • Loading branch information
tonycoz committed Dec 3, 2024
1 parent 9c2eed8 commit e1e4896
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion sv_inline.h
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,8 @@ PERL_STATIC_INLINE SV*
Perl_new_sv(pTHX_ const char *file, int line, const char *func)
{
SV* sv;
#ifndef DEBUG_LEAKING_SCALARS
#if !defined(DEBUG_LEAKING_SCALARS) || \
(!defined(DEBUGGING) && !defined(PERL_MEM_LOG))
PERL_UNUSED_ARG(file);
PERL_UNUSED_ARG(line);
PERL_UNUSED_ARG(func);
Expand Down

0 comments on commit e1e4896

Please sign in to comment.