mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove code relating to PL_Xpv

Browse Source 
This variable is no longer used in any perl code. It used to be used as
a temporary during some expression macros, similar to the way PL_Sv is
used. The last reference I can find to it in real code was removed in
2012, by the commit
  6702ba93464c105fae0da7b54ac21a0485c1f0b5

(It's a little late in the 5.39.x development cycle to consider removing
the line from intrpvar.h itself; but we could do that at the start of
5.41.x).
This commit is contained in:
Paul "LeoNerd" Evans 2024-04-12 16:49:52 +00:00 committed by Paul Evans
parent 7cc2957820
commit 079a9d4ad3
4 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
embedvar.h generated
View File

@ -361,7 +361,6 @@
# define PL_WB_invlist (vTHX->IWB_invlist)
# define PL_wcrtomb_ps (vTHX->Iwcrtomb_ps)
# define PL_XPosix_ptrs (vTHX->IXPosix_ptrs)
# define PL_Xpv (vTHX->IXpv)
# define PL_xsubfilename (vTHX->Ixsubfilename)
# if !defined(PL_sawampersand)
# define PL_sawampersand (vTHX->Isawampersand)

2
intrpvar.h
View File

@ -968,8 +968,6 @@ PERLVAR(I, blockhooks, AV *)
PERLVAR(I, custom_ops, HV *) /* custom op registrations */
PERLVAR(I, Xpv, XPV *) /* (unused) held temporary value */
/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
present always, as -DDEBUGGING must be binary compatible with non. */
PERLVARI(I, scopestack_name, const char **, NULL)

2
mg.c
View File

@ -3676,7 +3676,6 @@ Perl_perly_sighandler(int sig, Siginfo_t *sip PERL_UNUSED_DECL,
CV *cv = NULL;
OP *myop = PL_op;
U32 flags = 0;
XPV * const tXpv = PL_Xpv;
I32 old_ss_ix = PL_savestack_ix;
SV *errsv_save = NULL;
@ -3831,7 +3830,6 @@ Perl_perly_sighandler(int sig, Siginfo_t *sip PERL_UNUSED_DECL,
PL_op = myop; /* Apparently not needed... */
PL_Sv = tSv; /* Restore global temporaries. */
PL_Xpv = tXpv;
return;
}

1
sv.c
View File

@ -15926,7 +15926,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_op = proto_perl->Iop;
PL_Sv = NULL;
PL_Xpv = (XPV*)NULL;
my_perl->Ina = proto_perl->Ina;
PL_statcache = proto_perl->Istatcache;