diff options
| author | Yves Orton <demerphq@gmail.com> | 2023-03-23 12:28:37 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-03-29 20:54:49 +0800 |
| commit | a63f267202cdf27888060487da29a5b383da82c6 (patch) | |
| tree | 7af9b03d5e85770427a7ea5ec8f318755226be79 /intrpvar.h | |
| parent | 55dc0196bb04b67e8268bba2bf900f129e4545d1 (diff) | |
| download | perl-a63f267202cdf27888060487da29a5b383da82c6.tar.gz | |
intrpvar.h - silence deprcation warning on HPUX
We were already silencing it on GCC, so lets add HPUX to the party.
Unfortunately I have not figured out a way to have a nice neat define
for it like we have for GCC or MSVC. :-(
Silences this:
"intrpvar.h", line 941: warning #3215-D: function "Perl_sv_nounlocking"
(declared at line 5934 of "proto.h") was declared deprecated
PERLVARI(I, unlockhook, share_proc_t, PERL_UNLOCK_HOOK)
^
We probably should add the same for MSVC as well.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index eea1d76dd5..dff27ab15f 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -927,7 +927,11 @@ PERLVARI(I, clocktick, long, 0) /* this many times() ticks in a second */ PERLVARI(I, sharehook, share_proc_t, Perl_sv_nosharing) PERLVARI(I, lockhook, share_proc_t, Perl_sv_nosharing) +#if defined(__HP_cc) || defined(__HP_aCC) +#pragma diag_suppress 3215 +#endif GCC_DIAG_IGNORE(-Wdeprecated-declarations) + #ifdef NO_MATHOMS # define PERL_UNLOCK_HOOK Perl_sv_nosharing #else @@ -937,6 +941,9 @@ GCC_DIAG_IGNORE(-Wdeprecated-declarations) PERLVARI(I, unlockhook, share_proc_t, PERL_UNLOCK_HOOK) GCC_DIAG_RESTORE +#if defined(__HP_cc) || defined(__HP_aCC) +#pragma diag_default 3215 +#endif PERLVARI(I, threadhook, thrhook_proc_t, Perl_nothreadhook) |