usr.bin/perl/pp_pack.c

1684                 double adouble;
1685                 SHIFT_VAR(utf8, s, strend, adouble, datumtype, needs_swap);
1687                     mPUSHn(adouble);
1689                     cdouble += adouble;
2726                 double adouble;
2735                     adouble = DBL_MAX;
2737                     adouble = -DBL_MAX;
2738                 else adouble = (double)anv;
2740                 adouble = (double)anv;
2742                 PUSH_VAR(utf8, cur, adouble, needs_swap);