Skip to content

Commit ed76089

Browse files
committed
Move change c350769 into embed.fnc, from the generated file proto.h
1 parent a9ed9b7 commit ed76089

File tree

3 files changed

+13
-1
lines changed

3 files changed

+13
-1
lines changed

embed.fnc

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -769,7 +769,9 @@ pR |OP* |oopsAV |NN OP* o
769769
pR |OP* |oopsHV |NN OP* o
770770
: Defined in pad.c, used only in op.c
771771
pd |void |pad_leavemy
772+
#ifdef DEBUGGING
772773
Apd |SV* |pad_sv |PADOFFSET po
774+
#endif
773775
: Defined in pad.c, used only in op.c
774776
pd |void |pad_free |PADOFFSET po
775777
#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
@@ -1992,7 +1994,9 @@ p |void |free_tied_hv_pool
19921994
pR |int |get_debug_opts |NN const char **s|bool givehelp
19931995
#endif
19941996
Ap |void |save_set_svflags|NN SV *sv|U32 mask|U32 val
1997+
#ifdef DEBUGGING
19951998
Apod |void |hv_assert |NN HV *hv
1999+
#endif
19962000

19972001
ApdR |SV* |hv_scalar |NN HV *hv
19982002
ApoR |I32* |hv_riter_p |NN HV *hv

embed.h

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -659,7 +659,9 @@
659659
#define oopsHV Perl_oopsHV
660660
#define pad_leavemy Perl_pad_leavemy
661661
#endif
662+
#ifdef DEBUGGING
662663
#define pad_sv Perl_pad_sv
664+
#endif
663665
#ifdef PERL_CORE
664666
#define pad_free Perl_pad_free
665667
#endif
@@ -1767,6 +1769,8 @@
17671769
#endif
17681770
#endif
17691771
#define save_set_svflags Perl_save_set_svflags
1772+
#ifdef DEBUGGING
1773+
#endif
17701774
#define hv_scalar Perl_hv_scalar
17711775
#define hv_name_set Perl_hv_name_set
17721776
#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
@@ -3045,7 +3049,9 @@
30453049
#define oopsHV(a) Perl_oopsHV(aTHX_ a)
30463050
#define pad_leavemy() Perl_pad_leavemy(aTHX)
30473051
#endif
3052+
#ifdef DEBUGGING
30483053
#define pad_sv(a) Perl_pad_sv(aTHX_ a)
3054+
#endif
30493055
#ifdef PERL_CORE
30503056
#define pad_free(a) Perl_pad_free(aTHX_ a)
30513057
#endif
@@ -4160,6 +4166,8 @@
41604166
#endif
41614167
#endif
41624168
#define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c)
4169+
#ifdef DEBUGGING
4170+
#endif
41634171
#define hv_scalar(a) Perl_hv_scalar(aTHX_ a)
41644172
#define hv_name_set(a,b,c,d) Perl_hv_name_set(aTHX_ a,b,c,d)
41654173
#ifdef PERL_CORE

proto.h

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6232,8 +6232,8 @@ PERL_CALLCONV void Perl_hv_assert(pTHX_ HV *hv)
62326232
__attribute__nonnull__(pTHX_1);
62336233
#define PERL_ARGS_ASSERT_HV_ASSERT \
62346234
assert(hv)
6235-
#endif
62366235

6236+
#endif
62376237

62386238
PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV *hv)
62396239
__attribute__warn_unused_result__

0 commit comments

Comments
 (0)