From: Richard Levitte <levitte@openssl.org>
Date: Sat, 6 Apr 2002 11:35:49 +0000 (+0000)
Subject: Use recv() and send() for socket communication on VMS instead of read()
X-Git-Tag: OpenSSL_0_9_6d~20^2~41
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=1fc02dcf6ad5052b5470f53006fbc16790f2094a

Use recv() and send() for socket communication on VMS instead of read()
and write().  The reason is that read() and write() make additional record
level locking which causes hangs of Compaq Secure Web Server (Apache) with
SSL.
Submitted by Compaq.
---

diff --git a/e_os.h b/e_os.h
index 0bb2bfa693..4436495c69 100644
--- a/e_os.h
+++ b/e_os.h
@@ -160,6 +160,13 @@ extern "C" {
 #define closesocket(s)		MacSocket_close(s)
 #define readsocket(s,b,n)	MacSocket_recv((s),(b),(n),true)
 #define writesocket(s,b,n)	MacSocket_send((s),(b),(n))
+#elif defined(VMS)
+#define get_last_socket_error() errno
+#define clear_socket_error()    errno=0
+#define ioctlsocket(a,b,c)      ioctl(a,b,c)
+#define closesocket(s)          close(s)
+#define readsocket(s,b,n)       recv((s),(b),(n),0)
+#define writesocket(s,b,n)      send((s),(b),(n),0)
 #else
 #define get_last_socket_error()	errno
 #define clear_socket_error()	errno=0