Make HvFILL() count the allocated buckets, instead of reading a stored value.

Add a function Perl_hv_fill to perform the count. This will save 1 IV per hash,
and on some systems cause struct xpvhv to become cache aligned.

1 files changed, 0 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 7a87120b5e..5b61f94db8 100644
--- a/perl.c
+++ b/perl.c
@@ -1115,7 +1115,6 @@ perl_destruct(pTHXx)
 	Safefree(array);
 	HvARRAY(PL_strtab) = 0;
 	HvTOTALKEYS(PL_strtab) = 0;
-	HvFILL(PL_strtab) = 0;
     }
     SvREFCNT_dec(PL_strtab);