[commit: base] master: Remove some unused code (451a37c)
Ian Lynagh
igloo at earth.li
Sun Feb 26 17:54:57 CET 2012
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 <igloo at earth.li>
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
More information about the Cvs-libraries
mailing list