aboutsummaryrefslogtreecommitdiffstats
path: root/io.c
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2013-06-15 21:56:52 +0300
committerArnold D. Robbins <arnold@skeeve.com>2013-06-15 21:56:52 +0300
commitaff720deb9f0b4f5790aaf414ecb0ceff67d905a (patch)
tree2d382b8142ef995219b4a9d65ef4d0dfaf23397e /io.c
parent6f91302eff92e06ab82c7baf1b6f6ddd62b3c29a (diff)
downloadegawk-aff720deb9f0b4f5790aaf414ecb0ceff67d905a.tar.gz
egawk-aff720deb9f0b4f5790aaf414ecb0ceff67d905a.tar.bz2
egawk-aff720deb9f0b4f5790aaf414ecb0ceff67d905a.zip
Minor fix for io.c for VMS.
Diffstat (limited to 'io.c')
-rw-r--r--io.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/io.c b/io.c
index 44530967..dad7c7b9 100644
--- a/io.c
+++ b/io.c
@@ -116,6 +116,10 @@
#define ENFILE EMFILE
#endif
+#if defined(VMS)
+#define closemaybesocket(fd) close(fd)
+#endif
+
#ifdef HAVE_SOCKETS
#ifndef SHUT_RD
@@ -3013,7 +3017,9 @@ iop_finish(IOBUF *iop)
*
* The fcntl call works for Windows, too.
*/
+#if defined(F_GETFL)
if (fcntl(iop->public.fd, F_GETFL) >= 0)
+#endif
(void) close(iop->public.fd);
iop->public.fd = INVALID_HANDLE;
}