diff options
| author | Karl Williamson <khw@cpan.org> | 2015-01-21 21:46:19 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-01-21 22:47:28 -0700 |
| commit | b195e252a109f69a99d24bd326294c70a9df049a (patch) | |
| tree | 219f6d5028c47530235230da266c792a3d49df91 /regcomp.c | |
| parent | 64016071d009e8d6ad2dc5a71b86e0e2741a7037 (diff) | |
| download | perl-b195e252a109f69a99d24bd326294c70a9df049a.tar.gz | |
regcomp.c: Silence Win32 compiler warnings
This variable is a boolean with values of 0 and 1, even though it's
stored as 32-bits in the struct, to get the simplest store/retrieval
code generated, so it's safe to cast it to a bool.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -11659,7 +11659,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) FALSE, /* means parse the whole char class */ TRUE, /* allow multi-char folds */ FALSE, /* don't silence non-portable warnings. */ - RExC_strict, + (bool) RExC_strict, NULL); if (*RExC_parse != ']') { RExC_parse = oregcomp_parse; @@ -11895,7 +11895,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) FALSE, /* don't silence non-portable warnings. It would be a bug if these returned non-portables */ - RExC_strict, + (bool) RExC_strict, NULL); /* regclass() can only return RESTART_UTF8 if multi-char folds are allowed. */ @@ -12270,7 +12270,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) &result, &error_msg, PASS2, /* out warnings */ - RExC_strict, + (bool) RExC_strict, TRUE, /* Output warnings for non- portables */ @@ -12299,7 +12299,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) &result, &error_msg, PASS2, /* out warnings */ - RExC_strict, + (bool) RExC_strict, TRUE, /* Silence warnings for non- portables */ |