Source position: socketsh.inc line 100
type linger = packed record
l_onoff: cint;
l_linger: cint;
end;