From: David Mitchell <davem@iabyn.com>
Date: Tue, 4 Dec 2012 15:30:37 +0000 (+0000)
Subject: silence some non-clang warnings
X-Git-Tag: upstream/5.20.0~4618
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b3ba608d9c8ad4dbd243bea977d4c9f3b6970329;p=platform%2Fupstream%2Fperl.git

silence some non-clang warnings

ccde85316a0db149f30359ebfdf031ef602b0344 added some

    #pragma clang ...

lines to shut up clang.
This caused gcc to give voluminous 'unknown pragma "clang"' output.

Sigh.

Hopefully now fixed, although it all seems very cumbersome.
---

diff --git a/inline.h b/inline.h
index 072d1b2..b321cc2 100644
--- a/inline.h
+++ b/inline.h
@@ -126,11 +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