Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/451a37ce32ff85e5d3a2f6f196f6184bff33a3f3 >--------------------------------------------------------------- commit 451a37ce32ff85e5d3a2f6f196f6184bff33a3f3 Author: Ian Lynagh <[email protected]> Date: Sun Feb 26 15:19:19 2012 +0000 Remove some unused code >--------------------------------------------------------------- base.cabal | 1 - cbits/selectUtils.c | 3 --- include/HsBase.h | 15 --------------- 3 files changed, 0 insertions(+), 19 deletions(-) diff --git a/base.cabal b/base.cabal index 227c2d9..ca28996 100644 --- a/base.cabal +++ b/base.cabal @@ -218,7 +218,6 @@ Library { cbits/consUtils.c cbits/iconv.c cbits/inputReady.c - cbits/selectUtils.c cbits/primFloat.c cbits/md5.c include-dirs: include diff --git a/cbits/selectUtils.c b/cbits/selectUtils.c deleted file mode 100644 index 44abb22..0000000 --- a/cbits/selectUtils.c +++ /dev/null @@ -1,3 +0,0 @@ - -#include "HsBase.h" -void hsFD_ZERO(fd_set *fds) { FD_ZERO(fds); } diff --git a/include/HsBase.h b/include/HsBase.h index 271c275..ce46553 100644 --- a/include/HsBase.h +++ b/include/HsBase.h @@ -550,21 +550,6 @@ INLINE off_t __hscore_lseek(int fd, off_t off, int whence) { } #endif -// select-related stuff - -#if !defined(__MINGW32__) -INLINE int hsFD_SETSIZE(void) { return FD_SETSIZE; } -INLINE int hsFD_ISSET(int fd, fd_set *fds) { return FD_ISSET(fd, fds); } -INLINE void hsFD_SET(int fd, fd_set *fds) { FD_SET(fd, fds); } -INLINE HsInt sizeof_fd_set(void) { return sizeof(fd_set); } -extern void hsFD_ZERO(fd_set *fds); -#endif - -INLINE int __hscore_select(int nfds, fd_set *readfds, fd_set *writefds, - fd_set *exceptfds, struct timeval *timeout) { - return (select(nfds,readfds,writefds,exceptfds,timeout)); -} - #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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
