diff options
author | Ross Paterson <ross@soi.city.ac.uk> | 2008-06-15 22:42:48 +0000 |
---|---|---|
committer | Ross Paterson <ross@soi.city.ac.uk> | 2008-06-15 22:42:48 +0000 |
commit | 136b23db618b71f8693950a0e7812a9f2dac1931 (patch) | |
tree | 66e85588293ff69b297b2830ba16d9852efb5e8e | |
parent | b6b7b6a9a91d50b0f84f216eaf2dd19279ee08cf (diff) |
move __hscore_{mkstemp,getrlimit,setrlimit} here from base
-rw-r--r-- | System/Posix/Resource.hsc | 4 | ||||
-rw-r--r-- | System/Posix/Temp.hsc | 2 | ||||
-rw-r--r-- | include/HsUnix.h | 16 |
3 files changed, 19 insertions, 3 deletions
diff --git a/System/Posix/Resource.hsc b/System/Posix/Resource.hsc index 067e5df..ec3c660 100644 --- a/System/Posix/Resource.hsc +++ b/System/Posix/Resource.hsc @@ -59,10 +59,10 @@ data ResourceLimit type RLimit = () -foreign import ccall unsafe "HsBase.h __hscore_getrlimit" +foreign import ccall unsafe "HsUnix.h __hscore_getrlimit" c_getrlimit :: CInt -> Ptr RLimit -> IO CInt -foreign import ccall unsafe "HsBase.h __hscore_setrlimit" +foreign import ccall unsafe "HsUnix.h __hscore_setrlimit" c_setrlimit :: CInt -> Ptr RLimit -> IO CInt getResourceLimit :: Resource -> IO ResourceLimits diff --git a/System/Posix/Temp.hsc b/System/Posix/Temp.hsc index f9ebc68..53eced4 100644 --- a/System/Posix/Temp.hsc +++ b/System/Posix/Temp.hsc @@ -61,6 +61,6 @@ foreign import ccall unsafe "mktemp" c_mktemp :: CString -> IO CString #endif -foreign import ccall unsafe "HsBase.h __hscore_mkstemp" +foreign import ccall unsafe "HsUnix.h __hscore_mkstemp" c_mkstemp :: CString -> IO CInt diff --git a/include/HsUnix.h b/include/HsUnix.h index 2df3932..7aee685 100644 --- a/include/HsUnix.h +++ b/include/HsUnix.h @@ -174,4 +174,20 @@ INLINE int __hsunix_push_module(int fd, const char *module) #endif } +#if !defined(__MINGW32__) +INLINE int __hscore_mkstemp(char *filetemplate) { + return (mkstemp(filetemplate)); +} +#endif + +#if !defined(__MINGW32__) && !defined(irix_HOST_OS) +INLINE int __hscore_getrlimit(int resource, struct rlimit *rlim) { + return (getrlimit(resource, rlim)); +} + +INLINE int __hscore_setrlimit(int resource, struct rlimit *rlim) { + return (setrlimit(resource, rlim)); +} +#endif + #endif |