Use capi some more (part of #5480)
authorIan Lynagh <igloo@earth.li>
Mon, 28 Nov 2011 18:19:29 +0000 (18:19 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 29 Nov 2011 19:28:52 +0000 (19:28 +0000)
GHC/Event/Clock.hsc
System/CPUTime.hsc
System/Posix/Internals.hs
include/HsBase.h

index 0cf6272..8200d28 100644 (file)
@@ -45,6 +45,6 @@ instance Storable CTimeval where
         #{poke struct timeval, tv_sec} ptr (sec tv)
         #{poke struct timeval, tv_usec} ptr (usec tv)
 
-foreign import ccall unsafe "__hsbase_gettimeofday" gettimeofday
+foreign import capi unsafe "HsBase.h gettimeofday" gettimeofday
     :: Ptr CTimeval -> Ptr () -> IO CInt
 
index 06cf730..e875528 100644 (file)
@@ -111,7 +111,7 @@ getCPUTime = do
                 * 1000000)
 
 type CRUsage = ()
-foreign import ccall unsafe "__hsbase_getrusage" getrusage :: CInt -> Ptr CRUsage -> IO CInt
+foreign import capi unsafe "HsBase.h getrusage" getrusage :: CInt -> Ptr CRUsage -> IO CInt
 #elif defined(HAVE_TIMES)
     allocaBytes (#const sizeof(struct tms)) $ \ p_tms -> do
     _ <- times p_tms
index fe63dc5..e48ca05 100644 (file)
@@ -486,7 +486,7 @@ foreign import capi unsafe "HsBase.h sigemptyset"
 foreign import capi unsafe "HsBase.h sigaddset"
    c_sigaddset :: Ptr CSigset -> CInt -> IO CInt
 
-foreign import ccall unsafe "HsBase.h sigprocmask"
+foreign import capi unsafe "HsBase.h sigprocmask"
    c_sigprocmask :: CInt -> Ptr CSigset -> Ptr CSigset -> IO CInt
 
 foreign import ccall unsafe "HsBase.h tcgetattr"
index fd619a8..c252f2b 100644 (file)
@@ -598,14 +598,6 @@ INLINE int __hscore_select(int nfds, fd_set *readfds, fd_set *writefds,
        return (select(nfds,readfds,writefds,exceptfds,timeout));
 }
 
-// gettimeofday()-related
-
-#if !defined(__MINGW32__)
-INLINE int __hsbase_gettimeofday(struct timeval *tv, struct timezone *tz) {
-        return gettimeofday(tv, tz);
-}
-#endif /* !defined(__MINGW32__) */
-
 #if darwin_HOST_OS
 // You should not access _environ directly on Darwin in a bundle/shared library.
 // See #2458 and http://developer.apple.com/library/mac/#documentation/Darwin/Reference/ManPages/man7/environ.7.html
@@ -641,13 +633,5 @@ INLINE int fcntl_lock(int fd, int cmd, struct flock *lock) {
 
 #endif
 
-#if !defined(mingw32_HOST_OS) && !defined(cygwin32_HOST_OS)
-#if defined(HAVE_GETRUSAGE) && ! irix_HOST_OS && ! solaris2_HOST_OS
-INLINE int __hsbase_getrusage(int who, struct rusage *rusage) {
-   return getrusage(who, rusage);
-}
-#endif
-#endif
-
 #endif /* __HSBASE_H__ */