mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

scan_num: Remove redundant variable

Browse Source 
It turns out that the removed variable was set if and only if another
one is set.
This commit is contained in:
Karl Williamson 2025-11-04 08:31:23 -07:00 committed by Karl Williamson
parent 88f287ac80
commit 0bd5c1a469
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
toke.c
View File

@ -12477,7 +12477,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
* which will probably mean horrible loss of precision due to
* multiple fp operations. */
bool hexfp = FALSE;
int total_bits = 0;
int significant_bits = 0;
#if NVSIZE == 8 && defined(HAS_QUAD) && defined(Uquad_t)
# define HEXFP_UQUAD
@ -12616,8 +12615,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
assert(shift >= 0);
x = u << shift; /* make room for the digit */
total_bits += shift;
if ((x >> shift) != u
&& !(PL_hints & HINT_NEW_BINARY)) {
overflowed = TRUE;
@ -12755,8 +12752,9 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
}
}
if ((total_bits > 0 || significant_bits > 0) &&
isALPHA_FOLD_EQ(*h, 'p')) {
if ( (has_digs || significant_bits > 0)
&& isALPHA_FOLD_EQ(*h, 'p'))
{
bool negexp = FALSE;
h++;
if (*h == '+')