diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-10-17 10:14:46 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-10-17 10:14:46 +0000 |
| commit | 585ec06d680e861557397efeb05210638532c6dc (patch) | |
| tree | d28fe8c8e4c0c72bc9128edb40834bf04f755a0d /numeric.c | |
| parent | a0fd494844cc8648fdc5234c367fd018a12fdf3f (diff) | |
| download | perl-585ec06d680e861557397efeb05210638532c6dc.tar.gz | |
Make some casts explicit to keep VC++ 7 happy
Specifically, this silences the warnings from the following smoke:
http://www.nntp.perl.org/group/perl.daily-build.reports/32258
(Hmm. Looks like you need to decode the base64 yourself before you
can read that.)
p4raw-id: //depot/perl@25779
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -151,7 +151,7 @@ Perl_grok_bin(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) { NV value_nv = 0; const UV max_div_2 = UV_MAX / 2; - const bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; + const bool allow_underscores = (bool)(*flags & PERL_SCAN_ALLOW_UNDERSCORES); bool overflowed = FALSE; char bit; @@ -268,7 +268,7 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) { NV value_nv = 0; const UV max_div_16 = UV_MAX / 16; - const bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; + const bool allow_underscores = (bool)(*flags & PERL_SCAN_ALLOW_UNDERSCORES); bool overflowed = FALSE; if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) { @@ -382,7 +382,7 @@ Perl_grok_oct(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) { NV value_nv = 0; const UV max_div_8 = UV_MAX / 8; - const bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; + const bool allow_underscores = (bool)(*flags & PERL_SCAN_ALLOW_UNDERSCORES); bool overflowed = FALSE; for (; len-- && *s; s++) { |