Skip to content

Commit f2cb455

Browse files
committed
Remove mathoms stub Perl_gv_SVadd()
1 parent 9d5c1af commit f2cb455

File tree

5 files changed

+10
-16
lines changed

5 files changed

+10
-16
lines changed

embed.fnc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4089,7 +4089,7 @@ Mp |bool |do_exec |NN const char *cmd
40894089
p |bool |do_exec |NN const char *cmd
40904090
#endif
40914091
#if defined(PERL_DONT_CREATE_GVSV)
4092-
AMbdp |GV * |gv_SVadd |NULLOK GV *gv
4092+
Admp |GV * |gv_SVadd |NULLOK GV *gv
40934093
#endif
40944094
#if defined(PERL_IMPLICIT_SYS)
40954095
CTo |PerlInterpreter *|perl_alloc_using \

embed.h

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2018,6 +2018,9 @@
20182018
# define finalize_optree(a) Perl_finalize_optree(aTHX_ a)
20192019
# define optimize_optree(a) Perl_optimize_optree(aTHX_ a)
20202020
# endif
2021+
# if defined(PERL_DONT_CREATE_GVSV)
2022+
# define gv_SVadd(a) Perl_gv_SVadd(aTHX,a)
2023+
# endif
20212024
# if !defined(PERL_IMPLICIT_SYS)
20222025
# define my_pclose(a) Perl_my_pclose(aTHX_ a)
20232026
# define my_popen(a,b) Perl_my_popen(aTHX_ a,b)

gv.h

Lines changed: 1 addition & 1 deletion
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 gv_SVadd(gv) gv_add_by_type((gv), SVt_NULL)
349+
#define Perl_gv_SVadd(mTHX, gv) Perl_gv_add_by_type(aTHX_ (gv), SVt_NULL)
350350

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

mathoms.c

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -666,14 +666,6 @@ 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-
677669
GV *
678670
Perl_gv_AVadd(pTHX_ GV *gv)
679671
{

proto.h

Lines changed: 5 additions & 6 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)