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 | |
| 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')
| -rw-r--r-- | win32/perlhost.h | 2 | ||||
| -rw-r--r-- | win32/win32.c | 2 |
2 files changed, 2 insertions, 2 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(); diff --git a/win32/win32.c b/win32/win32.c index f0b2ec0f7f..f9e8d97bb9 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -384,7 +384,6 @@ get_emd_part(SV **prev_pathp, STRLEN *const len, char *trailing_path, ...) EXTERN_C char * win32_get_privlib(const char *pl, STRLEN *const len) { - dTHX; char *stdlib = "lib"; char buffer[MAX_PATH+1]; SV *sv = NULL; @@ -544,7 +543,6 @@ tokenize(const char *str, char **dest, char ***destv) char **retvstart = 0; int items = -1; if (str) { - dTHX; int slen = strlen(str); char *ret; char **retv; |