diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-30 23:16:09 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-30 23:16:09 +0000 |
| commit | e22024d3cff7db1071a80c1941fd213f9e45cd7c (patch) | |
| tree | 521ff51ff836bab4cca5aba08a238b7cf9d6fe00 /embed.h | |
| parent | 2fd8beea017eccf05d12bfa6e4db7c5340ce637b (diff) | |
| download | perl-e22024d3cff7db1071a80c1941fd213f9e45cd7c.tar.gz | |
Refactor all of the code of the form
SSCHECK(3);
SSPUSHPTR(ptr1);
SSPUSHPTR(ptr2);
SSPUSHINT(type);
into a static function S_save_pushptrptr().
It might be possible to make some of its callers trivial macros, and
so eliminate them as functions. But start with the easy part.
p4raw-id: //depot/perl@34957
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -806,6 +806,11 @@ #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_pushptrptr S_save_pushptrptr +#endif +#endif #ifdef PERL_CORE #define sawparens Perl_sawparens #define scalar Perl_scalar @@ -3150,6 +3155,11 @@ #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_pushptrptr(a,b,c) S_save_pushptrptr(aTHX_ a,b,c) +#endif +#endif #ifdef PERL_CORE #define sawparens(a) Perl_sawparens(aTHX_ a) #define scalar(a) Perl_scalar(aTHX_ a) |