Mercurial > hg > truffle
view src/os/solaris/vm/hpi_solaris.hpp @ 670:c7bbabdcadfb
Merge
author | phh |
---|---|
date | Tue, 24 Mar 2009 19:05:23 -0700 |
parents | 2a1a77d3458f |
children | c18cbe5936b8 |
line wrap: on
line source
/* * Copyright 1998-2007 Sun Microsystems, Inc. All Rights Reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara, * CA 95054 USA or visit www.sun.com if you need additional information or * have any questions. * */ // // Parts of the HPI interface for which the HotSparc does not use the // HPI (because the interruptible IO mechanims used are different). // #include <sys/socket.h> #include <sys/poll.h> #include <sys/filio.h> #include <unistd.h> #include <netdb.h> #include <setjmp.h> // HPI_FileInterface // Many system calls can be interrupted by signals and must be restarted. // Restart support was added without disturbing the extent of thread // interruption support. inline int hpi::close(int fd) { RESTARTABLE_RETURN_INT(::close(fd)); } inline size_t hpi::read(int fd, void *buf, unsigned int nBytes) { INTERRUPTIBLE_RETURN_INT(::read(fd, buf, nBytes), os::Solaris::clear_interrupted); } inline size_t hpi::write(int fd, const void *buf, unsigned int nBytes) { INTERRUPTIBLE_RETURN_INT(::write(fd, buf, nBytes), os::Solaris::clear_interrupted); } // HPI_SocketInterface inline int hpi::socket_close(int fd) { RESTARTABLE_RETURN_INT(::close(fd)); } inline int hpi::socket(int domain, int type, int protocol) { return ::socket(domain, type, protocol); } inline int hpi::recv(int fd, char *buf, int nBytes, int flags) { INTERRUPTIBLE_RETURN_INT(::recv(fd, buf, nBytes, flags), os::Solaris::clear_interrupted); } inline int hpi::send(int fd, char *buf, int nBytes, int flags) { INTERRUPTIBLE_RETURN_INT(::send(fd, buf, nBytes, flags), os::Solaris::clear_interrupted); } inline int hpi::raw_send(int fd, char *buf, int nBytes, int flags) { RESTARTABLE_RETURN_INT(::send(fd, buf, nBytes, flags)); } // As both poll and select can be interrupted by signals, we have to be // prepared to restart the system call after updating the timeout, unless // a poll() is done with timeout == -1, in which case we repeat with this // "wait forever" value. inline int hpi::timeout(int fd, long timeout) { int res; struct timeval t; julong prevtime, newtime; static const char* aNull = 0; struct pollfd pfd; pfd.fd = fd; pfd.events = POLLIN; gettimeofday(&t, &aNull); prevtime = ((julong)t.tv_sec * 1000) + t.tv_usec / 1000; for(;;) { INTERRUPTIBLE_NORESTART(::poll(&pfd, 1, timeout), res, os::Solaris::clear_interrupted); if(res == OS_ERR && errno == EINTR) { if(timeout != -1) { gettimeofday(&t, &aNull); newtime = ((julong)t.tv_sec * 1000) + t.tv_usec /1000; timeout -= newtime - prevtime; if(timeout <= 0) return OS_OK; prevtime = newtime; } } else return res; } } inline int hpi::listen(int fd, int count) { if (fd < 0) return OS_ERR; return ::listen(fd, count); } inline int hpi::connect(int fd, struct sockaddr *him, int len) { do { int _result; INTERRUPTIBLE_NORESTART(::connect(fd, him, len), _result, os::Solaris::clear_interrupted); // Depending on when thread interruption is reset, _result could be // one of two values when errno == EINTR if (((_result == OS_INTRPT) || (_result == OS_ERR)) && (errno == EINTR)) { /* restarting a connect() changes its errno semantics */ INTERRUPTIBLE(::connect(fd, him, len), _result, os::Solaris::clear_interrupted); /* undo these changes */ if (_result == OS_ERR) { if (errno == EALREADY) errno = EINPROGRESS; /* fall through */ else if (errno == EISCONN) { errno = 0; return OS_OK; } } } return _result; } while(false); } inline int hpi::accept(int fd, struct sockaddr *him, int *len) { if (fd < 0) return OS_ERR; INTERRUPTIBLE_RETURN_INT((int)::accept(fd, him, (socklen_t*) len), os::Solaris::clear_interrupted); } inline int hpi::recvfrom(int fd, char *buf, int nBytes, int flags, sockaddr *from, int *fromlen) { //%%note jvm_r11 INTERRUPTIBLE_RETURN_INT((int)::recvfrom(fd, buf, nBytes, (unsigned int) flags, from, (socklen_t *)fromlen), os::Solaris::clear_interrupted); } inline int hpi::sendto(int fd, char *buf, int len, int flags, struct sockaddr *to, int tolen) { //%%note jvm_r11 INTERRUPTIBLE_RETURN_INT((int)::sendto(fd, buf, len, (unsigned int) flags, to, tolen),os::Solaris::clear_interrupted); } inline int hpi::socket_available(int fd, jint *pbytes) { if (fd < 0) return OS_OK; int ret; RESTARTABLE(::ioctl(fd, FIONREAD, pbytes), ret); //%% note ioctl can return 0 when successful, JVM_SocketAvailable // is expected to return 0 on failure and 1 on success to the jdk. return (ret == OS_ERR) ? 0 : 1; } /* HPIDECL(socket_shutdown, "socket_shutdown", _socket, SocketShutdown, int, "%d", (int fd, int howto), ("fd = %d, howto = %d", fd, howto), (fd, howto)); */ inline int hpi::socket_shutdown(int fd, int howto){ return ::shutdown(fd, howto); } /* HPIDECL(bind, "bind", _socket, Bind, int, "%d", (int fd, struct sockaddr *him, int len), ("fd = %d, him = %p, len = %d", fd, him, len), (fd, him, len)); */ inline int hpi::bind(int fd, struct sockaddr *him, int len){ INTERRUPTIBLE_RETURN_INT_NORESTART(::bind(fd, him, len),os::Solaris::clear_interrupted); } /* HPIDECL(get_sock_name, "get_sock_name", _socket, GetSocketName, int, "%d", (int fd, struct sockaddr *him, int *len), ("fd = %d, him = %p, len = %p", fd, him, len), (fd, him, len)); */ inline int hpi::get_sock_name(int fd, struct sockaddr *him, int *len){ return ::getsockname(fd, him, (socklen_t*) len); } /* HPIDECL(get_host_name, "get_host_name", _socket, GetHostName, int, "%d", (char *hostname, int namelen), ("hostname = %p, namelen = %d", hostname, namelen), (hostname, namelen)); */ inline int hpi::get_host_name(char* name, int namelen){ return ::gethostname(name, namelen); } /* HPIDECL(get_sock_opt, "get_sock_opt", _socket, SocketGetOption, int, "%d", (int fd, int level, int optname, char *optval, int* optlen), ("fd = %d, level = %d, optname = %d, optval = %p, optlen = %p", fd, level, optname, optval, optlen), (fd, level, optname, optval, optlen)); */ inline int hpi::get_sock_opt(int fd, int level, int optname, char *optval, int* optlen){ return ::getsockopt(fd, level, optname, optval, (socklen_t*) optlen); } /* HPIDECL(set_sock_opt, "set_sock_opt", _socket, SocketSetOption, int, "%d", (int fd, int level, int optname, const char *optval, int optlen), ("fd = %d, level = %d, optname = %d, optval = %p, optlen = %d", fd, level, optname, optval, optlen), (fd, level, optname, optval, optlen)); */ inline int hpi::set_sock_opt(int fd, int level, int optname, const char *optval, int optlen){ return ::setsockopt(fd, level, optname, optval, optlen); } //Reconciliation History // 1.3 98/10/21 18:17:14 hpi_win32.hpp // 1.6 99/06/28 11:01:36 hpi_win32.hpp //End