2 * (c) The University of Glasgow, 2000-2001
4 * $Id: errno.c,v 1.4 2002/02/07 11:13:30 simonmar Exp $
6 * GHC Error Number Conversion
12 /* Covers up the fact that on Windows this is a function */
19 /* Wrappers for the individual error codes - boring */
20 #define ErrCode(x) HsInt prel_error_##x() { return x; }
21 #define ErrCode2(x,y) HsInt prel_error_##x() { return y; }
38 ErrCode2(EADDRINUSE,-1)
42 ErrCode(EADDRNOTAVAIL)
44 ErrCode2(EADDRNOTAVAIL,-1)
56 ErrCode2(EAFNOSUPPORT,-1)
108 ErrCode(ECONNABORTED)
110 ErrCode2(ECONNABORTED,-1)
114 ErrCode(ECONNREFUSED)
116 ErrCode2(ECONNREFUSED,-1)
122 ErrCode2(ECONNRESET,-1)
132 ErrCode(EDESTADDRREQ)
134 ErrCode2(EDESTADDRREQ,-1)
182 ErrCode2(EHOSTDOWN,-1)
186 ErrCode(EHOSTUNREACH)
188 ErrCode2(EHOSTUNREACH,-1)
206 ErrCode2(EINPROGRESS,-1)
260 ErrCode2(EMSGSIZE,-1)
266 ErrCode2(EMULTIHOP,-1)
270 ErrCode(ENAMETOOLONG)
272 ErrCode2(ENAMETOOLONG,-1)
278 ErrCode2(ENETDOWN,-1)
284 ErrCode2(ENETRESET,-1)
290 ErrCode2(ENETUNREACH,-1)
362 ErrCode2(ENOPROTOOPT,-1)
398 ErrCode2(ENOTCONN,-1)
410 ErrCode2(ENOTEMPTY,-1)
416 ErrCode2(ENOTSOCK,-1)
434 ErrCode2(EOPNOTSUPP,-1)
444 ErrCode(EPFNOSUPPORT)
446 ErrCode2(EPFNOSUPPORT,-1)
458 ErrCode2(EPROCLIM,-1)
462 ErrCode(EPROCUNAVAIL)
464 ErrCode2(EPROCUNAVAIL,-1)
468 ErrCode(EPROGMISMATCH)
470 ErrCode2(EPROGMISMATCH,-1)
474 ErrCode(EPROGUNAVAIL)
476 ErrCode2(EPROGUNAVAIL,-1)
485 #ifdef EPROTONOSUPPORT
486 ErrCode(EPROTONOSUPPORT)
488 ErrCode2(EPROTONOSUPPORT,-1)
494 ErrCode2(EPROTOTYPE,-1)
522 ErrCode(ERPCMISMATCH)
524 ErrCode2(ERPCMISMATCH,-1)
530 ErrCode2(ERREMOTE,-1)
536 ErrCode2(ESHUTDOWN,-1)
539 #ifdef ESOCKTNOSUPPORT
540 ErrCode(ESOCKTNOSUPPORT)
542 ErrCode2(ESOCKTNOSUPPORT,-1)
578 ErrCode2(ETIMEDOUT,-1)
582 ErrCode(ETOOMANYREFS)
584 ErrCode2(ETOOMANYREFS,-1)
602 ErrCode2(EWOULDBLOCK,-1)