+9
-3
lines changedFilter options
+9
-3
lines changed Original file line number Diff line number Diff line change
@@ -46,6 +46,11 @@ char *lwt_unix_strdup(char *string);
46 46
/* Raise [Lwt_unix.Not_available]. */
47 47
void lwt_unix_not_available(char const *feature) Noreturn;
48 48 49 +
#define LWT_NOT_AVAILABLE_BYTE(prim) \
50 +
CAMLprim value lwt_##prim(value *a1, int a2) \
51 +
{ \
52 +
lwt_unix_not_available(#prim); \
53 +
}
49 54
#define LWT_NOT_AVAILABLE1(prim) \
50 55
CAMLprim value lwt_##prim(value a1) { lwt_unix_not_available(#prim); }
51 56
#define LWT_NOT_AVAILABLE2(prim) \
@@ -25,11 +25,11 @@ LWT_NOT_AVAILABLE5(unix_bytes_send)
25 25
LWT_NOT_AVAILABLE5(unix_recvfrom)
26 26
LWT_NOT_AVAILABLE5(unix_bytes_recvfrom)
27 27
LWT_NOT_AVAILABLE6(unix_sendto)
28 -
LWT_NOT_AVAILABLE6(unix_sendto_byte)
28 +
LWT_NOT_AVAILABLE_BYTE(unix_sendto_byte)
29 29
LWT_NOT_AVAILABLE6(unix_bytes_sendto)
30 -
LWT_NOT_AVAILABLE6(unix_bytes_sendto_byte)
30 +
LWT_NOT_AVAILABLE_BYTE(unix_bytes_sendto_byte)
31 31
LWT_NOT_AVAILABLE3(unix_recv_msg)
32 -
LWT_NOT_AVAILABLE3(unix_send_msg)
32 +
LWT_NOT_AVAILABLE6(unix_send_msg)
33 33
LWT_NOT_AVAILABLE1(unix_get_credentials)
34 34
LWT_NOT_AVAILABLE2(unix_mcast_set_loop)
35 35
LWT_NOT_AVAILABLE2(unix_mcast_set_ttl)
@@ -76,4 +76,5 @@ LWT_NOT_AVAILABLE2(unix_bind_job)
76 76
LWT_NOT_AVAILABLE1(unix_getcwd_job)
77 77
LWT_NOT_AVAILABLE1(unix_tcgetattr_job)
78 78
LWT_NOT_AVAILABLE3(unix_tcsetattr_job)
79 +
LWT_NOT_AVAILABLE_BYTE(unix_send_msg_byte)
79 80
#endif
You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4