wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mingw32 negative processID and nonexistent SYSTEMROOT

Browse Source
This commit is contained in:
vivian.mcphail 2005-05-30 12:42:39 +00:00
parent 00a5a94c60
commit 14654ff8f3
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plugins/System/MkTemp.hs
View File

@ -243,7 +243,9 @@ mkdir0700 dir = createDirectory dir
--
#ifdef __MINGW32__
-- relies on Int == Int32 on Windows
foreign import ccall unsafe "_getpid" getProcessID :: IO Int
foreign import ccall unsafe "_getpid" getProcessID' :: IO Int
getProcessID :: IO Int
getProcessID = liftM abs getProcessID'
#else
getProcessID :: IO Int
#ifdef CYGWIN

7
src/plugins/System/Plugins/Env.hs
View File

@ -65,8 +65,7 @@ import System.IO.Unsafe ( unsafePerformIO )
import System.Directory ( doesFileExist )
#if defined(CYGWIN) || defined(__MINGW32__)
import System.Environment ( getEnv )
import Control.Monad ( liftM )
import System.IO.Error ( catch, ioError, isDoesNotExistError )
#endif
import Control.Concurrent.MVar ( MVar(), newMVar, withMVar )
@ -383,7 +382,9 @@ lookupPkg' p = withPkgEnvs env $ \fms -> go fms p
#endif
libs <- mapM (findHSlib libdirs) (hslibs ++ cbits)
#if defined(CYGWIN) || defined(__MINGW32__)
syslibdir <- liftM ( \x -> x ++ "/SYSTEM") (getEnv "SYSTEMROOT")
sysroot <- catch (getEnv "SYSTEMROOT")
(\e -> if isDoesNotExistError e then return "C:/windows" else ioError e) -- guess at a reasonable default
let syslibdir = sysroot ++ "/SYSTEM"
libs' <- mapM (findDLL $ syslibdir : libdirs) dlls
#else
libs' <- mapM (findDLL libdirs) dlls