diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-01 09:46:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-01 09:46:15 +0000 |
| commit | 7623d4262995987d3de73f116de43554c077f9c7 (patch) | |
| tree | cd7556da8df952f94b02376ea65000913761154e /embed.h | |
| parent | e1051f11a3c9aa4f634380cb66a839c59f585fe4 (diff) | |
| download | perl-7623d4262995987d3de73f116de43554c077f9c7.tar.gz | |
Expose save_pushi32ptr() and implement SAVECOPARYBASE() with it.
p4raw-id: //depot/perl@34963
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 12 |
1 files changed, 2 insertions, 10 deletions
@@ -806,12 +806,8 @@ #define save_sptr Perl_save_sptr #define save_svref Perl_save_svref #define save_pushptr Perl_save_pushptr -#if defined(PERL_IN_SCOPE_C) -#ifdef PERL_CORE -#define save_pushi32ptr S_save_pushi32ptr -#endif -#endif #ifdef PERL_CORE +#define save_pushi32ptr Perl_save_pushi32ptr #define save_pushptrptr Perl_save_pushptrptr #define sawparens Perl_sawparens #define scalar Perl_scalar @@ -3156,12 +3152,8 @@ #define save_sptr(a) Perl_save_sptr(aTHX_ a) #define save_svref(a) Perl_save_svref(aTHX_ a) #define save_pushptr(a,b) Perl_save_pushptr(aTHX_ a,b) -#if defined(PERL_IN_SCOPE_C) -#ifdef PERL_CORE -#define save_pushi32ptr(a,b,c) S_save_pushi32ptr(aTHX_ a,b,c) -#endif -#endif #ifdef PERL_CORE +#define save_pushi32ptr(a,b,c) Perl_save_pushi32ptr(aTHX_ a,b,c) #define save_pushptrptr(a,b,c) Perl_save_pushptrptr(aTHX_ a,b,c) #define sawparens(a) Perl_sawparens(aTHX_ a) #define scalar(a) Perl_scalar(aTHX_ a) |