From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Wed, 30 Jul 2003 02:02:41 +0000 (+0400)
Subject: tiny fix for WinCE (Re: maint @ 20277)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e332e71a8ad1fdc9da83d7af3110f2cf49b4127;p=p5sagit%2Fp5-mst-13.2.git

tiny fix for WinCE (Re: maint @ 20277)
Message-ID: <016701c3561d$43735ca0$195ec3d9@vad>

p4raw-id: //depot/perl@20329
---

diff --git a/wince/wince.c b/wince/wince.c
index cb3c388..63d9244 100644
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -604,14 +604,13 @@ win32_uname(struct utsname *name)
 void
 sig_terminate(pTHX_ int sig)
 {
-     Perl_warn(aTHX_ "Terminating on signal SIG%s(%d)\n",PL_sig_name[sig], sig);
+    Perl_warn(aTHX_ "Terminating on signal SIG%s(%d)\n",PL_sig_name[sig], sig);
     /* exit() seems to be safe, my_exit() or die() is a problem in ^C 
        thread 
      */
     exit(sig);
 }
 
-void
 DllExport int
 win32_async_check(pTHX)
 {
@@ -633,6 +632,7 @@ win32_async_check(pTHX)
 	    goto Raise;
 	    break;
 #endif
+
 	/* We use WM_USER to fake kill() with other signals */
 	case WM_USER: {
 	    sig = msg.wParam;
@@ -747,41 +747,6 @@ do_raise(pTHX_ int sig)
     return 1;
 }
 
-/* Timing related stuff */
-
-int
-do_raise(pTHX_ int sig) 
-{
-    if (sig < SIG_SIZE) {
-	Sighandler_t handler = w32_sighandler[sig];
-	if (handler == SIG_IGN) {
-	    return 0;
-	}
-	else if (handler != SIG_DFL) {
-	    (*handler)(sig);
-	    return 0;
-	}
-	else {
-	    /* Choose correct default behaviour */
-	    switch (sig) {
-#ifdef SIGCLD
-		case SIGCLD:
-#endif
-#ifdef SIGCHLD
-		case SIGCHLD:
-#endif
-		case 0:
-		    return 0;
-		case SIGTERM:
-		default:
-		    break;
-	    }
-	}
-    }
-    /* Tell caller to exit thread/process as approriate */
-    return 1;
-}
-
 static UINT timerid = 0;
 
 static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time)