Copyright (C) 1994, Digital Equipment Corp.
Created on Sat Jan 11 15:49:00 PST 1992 by wobber
UNSAFE MODULE; IMPORT Uin, Usocket; CONST TCP_NODELAY = 1; PROCEDURE TCPHack RefetchError (fd: INTEGER): BOOLEAN = VAR optbuf: INTEGER := 0; optlen := BYTESIZE(optbuf); BEGIN RETURN Usocket.getsockopt(fd, Uin.IPPROTO_TCP, TCP_NODELAY, ADR(optbuf), ADR(optlen)) >= 0; END RefetchError; BEGIN END TCPHack.