diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-12-18 05:58:44 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-29 11:41:10 +0000 |
| commit | 0c55a1c17f6da0fa17d0f45b8abcc15523c8693a (patch) | |
| tree | bebcdc3829191e29361bdf872b975a6280991fb7 | |
| parent | c5c7a622c0d82a63327bf3fa06564167fddd087d (diff) | |
| download | perl-0c55a1c17f6da0fa17d0f45b8abcc15523c8693a.tar.gz | |
XSUB.h refinement [PATCH]
To: perl5-porters@perl.org
Cc: perl-xs@perl.org
Message-ID: <MLIST_Pine.GSO.4.02.9812171733330.589-100000@eq1062.wks.na.deuba.com>
p4raw-id: //depot/cfgperl@2519
| -rw-r--r-- | XSUB.h | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -29,10 +29,13 @@ #define XSINTERFACE_FUNC_SET(cv,f) \ CvXSUBANY(cv).any_dptr = (void (*) _((void*)))(f) -#define XSRETURN(off) \ - STMT_START { \ - PL_stack_sp = PL_stack_base + ax + ((off) - 1); \ - return; \ +#define XSFLUSHARGS \ + PL_stack_sp = PL_stack_base + ax + ((off) - 1) + +#define XSRETURN(off) \ + STMT_START { \ + XSFLUSHARGS; \ + return; \ } STMT_END /* Simple macros to put new mortal values onto the stack. */ |