File tree Expand file tree Collapse file tree 1 file changed +5
-2
lines changed Expand file tree Collapse file tree 1 file changed +5
-2
lines changed Original file line number Diff line number Diff line change @@ -1610,13 +1610,16 @@ Perl_sv_setuv(pTHX_ register SV *const sv, const UV u)
1610
1610
{
1611
1611
PERL_ARGS_ASSERT_SV_SETUV ;
1612
1612
1613
- /* With these two if statements:
1613
+ /* With the if statement to ensure that integers are stored as IVs whenever
1614
+ possible:
1614
1615
u=1.49 s=0.52 cu=72.49 cs=10.64 scripts=270 tests=20865
1615
1616
1616
1617
without
1617
1618
u=1.35 s=0.47 cu=73.45 cs=11.43 scripts=270 tests=20865
1618
1619
1619
- If you wish to remove them, please benchmark to see what the effect is
1620
+ If you wish to remove the following if statement, so that this routine
1621
+ (and its callers) always return UVs, please benchmark to see what the
1622
+ effect is. Modern CPUs may be different. Or may not :-)
1620
1623
*/
1621
1624
if (u <= (UV )IV_MAX ) {
1622
1625
sv_setiv (sv , (IV )u );
You can’t perform that action at this time.
0 commit comments