summaryrefslogtreecommitdiff
path: root/mathoms.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-10-08 14:36:33 -0600
committerKarl Williamson <khw@cpan.org>2020-11-09 12:45:20 -0700
commit37ee558d221d91b9b74247d7f4fcae5bb2959a5c (patch)
tree553b46ad4f499d2c715422e7ce5e2fd2b32ebd73 /mathoms.c
parent05594d284abefbd6e7aa1f32daeb9a801990b66a (diff)
downloadperl-37ee558d221d91b9b74247d7f4fcae5bb2959a5c.tar.gz
sv.c: Change some formal param names for clarity, consistency
The names previously indicated some things were strings that weren't necessarily so. Some nearly identical functions had varying parameter names.
Diffstat (limited to 'mathoms.c')
-rw-r--r--mathoms.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/mathoms.c b/mathoms.c
index 77ac0b69cb..7b85ae749a 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -244,11 +244,11 @@ Perl_sv_force_normal(pTHX_ SV *sv)
*/
void
-Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
+Perl_sv_setsv(pTHX_ SV *dsv, SV *ssv)
{
PERL_ARGS_ASSERT_SV_SETSV;
- sv_setsv_flags(dstr, sstr, SV_GMAGIC);
+ sv_setsv_flags(dsv, ssv, SV_GMAGIC);
}
/* sv_catpvn() is now a macro using Perl_sv_catpvn_flags();
@@ -272,11 +272,11 @@ Like C<sv_catpvn>, but also handles 'set' magic.
*/
void
-Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
+Perl_sv_catpvn_mg(pTHX_ SV *dsv, const char *sstr, STRLEN len)
{
PERL_ARGS_ASSERT_SV_CATPVN_MG;
- sv_catpvn_flags(sv,ptr,len,SV_GMAGIC|SV_SMAGIC);
+ sv_catpvn_flags(dsv,sstr,len,SV_GMAGIC|SV_SMAGIC);
}
/* sv_catsv() is now a macro using Perl_sv_catsv_flags();
@@ -284,11 +284,11 @@ Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
*/
void
-Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
+Perl_sv_catsv(pTHX_ SV *dsv, SV *sstr)
{
PERL_ARGS_ASSERT_SV_CATSV;
- sv_catsv_flags(dstr, sstr, SV_GMAGIC);
+ sv_catsv_flags(dsv, sstr, SV_GMAGIC);
}
/*
@@ -300,11 +300,11 @@ Like C<sv_catsv>, but also handles 'set' magic.
*/
void
-Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv)
+Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *sstr)
{
PERL_ARGS_ASSERT_SV_CATSV_MG;
- sv_catsv_flags(dsv,ssv,SV_GMAGIC|SV_SMAGIC);
+ sv_catsv_flags(dsv,sstr,SV_GMAGIC|SV_SMAGIC);
}
/*
@@ -1154,9 +1154,9 @@ Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block)
}
SV *
-Perl_sv_mortalcopy(pTHX_ SV *const oldstr)
+Perl_sv_mortalcopy(pTHX_ SV *const oldsv)
{
- return Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
+ return Perl_sv_mortalcopy_flags(aTHX_ oldsv, SV_GMAGIC);
}
void