diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-26 18:03:13 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-26 18:03:13 +0000 |
| commit | 3fadfdf11dfb17421538d2f4280b4d99a5c6cb5a (patch) | |
| tree | b44ea9c6b27c76164a4392d7792844d78ceded7c /win32/perlhost.h | |
| parent | 727405f80c5904bbe9e96e63570ee4516290a454 (diff) | |
| download | perl-3fadfdf11dfb17421538d2f4280b4d99a5c6cb5a.tar.gz | |
Win32 signal emulation cleanup.
p4raw-id: //depot/perlio@14428
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index d8288852b3..c0b53d6919 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -225,7 +225,7 @@ extern "C" void win32_checkTLS(struct interpreter *host_perl); #define STRUCT2RAWPTR(x, y) (CPerlHost*)(((LPBYTE)x)-offsetof(CPerlHost, y)) #ifdef CHECK_HOST_INTERP -inline CPerlHost* CheckInterp(CPerlHost *host) +inline CPerlHost* CheckInterp(CPerlHost *host) { win32_checkTLS(host->host_perl); return host; @@ -1678,7 +1678,7 @@ PerlProcWaitpid(struct IPerlProc* piPerl, int pid, int *status, int flags) Sighandler_t PerlProcSignal(struct IPerlProc* piPerl, int sig, Sighandler_t subcode) { - return signal(sig, subcode); + return win32_signal(sig, subcode); } #ifdef USE_ITHREADS @@ -2162,7 +2162,7 @@ compare(const void *arg1, const void *arg2) if(c1 != c2) { if(c1 < c2) return -1; // string 1 < string 2 - + return 1; // string 1 > string 2 } } @@ -2290,7 +2290,7 @@ CPerlHost::CreateLocalEnvironmentStrings(VDir &vDir) lpStr += nLength; lpEnvPtr += nLength; } - else { + else { // determine which string to copy next compVal = compare(&lpEnvPtr, &lpLocalEnv); if(compVal < 0) { @@ -2434,4 +2434,3 @@ CPerlHost::Chdir(const char *dirname) } #endif /* ___PerlHost_H___ */ - |