Comments on getProcessID

2005-05-04 00:15:58 +00:00 · 2005-05-04 00:15:58 +00:00 · 2de3b1180b
commit 2de3b1180b
parent 9fc0ea0f24
1 changed files with 3 additions and 2 deletions
--- a/src/plugins/Plugins/MkTemp.hs
+++ b/src/plugins/Plugins/MkTemp.hs
@ -237,10 +237,11 @@ mkdir0700 dir = createDirectory dir
        System.Posix.Directory.createDirectory dir ownerModes
 -}

-- | getProcessId, stolen from GHC
+-- | getProcessId, stolen from GHC (main/SysTools.lhs)
 --
 #ifdef __MINGW32__
-foreign import ccall unsafe "_getpid" getProcessID :: IO Int
+-- relies on Int == Int32 on Windows
+foreign import ccall unsafe "_getpid" getProcessID :: IO Int  
 #else
 getProcessID :: IO Int
 getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral