diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
| commit | c69033f2a629160559f680da8e4e5a7e3c4c3a0c (patch) | |
| tree | d19b6ca86b0f5cbbbb1e078ab96eac111df03dfd /embed.h | |
| parent | 9dc0b5dcb80b5128172acb8c4bd670aa72142821 (diff) | |
| download | perl-c69033f2a629160559f680da8e4e5a7e3c4c3a0c.tar.gz | |
First stab at not automatically creating an unused SV for GvSV
Enable it with -DPERL_DONT_CREATE_GVSV.
Currently if enabled 22 test scripts have failures, so still some way
to go.
p4raw-id: //depot/perl@25009
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -1637,6 +1637,9 @@ #define dump_sv_child Perl_dump_sv_child #endif #endif +#ifdef PERL_DONT_CREATE_GVSV +#define gv_SVadd Perl_gv_SVadd +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -3609,6 +3612,9 @@ #define dump_sv_child(a) Perl_dump_sv_child(aTHX_ a) #endif #endif +#ifdef PERL_DONT_CREATE_GVSV +#define gv_SVadd(a) Perl_gv_SVadd(aTHX_ a) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) |