X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/63d993753d09d211c27dda85e151b32456afb73d..882c4f4d466d91a9c52b2149b85827571e93f288:/intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index a4e5864..47383ae 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -804,6 +804,8 @@ PERLVARI(I, clocktick,	long,	0)	/* this many times() ticks in a second */
 /* Hooks to shared SVs and locks. */
 PERLVARI(I, sharehook,	share_proc_t, Perl_sv_nosharing)
 PERLVARI(I, lockhook,	share_proc_t, Perl_sv_nosharing)
+
+GCC_DIAG_IGNORE(-Wdeprecated-declarations)
 #ifdef NO_MATHOMS
 #  define PERL_UNLOCK_HOOK Perl_sv_nosharing
 #else
@@ -812,6 +814,8 @@ PERLVARI(I, lockhook,	share_proc_t, Perl_sv_nosharing)
 #endif
 PERLVARI(I, unlockhook,	share_proc_t, PERL_UNLOCK_HOOK)
 
+GCC_DIAG_RESTORE
+
 PERLVARI(I, threadhook,	thrhook_proc_t,	Perl_nothreadhook)
 
 /* Can shared object be destroyed */