diff options
| author | Tony Cook <tony@develop-help.com> | 2012-01-16 21:00:00 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2012-01-17 09:50:27 +1100 |
| commit | ca835a205dc40c038b61a59b046afee4bd329f4e (patch) | |
| tree | 32bb74090eb89c2ba9f8943802426f8f858b3314 | |
| parent | 5c72e80d9b6c141c9b2f5403860c03e6ebb64bc1 (diff) | |
| download | perl-ca835a205dc40c038b61a59b046afee4bd329f4e.tar.gz | |
avoid overflowing a 32-bit signed int
and the associated warning from Solaris C:
"regcomp.c", line 5294: warning: integer overflow detected: op "<<"
| -rw-r--r-- | regexp.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -379,7 +379,7 @@ get_regex_charset_name(const U32 flags, STRLEN* const lenp) #define RXf_START_ONLY (1<<(RXf_BASE_SHIFT+19)) /* Pattern is /^/ */ #define RXf_SKIPWHITE (1<<(RXf_BASE_SHIFT+20)) /* Pattern is for a split / / */ #define RXf_WHITE (1<<(RXf_BASE_SHIFT+21)) /* Pattern is /\s+/ */ -#define RXf_NULL (1<<(RXf_BASE_SHIFT+22)) /* Pattern is // */ +#define RXf_NULL (1U<<(RXf_BASE_SHIFT+22)) /* Pattern is // */ #if RXf_BASE_SHIFT+22 > 31 # error Too many RXf_PMf bits used. See regnodes.h for any spare in middle #endif |