From 261fcdab08d4144aee77d6e62cd6bdfc3c1a418e Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 25 Aug 2005 08:45:04 +0000 Subject: [PATCH] Fix miniperl build with threaded perl p4raw-id: //depot/perl@25326 --- util.c | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/util.c b/util.c index f23e9cb..8dd0784 100644 --- a/util.c +++ b/util.c @@ -4227,17 +4227,17 @@ Perl_vnumify(pTHX_ SV *vs) } digit = SvIV(*av_fetch(av, 0, 0)); - sv_setpvf(sv, "%d.", (int)PERL_ABS(digit)); + Perl_sv_setpvf(aTHX_ sv, "%d.", (int)PERL_ABS(digit)); for ( i = 1 ; i < len ; i++ ) { digit = SvIV(*av_fetch(av, i, 0)); if ( width < 3 ) { const int denom = (int)pow(10,(3-width)); const div_t term = div((int)PERL_ABS(digit),denom); - sv_catpvf(sv, "%0*d_%d", width, term.quot, term.rem); + Perl_sv_catpvf(aTHX_ sv, "%0*d_%d", width, term.quot, term.rem); } else { - sv_catpvf(sv, "%0*d", width, (int)digit); + Perl_sv_catpvf(aTHX_ sv, "%0*d", width, (int)digit); } } @@ -4246,7 +4246,7 @@ Perl_vnumify(pTHX_ SV *vs) digit = SvIV(*av_fetch(av, len, 0)); if ( alpha && width == 3 ) /* alpha version */ sv_catpvn(sv,"_",1); - sv_catpvf(sv, "%0*d", width, (int)digit); + Perl_sv_catpvf(aTHX_ sv, "%0*d", width, (int)digit); } else /* len == 0 */ { @@ -4293,10 +4293,10 @@ Perl_vnormal(pTHX_ SV *vs) return sv; } digit = SvIV(*av_fetch(av, 0, 0)); - sv_setpvf(sv, "v%"IVdf, (IV)digit); + Perl_sv_setpvf(aTHX_ sv, "v%"IVdf, (IV)digit); for ( i = 1 ; i <= len-1 ; i++ ) { digit = SvIV(*av_fetch(av, i, 0)); - sv_catpvf(sv, ".%"IVdf, (IV)digit); + Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit); } if ( len > 0 ) @@ -4304,9 +4304,9 @@ Perl_vnormal(pTHX_ SV *vs) /* handle last digit specially */ digit = SvIV(*av_fetch(av, len, 0)); if ( alpha ) - sv_catpvf(sv, "_%"IVdf, (IV)digit); + Perl_sv_catpvf(aTHX_ sv, "_%"IVdf, (IV)digit); else - sv_catpvf(sv, ".%"IVdf, (IV)digit); + Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit); } if ( len <= 2 ) { /* short version, must be at least three */ @@ -4341,9 +4341,9 @@ Perl_vstringify(pTHX_ SV *vs) qv = 1; if ( qv ) - return vnormal(vs); + return Perl_vnormal(aTHX_ vs); else - return vnumify(vs); + return Perl_vnumify(aTHX_ vs); } /* -- 2.7.4