This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9eb0798
)
There's no UVdf, there is UVuf. (#if 0'ed code)
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 5 Jun 2014 00:58:06 +0000
(20:58 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 5 Jun 2014 00:58:06 +0000
(20:58 -0400)
regcomp.c
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/regcomp.c
index
a395e2b
..
bc5d350
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-4779,13
+4779,13
@@
S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
/* It is counted once already... */
data->pos_min += minnext * (mincount - counted);
#if 0
/* It is counted once already... */
data->pos_min += minnext * (mincount - counted);
#if 0
-PerlIO_printf(Perl_debug_log, "counted=%"UV
df" deltanext=%"UVd
f
- " SSize_t_MAX=%"UV
df" minnext=%"UVd
f
- " maxcount=%"UV
df" mincount=%"UVd
f"\n",
+PerlIO_printf(Perl_debug_log, "counted=%"UV
uf" deltanext=%"UVu
f
+ " SSize_t_MAX=%"UV
uf" minnext=%"UVu
f
+ " maxcount=%"UV
uf" mincount=%"UVu
f"\n",
(UV)counted, (UV)deltanext, (UV)SSize_t_MAX, (UV)minnext, (UV)maxcount,
(UV)mincount);
if (deltanext != SSize_t_MAX)
(UV)counted, (UV)deltanext, (UV)SSize_t_MAX, (UV)minnext, (UV)maxcount,
(UV)mincount);
if (deltanext != SSize_t_MAX)
-PerlIO_printf(Perl_debug_log, "LHS=%"UV
df" RHS=%"UVd
f"\n",
+PerlIO_printf(Perl_debug_log, "LHS=%"UV
uf" RHS=%"UVu
f"\n",
(UV)(-counted * deltanext + (minnext + deltanext) * maxcount
- minnext * mincount), (UV)(SSize_t_MAX - data->pos_delta));
#endif
(UV)(-counted * deltanext + (minnext + deltanext) * maxcount
- minnext * mincount), (UV)(SSize_t_MAX - data->pos_delta));
#endif