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 /scope.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 'scope.h')
| -rw-r--r-- | scope.h | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -183,13 +183,7 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. PL_curstackinfo->si_stack = (t); \ } STMT_END -#define SAVECOPARYBASE(c) \ - STMT_START { \ - SSCHECK(3); \ - SSPUSHINT(CopARYBASE_get(c)); \ - SSPUSHPTR(c); \ - SSPUSHINT(SAVEt_COP_ARYBASE); \ - } STMT_END +#define SAVECOPARYBASE(c) save_pushi32ptr(CopARYBASE_get(c), c, SAVEt_COP_ARYBASE); /* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV", because realloc() means that the value can actually change. Possibly |