diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-23 11:02:35 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-23 11:02:35 +0000 |
| commit | ba329e04450c9e718e3584348f2d0f15c4762fb6 (patch) | |
| tree | 86d59e89495d3393bf78862ecaadffb79a856c5f /util.c | |
| parent | b53307ead6e86d4eafd7cc2ea1c0dbe964e63e43 (diff) | |
| download | perl-ba329e04450c9e718e3584348f2d0f15c4762fb6.tar.gz | |
fixup threaded build for vstring changes
p4raw-id: //depot/perl@17762
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -4252,19 +4252,19 @@ correct type (for speed). */ SV * -Perl_vnumify(SV *sv, SV *vs) +Perl_vnumify(pTHX_ SV *sv, SV *vs) { U8* pv = (U8*)SvPVX(vs); STRLEN len = SvCUR(vs); STRLEN retlen; UV digit = utf8_to_uvchr(pv,&retlen); - sv_setpvf(sv,"%"UVf".",digit); + Perl_sv_setpvf(aTHX_ sv,"%"UVf".",digit); for (pv += retlen, len -= retlen; len > 0; pv += retlen, len -= retlen) { digit = utf8_to_uvchr(pv,&retlen); - sv_catpvf(sv,"%03"UVf,digit); + Perl_sv_catpvf(aTHX_ sv,"%03"UVf,digit); } return sv; } @@ -4284,19 +4284,19 @@ correct type (for speed). */ SV * -Perl_vstringify(SV *sv, SV *vs) +Perl_vstringify(pTHX_ SV *sv, SV *vs) { U8* pv = (U8*)SvPVX(vs); STRLEN len = SvCUR(vs); STRLEN retlen; UV digit = utf8_to_uvchr(pv,&retlen); - sv_setpvf(sv,"%"UVf,digit); + Perl_sv_setpvf(aTHX_ sv,"%"UVf,digit); for (pv += retlen, len -= retlen; len > 0; pv += retlen, len -= retlen) { digit = utf8_to_uvchr(pv,&retlen); - sv_catpvf(sv,".%03"UVf,digit); + Perl_sv_catpvf(aTHX_ sv,".%03"UVf,digit); } if ( SvIVX(vs) < 0 ) sv_catpv(sv,"beta"); |