mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

sv_inline.h:Perl_new_sv: prevent unused parameter warnings

Browse Source 
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
This commit is contained in:
Tony Cook 2024-12-03 14:37:22 +11:00
parent 9c2eed89a7
commit e1e489695f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
sv_inline.h
View File

@ -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);