XXX parts/inc/ppphtest: Update

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index a4e5864..47383ae 100644 (file)
--- 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 */