From e73b38f8e10c220a382270f69e24cad08d3bf792 Mon Sep 17 00:00:00 2001
From: Bram Moolenaar <Bram@vim.org>
Date: Mon, 6 Jan 2020 21:22:09 +0100
Subject: patch 8.2.0094: MS-Windows: cannot build with Strawberry Perl 5.30

Problem:    MS-Windows: cannot build with Strawberry Perl 5.30.
Solution:   Define __builtin_expect() as a workaround. (Ken Takata,
            closes #5267)
---
 src/if_perl.xs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/if_perl.xs')

diff --git a/src/if_perl.xs b/src/if_perl.xs
index 099d386776..fd9d3d730f 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -47,6 +47,9 @@
 /* Work around for using MSVC and ActivePerl 5.18. */
 #ifdef _MSC_VER
 # define __inline__ __inline
+
+// Work around for using MSVC and Strawberry Perl 5.30.
+# define __builtin_expect(expr, val) (expr)
 #endif
 
 #ifdef __GNUC__
-- 
cgit v1.2.3