diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-01 00:02:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-01 00:02:17 +0000 |
| commit | dfcd3de5defffbf214d60b8322b79ded8e367fd3 (patch) | |
| tree | 9063a32f6027b52c6eeb29cfdf82240579d0668c /scope.h | |
| parent | 1409bc0658469580630ba458c85fe9cc3cb2d78c (diff) | |
| download | perl-dfcd3de5defffbf214d60b8322b79ded8e367fd3.tar.gz | |
Expose save_pushptrptr() and implement SAVESWITCHSTACK() with it.
p4raw-id: //depot/perl@34960
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -178,10 +178,7 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define SAVESWITCHSTACK(f,t) \ STMT_START { \ - SSCHECK(3); \ - SSPUSHPTR(MUTABLE_SV(f)); \ - SSPUSHPTR(MUTABLE_SV(t)); \ - SSPUSHINT(SAVEt_SAVESWITCHSTACK); \ + save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \ SWITCHSTACK((f),(t)); \ PL_curstackinfo->si_stack = (t); \ } STMT_END |