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

Revert "Remove mathoms stub Perl_gv_SVadd()"

Browse Source 
This reverts commit f2cb455cf7a4a7415dde08eb0999afcf37cb6a4a.
This commit is contained in:
Karl Williamson 2025-04-19 18:37:31 -06:00 committed by Karl Williamson
parent a7fa6fe549
commit 24453dfedd
5 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
embed.fnc
View File

@ -4203,7 +4203,7 @@ Mp |bool |do_exec |NN const char *cmd
p |bool |do_exec |NN const char *cmd
#endif
#if defined(PERL_DONT_CREATE_GVSV)
Admp |GV * |gv_SVadd |NULLOK GV *gv
AMbdp |GV * |gv_SVadd |NULLOK GV *gv
#endif
#if defined(PERL_IMPLICIT_SYS)
CTo |PerlInterpreter *|perl_alloc_using \

3
embed.h
View File

@ -2060,9 +2060,6 @@
# define finalize_optree(a) Perl_finalize_optree(aTHX_ a)
# define optimize_optree(a) Perl_optimize_optree(aTHX_ a)
# endif
# if defined(PERL_DONT_CREATE_GVSV)
# define gv_SVadd(a) Perl_gv_SVadd(aTHX,a)
# endif
# if !defined(PERL_IMPLICIT_SYS)
# define my_pclose(a) Perl_my_pclose(aTHX_ a)
# define my_popen(a,b) Perl_my_popen(aTHX_ a,b)

2
gv.h
View File

@ -346,7 +346,7 @@ Make sure there is a slot of the given type (AV, HV, IO, SV) in the GV C<gv>.
#define gv_AVadd(gv) gv_add_by_type((gv), SVt_PVAV)
#define gv_HVadd(gv) gv_add_by_type((gv), SVt_PVHV)
#define gv_IOadd(gv) gv_add_by_type((gv), SVt_PVIO)
#define Perl_gv_SVadd(mTHX, gv) Perl_gv_add_by_type(aTHX_ (gv), SVt_NULL)
#define gv_SVadd(gv) gv_add_by_type((gv), SVt_NULL)
/*
* ex: set ts=8 sts=4 sw=4 et:

8
mathoms.c
View File

@ -666,6 +666,14 @@ Perl_save_op(pTHX)
save_op();
}
#ifdef PERL_DONT_CREATE_GVSV
GV *
Perl_gv_SVadd(pTHX_ GV *gv)
{
return gv_SVadd(gv);
}
#endif
GV *
Perl_gv_AVadd(pTHX_ GV *gv)
{

11
proto.h generated
View File

@ -6149,6 +6149,12 @@ Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
# define PERL_ARGS_ASSERT_UVUNI_TO_UTF8 \
assert(d)
# if defined(PERL_DONT_CREATE_GVSV)
PERL_CALLCONV GV *
Perl_gv_SVadd(pTHX_ GV *gv);
# define PERL_ARGS_ASSERT_GV_SVADD
# endif
# if defined(PERL_IN_MATHOMS_C) || defined(PERL_IN_OP_C) || \
defined(PERL_IN_PERLY_C) || defined(PERL_IN_TOKE_C)
PERL_CALLCONV OP *
@ -6270,11 +6276,6 @@ Perl_do_exec(pTHX_ const char *cmd)
# define PERL_ARGS_ASSERT_DO_EXEC \
assert(cmd)
#endif
#if defined(PERL_DONT_CREATE_GVSV)
/* PERL_CALLCONV GV *
Perl_gv_SVadd(pTHX_ GV *gv); */
#endif
#if defined(PERL_IMPLICIT_SYS)
PERL_CALLCONV PerlInterpreter *