diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 01:17:53 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 01:17:53 +0000 |
commit | 641d418146aca42ab6c180be32ab9f32e3d6ea46 (patch) | |
tree | 3902bf011cdf30115ed09f239a0fa2ed18ab32d7 /sv.c | |
parent | c0a105bfc95a10a0d8ab4cc278bd5b1ad66f202b (diff) | |
download | perl-641d418146aca42ab6c180be32ab9f32e3d6ea46.tar.gz |
Remove sv_setpviv{_,mg}; regen perlapi.
p4raw-id: //depot/perl@16290
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 38 |
1 files changed, 0 insertions, 38 deletions
@@ -7420,44 +7420,6 @@ Perl_sv_tainted(pTHX_ SV *sv) return FALSE; } -/* -=for apidoc sv_setpviv - -Copies an integer into the given SV, also updating its string value. -Does not handle 'set' magic. See C<sv_setpviv_mg>. - -=cut -*/ - -void -Perl_sv_setpviv(pTHX_ SV *sv, IV iv) -{ - char buf[TYPE_CHARS(UV)]; - char *ebuf; - char *ptr = uiv_2buf(buf, iv, 0, 0, &ebuf); - - sv_setpvn(sv, ptr, ebuf - ptr); -} - -/* -=for apidoc sv_setpviv_mg - -Like C<sv_setpviv>, but also handles 'set' magic. - -=cut -*/ - -void -Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv) -{ - char buf[TYPE_CHARS(UV)]; - char *ebuf; - char *ptr = uiv_2buf(buf, iv, 0, 0, &ebuf); - - sv_setpvn(sv, ptr, ebuf - ptr); - SvSETMAGIC(sv); -} - #if defined(PERL_IMPLICIT_CONTEXT) /* pTHX_ magic can't cope with varargs, so this is a no-context |