[project @ 2005-01-28 12:55:17 by simonmar]

[ghc-hetmet.git] / ghc / rts / Signals.c

diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c
index d5a046e..67fbf42 100644 (file)
--- a/ghc/rts/Signals.c
+++ b/ghc/rts/Signals.c
@@ -16,8 +16,8 @@
 #include "RtsUtils.h"
 #include "RtsFlags.h"
 
-#ifdef alpha_TARGET_ARCH
-# if defined(linux_TARGET_OS)
+#ifdef alpha_HOST_ARCH
+# if defined(linux_HOST_OS)
 #  include <asm/fpu.h>
 # else
 #  include <machine/fpu.h>
@@ -54,22 +54,25 @@ static nat n_haskell_handlers = 0;
 StgPtr pending_handler_buf[N_PENDING_HANDLERS];
 StgPtr *next_pending_handler = pending_handler_buf;
 
+/* -----------------------------------------------------------------------------
+ * Signal handling
+ * -------------------------------------------------------------------------- */
+
 #ifdef RTS_SUPPORTS_THREADS
 pthread_t signalHandlingThread;
 #endif
 
-       // Handle all signals in the current thread.
-       // Called from Capability.c whenever the main capability is granted to a thread
-       // and in installDefaultHandlers
+// Handle all signals in the current thread.
+// Called from Capability.c whenever the main capability is granted to a thread
+// and in installDefaultHandlers
 void
-handleSignalsInThisThread()
+handleSignalsInThisThread(void)
 {
 #ifdef RTS_SUPPORTS_THREADS
     signalHandlingThread = pthread_self();
 #endif
 }
 
-
 /* -----------------------------------------------------------------------------
  * Allocate/resize the table of signal handlers.
  * -------------------------------------------------------------------------- */
@@ -469,7 +472,7 @@ initDefaultHandlers()
     }
 #endif
 
-#ifdef alpha_TARGET_ARCH
+#ifdef alpha_HOST_ARCH
     ieee_set_fp_control(0);
 #endif
 }