diff options
| author | simonmar <unknown> | 2005-10-18 11:36:25 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-10-18 11:36:25 +0000 |
| commit | c50cb4de567823e28134af4183af403b5357bc70 (patch) | |
| tree | 061c0338f82c1643e88f92861d02d5a34b993dd5 /libraries/base/System/CPUTime.hsc | |
| parent | df1dd983c4f1fa6ccc8ded2a34f1b40e131bafd2 (diff) | |
| download | haskell-c50cb4de567823e28134af4183af403b5357bc70.tar.gz | |
[project @ 2005-10-18 11:36:25 by simonmar]
Fixes to enable base to be compiled with -fasm on Windows:
- a few stdcall/ccall mismatches
- use GetTempPathA instead of GetTempPath (a couple of these)
Diffstat (limited to 'libraries/base/System/CPUTime.hsc')
| -rw-r--r-- | libraries/base/System/CPUTime.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/System/CPUTime.hsc b/libraries/base/System/CPUTime.hsc index 603afce798..3309c2c745 100644 --- a/libraries/base/System/CPUTime.hsc +++ b/libraries/base/System/CPUTime.hsc @@ -120,8 +120,8 @@ foreign import ccall unsafe times :: Ptr CTms -> IO CClock type FILETIME = () type HANDLE = () -- need proper Haskell names (initial lower-case character) -foreign import ccall unsafe "GetCurrentProcess" getCurrentProcess :: IO (Ptr HANDLE) -foreign import ccall unsafe "GetProcessTimes" getProcessTimes :: Ptr HANDLE -> Ptr FILETIME -> Ptr FILETIME -> Ptr FILETIME -> Ptr FILETIME -> IO CInt +foreign import stdcall unsafe "GetCurrentProcess" getCurrentProcess :: IO (Ptr HANDLE) +foreign import stdcall unsafe "GetProcessTimes" getProcessTimes :: Ptr HANDLE -> Ptr FILETIME -> Ptr FILETIME -> Ptr FILETIME -> Ptr FILETIME -> IO CInt #endif /* not _WIN32 */ #endif /* __GLASGOW_HASKELL__ */ |