diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-31 22:44:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-31 22:44:56 +0000 |
| commit | 893fe2c21345ec73429b2371c33adad8d22fc7f2 (patch) | |
| tree | 40616f23c0e5583acd35f985de295e3ebf64efdb /toke.c | |
| parent | d6a287148f674729887096e6af50b42b464c3451 (diff) | |
| download | perl-893fe2c21345ec73429b2371c33adad8d22fc7f2.tar.gz | |
Integer overflow iteration.
p4raw-id: //depot/cfgperl@3843
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6298,7 +6298,7 @@ Perl_scan_num(pTHX_ char *start) static char *maxima[5] = { "", "0b11111111111111111111111111111111", "", - "0b37777777777", + "037777777777", "0xffffffff" }; char *base, *Base, *max; @@ -6324,7 +6324,7 @@ Perl_scan_num(pTHX_ char *start) /* read the rest of the number */ for (;;) { /* x is used in the overflow test, - b is the digit we're adding on */ + b is the digit we're adding on. */ UV x, b; switch (*s) { @@ -6410,7 +6410,7 @@ Perl_scan_num(pTHX_ char *start) sv = NEWSV(92,0); if (overflowed) { dTHR; - if (ckWARN(WARN_UNSAFE) && (NV) n > 4294967295.0) + if (ckWARN(WARN_UNSAFE) && n > 4294967295.0) Perl_warner(aTHX_ WARN_UNSAFE, "%s number > %s non-portable", Base, max); |