pp_subst: reduce scope of 'd' variable

[perl5.git] / inline.h

diff --git a/inline.h b/inline.h
index 00c59f5..2d09dcb 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -43,6 +43,7 @@ S_CvDEPTHp(const CV * const sv)
  prototype and will be updated when this returns.
  */
 
+#ifdef PERL_CORE
 PERL_STATIC_INLINE char *
 S_strip_spaces(pTHX_ const char * orig, STRLEN * const len)
 {
@@ -59,6 +60,7 @@ S_strip_spaces(pTHX_ const char * orig, STRLEN * const len)
     *len = tmps - SvPVX(tmpsv);
                return SvPVX(tmpsv);
 }
+#endif
 
 /* ----------------------------- regexp.h ----------------------------- */
 
@@ -162,6 +164,22 @@ S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLEN pos, STRLEN *lenp)
 }
 #endif
 
+/* ------------------------------- 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
+
 /* ------------------------------- utf8.h ------------------------------- */
 
 /* These exist only to replace the macros they formerly were so that their use