[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / lib / posix / PosixProcPrim.lhs

diff --git a/ghc/lib/posix/PosixProcPrim.lhs b/ghc/lib/posix/PosixProcPrim.lhs
index 0f3388f..b6272af 100644 (file)
--- a/ghc/lib/posix/PosixProcPrim.lhs
+++ b/ghc/lib/posix/PosixProcPrim.lhs
@@ -358,9 +358,7 @@ fullSignalSet = unsafePerformPrimIO $ do
 addSignal :: Signal -> SignalSet -> SignalSet
 addSignal int oldset = unsafePerformPrimIO $ do
     bytes <- allocChars sigSetSize
-    _casm_ ``*(sigset_t *)%0 = *(sigset_t *)%1;
-            (void) sigaddset((sigset_t *)%0, %2);''
-       bytes oldset int
+    _ccall_ stg_sigaddset bytes oldset int
     freeze bytes
 
 inSignalSet :: Signal -> SignalSet -> Bool
@@ -371,9 +369,7 @@ inSignalSet int sigset = unsafePerformPrimIO $ do
 deleteSignal :: Signal -> SignalSet -> SignalSet
 deleteSignal int oldset = unsafePerformPrimIO $ do
     bytes <- allocChars sigSetSize
-    _casm_ ``*(sigset_t *)%0 = *(sigset_t *)%1;
-            (void) sigdelset((sigset_t *)%0, %2);''
-           bytes oldset int
+    _ccall_ stg_sigdelset bytes oldset int
     freeze bytes
 
 installHandler :: Signal