From fc23c914f8de7cb85f58830142e0164864d4601c Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sun, 23 Jan 2022 15:16:07 -0700
Subject: regcomp.c: Fix undefined behavior

Spotted by ASAN.  To shift 31 bits in a 32 bit word, it has to be
unsigned.
---
 regcomp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/regcomp.c b/regcomp.c
index 9fe867b2fa..b2c2dffa66 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -21145,8 +21145,8 @@ S_regdump_extflags(pTHX_ const char *lead, const U32 flags)
     ASSUME(REG_EXTFLAGS_NAME_SIZE <= sizeof(flags)*8);
 
     for (bit=0; bit<REG_EXTFLAGS_NAME_SIZE; bit++) {
-        if (flags & (1<<bit)) {
-            if ((1<<bit) & RXf_PMf_CHARSET) {	/* Output separately, below */
+        if (flags & (1U<<bit)) {
+            if ((1U<<bit) & RXf_PMf_CHARSET) {	/* Output separately, below */
                 continue;
             }
             if (!set++ && lead)
-- 
cgit v1.2.1