From a63f267202cdf27888060487da29a5b383da82c6 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Thu, 23 Mar 2023 12:28:37 +0100 Subject: 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. --- intrpvar.h | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'intrpvar.h') 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) -- cgit v1.2.1