From ae7c5121307d5c8b92b4e0ac63ec2e8635d8c076 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Fri, 25 Nov 2022 15:28:38 -0500
Subject: [PATCH] Allow building with MSVC and Strawberry perl

Strawberry uses __builtin_expect which Visual C doesn't have. For this
case define it as a noop. Solution taken from vim sources.

Backpatch to all live branches
---
 src/pl/plperl/plperl.h | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h
index 16186fc5293..f71119b82b3 100644
--- a/src/pl/plperl/plperl.h
+++ b/src/pl/plperl/plperl.h
@@ -41,6 +41,8 @@
  */
 #ifdef _MSC_VER
 #define __inline__ inline
+/* Work around for using MSVC and Strawberry Perl >= 5.30. */
+#define __builtin_expect(expr, val) (expr)
 #endif
 
 /*
-- 
2.39.5