| /* |
| * Copyright (c) 1994, 2002, Oracle and/or its affiliates. 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. Oracle designates this |
| * particular file as subject to the "Classpath" exception as provided |
| * by Oracle in the LICENSE file that accompanied this code. |
| * |
| * 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 Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
| * or visit www.oracle.com if you need additional information or have any |
| * questions. |
| */ |
| |
| #include <windows.h> |
| #include <float.h> /* For constants for _control87() */ |
| #include <signal.h> |
| #include <time.h> /* For _tzset() and _ftime() */ |
| #include <errno.h> |
| |
| #include "hpi_impl.h" |
| |
| #include "jni_md.h" |
| #include "monitor_md.h" |
| |
| |
| static int pending_signals[NSIG]; |
| static HANDLE sigEvent; |
| static CRITICAL_SECTION userSigMon; |
| |
| |
| void sysSignalNotify(int sig) |
| { |
| sys_thread_t *self = sysThreadSelf(); |
| EnterCriticalSection(&userSigMon); |
| pending_signals[sig]++; |
| LeaveCriticalSection(&userSigMon); |
| SetEvent(sigEvent); |
| } |
| |
| static int lookupSignal() |
| { |
| int i; |
| EnterCriticalSection(&userSigMon); |
| for (i = 0; i < NSIG; i++) { |
| if (pending_signals[i]) { |
| pending_signals[i]--; |
| LeaveCriticalSection(&userSigMon); |
| return i; |
| } |
| } |
| LeaveCriticalSection(&userSigMon); |
| return -1; |
| } |
| |
| int sysSignalWait() |
| { |
| int sig; |
| while ((sig = lookupSignal()) == -1) { |
| WaitForSingleObject(sigEvent, INFINITE); |
| } |
| return sig; |
| } |
| |
| signal_handler_t sysSignal(int sig, signal_handler_t newHandler) |
| { |
| return (signal_handler_t)signal(sig, (void (*)(int))newHandler); |
| } |
| |
| void sysRaise(int sig) |
| { |
| raise(sig); |
| } |
| |
| int sysThreadBootstrap(sys_thread_t **tidP, sys_mon_t **lockP, int nb) |
| { |
| extern void InitializeMem(void); |
| |
| threadBootstrapMD(tidP, lockP, nb); |
| |
| sigEvent = CreateEvent(NULL, FALSE, FALSE, NULL); |
| InitializeCriticalSection(&userSigMon); |
| memset(pending_signals, 0, sizeof(pending_signals)); |
| |
| /* |
| * Change default for std. streams stdout, stderr, |
| * stdin to be O_BINARY not O_TEXT. The `\r` characters |
| * corrupt binary files. |
| */ |
| |
| _setmode(0, O_BINARY); |
| _setmode(1, O_BINARY); |
| _setmode(2, O_BINARY); |
| |
| /* |
| * Set floating point processor to no floating point exceptions. |
| * See bug 4027374. Should be the same values VC++ would set them |
| * to, but by doing this here we ensure other dll's don't override. |
| */ |
| _control87(_MCW_EM | _RC_NEAR | _PC_53, _MCW_EM | _MCW_RC | _MCW_PC); |
| |
| InitializeMem(); |
| |
| return SYS_OK; |
| } |
| |
| long |
| sysGetMilliTicks(void) |
| { |
| return(GetTickCount()); |
| } |
| |
| #define FT2INT64(ft) \ |
| ((jlong)(ft).dwHighDateTime << 32 | (jlong)(ft).dwLowDateTime) |
| |
| jlong |
| sysTimeMillis(void) |
| { |
| static jlong fileTime_1_1_70 = 0; |
| SYSTEMTIME st0; |
| FILETIME ft0; |
| |
| if (fileTime_1_1_70 == 0) { |
| /* Initialize fileTime_1_1_70 -- the Win32 file time of midnight |
| * 1/1/70. |
| */ |
| |
| memset(&st0, 0, sizeof(st0)); |
| st0.wYear = 1970; |
| st0.wMonth = 1; |
| st0.wDay = 1; |
| SystemTimeToFileTime(&st0, &ft0); |
| fileTime_1_1_70 = FT2INT64(ft0); |
| } |
| |
| GetSystemTime(&st0); |
| SystemTimeToFileTime(&st0, &ft0); |
| |
| return (FT2INT64(ft0) - fileTime_1_1_70) / 10000; |
| } |
| |
| void * |
| sysAllocateMem(long size) |
| { |
| return malloc(size); |
| } |
| |
| int sysShutdown() |
| { |
| return SYS_OK; |
| } |
| |
| unsigned |
| sleep(unsigned seconds) |
| { |
| Sleep(seconds * 1000); |
| return 0; |
| } |
| |
| int |
| sysGetLastErrorString(char *buf, int len) |
| { |
| long errval; |
| |
| if ((errval = GetLastError()) != 0) { |
| /* DOS error */ |
| int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS, |
| NULL, errval, |
| 0, buf, len, NULL); |
| if (n > 3) { |
| /* Drop final '.', CR, LF */ |
| if (buf[n - 1] == '\n') n--; |
| if (buf[n - 1] == '\r') n--; |
| if (buf[n - 1] == '.') n--; |
| buf[n] = '\0'; |
| } |
| return n; |
| } |
| |
| if (errno != 0) { |
| /* C runtime error that has no corresponding DOS error code */ |
| const char *s = strerror(errno); |
| int n = strlen(s); |
| if (n >= len) n = len - 1; |
| strncpy(buf, s, n); |
| buf[n] = '\0'; |
| return n; |
| } |
| |
| return 0; |
| } |