Skip to content

Commit 24453df

Browse files
committedApr 20, 2025
Revert "Remove mathoms stub Perl_gv_SVadd()"
This reverts commit f2cb455.
1 parent a7fa6fe commit 24453df

File tree

5 files changed

+16
-10
lines changed

5 files changed

+16
-10
lines changed
 

‎embed.fnc

+1-1
Original file line numberDiff line numberDiff line change
@@ -4203,7 +4203,7 @@ Mp |bool |do_exec |NN const char *cmd
42034203
p |bool |do_exec |NN const char *cmd
42044204
#endif
42054205
#if defined(PERL_DONT_CREATE_GVSV)
4206-
Admp |GV * |gv_SVadd |NULLOK GV *gv
4206+
AMbdp |GV * |gv_SVadd |NULLOK GV *gv
42074207
#endif
42084208
#if defined(PERL_IMPLICIT_SYS)
42094209
CTo |PerlInterpreter *|perl_alloc_using \

‎embed.h

-3
Original file line numberDiff line numberDiff line change
@@ -2060,9 +2060,6 @@
20602060
# define finalize_optree(a) Perl_finalize_optree(aTHX_ a)
20612061
# define optimize_optree(a) Perl_optimize_optree(aTHX_ a)
20622062
# endif
2063-
# if defined(PERL_DONT_CREATE_GVSV)
2064-
# define gv_SVadd(a) Perl_gv_SVadd(aTHX,a)
2065-
# endif
20662063
# if !defined(PERL_IMPLICIT_SYS)
20672064
# define my_pclose(a) Perl_my_pclose(aTHX_ a)
20682065
# define my_popen(a,b) Perl_my_popen(aTHX_ a,b)

‎gv.h

+1-1
Original file line numberDiff line numberDiff line change
@@ -346,7 +346,7 @@ Make sure there is a slot of the given type (AV, HV, IO, SV) in the GV C<gv>.
346346
#define gv_AVadd(gv) gv_add_by_type((gv), SVt_PVAV)
347347
#define gv_HVadd(gv) gv_add_by_type((gv), SVt_PVHV)
348348
#define gv_IOadd(gv) gv_add_by_type((gv), SVt_PVIO)
349-
#define Perl_gv_SVadd(mTHX, gv) Perl_gv_add_by_type(aTHX_ (gv), SVt_NULL)
349+
#define gv_SVadd(gv) gv_add_by_type((gv), SVt_NULL)
350350

351351
/*
352352
* ex: set ts=8 sts=4 sw=4 et:

‎mathoms.c

+8
Original file line numberDiff line numberDiff line change
@@ -666,6 +666,14 @@ Perl_save_op(pTHX)
666666
save_op();
667667
}
668668

669+
#ifdef PERL_DONT_CREATE_GVSV
670+
GV *
671+
Perl_gv_SVadd(pTHX_ GV *gv)
672+
{
673+
return gv_SVadd(gv);
674+
}
675+
#endif
676+
669677
GV *
670678
Perl_gv_AVadd(pTHX_ GV *gv)
671679
{

‎proto.h

+6-5
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)
Please sign in to comment.