[project @ 2004-10-09 07:51:07 by panne]

Unbreak Hugs by moving pPrPr_disableITimers and execvpe to System.Posix.Internals
(base package) and use it from System.Posix.Process (unix package).

1 files changed, 2 insertions, 9 deletions

diff --git a/System/Posix/Process.hsc b/System/Posix/Process.hsc
index 5aed5de..5ba2eda 100644
--- a/System/Posix/Process.hsc
+++ b/System/Posix/Process.hsc
@@ -76,10 +76,11 @@ import System.Exit
 import System.Posix.Error
 import System.Posix.Types
 import System.Posix.Signals
+import System.Process.Internals ( pPrPr_disableITimers, c_execvpe )
 import Control.Monad
 
 #ifdef __HUGS__
-{-# CBITS HsUnix.c ../../base/cbits/execvpe.c  #-}
+{-# CBITS HsUnix.c  #-}
 #endif
 
 -- -----------------------------------------------------------------------------
@@ -262,20 +263,12 @@ executeFile path search args (Just env) = do
 	   else throwErrnoPathIfMinus1_ "executeFile" path
 		   (c_execve s arg_arr env_arr)
 
--- this function disables the itimer, which would otherwise cause confusing
--- signals to be sent to the new process.
-foreign import ccall unsafe "pPrPr_disableITimers"
-  pPrPr_disableITimers :: IO ()
-
 foreign import ccall unsafe "execvp"
   c_execvp :: CString -> Ptr CString -> IO CInt
 
 foreign import ccall unsafe "execv"
   c_execv :: CString -> Ptr CString -> IO CInt
 
-foreign import ccall unsafe "execvpe"
-  c_execvpe :: CString -> Ptr CString -> Ptr CString -> IO CInt
-
 foreign import ccall unsafe "execve"
   c_execve :: CString -> Ptr CString -> Ptr CString -> IO CInt