Use fast SvREFCNT_dec for non-GCC

1 files changed, 12 insertions, 0 deletions

diff --git a/inline.h b/inline.h
index cdcaf04a8f..798b493e21 100644
--- a/inline.h
+++ b/inline.h
@@ -33,3 +33,15 @@ S_SvREFCNT_inc_void(SV *sv)
     if (sv)
 	SvREFCNT(sv)++;
 }
+PERL_STATIC_INLINE void
+S_SvREFCNT_dec(pTHX_ SV *sv)
+{
+    if (sv) {
+	if (SvREFCNT(sv)) {
+	    if (--(SvREFCNT(sv)) == 0)
+		Perl_sv_free2(aTHX_ sv);
+	} else {
+	    sv_free(sv);
+	}
+    }
+}