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 (file)
--- 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)