summaryrefslogtreecommitdiff
path: root/ghc/lib/misc/cbits/sendTo.c
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/lib/misc/cbits/sendTo.c')
-rw-r--r--ghc/lib/misc/cbits/sendTo.c28
1 files changed, 0 insertions, 28 deletions
diff --git a/ghc/lib/misc/cbits/sendTo.c b/ghc/lib/misc/cbits/sendTo.c
deleted file mode 100644
index ce43c264a1..0000000000
--- a/ghc/lib/misc/cbits/sendTo.c
+++ /dev/null
@@ -1,28 +0,0 @@
-/* -----------------------------------------------------------------------------
- * $Id: sendTo.c,v 1.3 1998/12/02 13:26:46 simonm Exp $
- *
- * sendTo run-time support
- *
- * (c) The GHC Team 1998
- * -------------------------------------------------------------------------- */
-
-#define NON_POSIX_SOURCE
-#include "Rts.h"
-#include "ghcSockets.h"
-#include "stgio.h"
-
-StgInt
-sendTo__(StgInt fd, StgAddr buf, StgInt nbytes, StgAddr to, StgInt sz)
-{
- StgInt count;
- int flags = 0;
-
- while ( (count = sendto((int)fd, (void*)buf, (int)nbytes, flags, (struct sockaddr*)to, sz)) < 0) {
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return -1;
- }
- }
- return count;
-}