diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-01-05 21:51:11 -0500 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-01-06 15:33:00 +1100 |
| commit | 23d1ca42f29afcdee8401f9a085a03dc95ba9d0c (patch) | |
| tree | 5bf8b7e33f524b7b3f1aed13aa147a74c49d8bdd /ext/Win32CORE/Win32CORE.c | |
| parent | dc2e544e7f6b9c92650110831cb474944d022ca5 (diff) | |
| download | perl-23d1ca42f29afcdee8401f9a085a03dc95ba9d0c.tar.gz | |
ext/Win32CORE/Win32CORE.c, rmv redundant stack & mark code
Poping the mark and repushing it is redundant.
Diffstat (limited to 'ext/Win32CORE/Win32CORE.c')
| -rw-r--r-- | ext/Win32CORE/Win32CORE.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ext/Win32CORE/Win32CORE.c b/ext/Win32CORE/Win32CORE.c index db58514342..bd9834ec59 100644 --- a/ext/Win32CORE/Win32CORE.c +++ b/ext/Win32CORE/Win32CORE.c @@ -23,7 +23,6 @@ XS(w32_CORE_all){ - dXSARGS; DWORD err = GetLastError(); /* capture the XSANY value before Perl_load_module, the CV's any member will * be overwritten by Perl_load_module and subsequent newXSes or pure perl @@ -32,8 +31,7 @@ XS(w32_CORE_all){ const char *function = (const char *) XSANY.any_ptr; Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("Win32",5), newSVnv(0.27)); SetLastError(err); - assert(sp == PL_stack_sp); - PUSHMARK(SP-items); + /* mark and SP from caller are passed through unchanged */ call_pv(function, GIMME_V); } |