This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pos in lvalue context now returns a PVMG instead of a PVLV.
authorNicholas Clark <nick@ccl4.org>
Tue, 14 Jun 2011 15:52:46 +0000 (17:52 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 14 Jun 2011 15:52:46 +0000 (17:52 +0200)
Store the target SV in mg_obj, instead of LvTARG(). This slightly reduces both
code complexity and runtime memory use.

mg.c
pod/perldelta.pod
pp.c

diff --git a/mg.c b/mg.c
index 1bdf5c4..64c7d20 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2064,10 +2064,9 @@ int
 Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg)
 {
     dVAR;
-    SV* const lsv = LvTARG(sv);
+    SV *const lsv = mg->mg_obj;
 
     PERL_ARGS_ASSERT_MAGIC_GETPOS;
-    PERL_UNUSED_ARG(mg);
 
     if (SvTYPE(lsv) >= SVt_PVMG && SvMAGIC(lsv)) {
        MAGIC * const found = mg_find(lsv, PERL_MAGIC_regex_global);
@@ -2087,14 +2086,13 @@ int
 Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
 {
     dVAR;
-    SV* const lsv = LvTARG(sv);
+    SV *const lsv = mg->mg_obj;
     SSize_t pos;
     STRLEN len;
     STRLEN ulen = 0;
     MAGIC* found;
 
     PERL_ARGS_ASSERT_MAGIC_SETPOS;
-    PERL_UNUSED_ARG(mg);
 
     if (SvTYPE(lsv) >= SVt_PVMG && SvMAGIC(lsv))
        found = mg_find(lsv, PERL_MAGIC_regex_global);
index 8684157..e067934 100644 (file)
@@ -766,6 +766,11 @@ stored via the mg_ptr of their PERL_MAGIC_bm. Previously they were PVGVs, with
 the tables stored in the string buffer, beyond SvLEN(). This eliminates the
 last place where the core stores data beyond SvLEN().
 
+=item *
+
+C<pos> in lvalue context now returns a PVMG instead of a PVLV, storing the
+target SV in C<mg_obj>, instead of C<LvTARG()>.
+
 =back
 
 =head1 Selected Bug Fixes
diff --git a/pp.c b/pp.c
index 385f1be..f87e0dd 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -361,10 +361,8 @@ PP(pp_pos)
     dVAR; dSP; dPOPss;
 
     if (PL_op->op_flags & OPf_MOD || LVRET) {
-       SV * const ret = sv_2mortal(newSV_type(SVt_PVLV));  /* Not TARG RT#67838 */
-       sv_magic(ret, NULL, PERL_MAGIC_pos, NULL, 0);
-       LvTYPE(ret) = '.';
-       LvTARG(ret) = SvREFCNT_inc_simple(sv);
+       SV * const ret = sv_2mortal(newSV_type(SVt_PVMG));  /* Not TARG RT#67838 */
+       sv_magic(ret, sv, PERL_MAGIC_pos, NULL, 0);
        PUSHs(ret);    /* no SvSETMAGIC */
        RETURN;
     }