commit e73b38f8e10c220a382270f69e24cad08d3bf792
author Bram Moolenaar <Bram@vim.org> Mon Jan 06 21:22:09 2020 +0100
committer Bram Moolenaar <Bram@vim.org> Mon Jan 06 21:22:09 2020 +0100
tree a4b8e8bfd1d551248c7bff8d029bbef37b862f25
parent 7b94e77132eabdf0e43abca57e2ffeb961545174

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

diff --git a/src/if_perl.xs b/src/if_perl.xs
index 099d386..fd9d3d7 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__