diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2012-11-05 02:19:29 -0500 |
---|---|---|
committer | Jan Dubois <jand@activestate.com> | 2012-11-08 16:54:56 -0800 |
commit | dbf7dff66e440223aca0cc87655e65e096264d59 (patch) | |
tree | 114e652e01f7ab1861e2abf88de8d086a8ccdb34 /win32/perlhost.h | |
parent | 94f1727772e0683d79e2101f4dc93ac2ef282c4c (diff) | |
download | perl-dbf7dff66e440223aca0cc87655e65e096264d59.tar.gz |
remove various redundant dTHXes
Remove either unused dTHXes, or remove dTHXes where a nocontext func can
be used instead. Smaller/faster machine code is the result.
Diffstat (limited to 'win32/perlhost.h')
-rw-r--r-- | win32/perlhost.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index bd3d1a9fa4..265328b69b 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1892,6 +1892,8 @@ PerlProcSpawnvp(struct IPerlProc* piPerl, int mode, const char *cmdname, const c int PerlProcLastHost(struct IPerlProc* piPerl) { + /* this dTHX is unused in an optimized build since CPerlHost::num_hosts + is a static */ dTHX; CPerlHost *h = (CPerlHost*)w32_internal_host; return h->LastHost(); |