This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove some instruction bloat in S_find_uninit_var
VC 2003 -O1 put down SvIV(cSVOPx_sv(kid)) twice in asm. Not sure why.
Explicitly store the values to make it more obvious to the compiler to
evaluate the SvIV only once, then do the branch, not do the negate branch,
then in a negate branch do a SvIV. Result is less machine code read by the
CPU. The .text section dropped 0xC01FF to 0xC018F after this change.