diff options
| author | sof <unknown> | 2004-08-25 17:49:22 +0000 |
|---|---|---|
| committer | sof <unknown> | 2004-08-25 17:49:22 +0000 |
| commit | 75bbf3cc3565ae1a8bae12cc08bbd23d346c17b7 (patch) | |
| tree | 39561260543bdff4d646ff136e034fa3f8e43241 /ghc/compiler | |
| parent | 9845dda88d851a40ceb8c1e25b64effaa8da1d38 (diff) | |
| download | haskell-75bbf3cc3565ae1a8bae12cc08bbd23d346c17b7.tar.gz | |
[project @ 2004-08-25 17:49:22 by sof]
wibble
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/main/SysTools.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index fcd62defa7..a2dae88f1b 100644 --- a/ghc/compiler/main/SysTools.lhs +++ b/ghc/compiler/main/SysTools.lhs @@ -69,7 +69,7 @@ import DriverPhases ( isHaskellUserSrcFilename ) import Config import Outputable import Panic ( GhcException(..) ) -import Util ( global, notNull, toArgs ) +import Util ( global, notNull ) import CmdLineOpts ( dynFlag, verbosity ) import EXCEPTION ( throwDyn ) @@ -423,7 +423,7 @@ initSysTools minusB_args } #if defined(mingw32_HOST_OS) -foreign import stdcall "GetTempPathA" unsafe getTempPath :: Int -> CString -> IO Int32 +foreign import stdcall unsafe "GetTempPathA" getTempPath :: Int -> CString -> IO Int32 #endif \end{code} @@ -860,14 +860,14 @@ getBaseDir = do let len = (2048::Int) -- plenty, PATH_MAX is 512 under Win32. where rootDir s = reverse (dropList "/bin/ghc.exe" (reverse (normalisePath s))) -foreign import stdcall "GetModuleFileNameA" unsafe +foreign import stdcall unsafe "GetModuleFileNameA" getModuleFileName :: Ptr () -> CString -> Int -> IO Int32 #else getBaseDir :: IO (Maybe String) = do return Nothing #endif #ifdef mingw32_HOST_OS -foreign import ccall "_getpid" unsafe getProcessID :: IO Int -- relies on Int == Int32 on Windows +foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows #elif __GLASGOW_HASKELL__ > 504 getProcessID :: IO Int getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral |