Searched refs:PL_numeric_radix_sv (Results 1 – 8 of 8) sorted by relevance
48 #ifdef PL_numeric_radix_sv49 if (PL_numeric_radix_sv && IN_LOCALE) {51 char* radix = SvPV(PL_numeric_radix_sv, len);58 /* older perls don't have PL_numeric_radix_sv so the radix
85 PL_numeric_radix_sv # Z added by devel/scanprov
679 radix = SvPV(PL_numeric_radix_sv, len); in Perl_grok_numeric_radix()1509 = strstr(s, SvPV_nolen(PL_numeric_radix_sv)); in Perl_my_atof()
201 # define PL_numeric_radix_sv (vTHX->Inumeric_radix_sv) macro
3498 sv_setpv(PL_numeric_radix_sv, C_decimal_point); in S_new_numeric()3499 SvUTF8_off(PL_numeric_radix_sv); in S_new_numeric()3590 sv_setpv(PL_numeric_radix_sv, C_decimal_point); in Perl_set_numeric_standard()3591 SvUTF8_off(PL_numeric_radix_sv); in Perl_set_numeric_standard()3623 sv_setsv_nomg(PL_numeric_radix_sv, PL_underlying_radix_sv); in Perl_set_numeric_underlying()8891 PL_numeric_radix_sv = newSV(1); in Perl_init_i18nl10n()
3157 if (local_radix && SvCUR(PL_numeric_radix_sv) > 1) { in Perl_sv_2pv_flags()3158 size += SvCUR(PL_numeric_radix_sv) - 1; in Perl_sv_2pv_flags()3167 && SvUTF8(PL_numeric_radix_sv) in Perl_sv_2pv_flags()3168 && instr(s, SvPVX_const(PL_numeric_radix_sv))) in Perl_sv_2pv_flags()12098 const char* r = SvPV(PL_numeric_radix_sv, n);13397 float_need += (SvCUR(PL_numeric_radix_sv) - 1);13406 if (SvUTF8(PL_numeric_radix_sv) && !has_utf8) {16164 PL_numeric_radix_sv = newSVpvs(".");
1166 SvREFCNT_dec(PL_numeric_radix_sv); in perl_destruct()1167 PL_numeric_radix_sv = NULL; in perl_destruct()
16667 #ifdef PL_numeric_radix_sv in DPPP_()16668 if (PL_numeric_radix_sv && IN_LOCALE) { in DPPP_()16670 char* radix = SvPV(PL_numeric_radix_sv, len); in DPPP_()