regcomp.c: Use calculated value instead of hard-coded

[perl5.git] / inline.h

diff --git a/inline.h b/inline.h
index 776a304..b321cc2 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -126,8 +126,15 @@ S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLEN pos, STRLEN *lenp)
 /* ------------------------------- handy.h ------------------------------- */
 
 /* saves machine code for a common noreturn idiom typically used in Newx*() */
+#ifdef __clang__
+#pragma clang diagnostic push
+#pragma clang diagnostic ignored "-Wunused-function"
+#endif
 static void
 S_croak_memory_wrap(void)
 {
     Perl_croak_nocontext("%s",PL_memory_wrap);
 }
+#ifdef __clang__
+#pragma clang diagnostic pop
+#endif