src/os/bsd/vm/os_bsd.cpp

Mon, 12 Aug 2019 18:30:40 +0300

author
apetushkov
date
Mon, 12 Aug 2019 18:30:40 +0300
changeset 9858
b985cbb00e68
parent 9711
0f2fe7d37d8c
child 9931
fd44df5e3bc3
permissions
-rw-r--r--

8223147: JFR Backport
8199712: Flight Recorder
8203346: JFR: Inconsistent signature of jfr_add_string_constant
8195817: JFR.stop should require name of recording
8195818: JFR.start should increase autogenerated name by one
8195819: Remove recording=x from jcmd JFR.check output
8203921: JFR thread sampling is missing fixes from JDK-8194552
8203929: Limit amount of data for JFR.dump
8203664: JFR start failure after AppCDS archive created with JFR StartFlightRecording
8003209: JFR events for network utilization
8207392: [PPC64] Implement JFR profiling
8202835: jfr/event/os/TestSystemProcess.java fails on missing events
Summary: Backport JFR from JDK11. Initial integration
Reviewed-by: neugens

never@3156 1 /*
phh@9620 2 * Copyright (c) 1999, 2019, Oracle and/or its affiliates. All rights reserved.
never@3156 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
never@3156 4 *
never@3156 5 * This code is free software; you can redistribute it and/or modify it
never@3156 6 * under the terms of the GNU General Public License version 2 only, as
never@3156 7 * published by the Free Software Foundation.
never@3156 8 *
never@3156 9 * This code is distributed in the hope that it will be useful, but WITHOUT
never@3156 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
never@3156 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
never@3156 12 * version 2 for more details (a copy is included in the LICENSE file that
never@3156 13 * accompanied this code).
never@3156 14 *
never@3156 15 * You should have received a copy of the GNU General Public License version
never@3156 16 * 2 along with this work; if not, write to the Free Software Foundation,
never@3156 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
never@3156 18 *
never@3156 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
never@3156 20 * or visit www.oracle.com if you need additional information or have any
never@3156 21 * questions.
never@3156 22 *
never@3156 23 */
never@3156 24
never@3156 25 // no precompiled headers
never@3156 26 #include "classfile/classLoader.hpp"
never@3156 27 #include "classfile/systemDictionary.hpp"
never@3156 28 #include "classfile/vmSymbols.hpp"
never@3156 29 #include "code/icBuffer.hpp"
never@3156 30 #include "code/vtableStubs.hpp"
never@3156 31 #include "compiler/compileBroker.hpp"
twisti@4318 32 #include "compiler/disassembler.hpp"
never@3156 33 #include "interpreter/interpreter.hpp"
never@3156 34 #include "jvm_bsd.h"
never@3156 35 #include "memory/allocation.inline.hpp"
never@3156 36 #include "memory/filemap.hpp"
never@3156 37 #include "mutex_bsd.inline.hpp"
never@3156 38 #include "oops/oop.inline.hpp"
never@3156 39 #include "os_share_bsd.hpp"
never@3156 40 #include "prims/jniFastGetField.hpp"
never@3156 41 #include "prims/jvm.h"
never@3156 42 #include "prims/jvm_misc.hpp"
never@3156 43 #include "runtime/arguments.hpp"
never@3156 44 #include "runtime/extendedPC.hpp"
never@3156 45 #include "runtime/globals.hpp"
never@3156 46 #include "runtime/interfaceSupport.hpp"
never@3156 47 #include "runtime/java.hpp"
never@3156 48 #include "runtime/javaCalls.hpp"
never@3156 49 #include "runtime/mutexLocker.hpp"
never@3156 50 #include "runtime/objectMonitor.hpp"
goetz@6911 51 #include "runtime/orderAccess.inline.hpp"
never@3156 52 #include "runtime/osThread.hpp"
never@3156 53 #include "runtime/perfMemory.hpp"
never@3156 54 #include "runtime/sharedRuntime.hpp"
never@3156 55 #include "runtime/statSampler.hpp"
never@3156 56 #include "runtime/stubRoutines.hpp"
stefank@4299 57 #include "runtime/thread.inline.hpp"
never@3156 58 #include "runtime/threadCritical.hpp"
never@3156 59 #include "runtime/timer.hpp"
never@3156 60 #include "services/attachListener.hpp"
zgu@4711 61 #include "services/memTracker.hpp"
never@3156 62 #include "services/runtimeService.hpp"
never@3156 63 #include "utilities/decoder.hpp"
never@3156 64 #include "utilities/defaultStream.hpp"
never@3156 65 #include "utilities/events.hpp"
never@3156 66 #include "utilities/growableArray.hpp"
never@3156 67 #include "utilities/vmError.hpp"
never@3156 68
never@3156 69 // put OS-includes here
never@3156 70 # include <sys/types.h>
never@3156 71 # include <sys/mman.h>
never@3156 72 # include <sys/stat.h>
never@3156 73 # include <sys/select.h>
never@3156 74 # include <pthread.h>
never@3156 75 # include <signal.h>
never@3156 76 # include <errno.h>
never@3156 77 # include <dlfcn.h>
never@3156 78 # include <stdio.h>
never@3156 79 # include <unistd.h>
never@3156 80 # include <sys/resource.h>
never@3156 81 # include <pthread.h>
never@3156 82 # include <sys/stat.h>
never@3156 83 # include <sys/time.h>
never@3156 84 # include <sys/times.h>
never@3156 85 # include <sys/utsname.h>
never@3156 86 # include <sys/socket.h>
never@3156 87 # include <sys/wait.h>
never@3156 88 # include <time.h>
never@3156 89 # include <pwd.h>
never@3156 90 # include <poll.h>
never@3156 91 # include <semaphore.h>
never@3156 92 # include <fcntl.h>
never@3156 93 # include <string.h>
never@3156 94 # include <sys/param.h>
never@3156 95 # include <sys/sysctl.h>
never@3156 96 # include <sys/ipc.h>
never@3156 97 # include <sys/shm.h>
never@3156 98 #ifndef __APPLE__
never@3156 99 # include <link.h>
never@3156 100 #endif
never@3156 101 # include <stdint.h>
never@3156 102 # include <inttypes.h>
never@3156 103 # include <sys/ioctl.h>
dsamersoff@5830 104 # include <sys/syscall.h>
never@3156 105
never@3156 106 #if defined(__FreeBSD__) || defined(__NetBSD__)
never@3156 107 # include <elf.h>
never@3156 108 #endif
never@3156 109
never@3156 110 #ifdef __APPLE__
dcubed@3202 111 # include <mach/mach.h> // semaphore_* API
dcubed@3202 112 # include <mach-o/dyld.h>
dcubed@3202 113 # include <sys/proc_info.h>
dcubed@3202 114 # include <objc/objc-auto.h>
never@3156 115 #endif
never@3156 116
never@3156 117 #ifndef MAP_ANONYMOUS
never@3156 118 #define MAP_ANONYMOUS MAP_ANON
never@3156 119 #endif
never@3156 120
never@3156 121 #define MAX_PATH (2 * K)
never@3156 122
never@3156 123 // for timer info max values which include all bits
never@3156 124 #define ALL_64_BITS CONST64(0xFFFFFFFFFFFFFFFF)
never@3156 125
never@3156 126 #define LARGEPAGES_BIT (1 << 6)
drchase@6680 127
drchase@6680 128 PRAGMA_FORMAT_MUTE_WARNINGS_FOR_GCC
drchase@6680 129
never@3156 130 ////////////////////////////////////////////////////////////////////////////////
never@3156 131 // global variables
never@3156 132 julong os::Bsd::_physical_memory = 0;
never@3156 133
sla@6667 134 #ifdef __APPLE__
sla@6667 135 mach_timebase_info_data_t os::Bsd::_timebase_info = {0, 0};
sla@6667 136 volatile uint64_t os::Bsd::_max_abstime = 0;
sla@6667 137 #else
never@3156 138 int (*os::Bsd::_clock_gettime)(clockid_t, struct timespec *) = NULL;
sla@6667 139 #endif
never@3156 140 pthread_t os::Bsd::_main_thread;
never@3156 141 int os::Bsd::_page_size = -1;
never@3156 142
never@3156 143 static jlong initial_time_count=0;
never@3156 144
never@3156 145 static int clock_tics_per_sec = 100;
never@3156 146
never@3156 147 // For diagnostics to print a message once. see run_periodic_checks
never@3156 148 static sigset_t check_signal_done;
sla@4229 149 static bool check_signals = true;
never@3156 150
never@3156 151 static pid_t _initial_pid = 0;
never@3156 152
never@3156 153 /* Signal number used to suspend/resume a thread */
never@3156 154
never@3156 155 /* do not use any signal number less than SIGSEGV, see 4355769 */
never@3156 156 static int SR_signum = SIGUSR2;
never@3156 157 sigset_t SR_sigset;
never@3156 158
never@3156 159
never@3156 160 ////////////////////////////////////////////////////////////////////////////////
never@3156 161 // utility functions
never@3156 162
never@3156 163 static int SR_initialize();
dsamersoff@5830 164 static void unpackTime(timespec* absTime, bool isAbsolute, jlong time);
never@3156 165
never@3156 166 julong os::available_memory() {
never@3156 167 return Bsd::available_memory();
never@3156 168 }
never@3156 169
hseigel@5895 170 // available here means free
never@3156 171 julong os::Bsd::available_memory() {
hseigel@5895 172 uint64_t available = physical_memory() >> 2;
hseigel@5895 173 #ifdef __APPLE__
hseigel@5895 174 mach_msg_type_number_t count = HOST_VM_INFO64_COUNT;
hseigel@5895 175 vm_statistics64_data_t vmstat;
hseigel@5895 176 kern_return_t kerr = host_statistics64(mach_host_self(), HOST_VM_INFO64,
hseigel@5895 177 (host_info64_t)&vmstat, &count);
hseigel@5895 178 assert(kerr == KERN_SUCCESS,
hseigel@5895 179 "host_statistics64 failed - check mach_host_self() and count");
hseigel@5895 180 if (kerr == KERN_SUCCESS) {
hseigel@5895 181 available = vmstat.free_count * os::vm_page_size();
hseigel@5895 182 }
hseigel@5895 183 #endif
hseigel@5895 184 return available;
never@3156 185 }
never@3156 186
never@3156 187 julong os::physical_memory() {
never@3156 188 return Bsd::physical_memory();
never@3156 189 }
never@3156 190
never@3156 191 ////////////////////////////////////////////////////////////////////////////////
never@3156 192 // environment support
never@3156 193
never@3156 194 bool os::getenv(const char* name, char* buf, int len) {
never@3156 195 const char* val = ::getenv(name);
never@3156 196 if (val != NULL && strlen(val) < (size_t)len) {
never@3156 197 strcpy(buf, val);
never@3156 198 return true;
never@3156 199 }
never@3156 200 if (len > 0) buf[0] = 0; // return a null string
never@3156 201 return false;
never@3156 202 }
never@3156 203
never@3156 204
never@3156 205 // Return true if user is running as root.
never@3156 206
never@3156 207 bool os::have_special_privileges() {
never@3156 208 static bool init = false;
never@3156 209 static bool privileges = false;
never@3156 210 if (!init) {
never@3156 211 privileges = (getuid() != geteuid()) || (getgid() != getegid());
never@3156 212 init = true;
never@3156 213 }
never@3156 214 return privileges;
never@3156 215 }
never@3156 216
never@3156 217
never@3156 218
never@3156 219 // Cpu architecture string
never@3156 220 #if defined(ZERO)
never@3156 221 static char cpu_arch[] = ZERO_LIBARCH;
never@3156 222 #elif defined(IA64)
never@3156 223 static char cpu_arch[] = "ia64";
never@3156 224 #elif defined(IA32)
never@3156 225 static char cpu_arch[] = "i386";
never@3156 226 #elif defined(AMD64)
never@3156 227 static char cpu_arch[] = "amd64";
never@3156 228 #elif defined(ARM)
never@3156 229 static char cpu_arch[] = "arm";
goetz@6440 230 #elif defined(PPC32)
never@3156 231 static char cpu_arch[] = "ppc";
never@3156 232 #elif defined(SPARC)
never@3156 233 # ifdef _LP64
never@3156 234 static char cpu_arch[] = "sparcv9";
never@3156 235 # else
never@3156 236 static char cpu_arch[] = "sparc";
never@3156 237 # endif
never@3156 238 #else
never@3156 239 #error Add appropriate cpu_arch setting
never@3156 240 #endif
never@3156 241
phh@3473 242 // Compiler variant
phh@3473 243 #ifdef COMPILER2
phh@3473 244 #define COMPILER_VARIANT "server"
phh@3473 245 #else
phh@3473 246 #define COMPILER_VARIANT "client"
phh@3473 247 #endif
never@3156 248
sla@4229 249
never@3156 250 void os::Bsd::initialize_system_info() {
never@3156 251 int mib[2];
never@3156 252 size_t len;
never@3156 253 int cpu_val;
brutisso@4468 254 julong mem_val;
never@3156 255
never@3156 256 /* get processors count via hw.ncpus sysctl */
never@3156 257 mib[0] = CTL_HW;
never@3156 258 mib[1] = HW_NCPU;
never@3156 259 len = sizeof(cpu_val);
never@3156 260 if (sysctl(mib, 2, &cpu_val, &len, NULL, 0) != -1 && cpu_val >= 1) {
brutisso@4468 261 assert(len == sizeof(cpu_val), "unexpected data size");
never@3156 262 set_processor_count(cpu_val);
never@3156 263 }
never@3156 264 else {
never@3156 265 set_processor_count(1); // fallback
never@3156 266 }
never@3156 267
brutisso@4468 268 /* get physical memory via hw.memsize sysctl (hw.memsize is used
brutisso@4468 269 * since it returns a 64 bit value)
never@3156 270 */
never@3156 271 mib[0] = CTL_HW;
dsamersoff@5830 272
dsamersoff@5830 273 #if defined (HW_MEMSIZE) // Apple
brutisso@4468 274 mib[1] = HW_MEMSIZE;
dsamersoff@5830 275 #elif defined(HW_PHYSMEM) // Most of BSD
dsamersoff@5830 276 mib[1] = HW_PHYSMEM;
dsamersoff@5830 277 #elif defined(HW_REALMEM) // Old FreeBSD
dsamersoff@5830 278 mib[1] = HW_REALMEM;
dsamersoff@5830 279 #else
dsamersoff@5830 280 #error No ways to get physmem
dsamersoff@5830 281 #endif
dsamersoff@5830 282
never@3156 283 len = sizeof(mem_val);
brutisso@4468 284 if (sysctl(mib, 2, &mem_val, &len, NULL, 0) != -1) {
brutisso@4468 285 assert(len == sizeof(mem_val), "unexpected data size");
never@3156 286 _physical_memory = mem_val;
brutisso@4468 287 } else {
never@3156 288 _physical_memory = 256*1024*1024; // fallback (XXXBSD?)
brutisso@4468 289 }
never@3156 290
never@3156 291 #ifdef __OpenBSD__
never@3156 292 {
never@3156 293 // limit _physical_memory memory view on OpenBSD since
never@3156 294 // datasize rlimit restricts us anyway.
never@3156 295 struct rlimit limits;
never@3156 296 getrlimit(RLIMIT_DATA, &limits);
never@3156 297 _physical_memory = MIN2(_physical_memory, (julong)limits.rlim_cur);
never@3156 298 }
never@3156 299 #endif
never@3156 300 }
never@3156 301
dcubed@3202 302 #ifdef __APPLE__
dcubed@3202 303 static const char *get_home() {
dcubed@3202 304 const char *home_dir = ::getenv("HOME");
dcubed@3202 305 if ((home_dir == NULL) || (*home_dir == '\0')) {
dcubed@3202 306 struct passwd *passwd_info = getpwuid(geteuid());
dcubed@3202 307 if (passwd_info != NULL) {
dcubed@3202 308 home_dir = passwd_info->pw_dir;
dcubed@3202 309 }
dcubed@3202 310 }
dcubed@3202 311
dcubed@3202 312 return home_dir;
dcubed@3202 313 }
dcubed@3202 314 #endif
dcubed@3202 315
never@3156 316 void os::init_system_properties_values() {
never@3156 317 // The next steps are taken in the product version:
never@3156 318 //
dcubed@4392 319 // Obtain the JAVA_HOME value from the location of libjvm.so.
never@3156 320 // This library should be located at:
dcubed@4392 321 // <JAVA_HOME>/jre/lib/<arch>/{client|server}/libjvm.so.
never@3156 322 //
never@3156 323 // If "/jre/lib/" appears at the right place in the path, then we
dcubed@4392 324 // assume libjvm.so is installed in a JDK and we use this path.
never@3156 325 //
never@3156 326 // Otherwise exit with message: "Could not create the Java virtual machine."
never@3156 327 //
never@3156 328 // The following extra steps are taken in the debugging version:
never@3156 329 //
never@3156 330 // If "/jre/lib/" does NOT appear at the right place in the path
never@3156 331 // instead of exit check for $JAVA_HOME environment variable.
never@3156 332 //
never@3156 333 // If it is defined and we are able to locate $JAVA_HOME/jre/lib/<arch>,
dcubed@4392 334 // then we append a fake suffix "hotspot/libjvm.so" to this path so
dcubed@4392 335 // it looks like libjvm.so is installed there
dcubed@4392 336 // <JAVA_HOME>/jre/lib/<arch>/hotspot/libjvm.so.
never@3156 337 //
never@3156 338 // Otherwise exit.
never@3156 339 //
never@3156 340 // Important note: if the location of libjvm.so changes this
never@3156 341 // code needs to be changed accordingly.
never@3156 342
goetz@6556 343 // See ld(1):
goetz@6556 344 // The linker uses the following search paths to locate required
goetz@6556 345 // shared libraries:
goetz@6556 346 // 1: ...
goetz@6556 347 // ...
goetz@6556 348 // 7: The default directories, normally /lib and /usr/lib.
never@3156 349 #ifndef DEFAULT_LIBPATH
never@3156 350 #define DEFAULT_LIBPATH "/lib:/usr/lib"
never@3156 351 #endif
never@3156 352
goetz@6556 353 // Base path of extensions installed on the system.
goetz@6556 354 #define SYS_EXT_DIR "/usr/java/packages"
never@3156 355 #define EXTENSIONS_DIR "/lib/ext"
never@3156 356 #define ENDORSED_DIR "/lib/endorsed"
goetz@6556 357
goetz@6556 358 #ifndef __APPLE__
goetz@6556 359
goetz@6556 360 // Buffer that fits several sprintfs.
goetz@6556 361 // Note that the space for the colon and the trailing null are provided
goetz@6556 362 // by the nulls included by the sizeof operator.
goetz@6556 363 const size_t bufsize =
goetz@6556 364 MAX3((size_t)MAXPATHLEN, // For dll_dir & friends.
goetz@6556 365 (size_t)MAXPATHLEN + sizeof(EXTENSIONS_DIR) + sizeof(SYS_EXT_DIR) + sizeof(EXTENSIONS_DIR), // extensions dir
goetz@6556 366 (size_t)MAXPATHLEN + sizeof(ENDORSED_DIR)); // endorsed dir
goetz@6556 367 char *buf = (char *)NEW_C_HEAP_ARRAY(char, bufsize, mtInternal);
goetz@6556 368
goetz@6556 369 // sysclasspath, java_home, dll_dir
goetz@6556 370 {
goetz@6556 371 char *pslash;
goetz@6556 372 os::jvm_path(buf, bufsize);
goetz@6556 373
goetz@6556 374 // Found the full path to libjvm.so.
goetz@6556 375 // Now cut the path to <java_home>/jre if we can.
goetz@6556 376 *(strrchr(buf, '/')) = '\0'; // Get rid of /libjvm.so.
goetz@6556 377 pslash = strrchr(buf, '/');
goetz@6556 378 if (pslash != NULL) {
goetz@6556 379 *pslash = '\0'; // Get rid of /{client|server|hotspot}.
goetz@6556 380 }
goetz@6556 381 Arguments::set_dll_dir(buf);
goetz@6556 382
goetz@6556 383 if (pslash != NULL) {
goetz@6556 384 pslash = strrchr(buf, '/');
goetz@6556 385 if (pslash != NULL) {
goetz@6556 386 *pslash = '\0'; // Get rid of /<arch>.
goetz@6556 387 pslash = strrchr(buf, '/');
goetz@6556 388 if (pslash != NULL) {
goetz@6556 389 *pslash = '\0'; // Get rid of /lib.
goetz@6556 390 }
goetz@6556 391 }
goetz@6556 392 }
goetz@6556 393 Arguments::set_java_home(buf);
goetz@6556 394 set_boot_path('/', ':');
goetz@6556 395 }
goetz@6556 396
goetz@6556 397 // Where to look for native libraries.
goetz@6556 398 //
goetz@6556 399 // Note: Due to a legacy implementation, most of the library path
goetz@6556 400 // is set in the launcher. This was to accomodate linking restrictions
goetz@6556 401 // on legacy Bsd implementations (which are no longer supported).
goetz@6556 402 // Eventually, all the library path setting will be done here.
goetz@6556 403 //
goetz@6556 404 // However, to prevent the proliferation of improperly built native
goetz@6556 405 // libraries, the new path component /usr/java/packages is added here.
goetz@6556 406 // Eventually, all the library path setting will be done here.
goetz@6556 407 {
goetz@6556 408 // Get the user setting of LD_LIBRARY_PATH, and prepended it. It
goetz@6556 409 // should always exist (until the legacy problem cited above is
goetz@6556 410 // addressed).
goetz@6556 411 const char *v = ::getenv("LD_LIBRARY_PATH");
goetz@6556 412 const char *v_colon = ":";
goetz@6556 413 if (v == NULL) { v = ""; v_colon = ""; }
goetz@6556 414 // That's +1 for the colon and +1 for the trailing '\0'.
goetz@6556 415 char *ld_library_path = (char *)NEW_C_HEAP_ARRAY(char,
goetz@6556 416 strlen(v) + 1 +
goetz@6556 417 sizeof(SYS_EXT_DIR) + sizeof("/lib/") + strlen(cpu_arch) + sizeof(DEFAULT_LIBPATH) + 1,
goetz@6556 418 mtInternal);
goetz@6556 419 sprintf(ld_library_path, "%s%s" SYS_EXT_DIR "/lib/%s:" DEFAULT_LIBPATH, v, v_colon, cpu_arch);
goetz@6556 420 Arguments::set_library_path(ld_library_path);
goetz@6556 421 FREE_C_HEAP_ARRAY(char, ld_library_path, mtInternal);
goetz@6556 422 }
goetz@6556 423
goetz@6556 424 // Extensions directories.
goetz@6556 425 sprintf(buf, "%s" EXTENSIONS_DIR ":" SYS_EXT_DIR EXTENSIONS_DIR, Arguments::get_java_home());
goetz@6556 426 Arguments::set_ext_dirs(buf);
goetz@6556 427
goetz@6556 428 // Endorsed standards default directory.
goetz@6556 429 sprintf(buf, "%s" ENDORSED_DIR, Arguments::get_java_home());
goetz@6556 430 Arguments::set_endorsed_dirs(buf);
goetz@6556 431
goetz@6556 432 FREE_C_HEAP_ARRAY(char, buf, mtInternal);
goetz@6556 433
goetz@6556 434 #else // __APPLE__
goetz@6556 435
dcubed@3202 436 #define SYS_EXTENSIONS_DIR "/Library/Java/Extensions"
dcubed@3202 437 #define SYS_EXTENSIONS_DIRS SYS_EXTENSIONS_DIR ":/Network" SYS_EXTENSIONS_DIR ":/System" SYS_EXTENSIONS_DIR ":/usr/lib/java"
goetz@6556 438
goetz@6556 439 const char *user_home_dir = get_home();
goetz@6556 440 // The null in SYS_EXTENSIONS_DIRS counts for the size of the colon after user_home_dir.
goetz@6556 441 size_t system_ext_size = strlen(user_home_dir) + sizeof(SYS_EXTENSIONS_DIR) +
goetz@6556 442 sizeof(SYS_EXTENSIONS_DIRS);
goetz@6556 443
goetz@6556 444 // Buffer that fits several sprintfs.
goetz@6556 445 // Note that the space for the colon and the trailing null are provided
goetz@6556 446 // by the nulls included by the sizeof operator.
goetz@6556 447 const size_t bufsize =
goetz@6556 448 MAX3((size_t)MAXPATHLEN, // for dll_dir & friends.
goetz@6556 449 (size_t)MAXPATHLEN + sizeof(EXTENSIONS_DIR) + system_ext_size, // extensions dir
goetz@6556 450 (size_t)MAXPATHLEN + sizeof(ENDORSED_DIR)); // endorsed dir
goetz@6556 451 char *buf = (char *)NEW_C_HEAP_ARRAY(char, bufsize, mtInternal);
goetz@6556 452
goetz@6556 453 // sysclasspath, java_home, dll_dir
never@3156 454 {
goetz@6556 455 char *pslash;
goetz@6556 456 os::jvm_path(buf, bufsize);
goetz@6556 457
goetz@6556 458 // Found the full path to libjvm.so.
goetz@6556 459 // Now cut the path to <java_home>/jre if we can.
goetz@6556 460 *(strrchr(buf, '/')) = '\0'; // Get rid of /libjvm.so.
goetz@6556 461 pslash = strrchr(buf, '/');
goetz@6556 462 if (pslash != NULL) {
goetz@6556 463 *pslash = '\0'; // Get rid of /{client|server|hotspot}.
never@3156 464 }
goetz@6556 465 Arguments::set_dll_dir(buf);
goetz@6556 466
goetz@6556 467 if (pslash != NULL) {
goetz@6556 468 pslash = strrchr(buf, '/');
goetz@6556 469 if (pslash != NULL) {
goetz@6556 470 *pslash = '\0'; // Get rid of /lib.
goetz@6556 471 }
never@3156 472 }
goetz@6556 473 Arguments::set_java_home(buf);
goetz@6556 474 set_boot_path('/', ':');
never@3156 475 }
never@3156 476
goetz@6556 477 // Where to look for native libraries.
goetz@6556 478 //
goetz@6556 479 // Note: Due to a legacy implementation, most of the library path
goetz@6556 480 // is set in the launcher. This was to accomodate linking restrictions
goetz@6556 481 // on legacy Bsd implementations (which are no longer supported).
goetz@6556 482 // Eventually, all the library path setting will be done here.
goetz@6556 483 //
goetz@6556 484 // However, to prevent the proliferation of improperly built native
goetz@6556 485 // libraries, the new path component /usr/java/packages is added here.
goetz@6556 486 // Eventually, all the library path setting will be done here.
goetz@6556 487 {
goetz@6556 488 // Get the user setting of LD_LIBRARY_PATH, and prepended it. It
goetz@6556 489 // should always exist (until the legacy problem cited above is
goetz@6556 490 // addressed).
goetz@6556 491 // Prepend the default path with the JAVA_LIBRARY_PATH so that the app launcher code
goetz@6556 492 // can specify a directory inside an app wrapper
goetz@6556 493 const char *l = ::getenv("JAVA_LIBRARY_PATH");
goetz@6556 494 const char *l_colon = ":";
goetz@6556 495 if (l == NULL) { l = ""; l_colon = ""; }
goetz@6556 496
goetz@6556 497 const char *v = ::getenv("DYLD_LIBRARY_PATH");
goetz@6556 498 const char *v_colon = ":";
goetz@6556 499 if (v == NULL) { v = ""; v_colon = ""; }
goetz@6556 500
goetz@6556 501 // Apple's Java6 has "." at the beginning of java.library.path.
goetz@6556 502 // OpenJDK on Windows has "." at the end of java.library.path.
goetz@6556 503 // OpenJDK on Linux and Solaris don't have "." in java.library.path
goetz@6556 504 // at all. To ease the transition from Apple's Java6 to OpenJDK7,
goetz@6556 505 // "." is appended to the end of java.library.path. Yes, this
goetz@6556 506 // could cause a change in behavior, but Apple's Java6 behavior
goetz@6556 507 // can be achieved by putting "." at the beginning of the
goetz@6556 508 // JAVA_LIBRARY_PATH environment variable.
goetz@6556 509 char *ld_library_path = (char *)NEW_C_HEAP_ARRAY(char,
goetz@6556 510 strlen(v) + 1 + strlen(l) + 1 +
goetz@6556 511 system_ext_size + 3,
goetz@6556 512 mtInternal);
goetz@6556 513 sprintf(ld_library_path, "%s%s%s%s%s" SYS_EXTENSIONS_DIR ":" SYS_EXTENSIONS_DIRS ":.",
goetz@6556 514 v, v_colon, l, l_colon, user_home_dir);
goetz@6556 515 Arguments::set_library_path(ld_library_path);
goetz@6556 516 FREE_C_HEAP_ARRAY(char, ld_library_path, mtInternal);
goetz@6556 517 }
goetz@6556 518
goetz@6556 519 // Extensions directories.
goetz@6556 520 //
goetz@6556 521 // Note that the space for the colon and the trailing null are provided
goetz@6556 522 // by the nulls included by the sizeof operator (so actually one byte more
goetz@6556 523 // than necessary is allocated).
goetz@6556 524 sprintf(buf, "%s" SYS_EXTENSIONS_DIR ":%s" EXTENSIONS_DIR ":" SYS_EXTENSIONS_DIRS,
goetz@6556 525 user_home_dir, Arguments::get_java_home());
goetz@6556 526 Arguments::set_ext_dirs(buf);
goetz@6556 527
goetz@6556 528 // Endorsed standards default directory.
goetz@6556 529 sprintf(buf, "%s" ENDORSED_DIR, Arguments::get_java_home());
goetz@6556 530 Arguments::set_endorsed_dirs(buf);
goetz@6556 531
goetz@6556 532 FREE_C_HEAP_ARRAY(char, buf, mtInternal);
goetz@6556 533
dcubed@3202 534 #undef SYS_EXTENSIONS_DIR
goetz@6556 535 #undef SYS_EXTENSIONS_DIRS
goetz@6556 536
goetz@6556 537 #endif // __APPLE__
goetz@6556 538
goetz@6556 539 #undef SYS_EXT_DIR
never@3156 540 #undef EXTENSIONS_DIR
never@3156 541 #undef ENDORSED_DIR
never@3156 542 }
never@3156 543
never@3156 544 ////////////////////////////////////////////////////////////////////////////////
never@3156 545 // breakpoint support
never@3156 546
never@3156 547 void os::breakpoint() {
never@3156 548 BREAKPOINT;
never@3156 549 }
never@3156 550
never@3156 551 extern "C" void breakpoint() {
never@3156 552 // use debugger to set breakpoint here
never@3156 553 }
never@3156 554
never@3156 555 ////////////////////////////////////////////////////////////////////////////////
never@3156 556 // signal support
never@3156 557
never@3156 558 debug_only(static bool signal_sets_initialized = false);
never@3156 559 static sigset_t unblocked_sigs, vm_sigs, allowdebug_blocked_sigs;
never@3156 560
never@3156 561 bool os::Bsd::is_sig_ignored(int sig) {
never@3156 562 struct sigaction oact;
never@3156 563 sigaction(sig, (struct sigaction*)NULL, &oact);
never@3156 564 void* ohlr = oact.sa_sigaction ? CAST_FROM_FN_PTR(void*, oact.sa_sigaction)
never@3156 565 : CAST_FROM_FN_PTR(void*, oact.sa_handler);
never@3156 566 if (ohlr == CAST_FROM_FN_PTR(void*, SIG_IGN))
never@3156 567 return true;
never@3156 568 else
never@3156 569 return false;
never@3156 570 }
never@3156 571
never@3156 572 void os::Bsd::signal_sets_init() {
never@3156 573 // Should also have an assertion stating we are still single-threaded.
never@3156 574 assert(!signal_sets_initialized, "Already initialized");
never@3156 575 // Fill in signals that are necessarily unblocked for all threads in
never@3156 576 // the VM. Currently, we unblock the following signals:
never@3156 577 // SHUTDOWN{1,2,3}_SIGNAL: for shutdown hooks support (unless over-ridden
never@3156 578 // by -Xrs (=ReduceSignalUsage));
never@3156 579 // BREAK_SIGNAL which is unblocked only by the VM thread and blocked by all
never@3156 580 // other threads. The "ReduceSignalUsage" boolean tells us not to alter
never@3156 581 // the dispositions or masks wrt these signals.
never@3156 582 // Programs embedding the VM that want to use the above signals for their
never@3156 583 // own purposes must, at this time, use the "-Xrs" option to prevent
never@3156 584 // interference with shutdown hooks and BREAK_SIGNAL thread dumping.
never@3156 585 // (See bug 4345157, and other related bugs).
never@3156 586 // In reality, though, unblocking these signals is really a nop, since
never@3156 587 // these signals are not blocked by default.
never@3156 588 sigemptyset(&unblocked_sigs);
never@3156 589 sigemptyset(&allowdebug_blocked_sigs);
never@3156 590 sigaddset(&unblocked_sigs, SIGILL);
never@3156 591 sigaddset(&unblocked_sigs, SIGSEGV);
never@3156 592 sigaddset(&unblocked_sigs, SIGBUS);
never@3156 593 sigaddset(&unblocked_sigs, SIGFPE);
never@3156 594 sigaddset(&unblocked_sigs, SR_signum);
never@3156 595
never@3156 596 if (!ReduceSignalUsage) {
never@3156 597 if (!os::Bsd::is_sig_ignored(SHUTDOWN1_SIGNAL)) {
never@3156 598 sigaddset(&unblocked_sigs, SHUTDOWN1_SIGNAL);
never@3156 599 sigaddset(&allowdebug_blocked_sigs, SHUTDOWN1_SIGNAL);
never@3156 600 }
never@3156 601 if (!os::Bsd::is_sig_ignored(SHUTDOWN2_SIGNAL)) {
never@3156 602 sigaddset(&unblocked_sigs, SHUTDOWN2_SIGNAL);
never@3156 603 sigaddset(&allowdebug_blocked_sigs, SHUTDOWN2_SIGNAL);
never@3156 604 }
never@3156 605 if (!os::Bsd::is_sig_ignored(SHUTDOWN3_SIGNAL)) {
never@3156 606 sigaddset(&unblocked_sigs, SHUTDOWN3_SIGNAL);
never@3156 607 sigaddset(&allowdebug_blocked_sigs, SHUTDOWN3_SIGNAL);
never@3156 608 }
never@3156 609 }
never@3156 610 // Fill in signals that are blocked by all but the VM thread.
never@3156 611 sigemptyset(&vm_sigs);
never@3156 612 if (!ReduceSignalUsage)
never@3156 613 sigaddset(&vm_sigs, BREAK_SIGNAL);
never@3156 614 debug_only(signal_sets_initialized = true);
never@3156 615
never@3156 616 }
never@3156 617
never@3156 618 // These are signals that are unblocked while a thread is running Java.
never@3156 619 // (For some reason, they get blocked by default.)
never@3156 620 sigset_t* os::Bsd::unblocked_signals() {
never@3156 621 assert(signal_sets_initialized, "Not initialized");
never@3156 622 return &unblocked_sigs;
never@3156 623 }
never@3156 624
never@3156 625 // These are the signals that are blocked while a (non-VM) thread is
never@3156 626 // running Java. Only the VM thread handles these signals.
never@3156 627 sigset_t* os::Bsd::vm_signals() {
never@3156 628 assert(signal_sets_initialized, "Not initialized");
never@3156 629 return &vm_sigs;
never@3156 630 }
never@3156 631
never@3156 632 // These are signals that are blocked during cond_wait to allow debugger in
never@3156 633 sigset_t* os::Bsd::allowdebug_blocked_signals() {
never@3156 634 assert(signal_sets_initialized, "Not initialized");
never@3156 635 return &allowdebug_blocked_sigs;
never@3156 636 }
never@3156 637
never@3156 638 void os::Bsd::hotspot_sigmask(Thread* thread) {
never@3156 639
never@3156 640 //Save caller's signal mask before setting VM signal mask
never@3156 641 sigset_t caller_sigmask;
never@3156 642 pthread_sigmask(SIG_BLOCK, NULL, &caller_sigmask);
never@3156 643
never@3156 644 OSThread* osthread = thread->osthread();
never@3156 645 osthread->set_caller_sigmask(caller_sigmask);
never@3156 646
never@3156 647 pthread_sigmask(SIG_UNBLOCK, os::Bsd::unblocked_signals(), NULL);
never@3156 648
never@3156 649 if (!ReduceSignalUsage) {
never@3156 650 if (thread->is_VM_thread()) {
never@3156 651 // Only the VM thread handles BREAK_SIGNAL ...
never@3156 652 pthread_sigmask(SIG_UNBLOCK, vm_signals(), NULL);
never@3156 653 } else {
never@3156 654 // ... all other threads block BREAK_SIGNAL
never@3156 655 pthread_sigmask(SIG_BLOCK, vm_signals(), NULL);
never@3156 656 }
never@3156 657 }
never@3156 658 }
never@3156 659
never@3156 660
never@3156 661 //////////////////////////////////////////////////////////////////////////////
never@3156 662 // create new thread
never@3156 663
never@3156 664 // check if it's safe to start a new thread
never@3156 665 static bool _thread_safety_check(Thread* thread) {
sla@4229 666 return true;
never@3156 667 }
never@3156 668
dcubed@3202 669 #ifdef __APPLE__
dcubed@3202 670 // library handle for calling objc_registerThreadWithCollector()
dcubed@3202 671 // without static linking to the libobjc library
dcubed@3202 672 #define OBJC_LIB "/usr/lib/libobjc.dylib"
dcubed@3202 673 #define OBJC_GCREGISTER "objc_registerThreadWithCollector"
dcubed@3202 674 typedef void (*objc_registerThreadWithCollector_t)();
dcubed@3202 675 extern "C" objc_registerThreadWithCollector_t objc_registerThreadWithCollectorFunction;
dcubed@3202 676 objc_registerThreadWithCollector_t objc_registerThreadWithCollectorFunction = NULL;
dcubed@3202 677 #endif
dcubed@3202 678
sla@4564 679 #ifdef __APPLE__
sla@5563 680 static uint64_t locate_unique_thread_id(mach_port_t mach_thread_port) {
sla@4564 681 // Additional thread_id used to correlate threads in SA
sla@4564 682 thread_identifier_info_data_t m_ident_info;
sla@4564 683 mach_msg_type_number_t count = THREAD_IDENTIFIER_INFO_COUNT;
sla@4564 684
sla@5563 685 thread_info(mach_thread_port, THREAD_IDENTIFIER_INFO,
sla@4564 686 (thread_info_t) &m_ident_info, &count);
sla@5563 687
sla@4564 688 return m_ident_info.thread_id;
sla@4564 689 }
sla@4564 690 #endif
sla@4564 691
never@3156 692 // Thread start routine for all newly created threads
never@3156 693 static void *java_start(Thread *thread) {
never@3156 694 // Try to randomize the cache line index of hot stack frames.
never@3156 695 // This helps when threads of the same stack traces evict each other's
never@3156 696 // cache lines. The threads can be either from the same JVM instance, or
never@3156 697 // from different JVM instances. The benefit is especially true for
never@3156 698 // processors with hyperthreading technology.
never@3156 699 static int counter = 0;
never@3156 700 int pid = os::current_process_id();
never@3156 701 alloca(((pid ^ counter++) & 7) * 128);
never@3156 702
never@3156 703 ThreadLocalStorage::set_thread(thread);
never@3156 704
never@3156 705 OSThread* osthread = thread->osthread();
never@3156 706 Monitor* sync = osthread->startThread_lock();
never@3156 707
never@3156 708 // non floating stack BsdThreads needs extra check, see above
never@3156 709 if (!_thread_safety_check(thread)) {
never@3156 710 // notify parent thread
never@3156 711 MutexLockerEx ml(sync, Mutex::_no_safepoint_check_flag);
never@3156 712 osthread->set_state(ZOMBIE);
never@3156 713 sync->notify_all();
never@3156 714 return NULL;
never@3156 715 }
never@3156 716
dsamersoff@5834 717 osthread->set_thread_id(os::Bsd::gettid());
dsamersoff@5834 718
sla@3587 719 #ifdef __APPLE__
dsamersoff@5834 720 uint64_t unique_thread_id = locate_unique_thread_id(osthread->thread_id());
sla@5563 721 guarantee(unique_thread_id != 0, "unique thread id was not found");
sla@5563 722 osthread->set_unique_thread_id(unique_thread_id);
sla@3587 723 #endif
never@3156 724 // initialize signal mask for this thread
never@3156 725 os::Bsd::hotspot_sigmask(thread);
never@3156 726
never@3156 727 // initialize floating point control register
never@3156 728 os::Bsd::init_thread_fpu_state();
never@3156 729
dcubed@3202 730 #ifdef __APPLE__
dcubed@3202 731 // register thread with objc gc
dcubed@3202 732 if (objc_registerThreadWithCollectorFunction != NULL) {
dcubed@3202 733 objc_registerThreadWithCollectorFunction();
dcubed@3202 734 }
dcubed@3202 735 #endif
dcubed@3202 736
never@3156 737 // handshaking with parent thread
never@3156 738 {
never@3156 739 MutexLockerEx ml(sync, Mutex::_no_safepoint_check_flag);
never@3156 740
never@3156 741 // notify parent thread
never@3156 742 osthread->set_state(INITIALIZED);
never@3156 743 sync->notify_all();
never@3156 744
never@3156 745 // wait until os::start_thread()
never@3156 746 while (osthread->get_state() == INITIALIZED) {
never@3156 747 sync->wait(Mutex::_no_safepoint_check_flag);
never@3156 748 }
never@3156 749 }
never@3156 750
never@3156 751 // call one more level start routine
never@3156 752 thread->run();
never@3156 753
never@3156 754 return 0;
never@3156 755 }
never@3156 756
never@3156 757 bool os::create_thread(Thread* thread, ThreadType thr_type, size_t stack_size) {
never@3156 758 assert(thread->osthread() == NULL, "caller responsible");
never@3156 759
never@3156 760 // Allocate the OSThread object
never@3156 761 OSThread* osthread = new OSThread(NULL, NULL);
never@3156 762 if (osthread == NULL) {
never@3156 763 return false;
never@3156 764 }
never@3156 765
never@3156 766 // set the correct thread state
never@3156 767 osthread->set_thread_type(thr_type);
never@3156 768
never@3156 769 // Initial state is ALLOCATED but not INITIALIZED
never@3156 770 osthread->set_state(ALLOCATED);
never@3156 771
never@3156 772 thread->set_osthread(osthread);
never@3156 773
never@3156 774 // init thread attributes
never@3156 775 pthread_attr_t attr;
never@3156 776 pthread_attr_init(&attr);
never@3156 777 pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
never@3156 778
never@3156 779 // stack size
never@3156 780 if (os::Bsd::supports_variable_stack_size()) {
never@3156 781 // calculate stack size if it's not specified by caller
never@3156 782 if (stack_size == 0) {
never@3156 783 stack_size = os::Bsd::default_stack_size(thr_type);
never@3156 784
never@3156 785 switch (thr_type) {
never@3156 786 case os::java_thread:
never@3156 787 // Java threads use ThreadStackSize which default value can be
never@3156 788 // changed with the flag -Xss
never@3156 789 assert (JavaThread::stack_size_at_create() > 0, "this should be set");
never@3156 790 stack_size = JavaThread::stack_size_at_create();
never@3156 791 break;
never@3156 792 case os::compiler_thread:
never@3156 793 if (CompilerThreadStackSize > 0) {
never@3156 794 stack_size = (size_t)(CompilerThreadStackSize * K);
never@3156 795 break;
never@3156 796 } // else fall through:
never@3156 797 // use VMThreadStackSize if CompilerThreadStackSize is not defined
never@3156 798 case os::vm_thread:
never@3156 799 case os::pgc_thread:
never@3156 800 case os::cgc_thread:
never@3156 801 case os::watcher_thread:
never@3156 802 if (VMThreadStackSize > 0) stack_size = (size_t)(VMThreadStackSize * K);
never@3156 803 break;
never@3156 804 }
never@3156 805 }
never@3156 806
never@3156 807 stack_size = MAX2(stack_size, os::Bsd::min_stack_allowed);
never@3156 808 pthread_attr_setstacksize(&attr, stack_size);
never@3156 809 } else {
never@3156 810 // let pthread_create() pick the default value.
never@3156 811 }
never@3156 812
never@3156 813 ThreadState state;
never@3156 814
never@3156 815 {
never@3156 816 pthread_t tid;
never@3156 817 int ret = pthread_create(&tid, &attr, (void* (*)(void*)) java_start, thread);
never@3156 818
never@3156 819 pthread_attr_destroy(&attr);
never@3156 820
never@3156 821 if (ret != 0) {
never@3156 822 if (PrintMiscellaneous && (Verbose || WizardMode)) {
never@3156 823 perror("pthread_create()");
never@3156 824 }
never@3156 825 // Need to clean up stuff we've allocated so far
never@3156 826 thread->set_osthread(NULL);
never@3156 827 delete osthread;
never@3156 828 return false;
never@3156 829 }
never@3156 830
never@3156 831 // Store pthread info into the OSThread
never@3156 832 osthread->set_pthread_id(tid);
never@3156 833
never@3156 834 // Wait until child thread is either initialized or aborted
never@3156 835 {
never@3156 836 Monitor* sync_with_child = osthread->startThread_lock();
never@3156 837 MutexLockerEx ml(sync_with_child, Mutex::_no_safepoint_check_flag);
never@3156 838 while ((state = osthread->get_state()) == ALLOCATED) {
never@3156 839 sync_with_child->wait(Mutex::_no_safepoint_check_flag);
never@3156 840 }
never@3156 841 }
never@3156 842
never@3156 843 }
never@3156 844
never@3156 845 // Aborted due to thread limit being reached
never@3156 846 if (state == ZOMBIE) {
never@3156 847 thread->set_osthread(NULL);
never@3156 848 delete osthread;
never@3156 849 return false;
never@3156 850 }
never@3156 851
never@3156 852 // The thread is returned suspended (in state INITIALIZED),
never@3156 853 // and is started higher up in the call chain
never@3156 854 assert(state == INITIALIZED, "race condition");
never@3156 855 return true;
never@3156 856 }
never@3156 857
never@3156 858 /////////////////////////////////////////////////////////////////////////////
never@3156 859 // attach existing thread
never@3156 860
never@3156 861 // bootstrap the main thread
never@3156 862 bool os::create_main_thread(JavaThread* thread) {
never@3156 863 assert(os::Bsd::_main_thread == pthread_self(), "should be called inside main thread");
never@3156 864 return create_attached_thread(thread);
never@3156 865 }
never@3156 866
never@3156 867 bool os::create_attached_thread(JavaThread* thread) {
never@3156 868 #ifdef ASSERT
never@3156 869 thread->verify_not_published();
never@3156 870 #endif
never@3156 871
never@3156 872 // Allocate the OSThread object
never@3156 873 OSThread* osthread = new OSThread(NULL, NULL);
never@3156 874
never@3156 875 if (osthread == NULL) {
never@3156 876 return false;
never@3156 877 }
never@3156 878
dsamersoff@5834 879 osthread->set_thread_id(os::Bsd::gettid());
dsamersoff@5834 880
never@3156 881 // Store pthread info into the OSThread
sla@3587 882 #ifdef __APPLE__
dsamersoff@5834 883 uint64_t unique_thread_id = locate_unique_thread_id(osthread->thread_id());
sla@5563 884 guarantee(unique_thread_id != 0, "just checking");
sla@5563 885 osthread->set_unique_thread_id(unique_thread_id);
sla@3587 886 #endif
never@3156 887 osthread->set_pthread_id(::pthread_self());
never@3156 888
never@3156 889 // initialize floating point control register
never@3156 890 os::Bsd::init_thread_fpu_state();
never@3156 891
never@3156 892 // Initial thread state is RUNNABLE
never@3156 893 osthread->set_state(RUNNABLE);
never@3156 894
never@3156 895 thread->set_osthread(osthread);
never@3156 896
never@3156 897 // initialize signal mask for this thread
never@3156 898 // and save the caller's signal mask
never@3156 899 os::Bsd::hotspot_sigmask(thread);
never@3156 900
never@3156 901 return true;
never@3156 902 }
never@3156 903
never@3156 904 void os::pd_start_thread(Thread* thread) {
never@3156 905 OSThread * osthread = thread->osthread();
never@3156 906 assert(osthread->get_state() != INITIALIZED, "just checking");
never@3156 907 Monitor* sync_with_child = osthread->startThread_lock();
never@3156 908 MutexLockerEx ml(sync_with_child, Mutex::_no_safepoint_check_flag);
never@3156 909 sync_with_child->notify();
never@3156 910 }
never@3156 911
never@3156 912 // Free Bsd resources related to the OSThread
never@3156 913 void os::free_thread(OSThread* osthread) {
never@3156 914 assert(osthread != NULL, "osthread not set");
never@3156 915
never@3156 916 if (Thread::current()->osthread() == osthread) {
never@3156 917 // Restore caller's signal mask
never@3156 918 sigset_t sigmask = osthread->caller_sigmask();
never@3156 919 pthread_sigmask(SIG_SETMASK, &sigmask, NULL);
never@3156 920 }
never@3156 921
never@3156 922 delete osthread;
never@3156 923 }
never@3156 924
never@3156 925 //////////////////////////////////////////////////////////////////////////////
never@3156 926 // thread local storage
never@3156 927
kevinw@6553 928 // Restore the thread pointer if the destructor is called. This is in case
kevinw@6553 929 // someone from JNI code sets up a destructor with pthread_key_create to run
kevinw@6553 930 // detachCurrentThread on thread death. Unless we restore the thread pointer we
kevinw@6553 931 // will hang or crash. When detachCurrentThread is called the key will be set
kevinw@6553 932 // to null and we will not be called again. If detachCurrentThread is never
kevinw@6553 933 // called we could loop forever depending on the pthread implementation.
kevinw@6553 934 static void restore_thread_pointer(void* p) {
kevinw@6553 935 Thread* thread = (Thread*) p;
kevinw@6553 936 os::thread_local_storage_at_put(ThreadLocalStorage::thread_index(), thread);
kevinw@6553 937 }
kevinw@6553 938
never@3156 939 int os::allocate_thread_local_storage() {
never@3156 940 pthread_key_t key;
kevinw@6553 941 int rslt = pthread_key_create(&key, restore_thread_pointer);
never@3156 942 assert(rslt == 0, "cannot allocate thread local storage");
never@3156 943 return (int)key;
never@3156 944 }
never@3156 945
never@3156 946 // Note: This is currently not used by VM, as we don't destroy TLS key
never@3156 947 // on VM exit.
never@3156 948 void os::free_thread_local_storage(int index) {
never@3156 949 int rslt = pthread_key_delete((pthread_key_t)index);
never@3156 950 assert(rslt == 0, "invalid index");
never@3156 951 }
never@3156 952
never@3156 953 void os::thread_local_storage_at_put(int index, void* value) {
never@3156 954 int rslt = pthread_setspecific((pthread_key_t)index, value);
never@3156 955 assert(rslt == 0, "pthread_setspecific failed");
never@3156 956 }
never@3156 957
never@3156 958 extern "C" Thread* get_thread() {
never@3156 959 return ThreadLocalStorage::thread();
never@3156 960 }
never@3156 961
never@3156 962
never@3156 963 ////////////////////////////////////////////////////////////////////////////////
never@3156 964 // time support
never@3156 965
never@3156 966 // Time since start-up in seconds to a fine granularity.
never@3156 967 // Used by VMSelfDestructTimer and the MemProfiler.
never@3156 968 double os::elapsedTime() {
never@3156 969
jbachorik@6026 970 return ((double)os::elapsed_counter()) / os::elapsed_frequency();
never@3156 971 }
never@3156 972
never@3156 973 jlong os::elapsed_counter() {
jbachorik@6026 974 return javaTimeNanos() - initial_time_count;
never@3156 975 }
never@3156 976
never@3156 977 jlong os::elapsed_frequency() {
jbachorik@6026 978 return NANOSECS_PER_SEC; // nanosecond resolution
never@3156 979 }
never@3156 980
tschatzl@5204 981 bool os::supports_vtime() { return true; }
never@3156 982 bool os::enable_vtime() { return false; }
never@3156 983 bool os::vtime_enabled() { return false; }
tschatzl@5204 984
never@3156 985 double os::elapsedVTime() {
never@3156 986 // better than nothing, but not much
never@3156 987 return elapsedTime();
never@3156 988 }
never@3156 989
never@3156 990 jlong os::javaTimeMillis() {
never@3156 991 timeval time;
never@3156 992 int status = gettimeofday(&time, NULL);
never@3156 993 assert(status != -1, "bsd error");
never@3156 994 return jlong(time.tv_sec) * 1000 + jlong(time.tv_usec / 1000);
never@3156 995 }
never@3156 996
sla@6667 997 #ifndef __APPLE__
never@3156 998 #ifndef CLOCK_MONOTONIC
never@3156 999 #define CLOCK_MONOTONIC (1)
never@3156 1000 #endif
sla@6667 1001 #endif
never@3156 1002
never@3156 1003 #ifdef __APPLE__
never@3156 1004 void os::Bsd::clock_init() {
sla@6667 1005 mach_timebase_info(&_timebase_info);
never@3156 1006 }
sla@4229 1007 #else
never@3156 1008 void os::Bsd::clock_init() {
never@3156 1009 struct timespec res;
never@3156 1010 struct timespec tp;
never@3156 1011 if (::clock_getres(CLOCK_MONOTONIC, &res) == 0 &&
never@3156 1012 ::clock_gettime(CLOCK_MONOTONIC, &tp) == 0) {
never@3156 1013 // yes, monotonic clock is supported
never@3156 1014 _clock_gettime = ::clock_gettime;
never@3156 1015 }
never@3156 1016 }
never@3156 1017 #endif
never@3156 1018
never@3156 1019
sla@6667 1020 #ifdef __APPLE__
sla@6667 1021
sla@6667 1022 jlong os::javaTimeNanos() {
sla@6667 1023 const uint64_t tm = mach_absolute_time();
sla@6667 1024 const uint64_t now = (tm * Bsd::_timebase_info.numer) / Bsd::_timebase_info.denom;
sla@6667 1025 const uint64_t prev = Bsd::_max_abstime;
sla@6667 1026 if (now <= prev) {
sla@6667 1027 return prev; // same or retrograde time;
sla@6667 1028 }
sla@6667 1029 const uint64_t obsv = Atomic::cmpxchg(now, (volatile jlong*)&Bsd::_max_abstime, prev);
sla@6667 1030 assert(obsv >= prev, "invariant"); // Monotonicity
sla@6667 1031 // If the CAS succeeded then we're done and return "now".
sla@6667 1032 // If the CAS failed and the observed value "obsv" is >= now then
sla@6667 1033 // we should return "obsv". If the CAS failed and now > obsv > prv then
sla@6667 1034 // some other thread raced this thread and installed a new value, in which case
sla@6667 1035 // we could either (a) retry the entire operation, (b) retry trying to install now
sla@6667 1036 // or (c) just return obsv. We use (c). No loop is required although in some cases
sla@6667 1037 // we might discard a higher "now" value in deference to a slightly lower but freshly
sla@6667 1038 // installed obsv value. That's entirely benign -- it admits no new orderings compared
sla@6667 1039 // to (a) or (b) -- and greatly reduces coherence traffic.
sla@6667 1040 // We might also condition (c) on the magnitude of the delta between obsv and now.
sla@6667 1041 // Avoiding excessive CAS operations to hot RW locations is critical.
sla@6667 1042 // See https://blogs.oracle.com/dave/entry/cas_and_cache_trivia_invalidate
sla@6667 1043 return (prev == obsv) ? now : obsv;
sla@6667 1044 }
sla@6667 1045
sla@6667 1046 #else // __APPLE__
sla@6667 1047
never@3156 1048 jlong os::javaTimeNanos() {
never@3156 1049 if (Bsd::supports_monotonic_clock()) {
never@3156 1050 struct timespec tp;
sla@6667 1051 int status = Bsd::_clock_gettime(CLOCK_MONOTONIC, &tp);
never@3156 1052 assert(status == 0, "gettime error");
never@3156 1053 jlong result = jlong(tp.tv_sec) * (1000 * 1000 * 1000) + jlong(tp.tv_nsec);
never@3156 1054 return result;
never@3156 1055 } else {
never@3156 1056 timeval time;
never@3156 1057 int status = gettimeofday(&time, NULL);
never@3156 1058 assert(status != -1, "bsd error");
never@3156 1059 jlong usecs = jlong(time.tv_sec) * (1000 * 1000) + jlong(time.tv_usec);
never@3156 1060 return 1000 * usecs;
never@3156 1061 }
never@3156 1062 }
never@3156 1063
sla@6667 1064 #endif // __APPLE__
sla@6667 1065
never@3156 1066 void os::javaTimeNanos_info(jvmtiTimerInfo *info_ptr) {
never@3156 1067 if (Bsd::supports_monotonic_clock()) {
never@3156 1068 info_ptr->max_value = ALL_64_BITS;
never@3156 1069
never@3156 1070 // CLOCK_MONOTONIC - amount of time since some arbitrary point in the past
never@3156 1071 info_ptr->may_skip_backward = false; // not subject to resetting or drifting
never@3156 1072 info_ptr->may_skip_forward = false; // not subject to resetting or drifting
never@3156 1073 } else {
never@3156 1074 // gettimeofday - based on time in seconds since the Epoch thus does not wrap
never@3156 1075 info_ptr->max_value = ALL_64_BITS;
never@3156 1076
never@3156 1077 // gettimeofday is a real time clock so it skips
never@3156 1078 info_ptr->may_skip_backward = true;
never@3156 1079 info_ptr->may_skip_forward = true;
never@3156 1080 }
never@3156 1081
never@3156 1082 info_ptr->kind = JVMTI_TIMER_ELAPSED; // elapsed not CPU time
never@3156 1083 }
never@3156 1084
never@3156 1085 // Return the real, user, and system times in seconds from an
never@3156 1086 // arbitrary fixed point in the past.
never@3156 1087 bool os::getTimesSecs(double* process_real_time,
never@3156 1088 double* process_user_time,
never@3156 1089 double* process_system_time) {
never@3156 1090 struct tms ticks;
never@3156 1091 clock_t real_ticks = times(&ticks);
never@3156 1092
never@3156 1093 if (real_ticks == (clock_t) (-1)) {
never@3156 1094 return false;
never@3156 1095 } else {
never@3156 1096 double ticks_per_second = (double) clock_tics_per_sec;
never@3156 1097 *process_user_time = ((double) ticks.tms_utime) / ticks_per_second;
never@3156 1098 *process_system_time = ((double) ticks.tms_stime) / ticks_per_second;
never@3156 1099 *process_real_time = ((double) real_ticks) / ticks_per_second;
never@3156 1100
never@3156 1101 return true;
never@3156 1102 }
never@3156 1103 }
never@3156 1104
never@3156 1105
never@3156 1106 char * os::local_time_string(char *buf, size_t buflen) {
never@3156 1107 struct tm t;
never@3156 1108 time_t long_time;
never@3156 1109 time(&long_time);
never@3156 1110 localtime_r(&long_time, &t);
never@3156 1111 jio_snprintf(buf, buflen, "%d-%02d-%02d %02d:%02d:%02d",
never@3156 1112 t.tm_year + 1900, t.tm_mon + 1, t.tm_mday,
never@3156 1113 t.tm_hour, t.tm_min, t.tm_sec);
never@3156 1114 return buf;
never@3156 1115 }
never@3156 1116
never@3156 1117 struct tm* os::localtime_pd(const time_t* clock, struct tm* res) {
never@3156 1118 return localtime_r(clock, res);
never@3156 1119 }
never@3156 1120
never@3156 1121 ////////////////////////////////////////////////////////////////////////////////
never@3156 1122 // runtime exit support
never@3156 1123
never@3156 1124 // Note: os::shutdown() might be called very early during initialization, or
never@3156 1125 // called from signal handler. Before adding something to os::shutdown(), make
never@3156 1126 // sure it is async-safe and can handle partially initialized VM.
never@3156 1127 void os::shutdown() {
never@3156 1128
never@3156 1129 // allow PerfMemory to attempt cleanup of any persistent resources
never@3156 1130 perfMemory_exit();
never@3156 1131
never@3156 1132 // needs to remove object in file system
never@3156 1133 AttachListener::abort();
never@3156 1134
never@3156 1135 // flush buffered output, finish log files
never@3156 1136 ostream_abort();
never@3156 1137
never@3156 1138 // Check for abort hook
never@3156 1139 abort_hook_t abort_hook = Arguments::abort_hook();
never@3156 1140 if (abort_hook != NULL) {
never@3156 1141 abort_hook();
never@3156 1142 }
never@3156 1143
never@3156 1144 }
never@3156 1145
never@3156 1146 // Note: os::abort() might be called very early during initialization, or
never@3156 1147 // called from signal handler. Before adding something to os::abort(), make
never@3156 1148 // sure it is async-safe and can handle partially initialized VM.
never@3156 1149 void os::abort(bool dump_core) {
never@3156 1150 os::shutdown();
never@3156 1151 if (dump_core) {
never@3156 1152 #ifndef PRODUCT
never@3156 1153 fdStream out(defaultStream::output_fd());
never@3156 1154 out.print_raw("Current thread is ");
never@3156 1155 char buf[16];
never@3156 1156 jio_snprintf(buf, sizeof(buf), UINTX_FORMAT, os::current_thread_id());
never@3156 1157 out.print_raw_cr(buf);
never@3156 1158 out.print_raw_cr("Dumping core ...");
never@3156 1159 #endif
never@3156 1160 ::abort(); // dump core
never@3156 1161 }
never@3156 1162
never@3156 1163 ::exit(1);
never@3156 1164 }
never@3156 1165
never@3156 1166 // Die immediately, no exit hook, no abort hook, no cleanup.
never@3156 1167 void os::die() {
never@3156 1168 // _exit() on BsdThreads only kills current thread
never@3156 1169 ::abort();
never@3156 1170 }
never@3156 1171
never@3156 1172 // This method is a copy of JDK's sysGetLastErrorString
never@3156 1173 // from src/solaris/hpi/src/system_md.c
never@3156 1174
never@3156 1175 size_t os::lasterror(char *buf, size_t len) {
never@3156 1176
never@3156 1177 if (errno == 0) return 0;
never@3156 1178
never@3156 1179 const char *s = ::strerror(errno);
never@3156 1180 size_t n = ::strlen(s);
never@3156 1181 if (n >= len) {
never@3156 1182 n = len - 1;
never@3156 1183 }
never@3156 1184 ::strncpy(buf, s, n);
never@3156 1185 buf[n] = '\0';
never@3156 1186 return n;
never@3156 1187 }
never@3156 1188
dsamersoff@5834 1189 // Information of current thread in variety of formats
dsamersoff@5834 1190 pid_t os::Bsd::gettid() {
dsamersoff@5834 1191 int retval = -1;
dsamersoff@5834 1192
dsamersoff@5834 1193 #ifdef __APPLE__ //XNU kernel
dsamersoff@5834 1194 // despite the fact mach port is actually not a thread id use it
dsamersoff@5834 1195 // instead of syscall(SYS_thread_selfid) as it certainly fits to u4
dsamersoff@5834 1196 retval = ::pthread_mach_thread_np(::pthread_self());
dsamersoff@5834 1197 guarantee(retval != 0, "just checking");
dsamersoff@5834 1198 return retval;
dsamersoff@5834 1199
dholmes@7808 1200 #else
dholmes@7808 1201 #ifdef __FreeBSD__
dsamersoff@5834 1202 retval = syscall(SYS_thr_self);
dholmes@7808 1203 #else
dholmes@7808 1204 #ifdef __OpenBSD__
dsamersoff@5834 1205 retval = syscall(SYS_getthrid);
dholmes@7808 1206 #else
dholmes@7808 1207 #ifdef __NetBSD__
dsamersoff@5834 1208 retval = (pid_t) syscall(SYS__lwp_self);
dholmes@7808 1209 #endif
dholmes@7808 1210 #endif
dholmes@7808 1211 #endif
dsamersoff@5834 1212 #endif
dsamersoff@5834 1213
dsamersoff@5834 1214 if (retval == -1) {
dsamersoff@5834 1215 return getpid();
dsamersoff@5834 1216 }
dsamersoff@5834 1217 }
dsamersoff@5834 1218
sla@3587 1219 intx os::current_thread_id() {
sla@3587 1220 #ifdef __APPLE__
sla@5563 1221 return (intx)::pthread_mach_thread_np(::pthread_self());
sla@3587 1222 #else
sla@3587 1223 return (intx)::pthread_self();
sla@3587 1224 #endif
sla@3587 1225 }
dsamersoff@5834 1226
never@3156 1227 int os::current_process_id() {
never@3156 1228
never@3156 1229 // Under the old bsd thread library, bsd gives each thread
never@3156 1230 // its own process id. Because of this each thread will return
never@3156 1231 // a different pid if this method were to return the result
never@3156 1232 // of getpid(2). Bsd provides no api that returns the pid
never@3156 1233 // of the launcher thread for the vm. This implementation
never@3156 1234 // returns a unique pid, the pid of the launcher thread
never@3156 1235 // that starts the vm 'process'.
never@3156 1236
never@3156 1237 // Under the NPTL, getpid() returns the same pid as the
never@3156 1238 // launcher thread rather than a unique pid per thread.
never@3156 1239 // Use gettid() if you want the old pre NPTL behaviour.
never@3156 1240
never@3156 1241 // if you are looking for the result of a call to getpid() that
never@3156 1242 // returns a unique pid for the calling thread, then look at the
never@3156 1243 // OSThread::thread_id() method in osThread_bsd.hpp file
never@3156 1244
never@3156 1245 return (int)(_initial_pid ? _initial_pid : getpid());
never@3156 1246 }
never@3156 1247
never@3156 1248 // DLL functions
never@3156 1249
never@3156 1250 #define JNI_LIB_PREFIX "lib"
never@3156 1251 #ifdef __APPLE__
never@3156 1252 #define JNI_LIB_SUFFIX ".dylib"
never@3156 1253 #else
never@3156 1254 #define JNI_LIB_SUFFIX ".so"
never@3156 1255 #endif
never@3156 1256
never@3156 1257 const char* os::dll_file_extension() { return JNI_LIB_SUFFIX; }
never@3156 1258
never@3156 1259 // This must be hard coded because it's the system's temporary
never@3156 1260 // directory not the java application's temp directory, ala java.io.tmpdir.
dcubed@3202 1261 #ifdef __APPLE__
dcubed@3202 1262 // macosx has a secure per-user temporary directory
dcubed@3202 1263 char temp_path_storage[PATH_MAX];
dcubed@3202 1264 const char* os::get_temp_directory() {
dcubed@3202 1265 static char *temp_path = NULL;
dcubed@3202 1266 if (temp_path == NULL) {
dcubed@3202 1267 int pathSize = confstr(_CS_DARWIN_USER_TEMP_DIR, temp_path_storage, PATH_MAX);
dcubed@3202 1268 if (pathSize == 0 || pathSize > PATH_MAX) {
dcubed@3202 1269 strlcpy(temp_path_storage, "/tmp/", sizeof(temp_path_storage));
dcubed@3202 1270 }
dcubed@3202 1271 temp_path = temp_path_storage;
dcubed@3202 1272 }
dcubed@3202 1273 return temp_path;
dcubed@3202 1274 }
dcubed@3202 1275 #else /* __APPLE__ */
never@3156 1276 const char* os::get_temp_directory() { return "/tmp"; }
dcubed@3202 1277 #endif /* __APPLE__ */
never@3156 1278
never@3156 1279 static bool file_exists(const char* filename) {
never@3156 1280 struct stat statbuf;
never@3156 1281 if (filename == NULL || strlen(filename) == 0) {
never@3156 1282 return false;
never@3156 1283 }
never@3156 1284 return os::stat(filename, &statbuf) == 0;
never@3156 1285 }
never@3156 1286
bpittore@4261 1287 bool os::dll_build_name(char* buffer, size_t buflen,
never@3156 1288 const char* pname, const char* fname) {
bpittore@4261 1289 bool retval = false;
never@3156 1290 // Copied from libhpi
never@3156 1291 const size_t pnamelen = pname ? strlen(pname) : 0;
never@3156 1292
bpittore@4261 1293 // Return error on buffer overflow.
never@3156 1294 if (pnamelen + strlen(fname) + strlen(JNI_LIB_PREFIX) + strlen(JNI_LIB_SUFFIX) + 2 > buflen) {
bpittore@4261 1295 return retval;
never@3156 1296 }
never@3156 1297
never@3156 1298 if (pnamelen == 0) {
never@3156 1299 snprintf(buffer, buflen, JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX, fname);
bpittore@4261 1300 retval = true;
never@3156 1301 } else if (strchr(pname, *os::path_separator()) != NULL) {
never@3156 1302 int n;
never@3156 1303 char** pelements = split_path(pname, &n);
ccheung@4888 1304 if (pelements == NULL) {
dcubed@4891 1305 return false;
ccheung@4888 1306 }
never@3156 1307 for (int i = 0 ; i < n ; i++) {
never@3156 1308 // Really shouldn't be NULL, but check can't hurt
never@3156 1309 if (pelements[i] == NULL || strlen(pelements[i]) == 0) {
never@3156 1310 continue; // skip the empty path values
never@3156 1311 }
never@3156 1312 snprintf(buffer, buflen, "%s/" JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX,
never@3156 1313 pelements[i], fname);
never@3156 1314 if (file_exists(buffer)) {
bpittore@4261 1315 retval = true;
never@3156 1316 break;
never@3156 1317 }
never@3156 1318 }
never@3156 1319 // release the storage
never@3156 1320 for (int i = 0 ; i < n ; i++) {
never@3156 1321 if (pelements[i] != NULL) {
zgu@3900 1322 FREE_C_HEAP_ARRAY(char, pelements[i], mtInternal);
never@3156 1323 }
never@3156 1324 }
never@3156 1325 if (pelements != NULL) {
zgu@3900 1326 FREE_C_HEAP_ARRAY(char*, pelements, mtInternal);
never@3156 1327 }
never@3156 1328 } else {
never@3156 1329 snprintf(buffer, buflen, "%s/" JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX, pname, fname);
bpittore@4261 1330 retval = true;
never@3156 1331 }
bpittore@4261 1332 return retval;
never@3156 1333 }
never@3156 1334
dcubed@4392 1335 // check if addr is inside libjvm.so
never@3156 1336 bool os::address_is_in_vm(address addr) {
never@3156 1337 static address libjvm_base_addr;
never@3156 1338 Dl_info dlinfo;
never@3156 1339
never@3156 1340 if (libjvm_base_addr == NULL) {
dcubed@5365 1341 if (dladdr(CAST_FROM_FN_PTR(void *, os::address_is_in_vm), &dlinfo) != 0) {
dcubed@5365 1342 libjvm_base_addr = (address)dlinfo.dli_fbase;
dcubed@5365 1343 }
never@3156 1344 assert(libjvm_base_addr !=NULL, "Cannot obtain base address for libjvm");
never@3156 1345 }
never@3156 1346
dcubed@5365 1347 if (dladdr((void *)addr, &dlinfo) != 0) {
never@3156 1348 if (libjvm_base_addr == (address)dlinfo.dli_fbase) return true;
never@3156 1349 }
never@3156 1350
never@3156 1351 return false;
never@3156 1352 }
never@3156 1353
zgu@3961 1354
zgu@3961 1355 #define MACH_MAXSYMLEN 256
zgu@3961 1356
never@3156 1357 bool os::dll_address_to_function_name(address addr, char *buf,
never@3156 1358 int buflen, int *offset) {
dcubed@5365 1359 // buf is not optional, but offset is optional
dcubed@5365 1360 assert(buf != NULL, "sanity check");
dcubed@5365 1361
never@3156 1362 Dl_info dlinfo;
zgu@3961 1363 char localbuf[MACH_MAXSYMLEN];
zgu@3961 1364
dcubed@5365 1365 if (dladdr((void*)addr, &dlinfo) != 0) {
dcubed@5365 1366 // see if we have a matching symbol
dcubed@5365 1367 if (dlinfo.dli_saddr != NULL && dlinfo.dli_sname != NULL) {
dcubed@5365 1368 if (!Decoder::demangle(dlinfo.dli_sname, buf, buflen)) {
never@3156 1369 jio_snprintf(buf, buflen, "%s", dlinfo.dli_sname);
never@3156 1370 }
dcubed@5365 1371 if (offset != NULL) *offset = addr - (address)dlinfo.dli_saddr;
dcubed@5365 1372 return true;
never@3156 1373 }
dcubed@5365 1374 // no matching symbol so try for just file info
dcubed@5365 1375 if (dlinfo.dli_fname != NULL && dlinfo.dli_fbase != NULL) {
dcubed@5365 1376 if (Decoder::decode((address)(addr - (address)dlinfo.dli_fbase),
dcubed@5365 1377 buf, buflen, offset, dlinfo.dli_fname)) {
dcubed@5365 1378 return true;
dcubed@5365 1379 }
dcubed@5365 1380 }
dcubed@5365 1381
dcubed@5365 1382 // Handle non-dynamic manually:
dcubed@5365 1383 if (dlinfo.dli_fbase != NULL &&
dcubed@5365 1384 Decoder::decode(addr, localbuf, MACH_MAXSYMLEN, offset,
dcubed@5365 1385 dlinfo.dli_fbase)) {
dcubed@5365 1386 if (!Decoder::demangle(localbuf, buf, buflen)) {
dcubed@5365 1387 jio_snprintf(buf, buflen, "%s", localbuf);
dcubed@5365 1388 }
dcubed@5365 1389 return true;
never@3156 1390 }
never@3156 1391 }
dcubed@5365 1392 buf[0] = '\0';
dcubed@5365 1393 if (offset != NULL) *offset = -1;
dcubed@5365 1394 return false;
dcubed@5365 1395 }
dcubed@5365 1396
dcubed@5365 1397 // ported from solaris version
dcubed@5365 1398 bool os::dll_address_to_library_name(address addr, char* buf,
dcubed@5365 1399 int buflen, int* offset) {
dcubed@5365 1400 // buf is not optional, but offset is optional
dcubed@5365 1401 assert(buf != NULL, "sanity check");
dcubed@5365 1402
dcubed@5365 1403 Dl_info dlinfo;
dcubed@5365 1404
dcubed@5365 1405 if (dladdr((void*)addr, &dlinfo) != 0) {
dcubed@5365 1406 if (dlinfo.dli_fname != NULL) {
dcubed@5365 1407 jio_snprintf(buf, buflen, "%s", dlinfo.dli_fname);
dcubed@5365 1408 }
dcubed@5365 1409 if (dlinfo.dli_fbase != NULL && offset != NULL) {
dcubed@5365 1410 *offset = addr - (address)dlinfo.dli_fbase;
zgu@3961 1411 }
zgu@3961 1412 return true;
zgu@3961 1413 }
dcubed@5365 1414
dcubed@5365 1415 buf[0] = '\0';
dcubed@5365 1416 if (offset) *offset = -1;
never@3156 1417 return false;
never@3156 1418 }
never@3156 1419
sla@4229 1420 // Loads .dll/.so and
sla@4229 1421 // in case of error it checks if .dll/.so was built for the
sla@4229 1422 // same architecture as Hotspot is running on
never@3156 1423
never@3156 1424 #ifdef __APPLE__
never@3156 1425 void * os::dll_load(const char *filename, char *ebuf, int ebuflen) {
never@3156 1426 void * result= ::dlopen(filename, RTLD_LAZY);
never@3156 1427 if (result != NULL) {
never@3156 1428 // Successful loading
never@3156 1429 return result;
never@3156 1430 }
never@3156 1431
never@3156 1432 // Read system error message into ebuf
never@3156 1433 ::strncpy(ebuf, ::dlerror(), ebuflen-1);
never@3156 1434 ebuf[ebuflen-1]='\0';
never@3156 1435
never@3156 1436 return NULL;
never@3156 1437 }
never@3156 1438 #else
never@3156 1439 void * os::dll_load(const char *filename, char *ebuf, int ebuflen)
never@3156 1440 {
never@3156 1441 void * result= ::dlopen(filename, RTLD_LAZY);
never@3156 1442 if (result != NULL) {
never@3156 1443 // Successful loading
never@3156 1444 return result;
never@3156 1445 }
never@3156 1446
never@3156 1447 Elf32_Ehdr elf_head;
never@3156 1448
never@3156 1449 // Read system error message into ebuf
never@3156 1450 // It may or may not be overwritten below
never@3156 1451 ::strncpy(ebuf, ::dlerror(), ebuflen-1);
never@3156 1452 ebuf[ebuflen-1]='\0';
never@3156 1453 int diag_msg_max_length=ebuflen-strlen(ebuf);
never@3156 1454 char* diag_msg_buf=ebuf+strlen(ebuf);
never@3156 1455
never@3156 1456 if (diag_msg_max_length==0) {
never@3156 1457 // No more space in ebuf for additional diagnostics message
never@3156 1458 return NULL;
never@3156 1459 }
never@3156 1460
never@3156 1461
never@3156 1462 int file_descriptor= ::open(filename, O_RDONLY | O_NONBLOCK);
never@3156 1463
never@3156 1464 if (file_descriptor < 0) {
never@3156 1465 // Can't open library, report dlerror() message
never@3156 1466 return NULL;
never@3156 1467 }
never@3156 1468
never@3156 1469 bool failed_to_read_elf_head=
never@3156 1470 (sizeof(elf_head)!=
never@3156 1471 (::read(file_descriptor, &elf_head,sizeof(elf_head)))) ;
never@3156 1472
never@3156 1473 ::close(file_descriptor);
never@3156 1474 if (failed_to_read_elf_head) {
never@3156 1475 // file i/o error - report dlerror() msg
never@3156 1476 return NULL;
never@3156 1477 }
never@3156 1478
never@3156 1479 typedef struct {
never@3156 1480 Elf32_Half code; // Actual value as defined in elf.h
never@3156 1481 Elf32_Half compat_class; // Compatibility of archs at VM's sense
never@3156 1482 char elf_class; // 32 or 64 bit
never@3156 1483 char endianess; // MSB or LSB
never@3156 1484 char* name; // String representation
never@3156 1485 } arch_t;
never@3156 1486
never@3156 1487 #ifndef EM_486
never@3156 1488 #define EM_486 6 /* Intel 80486 */
never@3156 1489 #endif
never@3156 1490
never@3156 1491 #ifndef EM_MIPS_RS3_LE
never@3156 1492 #define EM_MIPS_RS3_LE 10 /* MIPS */
never@3156 1493 #endif
never@3156 1494
never@3156 1495 #ifndef EM_PPC64
never@3156 1496 #define EM_PPC64 21 /* PowerPC64 */
never@3156 1497 #endif
never@3156 1498
never@3156 1499 #ifndef EM_S390
never@3156 1500 #define EM_S390 22 /* IBM System/390 */
never@3156 1501 #endif
never@3156 1502
never@3156 1503 #ifndef EM_IA_64
never@3156 1504 #define EM_IA_64 50 /* HP/Intel IA-64 */
never@3156 1505 #endif
never@3156 1506
never@3156 1507 #ifndef EM_X86_64
never@3156 1508 #define EM_X86_64 62 /* AMD x86-64 */
never@3156 1509 #endif
never@3156 1510
never@3156 1511 static const arch_t arch_array[]={
never@3156 1512 {EM_386, EM_386, ELFCLASS32, ELFDATA2LSB, (char*)"IA 32"},
never@3156 1513 {EM_486, EM_386, ELFCLASS32, ELFDATA2LSB, (char*)"IA 32"},
never@3156 1514 {EM_IA_64, EM_IA_64, ELFCLASS64, ELFDATA2LSB, (char*)"IA 64"},
never@3156 1515 {EM_X86_64, EM_X86_64, ELFCLASS64, ELFDATA2LSB, (char*)"AMD 64"},
never@3156 1516 {EM_SPARC, EM_SPARC, ELFCLASS32, ELFDATA2MSB, (char*)"Sparc 32"},
never@3156 1517 {EM_SPARC32PLUS, EM_SPARC, ELFCLASS32, ELFDATA2MSB, (char*)"Sparc 32"},
never@3156 1518 {EM_SPARCV9, EM_SPARCV9, ELFCLASS64, ELFDATA2MSB, (char*)"Sparc v9 64"},
never@3156 1519 {EM_PPC, EM_PPC, ELFCLASS32, ELFDATA2MSB, (char*)"Power PC 32"},
never@3156 1520 {EM_PPC64, EM_PPC64, ELFCLASS64, ELFDATA2MSB, (char*)"Power PC 64"},
never@3156 1521 {EM_ARM, EM_ARM, ELFCLASS32, ELFDATA2LSB, (char*)"ARM"},
never@3156 1522 {EM_S390, EM_S390, ELFCLASSNONE, ELFDATA2MSB, (char*)"IBM System/390"},
never@3156 1523 {EM_ALPHA, EM_ALPHA, ELFCLASS64, ELFDATA2LSB, (char*)"Alpha"},
never@3156 1524 {EM_MIPS_RS3_LE, EM_MIPS_RS3_LE, ELFCLASS32, ELFDATA2LSB, (char*)"MIPSel"},
never@3156 1525 {EM_MIPS, EM_MIPS, ELFCLASS32, ELFDATA2MSB, (char*)"MIPS"},
never@3156 1526 {EM_PARISC, EM_PARISC, ELFCLASS32, ELFDATA2MSB, (char*)"PARISC"},
never@3156 1527 {EM_68K, EM_68K, ELFCLASS32, ELFDATA2MSB, (char*)"M68k"}
never@3156 1528 };
never@3156 1529
never@3156 1530 #if (defined IA32)
never@3156 1531 static Elf32_Half running_arch_code=EM_386;
never@3156 1532 #elif (defined AMD64)
never@3156 1533 static Elf32_Half running_arch_code=EM_X86_64;
never@3156 1534 #elif (defined IA64)
never@3156 1535 static Elf32_Half running_arch_code=EM_IA_64;
never@3156 1536 #elif (defined __sparc) && (defined _LP64)
never@3156 1537 static Elf32_Half running_arch_code=EM_SPARCV9;
never@3156 1538 #elif (defined __sparc) && (!defined _LP64)
never@3156 1539 static Elf32_Half running_arch_code=EM_SPARC;
never@3156 1540 #elif (defined __powerpc64__)
never@3156 1541 static Elf32_Half running_arch_code=EM_PPC64;
never@3156 1542 #elif (defined __powerpc__)
never@3156 1543 static Elf32_Half running_arch_code=EM_PPC;
never@3156 1544 #elif (defined ARM)
never@3156 1545 static Elf32_Half running_arch_code=EM_ARM;
never@3156 1546 #elif (defined S390)
never@3156 1547 static Elf32_Half running_arch_code=EM_S390;
never@3156 1548 #elif (defined ALPHA)
never@3156 1549 static Elf32_Half running_arch_code=EM_ALPHA;
never@3156 1550 #elif (defined MIPSEL)
never@3156 1551 static Elf32_Half running_arch_code=EM_MIPS_RS3_LE;
never@3156 1552 #elif (defined PARISC)
never@3156 1553 static Elf32_Half running_arch_code=EM_PARISC;
never@3156 1554 #elif (defined MIPS)
never@3156 1555 static Elf32_Half running_arch_code=EM_MIPS;
never@3156 1556 #elif (defined M68K)
never@3156 1557 static Elf32_Half running_arch_code=EM_68K;
never@3156 1558 #else
never@3156 1559 #error Method os::dll_load requires that one of following is defined:\
never@3156 1560 IA32, AMD64, IA64, __sparc, __powerpc__, ARM, S390, ALPHA, MIPS, MIPSEL, PARISC, M68K
never@3156 1561 #endif
never@3156 1562
never@3156 1563 // Identify compatability class for VM's architecture and library's architecture
never@3156 1564 // Obtain string descriptions for architectures
never@3156 1565
never@3156 1566 arch_t lib_arch={elf_head.e_machine,0,elf_head.e_ident[EI_CLASS], elf_head.e_ident[EI_DATA], NULL};
never@3156 1567 int running_arch_index=-1;
never@3156 1568
never@3156 1569 for (unsigned int i=0 ; i < ARRAY_SIZE(arch_array) ; i++ ) {
never@3156 1570 if (running_arch_code == arch_array[i].code) {
never@3156 1571 running_arch_index = i;
never@3156 1572 }
never@3156 1573 if (lib_arch.code == arch_array[i].code) {
never@3156 1574 lib_arch.compat_class = arch_array[i].compat_class;
never@3156 1575 lib_arch.name = arch_array[i].name;
never@3156 1576 }
never@3156 1577 }
never@3156 1578
never@3156 1579 assert(running_arch_index != -1,
never@3156 1580 "Didn't find running architecture code (running_arch_code) in arch_array");
never@3156 1581 if (running_arch_index == -1) {
never@3156 1582 // Even though running architecture detection failed
never@3156 1583 // we may still continue with reporting dlerror() message
never@3156 1584 return NULL;
never@3156 1585 }
never@3156 1586
never@3156 1587 if (lib_arch.endianess != arch_array[running_arch_index].endianess) {
never@3156 1588 ::snprintf(diag_msg_buf, diag_msg_max_length-1," (Possible cause: endianness mismatch)");
never@3156 1589 return NULL;
never@3156 1590 }
never@3156 1591
never@3156 1592 #ifndef S390
never@3156 1593 if (lib_arch.elf_class != arch_array[running_arch_index].elf_class) {
never@3156 1594 ::snprintf(diag_msg_buf, diag_msg_max_length-1," (Possible cause: architecture word width mismatch)");
never@3156 1595 return NULL;
never@3156 1596 }
never@3156 1597 #endif // !S390
never@3156 1598
never@3156 1599 if (lib_arch.compat_class != arch_array[running_arch_index].compat_class) {
never@3156 1600 if ( lib_arch.name!=NULL ) {
never@3156 1601 ::snprintf(diag_msg_buf, diag_msg_max_length-1,
never@3156 1602 " (Possible cause: can't load %s-bit .so on a %s-bit platform)",
never@3156 1603 lib_arch.name, arch_array[running_arch_index].name);
never@3156 1604 } else {
never@3156 1605 ::snprintf(diag_msg_buf, diag_msg_max_length-1,
never@3156 1606 " (Possible cause: can't load this .so (machine code=0x%x) on a %s-bit platform)",
never@3156 1607 lib_arch.code,
never@3156 1608 arch_array[running_arch_index].name);
never@3156 1609 }
never@3156 1610 }
never@3156 1611
never@3156 1612 return NULL;
never@3156 1613 }
never@3156 1614 #endif /* !__APPLE__ */
never@3156 1615
sla@6326 1616 void* os::get_default_process_handle() {
sla@6326 1617 #ifdef __APPLE__
sla@6326 1618 // MacOS X needs to use RTLD_FIRST instead of RTLD_LAZY
sla@6326 1619 // to avoid finding unexpected symbols on second (or later)
sla@6326 1620 // loads of a library.
sla@6326 1621 return (void*)::dlopen(NULL, RTLD_FIRST);
sla@6326 1622 #else
sla@6326 1623 return (void*)::dlopen(NULL, RTLD_LAZY);
sla@6326 1624 #endif
sla@6326 1625 }
sla@6326 1626
never@3156 1627 // XXX: Do we need a lock around this as per Linux?
never@3156 1628 void* os::dll_lookup(void* handle, const char* name) {
never@3156 1629 return dlsym(handle, name);
never@3156 1630 }
never@3156 1631
never@3156 1632
never@3156 1633 static bool _print_ascii_file(const char* filename, outputStream* st) {
never@3156 1634 int fd = ::open(filename, O_RDONLY);
never@3156 1635 if (fd == -1) {
never@3156 1636 return false;
never@3156 1637 }
never@3156 1638
never@3156 1639 char buf[32];
never@3156 1640 int bytes;
never@3156 1641 while ((bytes = ::read(fd, buf, sizeof(buf))) > 0) {
never@3156 1642 st->print_raw(buf, bytes);
never@3156 1643 }
never@3156 1644
never@3156 1645 ::close(fd);
never@3156 1646
never@3156 1647 return true;
never@3156 1648 }
never@3156 1649
never@3156 1650 void os::print_dll_info(outputStream *st) {
dcubed@5365 1651 st->print_cr("Dynamic libraries:");
never@3156 1652 #ifdef RTLD_DI_LINKMAP
dcubed@5365 1653 Dl_info dli;
dcubed@5365 1654 void *handle;
dcubed@5365 1655 Link_map *map;
dcubed@5365 1656 Link_map *p;
dcubed@5365 1657
dcubed@5365 1658 if (dladdr(CAST_FROM_FN_PTR(void *, os::print_dll_info), &dli) == 0 ||
dcubed@5365 1659 dli.dli_fname == NULL) {
dcubed@5365 1660 st->print_cr("Error: Cannot print dynamic libraries.");
dcubed@5365 1661 return;
dcubed@5365 1662 }
dcubed@5365 1663 handle = dlopen(dli.dli_fname, RTLD_LAZY);
dcubed@5365 1664 if (handle == NULL) {
dcubed@5365 1665 st->print_cr("Error: Cannot print dynamic libraries.");
dcubed@5365 1666 return;
dcubed@5365 1667 }
dcubed@5365 1668 dlinfo(handle, RTLD_DI_LINKMAP, &map);
dcubed@5365 1669 if (map == NULL) {
dcubed@5365 1670 st->print_cr("Error: Cannot print dynamic libraries.");
dcubed@5365 1671 return;
dcubed@5365 1672 }
dcubed@5365 1673
dcubed@5365 1674 while (map->l_prev != NULL)
dcubed@5365 1675 map = map->l_prev;
dcubed@5365 1676
dcubed@5365 1677 while (map != NULL) {
dcubed@5365 1678 st->print_cr(PTR_FORMAT " \t%s", map->l_addr, map->l_name);
dcubed@5365 1679 map = map->l_next;
dcubed@5365 1680 }
dcubed@5365 1681
dcubed@5365 1682 dlclose(handle);
never@3156 1683 #elif defined(__APPLE__)
dbuck@9060 1684 for (uint32_t i = 1; i < _dyld_image_count(); i++) {
dbuck@9060 1685 st->print_cr(PTR_FORMAT " \t%s", _dyld_get_image_header(i),
dbuck@9060 1686 _dyld_get_image_name(i));
dcubed@5365 1687 }
never@3156 1688 #else
dcubed@5365 1689 st->print_cr("Error: Cannot print dynamic libraries.");
never@3156 1690 #endif
never@3156 1691 }
never@3156 1692
apetushkov@9858 1693 int os::get_loaded_modules_info(os::LoadedModulesCallbackFunc callback, void *param) {
apetushkov@9858 1694 #ifdef RTLD_DI_LINKMAP
apetushkov@9858 1695 Dl_info dli;
apetushkov@9858 1696 void *handle;
apetushkov@9858 1697 Link_map *map;
apetushkov@9858 1698 Link_map *p;
apetushkov@9858 1699
apetushkov@9858 1700 if (dladdr(CAST_FROM_FN_PTR(void *, os::print_dll_info), &dli) == 0 ||
apetushkov@9858 1701 dli.dli_fname == NULL) {
apetushkov@9858 1702 return 1;
apetushkov@9858 1703 }
apetushkov@9858 1704 handle = dlopen(dli.dli_fname, RTLD_LAZY);
apetushkov@9858 1705 if (handle == NULL) {
apetushkov@9858 1706 return 1;
apetushkov@9858 1707 }
apetushkov@9858 1708 dlinfo(handle, RTLD_DI_LINKMAP, &map);
apetushkov@9858 1709 if (map == NULL) {
apetushkov@9858 1710 dlclose(handle);
apetushkov@9858 1711 return 1;
apetushkov@9858 1712 }
apetushkov@9858 1713
apetushkov@9858 1714 while (map->l_prev != NULL)
apetushkov@9858 1715 map = map->l_prev;
apetushkov@9858 1716
apetushkov@9858 1717 while (map != NULL) {
apetushkov@9858 1718 // Value for top_address is returned as 0 since we don't have any information about module size
apetushkov@9858 1719 if (callback(map->l_name, (address)map->l_addr, (address)0, param)) {
apetushkov@9858 1720 dlclose(handle);
apetushkov@9858 1721 return 1;
apetushkov@9858 1722 }
apetushkov@9858 1723 map = map->l_next;
apetushkov@9858 1724 }
apetushkov@9858 1725
apetushkov@9858 1726 dlclose(handle);
apetushkov@9858 1727 #elif defined(__APPLE__)
apetushkov@9858 1728 for (uint32_t i = 1; i < _dyld_image_count(); i++) {
apetushkov@9858 1729 // Value for top_address is returned as 0 since we don't have any information about module size
apetushkov@9858 1730 if (callback(_dyld_get_image_name(i), (address)_dyld_get_image_header(i), (address)0, param)) {
apetushkov@9858 1731 return 1;
apetushkov@9858 1732 }
apetushkov@9858 1733 }
apetushkov@9858 1734 return 0;
apetushkov@9858 1735 #else
apetushkov@9858 1736 return 1;
apetushkov@9858 1737 #endif
apetushkov@9858 1738 }
apetushkov@9858 1739
nloodin@3783 1740 void os::print_os_info_brief(outputStream* st) {
nloodin@3783 1741 st->print("Bsd");
nloodin@3783 1742
nloodin@3783 1743 os::Posix::print_uname_info(st);
nloodin@3783 1744 }
never@3156 1745
never@3156 1746 void os::print_os_info(outputStream* st) {
never@3156 1747 st->print("OS:");
nloodin@3783 1748 st->print("Bsd");
nloodin@3783 1749
nloodin@3783 1750 os::Posix::print_uname_info(st);
nloodin@3783 1751
nloodin@3783 1752 os::Posix::print_rlimit_info(st);
nloodin@3783 1753
nloodin@3783 1754 os::Posix::print_load_average(st);
never@3156 1755 }
never@3156 1756
never@3156 1757 void os::pd_print_cpu_info(outputStream* st) {
never@3156 1758 // Nothing to do for now.
never@3156 1759 }
never@3156 1760
never@3156 1761 void os::print_memory_info(outputStream* st) {
never@3156 1762
never@3156 1763 st->print("Memory:");
never@3156 1764 st->print(" %dk page", os::vm_page_size()>>10);
never@3156 1765
never@3156 1766 st->print(", physical " UINT64_FORMAT "k",
never@3156 1767 os::physical_memory() >> 10);
never@3156 1768 st->print("(" UINT64_FORMAT "k free)",
never@3156 1769 os::available_memory() >> 10);
never@3156 1770 st->cr();
never@3156 1771
never@3156 1772 // meminfo
never@3156 1773 st->print("\n/proc/meminfo:\n");
never@3156 1774 _print_ascii_file("/proc/meminfo", st);
never@3156 1775 st->cr();
never@3156 1776 }
never@3156 1777
never@3156 1778 void os::print_siginfo(outputStream* st, void* siginfo) {
goetz@6460 1779 const siginfo_t* si = (const siginfo_t*)siginfo;
goetz@6460 1780
goetz@6460 1781 os::Posix::print_siginfo_brief(st, si);
goetz@6460 1782
goetz@6460 1783 if (si && (si->si_signo == SIGBUS || si->si_signo == SIGSEGV) &&
never@3156 1784 UseSharedSpaces) {
never@3156 1785 FileMapInfo* mapinfo = FileMapInfo::current_info();
never@3156 1786 if (mapinfo->is_in_shared_space(si->si_addr)) {
never@3156 1787 st->print("\n\nError accessing class data sharing archive." \
never@3156 1788 " Mapped file inaccessible during execution, " \
never@3156 1789 " possible disk/network problem.");
never@3156 1790 }
never@3156 1791 }
never@3156 1792 st->cr();
never@3156 1793 }
never@3156 1794
never@3156 1795
never@3156 1796 static void print_signal_handler(outputStream* st, int sig,
never@3156 1797 char* buf, size_t buflen);
never@3156 1798
never@3156 1799 void os::print_signal_handlers(outputStream* st, char* buf, size_t buflen) {
never@3156 1800 st->print_cr("Signal Handlers:");
never@3156 1801 print_signal_handler(st, SIGSEGV, buf, buflen);
never@3156 1802 print_signal_handler(st, SIGBUS , buf, buflen);
never@3156 1803 print_signal_handler(st, SIGFPE , buf, buflen);
never@3156 1804 print_signal_handler(st, SIGPIPE, buf, buflen);
never@3156 1805 print_signal_handler(st, SIGXFSZ, buf, buflen);
never@3156 1806 print_signal_handler(st, SIGILL , buf, buflen);
never@3156 1807 print_signal_handler(st, INTERRUPT_SIGNAL, buf, buflen);
never@3156 1808 print_signal_handler(st, SR_signum, buf, buflen);
never@3156 1809 print_signal_handler(st, SHUTDOWN1_SIGNAL, buf, buflen);
never@3156 1810 print_signal_handler(st, SHUTDOWN2_SIGNAL , buf, buflen);
never@3156 1811 print_signal_handler(st, SHUTDOWN3_SIGNAL , buf, buflen);
never@3156 1812 print_signal_handler(st, BREAK_SIGNAL, buf, buflen);
never@3156 1813 }
never@3156 1814
never@3156 1815 static char saved_jvm_path[MAXPATHLEN] = {0};
never@3156 1816
dcubed@4392 1817 // Find the full path to the current module, libjvm
never@3156 1818 void os::jvm_path(char *buf, jint buflen) {
never@3156 1819 // Error checking.
never@3156 1820 if (buflen < MAXPATHLEN) {
never@3156 1821 assert(false, "must use a large-enough buffer");
never@3156 1822 buf[0] = '\0';
never@3156 1823 return;
never@3156 1824 }
never@3156 1825 // Lazy resolve the path to current module.
never@3156 1826 if (saved_jvm_path[0] != 0) {
never@3156 1827 strcpy(buf, saved_jvm_path);
never@3156 1828 return;
never@3156 1829 }
never@3156 1830
never@3156 1831 char dli_fname[MAXPATHLEN];
never@3156 1832 bool ret = dll_address_to_library_name(
never@3156 1833 CAST_FROM_FN_PTR(address, os::jvm_path),
never@3156 1834 dli_fname, sizeof(dli_fname), NULL);
dcubed@5365 1835 assert(ret, "cannot locate libjvm");
dcubed@5365 1836 char *rp = NULL;
dcubed@5365 1837 if (ret && dli_fname[0] != '\0') {
dcubed@5365 1838 rp = realpath(dli_fname, buf);
dcubed@5365 1839 }
never@3156 1840 if (rp == NULL)
never@3156 1841 return;
never@3156 1842
never@3156 1843 if (Arguments::created_by_gamma_launcher()) {
never@3156 1844 // Support for the gamma launcher. Typical value for buf is
phh@3473 1845 // "<JAVA_HOME>/jre/lib/<arch>/<vmtype>/libjvm". If "/jre/lib/" appears at
never@3156 1846 // the right place in the string, then assume we are installed in a JDK and
phh@3473 1847 // we're done. Otherwise, check for a JAVA_HOME environment variable and
phh@3473 1848 // construct a path to the JVM being overridden.
phh@3473 1849
never@3156 1850 const char *p = buf + strlen(buf) - 1;
never@3156 1851 for (int count = 0; p > buf && count < 5; ++count) {
never@3156 1852 for (--p; p > buf && *p != '/'; --p)
never@3156 1853 /* empty */ ;
never@3156 1854 }
never@3156 1855
never@3156 1856 if (strncmp(p, "/jre/lib/", 9) != 0) {
never@3156 1857 // Look for JAVA_HOME in the environment.
never@3156 1858 char* java_home_var = ::getenv("JAVA_HOME");
never@3156 1859 if (java_home_var != NULL && java_home_var[0] != 0) {
never@3156 1860 char* jrelib_p;
never@3156 1861 int len;
never@3156 1862
dcubed@4392 1863 // Check the current module name "libjvm"
never@3156 1864 p = strrchr(buf, '/');
never@3156 1865 assert(strstr(p, "/libjvm") == p, "invalid library name");
never@3156 1866
never@3156 1867 rp = realpath(java_home_var, buf);
never@3156 1868 if (rp == NULL)
never@3156 1869 return;
never@3156 1870
never@3156 1871 // determine if this is a legacy image or modules image
never@3156 1872 // modules image doesn't have "jre" subdirectory
never@3156 1873 len = strlen(buf);
hseigel@6755 1874 assert(len < buflen, "Ran out of buffer space");
never@3156 1875 jrelib_p = buf + len;
phh@3473 1876
phh@3473 1877 // Add the appropriate library subdir
phh@3473 1878 snprintf(jrelib_p, buflen-len, "/jre/lib");
never@3156 1879 if (0 != access(buf, F_OK)) {
phh@3473 1880 snprintf(jrelib_p, buflen-len, "/lib");
never@3156 1881 }
never@3156 1882
phh@3473 1883 // Add the appropriate client or server subdir
phh@3473 1884 len = strlen(buf);
phh@3473 1885 jrelib_p = buf + len;
phh@3473 1886 snprintf(jrelib_p, buflen-len, "/%s", COMPILER_VARIANT);
phh@3473 1887 if (0 != access(buf, F_OK)) {
phh@3473 1888 snprintf(jrelib_p, buflen-len, "");
phh@3473 1889 }
phh@3473 1890
phh@3473 1891 // If the path exists within JAVA_HOME, add the JVM library name
phh@3473 1892 // to complete the path to JVM being overridden. Otherwise fallback
phh@3473 1893 // to the path to the current library.
never@3156 1894 if (0 == access(buf, F_OK)) {
dcubed@4392 1895 // Use current module name "libjvm"
never@3156 1896 len = strlen(buf);
dcubed@4392 1897 snprintf(buf + len, buflen-len, "/libjvm%s", JNI_LIB_SUFFIX);
never@3156 1898 } else {
phh@3473 1899 // Fall back to path of current library
never@3156 1900 rp = realpath(dli_fname, buf);
never@3156 1901 if (rp == NULL)
never@3156 1902 return;
never@3156 1903 }
never@3156 1904 }
never@3156 1905 }
never@3156 1906 }
never@3156 1907
hseigel@6755 1908 strncpy(saved_jvm_path, buf, MAXPATHLEN);
never@3156 1909 }
never@3156 1910
never@3156 1911 void os::print_jni_name_prefix_on(outputStream* st, int args_size) {
never@3156 1912 // no prefix required, not even "_"
never@3156 1913 }
never@3156 1914
never@3156 1915 void os::print_jni_name_suffix_on(outputStream* st, int args_size) {
never@3156 1916 // no suffix required
never@3156 1917 }
never@3156 1918
never@3156 1919 ////////////////////////////////////////////////////////////////////////////////
never@3156 1920 // sun.misc.Signal support
never@3156 1921
never@3156 1922 static volatile jint sigint_count = 0;
never@3156 1923
never@3156 1924 static void
never@3156 1925 UserHandler(int sig, void *siginfo, void *context) {
never@3156 1926 // 4511530 - sem_post is serialized and handled by the manager thread. When
never@3156 1927 // the program is interrupted by Ctrl-C, SIGINT is sent to every thread. We
never@3156 1928 // don't want to flood the manager thread with sem_post requests.
never@3156 1929 if (sig == SIGINT && Atomic::add(1, &sigint_count) > 1)
never@3156 1930 return;
never@3156 1931
never@3156 1932 // Ctrl-C is pressed during error reporting, likely because the error
never@3156 1933 // handler fails to abort. Let VM die immediately.
never@3156 1934 if (sig == SIGINT && is_error_reported()) {
never@3156 1935 os::die();
never@3156 1936 }
never@3156 1937
never@3156 1938 os::signal_notify(sig);
never@3156 1939 }
never@3156 1940
never@3156 1941 void* os::user_handler() {
never@3156 1942 return CAST_FROM_FN_PTR(void*, UserHandler);
never@3156 1943 }
never@3156 1944
never@3156 1945 extern "C" {
never@3156 1946 typedef void (*sa_handler_t)(int);
never@3156 1947 typedef void (*sa_sigaction_t)(int, siginfo_t *, void *);
never@3156 1948 }
never@3156 1949
never@3156 1950 void* os::signal(int signal_number, void* handler) {
never@3156 1951 struct sigaction sigAct, oldSigAct;
never@3156 1952
never@3156 1953 sigfillset(&(sigAct.sa_mask));
never@3156 1954 sigAct.sa_flags = SA_RESTART|SA_SIGINFO;
never@3156 1955 sigAct.sa_handler = CAST_TO_FN_PTR(sa_handler_t, handler);
never@3156 1956
never@3156 1957 if (sigaction(signal_number, &sigAct, &oldSigAct)) {
never@3156 1958 // -1 means registration failed
never@3156 1959 return (void *)-1;
never@3156 1960 }
never@3156 1961
never@3156 1962 return CAST_FROM_FN_PTR(void*, oldSigAct.sa_handler);
never@3156 1963 }
never@3156 1964
never@3156 1965 void os::signal_raise(int signal_number) {
never@3156 1966 ::raise(signal_number);
never@3156 1967 }
never@3156 1968
never@3156 1969 /*
never@3156 1970 * The following code is moved from os.cpp for making this
never@3156 1971 * code platform specific, which it is by its very nature.
never@3156 1972 */
never@3156 1973
never@3156 1974 // Will be modified when max signal is changed to be dynamic
never@3156 1975 int os::sigexitnum_pd() {
never@3156 1976 return NSIG;
never@3156 1977 }
never@3156 1978
never@3156 1979 // a counter for each possible signal value
never@3156 1980 static volatile jint pending_signals[NSIG+1] = { 0 };
never@3156 1981
never@3156 1982 // Bsd(POSIX) specific hand shaking semaphore.
never@3156 1983 #ifdef __APPLE__
sla@5237 1984 typedef semaphore_t os_semaphore_t;
never@3156 1985 #define SEM_INIT(sem, value) semaphore_create(mach_task_self(), &sem, SYNC_POLICY_FIFO, value)
sla@5237 1986 #define SEM_WAIT(sem) semaphore_wait(sem)
sla@5237 1987 #define SEM_POST(sem) semaphore_signal(sem)
sla@5237 1988 #define SEM_DESTROY(sem) semaphore_destroy(mach_task_self(), sem)
never@3156 1989 #else
sla@5237 1990 typedef sem_t os_semaphore_t;
never@3156 1991 #define SEM_INIT(sem, value) sem_init(&sem, 0, value)
sla@5237 1992 #define SEM_WAIT(sem) sem_wait(&sem)
sla@5237 1993 #define SEM_POST(sem) sem_post(&sem)
sla@5237 1994 #define SEM_DESTROY(sem) sem_destroy(&sem)
never@3156 1995 #endif
never@3156 1996
sla@5237 1997 class Semaphore : public StackObj {
sla@5237 1998 public:
sla@5237 1999 Semaphore();
sla@5237 2000 ~Semaphore();
sla@5237 2001 void signal();
sla@5237 2002 void wait();
sla@5237 2003 bool trywait();
sla@5237 2004 bool timedwait(unsigned int sec, int nsec);
sla@5237 2005 private:
sla@5237 2006 jlong currenttime() const;
dsamersoff@5830 2007 os_semaphore_t _semaphore;
sla@5237 2008 };
sla@5237 2009
sla@5237 2010 Semaphore::Semaphore() : _semaphore(0) {
sla@5237 2011 SEM_INIT(_semaphore, 0);
sla@5237 2012 }
sla@5237 2013
sla@5237 2014 Semaphore::~Semaphore() {
sla@5237 2015 SEM_DESTROY(_semaphore);
sla@5237 2016 }
sla@5237 2017
sla@5237 2018 void Semaphore::signal() {
sla@5237 2019 SEM_POST(_semaphore);
sla@5237 2020 }
sla@5237 2021
sla@5237 2022 void Semaphore::wait() {
sla@5237 2023 SEM_WAIT(_semaphore);
sla@5237 2024 }
sla@5237 2025
sla@5237 2026 jlong Semaphore::currenttime() const {
sla@5237 2027 struct timeval tv;
sla@5237 2028 gettimeofday(&tv, NULL);
sla@5237 2029 return (tv.tv_sec * NANOSECS_PER_SEC) + (tv.tv_usec * 1000);
sla@5237 2030 }
sla@5237 2031
sla@5237 2032 #ifdef __APPLE__
sla@5237 2033 bool Semaphore::trywait() {
sla@5237 2034 return timedwait(0, 0);
sla@5237 2035 }
sla@5237 2036
sla@5237 2037 bool Semaphore::timedwait(unsigned int sec, int nsec) {
sla@5237 2038 kern_return_t kr = KERN_ABORTED;
sla@5237 2039 mach_timespec_t waitspec;
sla@5237 2040 waitspec.tv_sec = sec;
sla@5237 2041 waitspec.tv_nsec = nsec;
sla@5237 2042
sla@5237 2043 jlong starttime = currenttime();
sla@5237 2044
sla@5237 2045 kr = semaphore_timedwait(_semaphore, waitspec);
sla@5237 2046 while (kr == KERN_ABORTED) {
sla@5237 2047 jlong totalwait = (sec * NANOSECS_PER_SEC) + nsec;
sla@5237 2048
sla@5237 2049 jlong current = currenttime();
sla@5237 2050 jlong passedtime = current - starttime;
sla@5237 2051
sla@5237 2052 if (passedtime >= totalwait) {
sla@5237 2053 waitspec.tv_sec = 0;
sla@5237 2054 waitspec.tv_nsec = 0;
sla@5237 2055 } else {
sla@5237 2056 jlong waittime = totalwait - (current - starttime);
sla@5237 2057 waitspec.tv_sec = waittime / NANOSECS_PER_SEC;
sla@5237 2058 waitspec.tv_nsec = waittime % NANOSECS_PER_SEC;
sla@5237 2059 }
sla@5237 2060
sla@5237 2061 kr = semaphore_timedwait(_semaphore, waitspec);
sla@5237 2062 }
sla@5237 2063
sla@5237 2064 return kr == KERN_SUCCESS;
sla@5237 2065 }
sla@5237 2066
sla@5237 2067 #else
sla@5237 2068
sla@5237 2069 bool Semaphore::trywait() {
sla@5237 2070 return sem_trywait(&_semaphore) == 0;
sla@5237 2071 }
sla@5237 2072
sla@5237 2073 bool Semaphore::timedwait(unsigned int sec, int nsec) {
sla@5237 2074 struct timespec ts;
dsamersoff@5830 2075 unpackTime(&ts, false, (sec * NANOSECS_PER_SEC) + nsec);
sla@5237 2076
sla@5237 2077 while (1) {
sla@5237 2078 int result = sem_timedwait(&_semaphore, &ts);
sla@5237 2079 if (result == 0) {
sla@5237 2080 return true;
sla@5237 2081 } else if (errno == EINTR) {
sla@5237 2082 continue;
sla@5237 2083 } else if (errno == ETIMEDOUT) {
sla@5237 2084 return false;
sla@5237 2085 } else {
sla@5237 2086 return false;
sla@5237 2087 }
sla@5237 2088 }
sla@5237 2089 }
sla@5237 2090
sla@5237 2091 #endif // __APPLE__
sla@5237 2092
sla@5237 2093 static os_semaphore_t sig_sem;
sla@5237 2094 static Semaphore sr_semaphore;
sla@5237 2095
never@3156 2096 void os::signal_init_pd() {
never@3156 2097 // Initialize signal structures
never@3156 2098 ::memset((void*)pending_signals, 0, sizeof(pending_signals));
never@3156 2099
never@3156 2100 // Initialize signal semaphore
never@3156 2101 ::SEM_INIT(sig_sem, 0);
never@3156 2102 }
never@3156 2103
never@3156 2104 void os::signal_notify(int sig) {
never@3156 2105 Atomic::inc(&pending_signals[sig]);
never@3156 2106 ::SEM_POST(sig_sem);
never@3156 2107 }
never@3156 2108
never@3156 2109 static int check_pending_signals(bool wait) {
never@3156 2110 Atomic::store(0, &sigint_count);
never@3156 2111 for (;;) {
never@3156 2112 for (int i = 0; i < NSIG + 1; i++) {
never@3156 2113 jint n = pending_signals[i];
never@3156 2114 if (n > 0 && n == Atomic::cmpxchg(n - 1, &pending_signals[i], n)) {
never@3156 2115 return i;
never@3156 2116 }
never@3156 2117 }
never@3156 2118 if (!wait) {
never@3156 2119 return -1;
never@3156 2120 }
never@3156 2121 JavaThread *thread = JavaThread::current();
never@3156 2122 ThreadBlockInVM tbivm(thread);
never@3156 2123
never@3156 2124 bool threadIsSuspended;
never@3156 2125 do {
never@3156 2126 thread->set_suspend_equivalent();
never@3156 2127 // cleared by handle_special_suspend_equivalent_condition() or java_suspend_self()
never@3156 2128 ::SEM_WAIT(sig_sem);
never@3156 2129
never@3156 2130 // were we externally suspended while we were waiting?
never@3156 2131 threadIsSuspended = thread->handle_special_suspend_equivalent_condition();
never@3156 2132 if (threadIsSuspended) {
never@3156 2133 //
never@3156 2134 // The semaphore has been incremented, but while we were waiting
never@3156 2135 // another thread suspended us. We don't want to continue running
never@3156 2136 // while suspended because that would surprise the thread that
never@3156 2137 // suspended us.
never@3156 2138 //
never@3156 2139 ::SEM_POST(sig_sem);
never@3156 2140
never@3156 2141 thread->java_suspend_self();
never@3156 2142 }
never@3156 2143 } while (threadIsSuspended);
never@3156 2144 }
never@3156 2145 }
never@3156 2146
never@3156 2147 int os::signal_lookup() {
never@3156 2148 return check_pending_signals(false);
never@3156 2149 }
never@3156 2150
never@3156 2151 int os::signal_wait() {
never@3156 2152 return check_pending_signals(true);
never@3156 2153 }
never@3156 2154
never@3156 2155 ////////////////////////////////////////////////////////////////////////////////
never@3156 2156 // Virtual Memory
never@3156 2157
never@3156 2158 int os::vm_page_size() {
never@3156 2159 // Seems redundant as all get out
never@3156 2160 assert(os::Bsd::page_size() != -1, "must call os::init");
never@3156 2161 return os::Bsd::page_size();
never@3156 2162 }
never@3156 2163
never@3156 2164 // Solaris allocates memory by pages.
never@3156 2165 int os::vm_allocation_granularity() {
never@3156 2166 assert(os::Bsd::page_size() != -1, "must call os::init");
never@3156 2167 return os::Bsd::page_size();
never@3156 2168 }
never@3156 2169
never@3156 2170 // Rationale behind this function:
never@3156 2171 // current (Mon Apr 25 20:12:18 MSD 2005) oprofile drops samples without executable
never@3156 2172 // mapping for address (see lookup_dcookie() in the kernel module), thus we cannot get
never@3156 2173 // samples for JITted code. Here we create private executable mapping over the code cache
never@3156 2174 // and then we can use standard (well, almost, as mapping can change) way to provide
never@3156 2175 // info for the reporting script by storing timestamp and location of symbol
never@3156 2176 void bsd_wrap_code(char* base, size_t size) {
never@3156 2177 static volatile jint cnt = 0;
never@3156 2178
never@3156 2179 if (!UseOprofile) {
never@3156 2180 return;
never@3156 2181 }
never@3156 2182
never@3156 2183 char buf[PATH_MAX + 1];
never@3156 2184 int num = Atomic::add(1, &cnt);
never@3156 2185
never@3156 2186 snprintf(buf, PATH_MAX + 1, "%s/hs-vm-%d-%d",
never@3156 2187 os::get_temp_directory(), os::current_process_id(), num);
never@3156 2188 unlink(buf);
never@3156 2189
never@3156 2190 int fd = ::open(buf, O_CREAT | O_RDWR, S_IRWXU);
never@3156 2191
never@3156 2192 if (fd != -1) {
never@3156 2193 off_t rv = ::lseek(fd, size-2, SEEK_SET);
never@3156 2194 if (rv != (off_t)-1) {
never@3156 2195 if (::write(fd, "", 1) == 1) {
never@3156 2196 mmap(base, size,
never@3156 2197 PROT_READ|PROT_WRITE|PROT_EXEC,
never@3156 2198 MAP_PRIVATE|MAP_FIXED|MAP_NORESERVE, fd, 0);
never@3156 2199 }
never@3156 2200 }
never@3156 2201 ::close(fd);
never@3156 2202 unlink(buf);
never@3156 2203 }
never@3156 2204 }
never@3156 2205
dcubed@5255 2206 static void warn_fail_commit_memory(char* addr, size_t size, bool exec,
dcubed@5255 2207 int err) {
dcubed@5255 2208 warning("INFO: os::commit_memory(" PTR_FORMAT ", " SIZE_FORMAT
dcubed@5255 2209 ", %d) failed; error='%s' (errno=%d)", addr, size, exec,
dcubed@5255 2210 strerror(err), err);
dcubed@5255 2211 }
dcubed@5255 2212
never@3156 2213 // NOTE: Bsd kernel does not really reserve the pages for us.
never@3156 2214 // All it does is to check if there are enough free pages
never@3156 2215 // left at the time of mmap(). This could be a potential
never@3156 2216 // problem.
zgu@3900 2217 bool os::pd_commit_memory(char* addr, size_t size, bool exec) {
never@3156 2218 int prot = exec ? PROT_READ|PROT_WRITE|PROT_EXEC : PROT_READ|PROT_WRITE;
never@3156 2219 #ifdef __OpenBSD__
never@3156 2220 // XXX: Work-around mmap/MAP_FIXED bug temporarily on OpenBSD
dcubed@5255 2221 if (::mprotect(addr, size, prot) == 0) {
dcubed@5255 2222 return true;
dcubed@5255 2223 }
never@3156 2224 #else
never@3156 2225 uintptr_t res = (uintptr_t) ::mmap(addr, size, prot,
never@3156 2226 MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0);
dcubed@5255 2227 if (res != (uintptr_t) MAP_FAILED) {
dcubed@5255 2228 return true;
dcubed@5255 2229 }
never@3156 2230 #endif
dcubed@5255 2231
dcubed@5255 2232 // Warn about any commit errors we see in non-product builds just
dcubed@5255 2233 // in case mmap() doesn't work as described on the man page.
dcubed@5255 2234 NOT_PRODUCT(warn_fail_commit_memory(addr, size, exec, errno);)
dcubed@5255 2235
dcubed@5255 2236 return false;
never@3156 2237 }
never@3156 2238
zgu@3900 2239 bool os::pd_commit_memory(char* addr, size_t size, size_t alignment_hint,
never@3156 2240 bool exec) {
dcubed@5255 2241 // alignment_hint is ignored on this OS
dcubed@5255 2242 return pd_commit_memory(addr, size, exec);
dcubed@5255 2243 }
dcubed@5255 2244
dcubed@5255 2245 void os::pd_commit_memory_or_exit(char* addr, size_t size, bool exec,
dcubed@5255 2246 const char* mesg) {
dcubed@5255 2247 assert(mesg != NULL, "mesg must be specified");
dcubed@5255 2248 if (!pd_commit_memory(addr, size, exec)) {
dcubed@5255 2249 // add extra info in product mode for vm_exit_out_of_memory():
dcubed@5255 2250 PRODUCT_ONLY(warn_fail_commit_memory(addr, size, exec, errno);)
dcubed@5255 2251 vm_exit_out_of_memory(size, OOM_MMAP_ERROR, mesg);
dcubed@5255 2252 }
dcubed@5255 2253 }
dcubed@5255 2254
dcubed@5255 2255 void os::pd_commit_memory_or_exit(char* addr, size_t size,
dcubed@5255 2256 size_t alignment_hint, bool exec,
dcubed@5255 2257 const char* mesg) {
dcubed@5255 2258 // alignment_hint is ignored on this OS
dcubed@5255 2259 pd_commit_memory_or_exit(addr, size, exec, mesg);
never@3156 2260 }
never@3156 2261
zgu@3900 2262 void os::pd_realign_memory(char *addr, size_t bytes, size_t alignment_hint) {
never@3156 2263 }
never@3156 2264
zgu@3900 2265 void os::pd_free_memory(char *addr, size_t bytes, size_t alignment_hint) {
never@3156 2266 ::madvise(addr, bytes, MADV_DONTNEED);
never@3156 2267 }
never@3156 2268
never@3156 2269 void os::numa_make_global(char *addr, size_t bytes) {
never@3156 2270 }
never@3156 2271
never@3156 2272 void os::numa_make_local(char *addr, size_t bytes, int lgrp_hint) {
never@3156 2273 }
never@3156 2274
never@3156 2275 bool os::numa_topology_changed() { return false; }
never@3156 2276
never@3156 2277 size_t os::numa_get_groups_num() {
never@3156 2278 return 1;
never@3156 2279 }
never@3156 2280
never@3156 2281 int os::numa_get_group_id() {
never@3156 2282 return 0;
never@3156 2283 }
never@3156 2284
never@3156 2285 size_t os::numa_get_leaf_groups(int *ids, size_t size) {
never@3156 2286 if (size > 0) {
never@3156 2287 ids[0] = 0;
never@3156 2288 return 1;
never@3156 2289 }
never@3156 2290 return 0;
never@3156 2291 }
never@3156 2292
never@3156 2293 bool os::get_page_info(char *start, page_info* info) {
never@3156 2294 return false;
never@3156 2295 }
never@3156 2296
never@3156 2297 char *os::scan_pages(char *start, char* end, page_info* page_expected, page_info* page_found) {
never@3156 2298 return end;
never@3156 2299 }
never@3156 2300
never@3156 2301
zgu@3900 2302 bool os::pd_uncommit_memory(char* addr, size_t size) {
never@3156 2303 #ifdef __OpenBSD__
never@3156 2304 // XXX: Work-around mmap/MAP_FIXED bug temporarily on OpenBSD
never@3156 2305 return ::mprotect(addr, size, PROT_NONE) == 0;
never@3156 2306 #else
never@3156 2307 uintptr_t res = (uintptr_t) ::mmap(addr, size, PROT_NONE,
never@3156 2308 MAP_PRIVATE|MAP_FIXED|MAP_NORESERVE|MAP_ANONYMOUS, -1, 0);
never@3156 2309 return res != (uintptr_t) MAP_FAILED;
never@3156 2310 #endif
never@3156 2311 }
never@3156 2312
zgu@3900 2313 bool os::pd_create_stack_guard_pages(char* addr, size_t size) {
dcubed@5255 2314 return os::commit_memory(addr, size, !ExecMem);
never@3156 2315 }
never@3156 2316
never@3156 2317 // If this is a growable mapping, remove the guard pages entirely by
never@3156 2318 // munmap()ping them. If not, just call uncommit_memory().
never@3156 2319 bool os::remove_stack_guard_pages(char* addr, size_t size) {
never@3156 2320 return os::uncommit_memory(addr, size);
never@3156 2321 }
never@3156 2322
never@3156 2323 static address _highest_vm_reserved_address = NULL;
never@3156 2324
never@3156 2325 // If 'fixed' is true, anon_mmap() will attempt to reserve anonymous memory
never@3156 2326 // at 'requested_addr'. If there are existing memory mappings at the same
never@3156 2327 // location, however, they will be overwritten. If 'fixed' is false,
never@3156 2328 // 'requested_addr' is only treated as a hint, the return value may or
never@3156 2329 // may not start from the requested address. Unlike Bsd mmap(), this
never@3156 2330 // function returns NULL to indicate failure.
never@3156 2331 static char* anon_mmap(char* requested_addr, size_t bytes, bool fixed) {
never@3156 2332 char * addr;
never@3156 2333 int flags;
never@3156 2334
never@3156 2335 flags = MAP_PRIVATE | MAP_NORESERVE | MAP_ANONYMOUS;
never@3156 2336 if (fixed) {
never@3156 2337 assert((uintptr_t)requested_addr % os::Bsd::page_size() == 0, "unaligned address");
never@3156 2338 flags |= MAP_FIXED;
never@3156 2339 }
never@3156 2340
mikael@4989 2341 // Map reserved/uncommitted pages PROT_NONE so we fail early if we
mikael@4989 2342 // touch an uncommitted page. Otherwise, the read/write might
mikael@4989 2343 // succeed if we have enough swap space to back the physical page.
mikael@4989 2344 addr = (char*)::mmap(requested_addr, bytes, PROT_NONE,
never@3156 2345 flags, -1, 0);
never@3156 2346
never@3156 2347 if (addr != MAP_FAILED) {
never@3156 2348 // anon_mmap() should only get called during VM initialization,
never@3156 2349 // don't need lock (actually we can skip locking even it can be called
never@3156 2350 // from multiple threads, because _highest_vm_reserved_address is just a
never@3156 2351 // hint about the upper limit of non-stack memory regions.)
never@3156 2352 if ((address)addr + bytes > _highest_vm_reserved_address) {
never@3156 2353 _highest_vm_reserved_address = (address)addr + bytes;
never@3156 2354 }
never@3156 2355 }
never@3156 2356
never@3156 2357 return addr == MAP_FAILED ? NULL : addr;
never@3156 2358 }
never@3156 2359
never@3156 2360 // Don't update _highest_vm_reserved_address, because there might be memory
never@3156 2361 // regions above addr + size. If so, releasing a memory region only creates
never@3156 2362 // a hole in the address space, it doesn't help prevent heap-stack collision.
never@3156 2363 //
never@3156 2364 static int anon_munmap(char * addr, size_t size) {
never@3156 2365 return ::munmap(addr, size) == 0;
never@3156 2366 }
never@3156 2367
zgu@3900 2368 char* os::pd_reserve_memory(size_t bytes, char* requested_addr,
never@3156 2369 size_t alignment_hint) {
never@3156 2370 return anon_mmap(requested_addr, bytes, (requested_addr != NULL));
never@3156 2371 }
never@3156 2372
zgu@3900 2373 bool os::pd_release_memory(char* addr, size_t size) {
never@3156 2374 return anon_munmap(addr, size);
never@3156 2375 }
never@3156 2376
never@3156 2377 static bool bsd_mprotect(char* addr, size_t size, int prot) {
never@3156 2378 // Bsd wants the mprotect address argument to be page aligned.
never@3156 2379 char* bottom = (char*)align_size_down((intptr_t)addr, os::Bsd::page_size());
never@3156 2380
never@3156 2381 // According to SUSv3, mprotect() should only be used with mappings
never@3156 2382 // established by mmap(), and mmap() always maps whole pages. Unaligned
never@3156 2383 // 'addr' likely indicates problem in the VM (e.g. trying to change
never@3156 2384 // protection of malloc'ed or statically allocated memory). Check the
never@3156 2385 // caller if you hit this assert.
never@3156 2386 assert(addr == bottom, "sanity check");
never@3156 2387
never@3156 2388 size = align_size_up(pointer_delta(addr, bottom, 1) + size, os::Bsd::page_size());
never@3156 2389 return ::mprotect(bottom, size, prot) == 0;
never@3156 2390 }
never@3156 2391
never@3156 2392 // Set protections specified
never@3156 2393 bool os::protect_memory(char* addr, size_t bytes, ProtType prot,
never@3156 2394 bool is_committed) {
never@3156 2395 unsigned int p = 0;
never@3156 2396 switch (prot) {
never@3156 2397 case MEM_PROT_NONE: p = PROT_NONE; break;
never@3156 2398 case MEM_PROT_READ: p = PROT_READ; break;
never@3156 2399 case MEM_PROT_RW: p = PROT_READ|PROT_WRITE; break;
never@3156 2400 case MEM_PROT_RWX: p = PROT_READ|PROT_WRITE|PROT_EXEC; break;
never@3156 2401 default:
never@3156 2402 ShouldNotReachHere();
never@3156 2403 }
never@3156 2404 // is_committed is unused.
never@3156 2405 return bsd_mprotect(addr, bytes, p);
never@3156 2406 }
never@3156 2407
never@3156 2408 bool os::guard_memory(char* addr, size_t size) {
never@3156 2409 return bsd_mprotect(addr, size, PROT_NONE);
never@3156 2410 }
never@3156 2411
never@3156 2412 bool os::unguard_memory(char* addr, size_t size) {
never@3156 2413 return bsd_mprotect(addr, size, PROT_READ|PROT_WRITE);
never@3156 2414 }
never@3156 2415
never@3156 2416 bool os::Bsd::hugetlbfs_sanity_check(bool warn, size_t page_size) {
sla@4229 2417 return false;
never@3156 2418 }
never@3156 2419
never@3156 2420 // Large page support
never@3156 2421
never@3156 2422 static size_t _large_page_size = 0;
never@3156 2423
never@3156 2424 void os::large_page_init() {
never@3156 2425 }
never@3156 2426
never@3156 2427
stefank@5578 2428 char* os::reserve_memory_special(size_t bytes, size_t alignment, char* req_addr, bool exec) {
stefank@5578 2429 fatal("This code is not used or maintained.");
stefank@5578 2430
never@3156 2431 // "exec" is passed in but not used. Creating the shared image for
never@3156 2432 // the code cache doesn't have an SHM_X executable permission to check.
never@3156 2433 assert(UseLargePages && UseSHM, "only for SHM large pages");
never@3156 2434
never@3156 2435 key_t key = IPC_PRIVATE;
never@3156 2436 char *addr;
never@3156 2437
never@3156 2438 bool warn_on_failure = UseLargePages &&
never@3156 2439 (!FLAG_IS_DEFAULT(UseLargePages) ||
never@3156 2440 !FLAG_IS_DEFAULT(LargePageSizeInBytes)
never@3156 2441 );
never@3156 2442
never@3156 2443 // Create a large shared memory region to attach to based on size.
never@3156 2444 // Currently, size is the total size of the heap
never@3156 2445 int shmid = shmget(key, bytes, IPC_CREAT|SHM_R|SHM_W);
never@3156 2446 if (shmid == -1) {
never@3156 2447 // Possible reasons for shmget failure:
never@3156 2448 // 1. shmmax is too small for Java heap.
never@3156 2449 // > check shmmax value: cat /proc/sys/kernel/shmmax
never@3156 2450 // > increase shmmax value: echo "0xffffffff" > /proc/sys/kernel/shmmax
never@3156 2451 // 2. not enough large page memory.
never@3156 2452 // > check available large pages: cat /proc/meminfo
never@3156 2453 // > increase amount of large pages:
never@3156 2454 // echo new_value > /proc/sys/vm/nr_hugepages
never@3156 2455 // Note 1: different Bsd may use different name for this property,
never@3156 2456 // e.g. on Redhat AS-3 it is "hugetlb_pool".
never@3156 2457 // Note 2: it's possible there's enough physical memory available but
never@3156 2458 // they are so fragmented after a long run that they can't
never@3156 2459 // coalesce into large pages. Try to reserve large pages when
never@3156 2460 // the system is still "fresh".
never@3156 2461 if (warn_on_failure) {
drchase@6680 2462 warning("Failed to reserve shared memory (errno = %d).", errno);
never@3156 2463 }
never@3156 2464 return NULL;
never@3156 2465 }
never@3156 2466
never@3156 2467 // attach to the region
never@3156 2468 addr = (char*)shmat(shmid, req_addr, 0);
never@3156 2469 int err = errno;
never@3156 2470
never@3156 2471 // Remove shmid. If shmat() is successful, the actual shared memory segment
never@3156 2472 // will be deleted when it's detached by shmdt() or when the process
never@3156 2473 // terminates. If shmat() is not successful this will remove the shared
never@3156 2474 // segment immediately.
never@3156 2475 shmctl(shmid, IPC_RMID, NULL);
never@3156 2476
never@3156 2477 if ((intptr_t)addr == -1) {
never@3156 2478 if (warn_on_failure) {
drchase@6680 2479 warning("Failed to attach shared memory (errno = %d).", err);
never@3156 2480 }
never@3156 2481 return NULL;
never@3156 2482 }
never@3156 2483
zgu@4711 2484 // The memory is committed
zgu@7074 2485 MemTracker::record_virtual_memory_reserve_and_commit((address)addr, bytes, CALLER_PC);
zgu@4711 2486
never@3156 2487 return addr;
never@3156 2488 }
never@3156 2489
never@3156 2490 bool os::release_memory_special(char* base, size_t bytes) {
zgu@7074 2491 if (MemTracker::tracking_level() > NMT_minimal) {
zgu@7074 2492 Tracker tkr = MemTracker::get_virtual_memory_release_tracker();
zgu@7074 2493 // detaching the SHM segment will also delete it, see reserve_memory_special()
zgu@7074 2494 int rslt = shmdt(base);
zgu@7074 2495 if (rslt == 0) {
zgu@7074 2496 tkr.record((address)base, bytes);
zgu@7074 2497 return true;
zgu@7074 2498 } else {
zgu@7074 2499 return false;
zgu@7074 2500 }
zgu@4711 2501 } else {
zgu@7074 2502 return shmdt(base) == 0;
zgu@4711 2503 }
never@3156 2504 }
never@3156 2505
never@3156 2506 size_t os::large_page_size() {
never@3156 2507 return _large_page_size;
never@3156 2508 }
never@3156 2509
never@3156 2510 // HugeTLBFS allows application to commit large page memory on demand;
never@3156 2511 // with SysV SHM the entire memory region must be allocated as shared
never@3156 2512 // memory.
never@3156 2513 bool os::can_commit_large_page_memory() {
never@3156 2514 return UseHugeTLBFS;
never@3156 2515 }
never@3156 2516
never@3156 2517 bool os::can_execute_large_page_memory() {
never@3156 2518 return UseHugeTLBFS;
never@3156 2519 }
never@3156 2520
never@3156 2521 // Reserve memory at an arbitrary address, only if that area is
never@3156 2522 // available (and not reserved for something else).
never@3156 2523
zgu@3900 2524 char* os::pd_attempt_reserve_memory_at(size_t bytes, char* requested_addr) {
never@3156 2525 const int max_tries = 10;
never@3156 2526 char* base[max_tries];
never@3156 2527 size_t size[max_tries];
never@3156 2528 const size_t gap = 0x000000;
never@3156 2529
never@3156 2530 // Assert only that the size is a multiple of the page size, since
never@3156 2531 // that's all that mmap requires, and since that's all we really know
never@3156 2532 // about at this low abstraction level. If we need higher alignment,
never@3156 2533 // we can either pass an alignment to this method or verify alignment
never@3156 2534 // in one of the methods further up the call chain. See bug 5044738.
never@3156 2535 assert(bytes % os::vm_page_size() == 0, "reserving unexpected size block");
never@3156 2536
never@3156 2537 // Repeatedly allocate blocks until the block is allocated at the
never@3156 2538 // right spot. Give up after max_tries. Note that reserve_memory() will
never@3156 2539 // automatically update _highest_vm_reserved_address if the call is
never@3156 2540 // successful. The variable tracks the highest memory address every reserved
never@3156 2541 // by JVM. It is used to detect heap-stack collision if running with
never@3156 2542 // fixed-stack BsdThreads. Because here we may attempt to reserve more
never@3156 2543 // space than needed, it could confuse the collision detecting code. To
never@3156 2544 // solve the problem, save current _highest_vm_reserved_address and
never@3156 2545 // calculate the correct value before return.
never@3156 2546 address old_highest = _highest_vm_reserved_address;
never@3156 2547
never@3156 2548 // Bsd mmap allows caller to pass an address as hint; give it a try first,
never@3156 2549 // if kernel honors the hint then we can return immediately.
never@3156 2550 char * addr = anon_mmap(requested_addr, bytes, false);
never@3156 2551 if (addr == requested_addr) {
never@3156 2552 return requested_addr;
never@3156 2553 }
never@3156 2554
never@3156 2555 if (addr != NULL) {
never@3156 2556 // mmap() is successful but it fails to reserve at the requested address
never@3156 2557 anon_munmap(addr, bytes);
never@3156 2558 }
never@3156 2559
never@3156 2560 int i;
never@3156 2561 for (i = 0; i < max_tries; ++i) {
never@3156 2562 base[i] = reserve_memory(bytes);
never@3156 2563
never@3156 2564 if (base[i] != NULL) {
never@3156 2565 // Is this the block we wanted?
never@3156 2566 if (base[i] == requested_addr) {
never@3156 2567 size[i] = bytes;
never@3156 2568 break;
never@3156 2569 }
never@3156 2570
never@3156 2571 // Does this overlap the block we wanted? Give back the overlapped
never@3156 2572 // parts and try again.
never@3156 2573
never@3156 2574 size_t top_overlap = requested_addr + (bytes + gap) - base[i];
never@3156 2575 if (top_overlap >= 0 && top_overlap < bytes) {
never@3156 2576 unmap_memory(base[i], top_overlap);
never@3156 2577 base[i] += top_overlap;
never@3156 2578 size[i] = bytes - top_overlap;
never@3156 2579 } else {
never@3156 2580 size_t bottom_overlap = base[i] + bytes - requested_addr;
never@3156 2581 if (bottom_overlap >= 0 && bottom_overlap < bytes) {
never@3156 2582 unmap_memory(requested_addr, bottom_overlap);
never@3156 2583 size[i] = bytes - bottom_overlap;
never@3156 2584 } else {
never@3156 2585 size[i] = bytes;
never@3156 2586 }
never@3156 2587 }
never@3156 2588 }
never@3156 2589 }
never@3156 2590
never@3156 2591 // Give back the unused reserved pieces.
never@3156 2592
never@3156 2593 for (int j = 0; j < i; ++j) {
never@3156 2594 if (base[j] != NULL) {
never@3156 2595 unmap_memory(base[j], size[j]);
never@3156 2596 }
never@3156 2597 }
never@3156 2598
never@3156 2599 if (i < max_tries) {
never@3156 2600 _highest_vm_reserved_address = MAX2(old_highest, (address)requested_addr + bytes);
never@3156 2601 return requested_addr;
never@3156 2602 } else {
never@3156 2603 _highest_vm_reserved_address = old_highest;
never@3156 2604 return NULL;
never@3156 2605 }
never@3156 2606 }
never@3156 2607
never@3156 2608 size_t os::read(int fd, void *buf, unsigned int nBytes) {
never@3156 2609 RESTARTABLE_RETURN_INT(::read(fd, buf, nBytes));
never@3156 2610 }
never@3156 2611
apetushkov@9858 2612 size_t os::read_at(int fd, void *buf, unsigned int nBytes, jlong offset) {
apetushkov@9858 2613 RESTARTABLE_RETURN_INT(::pread(fd, buf, nBytes, offset));
apetushkov@9858 2614 }
apetushkov@9858 2615
never@3156 2616 // TODO-FIXME: reconcile Solaris' os::sleep with the bsd variation.
never@3156 2617 // Solaris uses poll(), bsd uses park().
never@3156 2618 // Poll() is likely a better choice, assuming that Thread.interrupt()
never@3156 2619 // generates a SIGUSRx signal. Note that SIGUSR1 can interfere with
never@3156 2620 // SIGSEGV, see 4355769.
never@3156 2621
never@3156 2622 int os::sleep(Thread* thread, jlong millis, bool interruptible) {
never@3156 2623 assert(thread == Thread::current(), "thread consistency check");
never@3156 2624
never@3156 2625 ParkEvent * const slp = thread->_SleepEvent ;
never@3156 2626 slp->reset() ;
never@3156 2627 OrderAccess::fence() ;
never@3156 2628
never@3156 2629 if (interruptible) {
never@3156 2630 jlong prevtime = javaTimeNanos();
never@3156 2631
never@3156 2632 for (;;) {
never@3156 2633 if (os::is_interrupted(thread, true)) {
never@3156 2634 return OS_INTRPT;
never@3156 2635 }
never@3156 2636
never@3156 2637 jlong newtime = javaTimeNanos();
never@3156 2638
never@3156 2639 if (newtime - prevtime < 0) {
never@3156 2640 // time moving backwards, should only happen if no monotonic clock
never@3156 2641 // not a guarantee() because JVM should not abort on kernel/glibc bugs
never@3156 2642 assert(!Bsd::supports_monotonic_clock(), "time moving backwards");
never@3156 2643 } else {
johnc@3339 2644 millis -= (newtime - prevtime) / NANOSECS_PER_MILLISEC;
never@3156 2645 }
never@3156 2646
never@3156 2647 if(millis <= 0) {
never@3156 2648 return OS_OK;
never@3156 2649 }
never@3156 2650
never@3156 2651 prevtime = newtime;
never@3156 2652
never@3156 2653 {
never@3156 2654 assert(thread->is_Java_thread(), "sanity check");
never@3156 2655 JavaThread *jt = (JavaThread *) thread;
never@3156 2656 ThreadBlockInVM tbivm(jt);
never@3156 2657 OSThreadWaitState osts(jt->osthread(), false /* not Object.wait() */);
never@3156 2658
never@3156 2659 jt->set_suspend_equivalent();
never@3156 2660 // cleared by handle_special_suspend_equivalent_condition() or
never@3156 2661 // java_suspend_self() via check_and_wait_while_suspended()
never@3156 2662
never@3156 2663 slp->park(millis);
never@3156 2664
never@3156 2665 // were we externally suspended while we were waiting?
never@3156 2666 jt->check_and_wait_while_suspended();
never@3156 2667 }
never@3156 2668 }
never@3156 2669 } else {
never@3156 2670 OSThreadWaitState osts(thread->osthread(), false /* not Object.wait() */);
never@3156 2671 jlong prevtime = javaTimeNanos();
never@3156 2672
never@3156 2673 for (;;) {
never@3156 2674 // It'd be nice to avoid the back-to-back javaTimeNanos() calls on
never@3156 2675 // the 1st iteration ...
never@3156 2676 jlong newtime = javaTimeNanos();
never@3156 2677
never@3156 2678 if (newtime - prevtime < 0) {
never@3156 2679 // time moving backwards, should only happen if no monotonic clock
never@3156 2680 // not a guarantee() because JVM should not abort on kernel/glibc bugs
never@3156 2681 assert(!Bsd::supports_monotonic_clock(), "time moving backwards");
never@3156 2682 } else {
johnc@3339 2683 millis -= (newtime - prevtime) / NANOSECS_PER_MILLISEC;
never@3156 2684 }
never@3156 2685
never@3156 2686 if(millis <= 0) break ;
never@3156 2687
never@3156 2688 prevtime = newtime;
never@3156 2689 slp->park(millis);
never@3156 2690 }
never@3156 2691 return OS_OK ;
never@3156 2692 }
never@3156 2693 }
never@3156 2694
dsimms@6348 2695 void os::naked_short_sleep(jlong ms) {
dsimms@6348 2696 struct timespec req;
dsimms@6348 2697
dsimms@6348 2698 assert(ms < 1000, "Un-interruptable sleep, short time use only");
dsimms@6348 2699 req.tv_sec = 0;
dsimms@6348 2700 if (ms > 0) {
dsimms@6348 2701 req.tv_nsec = (ms % 1000) * 1000000;
dsimms@6348 2702 }
dsimms@6348 2703 else {
dsimms@6348 2704 req.tv_nsec = 1;
dsimms@6348 2705 }
dsimms@6348 2706
dsimms@6348 2707 nanosleep(&req, NULL);
dsimms@6348 2708
dsimms@6348 2709 return;
never@3156 2710 }
never@3156 2711
never@3156 2712 // Sleep forever; naked call to OS-specific sleep; use with CAUTION
never@3156 2713 void os::infinite_sleep() {
never@3156 2714 while (true) { // sleep forever ...
never@3156 2715 ::sleep(100); // ... 100 seconds at a time
never@3156 2716 }
never@3156 2717 }
never@3156 2718
never@3156 2719 // Used to convert frequent JVM_Yield() to nops
never@3156 2720 bool os::dont_yield() {
never@3156 2721 return DontYieldALot;
never@3156 2722 }
never@3156 2723
never@3156 2724 void os::yield() {
never@3156 2725 sched_yield();
never@3156 2726 }
never@3156 2727
never@3156 2728 os::YieldResult os::NakedYield() { sched_yield(); return os::YIELD_UNKNOWN ;}
never@3156 2729
never@3156 2730 void os::yield_all(int attempts) {
never@3156 2731 // Yields to all threads, including threads with lower priorities
never@3156 2732 // Threads on Bsd are all with same priority. The Solaris style
never@3156 2733 // os::yield_all() with nanosleep(1ms) is not necessary.
never@3156 2734 sched_yield();
never@3156 2735 }
never@3156 2736
never@3156 2737 // Called from the tight loops to possibly influence time-sharing heuristics
never@3156 2738 void os::loop_breaker(int attempts) {
never@3156 2739 os::yield_all(attempts);
never@3156 2740 }
never@3156 2741
never@3156 2742 ////////////////////////////////////////////////////////////////////////////////
never@3156 2743 // thread priority support
never@3156 2744
never@3156 2745 // Note: Normal Bsd applications are run with SCHED_OTHER policy. SCHED_OTHER
never@3156 2746 // only supports dynamic priority, static priority must be zero. For real-time
never@3156 2747 // applications, Bsd supports SCHED_RR which allows static priority (1-99).
never@3156 2748 // However, for large multi-threaded applications, SCHED_RR is not only slower
never@3156 2749 // than SCHED_OTHER, but also very unstable (my volano tests hang hard 4 out
never@3156 2750 // of 5 runs - Sep 2005).
never@3156 2751 //
never@3156 2752 // The following code actually changes the niceness of kernel-thread/LWP. It
never@3156 2753 // has an assumption that setpriority() only modifies one kernel-thread/LWP,
never@3156 2754 // not the entire user process, and user level threads are 1:1 mapped to kernel
never@3156 2755 // threads. It has always been the case, but could change in the future. For
never@3156 2756 // this reason, the code should not be used as default (ThreadPriorityPolicy=0).
never@3156 2757 // It is only used when ThreadPriorityPolicy=1 and requires root privilege.
never@3156 2758
sla@4229 2759 #if !defined(__APPLE__)
phh@3481 2760 int os::java_to_os_priority[CriticalPriority + 1] = {
never@3156 2761 19, // 0 Entry should never be used
never@3156 2762
never@3156 2763 0, // 1 MinPriority
never@3156 2764 3, // 2
never@3156 2765 6, // 3
never@3156 2766
phh@3481 2767 10, // 4
phh@3481 2768 15, // 5 NormPriority
phh@3481 2769 18, // 6
phh@3481 2770
phh@3481 2771 21, // 7
phh@3481 2772 25, // 8
phh@3481 2773 28, // 9 NearMaxPriority
phh@3481 2774
phh@3481 2775 31, // 10 MaxPriority
phh@3481 2776
phh@3481 2777 31 // 11 CriticalPriority
never@3156 2778 };
sla@4229 2779 #else
never@3156 2780 /* Using Mach high-level priority assignments */
phh@3481 2781 int os::java_to_os_priority[CriticalPriority + 1] = {
never@3156 2782 0, // 0 Entry should never be used (MINPRI_USER)
never@3156 2783
never@3156 2784 27, // 1 MinPriority
never@3156 2785 28, // 2
never@3156 2786 29, // 3
never@3156 2787
never@3156 2788 30, // 4
never@3156 2789 31, // 5 NormPriority (BASEPRI_DEFAULT)
never@3156 2790 32, // 6
never@3156 2791
never@3156 2792 33, // 7
never@3156 2793 34, // 8
never@3156 2794 35, // 9 NearMaxPriority
never@3156 2795
phh@3481 2796 36, // 10 MaxPriority
phh@3481 2797
phh@3481 2798 36 // 11 CriticalPriority
never@3156 2799 };
never@3156 2800 #endif
never@3156 2801
never@3156 2802 static int prio_init() {
never@3156 2803 if (ThreadPriorityPolicy == 1) {
never@3156 2804 // Only root can raise thread priority. Don't allow ThreadPriorityPolicy=1
never@3156 2805 // if effective uid is not root. Perhaps, a more elegant way of doing
never@3156 2806 // this is to test CAP_SYS_NICE capability, but that will require libcap.so
never@3156 2807 if (geteuid() != 0) {
never@3156 2808 if (!FLAG_IS_DEFAULT(ThreadPriorityPolicy)) {
never@3156 2809 warning("-XX:ThreadPriorityPolicy requires root privilege on Bsd");
never@3156 2810 }
never@3156 2811 ThreadPriorityPolicy = 0;
never@3156 2812 }
never@3156 2813 }
phh@3481 2814 if (UseCriticalJavaThreadPriority) {
phh@3481 2815 os::java_to_os_priority[MaxPriority] = os::java_to_os_priority[CriticalPriority];
phh@3481 2816 }
never@3156 2817 return 0;
never@3156 2818 }
never@3156 2819
never@3156 2820 OSReturn os::set_native_priority(Thread* thread, int newpri) {
never@3156 2821 if ( !UseThreadPriorities || ThreadPriorityPolicy == 0 ) return OS_OK;
never@3156 2822
never@3156 2823 #ifdef __OpenBSD__
never@3156 2824 // OpenBSD pthread_setprio starves low priority threads
never@3156 2825 return OS_OK;
never@3156 2826 #elif defined(__FreeBSD__)
never@3156 2827 int ret = pthread_setprio(thread->osthread()->pthread_id(), newpri);
never@3156 2828 #elif defined(__APPLE__) || defined(__NetBSD__)
never@3156 2829 struct sched_param sp;
never@3156 2830 int policy;
never@3156 2831 pthread_t self = pthread_self();
never@3156 2832
never@3156 2833 if (pthread_getschedparam(self, &policy, &sp) != 0)
never@3156 2834 return OS_ERR;
never@3156 2835
never@3156 2836 sp.sched_priority = newpri;
never@3156 2837 if (pthread_setschedparam(self, policy, &sp) != 0)
never@3156 2838 return OS_ERR;
never@3156 2839
never@3156 2840 return OS_OK;
never@3156 2841 #else
never@3156 2842 int ret = setpriority(PRIO_PROCESS, thread->osthread()->thread_id(), newpri);
never@3156 2843 return (ret == 0) ? OS_OK : OS_ERR;
never@3156 2844 #endif
never@3156 2845 }
never@3156 2846
never@3156 2847 OSReturn os::get_native_priority(const Thread* const thread, int *priority_ptr) {
never@3156 2848 if ( !UseThreadPriorities || ThreadPriorityPolicy == 0 ) {
never@3156 2849 *priority_ptr = java_to_os_priority[NormPriority];
never@3156 2850 return OS_OK;
never@3156 2851 }
never@3156 2852
never@3156 2853 errno = 0;
never@3156 2854 #if defined(__OpenBSD__) || defined(__FreeBSD__)
never@3156 2855 *priority_ptr = pthread_getprio(thread->osthread()->pthread_id());
never@3156 2856 #elif defined(__APPLE__) || defined(__NetBSD__)
never@3156 2857 int policy;
never@3156 2858 struct sched_param sp;
never@3156 2859
never@3156 2860 pthread_getschedparam(pthread_self(), &policy, &sp);
never@3156 2861 *priority_ptr = sp.sched_priority;
never@3156 2862 #else
never@3156 2863 *priority_ptr = getpriority(PRIO_PROCESS, thread->osthread()->thread_id());
never@3156 2864 #endif
never@3156 2865 return (*priority_ptr != -1 || errno == 0 ? OS_OK : OS_ERR);
never@3156 2866 }
never@3156 2867
never@3156 2868 // Hint to the underlying OS that a task switch would not be good.
never@3156 2869 // Void return because it's a hint and can fail.
never@3156 2870 void os::hint_no_preempt() {}
never@3156 2871
never@3156 2872 ////////////////////////////////////////////////////////////////////////////////
never@3156 2873 // suspend/resume support
never@3156 2874
never@3156 2875 // the low-level signal-based suspend/resume support is a remnant from the
never@3156 2876 // old VM-suspension that used to be for java-suspension, safepoints etc,
never@3156 2877 // within hotspot. Now there is a single use-case for this:
never@3156 2878 // - calling get_thread_pc() on the VMThread by the flat-profiler task
never@3156 2879 // that runs in the watcher thread.
never@3156 2880 // The remaining code is greatly simplified from the more general suspension
never@3156 2881 // code that used to be used.
never@3156 2882 //
never@3156 2883 // The protocol is quite simple:
never@3156 2884 // - suspend:
never@3156 2885 // - sends a signal to the target thread
never@3156 2886 // - polls the suspend state of the osthread using a yield loop
never@3156 2887 // - target thread signal handler (SR_handler) sets suspend state
never@3156 2888 // and blocks in sigsuspend until continued
never@3156 2889 // - resume:
never@3156 2890 // - sets target osthread state to continue
never@3156 2891 // - sends signal to end the sigsuspend loop in the SR_handler
never@3156 2892 //
never@3156 2893 // Note that the SR_lock plays no role in this suspend/resume protocol.
never@3156 2894 //
never@3156 2895
never@3156 2896 static void resume_clear_context(OSThread *osthread) {
never@3156 2897 osthread->set_ucontext(NULL);
never@3156 2898 osthread->set_siginfo(NULL);
never@3156 2899 }
never@3156 2900
never@3156 2901 static void suspend_save_context(OSThread *osthread, siginfo_t* siginfo, ucontext_t* context) {
never@3156 2902 osthread->set_ucontext(context);
never@3156 2903 osthread->set_siginfo(siginfo);
never@3156 2904 }
never@3156 2905
never@3156 2906 //
never@3156 2907 // Handler function invoked when a thread's execution is suspended or
never@3156 2908 // resumed. We have to be careful that only async-safe functions are
never@3156 2909 // called here (Note: most pthread functions are not async safe and
never@3156 2910 // should be avoided.)
never@3156 2911 //
never@3156 2912 // Note: sigwait() is a more natural fit than sigsuspend() from an
never@3156 2913 // interface point of view, but sigwait() prevents the signal hander
never@3156 2914 // from being run. libpthread would get very confused by not having
never@3156 2915 // its signal handlers run and prevents sigwait()'s use with the
never@3156 2916 // mutex granting granting signal.
never@3156 2917 //
sla@5237 2918 // Currently only ever called on the VMThread or JavaThread
never@3156 2919 //
never@3156 2920 static void SR_handler(int sig, siginfo_t* siginfo, ucontext_t* context) {
never@3156 2921 // Save and restore errno to avoid confusing native code with EINTR
never@3156 2922 // after sigsuspend.
never@3156 2923 int old_errno = errno;
never@3156 2924
never@3156 2925 Thread* thread = Thread::current();
never@3156 2926 OSThread* osthread = thread->osthread();
sla@5237 2927 assert(thread->is_VM_thread() || thread->is_Java_thread(), "Must be VMThread or JavaThread");
sla@5237 2928
sla@5237 2929 os::SuspendResume::State current = osthread->sr.state();
sla@5237 2930 if (current == os::SuspendResume::SR_SUSPEND_REQUEST) {
never@3156 2931 suspend_save_context(osthread, siginfo, context);
never@3156 2932
sla@5237 2933 // attempt to switch the state, we assume we had a SUSPEND_REQUEST
sla@5237 2934 os::SuspendResume::State state = osthread->sr.suspended();
sla@5237 2935 if (state == os::SuspendResume::SR_SUSPENDED) {
sla@5237 2936 sigset_t suspend_set; // signals for sigsuspend()
sla@5237 2937
sla@5237 2938 // get current set of blocked signals and unblock resume signal
sla@5237 2939 pthread_sigmask(SIG_BLOCK, NULL, &suspend_set);
sla@5237 2940 sigdelset(&suspend_set, SR_signum);
sla@5237 2941
sla@5237 2942 sr_semaphore.signal();
sla@5237 2943 // wait here until we are resumed
sla@5237 2944 while (1) {
sla@5237 2945 sigsuspend(&suspend_set);
sla@5237 2946
sla@5237 2947 os::SuspendResume::State result = osthread->sr.running();
sla@5237 2948 if (result == os::SuspendResume::SR_RUNNING) {
sla@5237 2949 sr_semaphore.signal();
sla@5237 2950 break;
sla@5237 2951 } else if (result != os::SuspendResume::SR_SUSPENDED) {
sla@5237 2952 ShouldNotReachHere();
sla@5237 2953 }
sla@5237 2954 }
sla@5237 2955
sla@5237 2956 } else if (state == os::SuspendResume::SR_RUNNING) {
sla@5237 2957 // request was cancelled, continue
sla@5237 2958 } else {
sla@5237 2959 ShouldNotReachHere();
sla@5237 2960 }
never@3156 2961
never@3156 2962 resume_clear_context(osthread);
sla@5237 2963 } else if (current == os::SuspendResume::SR_RUNNING) {
sla@5237 2964 // request was cancelled, continue
sla@5237 2965 } else if (current == os::SuspendResume::SR_WAKEUP_REQUEST) {
sla@5237 2966 // ignore
never@3156 2967 } else {
sla@5237 2968 // ignore
never@3156 2969 }
never@3156 2970
never@3156 2971 errno = old_errno;
never@3156 2972 }
never@3156 2973
never@3156 2974
never@3156 2975 static int SR_initialize() {
never@3156 2976 struct sigaction act;
never@3156 2977 char *s;
never@3156 2978 /* Get signal number to use for suspend/resume */
never@3156 2979 if ((s = ::getenv("_JAVA_SR_SIGNUM")) != 0) {
never@3156 2980 int sig = ::strtol(s, 0, 10);
never@3156 2981 if (sig > 0 || sig < NSIG) {
never@3156 2982 SR_signum = sig;
never@3156 2983 }
never@3156 2984 }
never@3156 2985
never@3156 2986 assert(SR_signum > SIGSEGV && SR_signum > SIGBUS,
never@3156 2987 "SR_signum must be greater than max(SIGSEGV, SIGBUS), see 4355769");
never@3156 2988
never@3156 2989 sigemptyset(&SR_sigset);
never@3156 2990 sigaddset(&SR_sigset, SR_signum);
never@3156 2991
never@3156 2992 /* Set up signal handler for suspend/resume */
never@3156 2993 act.sa_flags = SA_RESTART|SA_SIGINFO;
never@3156 2994 act.sa_handler = (void (*)(int)) SR_handler;
never@3156 2995
never@3156 2996 // SR_signum is blocked by default.
never@3156 2997 // 4528190 - We also need to block pthread restart signal (32 on all
never@3156 2998 // supported Bsd platforms). Note that BsdThreads need to block
never@3156 2999 // this signal for all threads to work properly. So we don't have
never@3156 3000 // to use hard-coded signal number when setting up the mask.
never@3156 3001 pthread_sigmask(SIG_BLOCK, NULL, &act.sa_mask);
never@3156 3002
never@3156 3003 if (sigaction(SR_signum, &act, 0) == -1) {
never@3156 3004 return -1;
never@3156 3005 }
never@3156 3006
never@3156 3007 // Save signal flag
never@3156 3008 os::Bsd::set_our_sigflags(SR_signum, act.sa_flags);
never@3156 3009 return 0;
never@3156 3010 }
never@3156 3011
sla@5237 3012 static int sr_notify(OSThread* osthread) {
sla@5237 3013 int status = pthread_kill(osthread->pthread_id(), SR_signum);
sla@5237 3014 assert_status(status == 0, status, "pthread_kill");
sla@5237 3015 return status;
sla@5237 3016 }
sla@5237 3017
sla@5237 3018 // "Randomly" selected value for how long we want to spin
sla@5237 3019 // before bailing out on suspending a thread, also how often
sla@5237 3020 // we send a signal to a thread we want to resume
sla@5237 3021 static const int RANDOMLY_LARGE_INTEGER = 1000000;
sla@5237 3022 static const int RANDOMLY_LARGE_INTEGER2 = 100;
never@3156 3023
never@3156 3024 // returns true on success and false on error - really an error is fatal
never@3156 3025 // but this seems the normal response to library errors
never@3156 3026 static bool do_suspend(OSThread* osthread) {
sla@5237 3027 assert(osthread->sr.is_running(), "thread should be running");
sla@5237 3028 assert(!sr_semaphore.trywait(), "semaphore has invalid state");
sla@5237 3029
never@3156 3030 // mark as suspended and send signal
sla@5237 3031 if (osthread->sr.request_suspend() != os::SuspendResume::SR_SUSPEND_REQUEST) {
sla@5237 3032 // failed to switch, state wasn't running?
sla@5237 3033 ShouldNotReachHere();
never@3156 3034 return false;
never@3156 3035 }
sla@5237 3036
sla@5237 3037 if (sr_notify(osthread) != 0) {
sla@5237 3038 ShouldNotReachHere();
sla@5237 3039 }
sla@5237 3040
sla@5237 3041 // managed to send the signal and switch to SUSPEND_REQUEST, now wait for SUSPENDED
sla@5237 3042 while (true) {
sla@5237 3043 if (sr_semaphore.timedwait(0, 2 * NANOSECS_PER_MILLISEC)) {
sla@5237 3044 break;
sla@5237 3045 } else {
sla@5237 3046 // timeout
sla@5237 3047 os::SuspendResume::State cancelled = osthread->sr.cancel_suspend();
sla@5237 3048 if (cancelled == os::SuspendResume::SR_RUNNING) {
sla@5237 3049 return false;
sla@5237 3050 } else if (cancelled == os::SuspendResume::SR_SUSPENDED) {
sla@5237 3051 // make sure that we consume the signal on the semaphore as well
sla@5237 3052 sr_semaphore.wait();
sla@5237 3053 break;
sla@5237 3054 } else {
sla@5237 3055 ShouldNotReachHere();
sla@5237 3056 return false;
sla@5237 3057 }
sla@5237 3058 }
sla@5237 3059 }
sla@5237 3060
sla@5237 3061 guarantee(osthread->sr.is_suspended(), "Must be suspended");
sla@5237 3062 return true;
never@3156 3063 }
never@3156 3064
never@3156 3065 static void do_resume(OSThread* osthread) {
never@3156 3066 assert(osthread->sr.is_suspended(), "thread should be suspended");
sla@5237 3067 assert(!sr_semaphore.trywait(), "invalid semaphore state");
sla@5237 3068
sla@5237 3069 if (osthread->sr.request_wakeup() != os::SuspendResume::SR_WAKEUP_REQUEST) {
sla@5237 3070 // failed to switch to WAKEUP_REQUEST
sla@5237 3071 ShouldNotReachHere();
sla@5237 3072 return;
sla@5237 3073 }
sla@5237 3074
sla@5237 3075 while (true) {
sla@5237 3076 if (sr_notify(osthread) == 0) {
sla@5237 3077 if (sr_semaphore.timedwait(0, 2 * NANOSECS_PER_MILLISEC)) {
sla@5237 3078 if (osthread->sr.is_running()) {
sla@5237 3079 return;
sla@5237 3080 }
sla@5237 3081 }
sla@5237 3082 } else {
sla@5237 3083 ShouldNotReachHere();
never@3156 3084 }
never@3156 3085 }
sla@5237 3086
sla@5237 3087 guarantee(osthread->sr.is_running(), "Must be running!");
never@3156 3088 }
never@3156 3089
never@3156 3090 ////////////////////////////////////////////////////////////////////////////////
never@3156 3091 // interrupt support
never@3156 3092
never@3156 3093 void os::interrupt(Thread* thread) {
never@3156 3094 assert(Thread::current() == thread || Threads_lock->owned_by_self(),
never@3156 3095 "possibility of dangling Thread pointer");
never@3156 3096
never@3156 3097 OSThread* osthread = thread->osthread();
never@3156 3098
never@3156 3099 if (!osthread->interrupted()) {
never@3156 3100 osthread->set_interrupted(true);
never@3156 3101 // More than one thread can get here with the same value of osthread,
never@3156 3102 // resulting in multiple notifications. We do, however, want the store
never@3156 3103 // to interrupted() to be visible to other threads before we execute unpark().
never@3156 3104 OrderAccess::fence();
never@3156 3105 ParkEvent * const slp = thread->_SleepEvent ;
never@3156 3106 if (slp != NULL) slp->unpark() ;
never@3156 3107 }
never@3156 3108
never@3156 3109 // For JSR166. Unpark even if interrupt status already was set
never@3156 3110 if (thread->is_Java_thread())
never@3156 3111 ((JavaThread*)thread)->parker()->unpark();
never@3156 3112
never@3156 3113 ParkEvent * ev = thread->_ParkEvent ;
never@3156 3114 if (ev != NULL) ev->unpark() ;
never@3156 3115
never@3156 3116 }
never@3156 3117
never@3156 3118 bool os::is_interrupted(Thread* thread, bool clear_interrupted) {
never@3156 3119 assert(Thread::current() == thread || Threads_lock->owned_by_self(),
never@3156 3120 "possibility of dangling Thread pointer");
never@3156 3121
never@3156 3122 OSThread* osthread = thread->osthread();
never@3156 3123
never@3156 3124 bool interrupted = osthread->interrupted();
never@3156 3125
never@3156 3126 if (interrupted && clear_interrupted) {
never@3156 3127 osthread->set_interrupted(false);
never@3156 3128 // consider thread->_SleepEvent->reset() ... optional optimization
never@3156 3129 }
never@3156 3130
never@3156 3131 return interrupted;
never@3156 3132 }
never@3156 3133
never@3156 3134 ///////////////////////////////////////////////////////////////////////////////////
never@3156 3135 // signal handling (except suspend/resume)
never@3156 3136
never@3156 3137 // This routine may be used by user applications as a "hook" to catch signals.
never@3156 3138 // The user-defined signal handler must pass unrecognized signals to this
never@3156 3139 // routine, and if it returns true (non-zero), then the signal handler must
never@3156 3140 // return immediately. If the flag "abort_if_unrecognized" is true, then this
never@3156 3141 // routine will never retun false (zero), but instead will execute a VM panic
never@3156 3142 // routine kill the process.
never@3156 3143 //
never@3156 3144 // If this routine returns false, it is OK to call it again. This allows
never@3156 3145 // the user-defined signal handler to perform checks either before or after
never@3156 3146 // the VM performs its own checks. Naturally, the user code would be making
never@3156 3147 // a serious error if it tried to handle an exception (such as a null check
never@3156 3148 // or breakpoint) that the VM was generating for its own correct operation.
never@3156 3149 //
never@3156 3150 // This routine may recognize any of the following kinds of signals:
never@3156 3151 // SIGBUS, SIGSEGV, SIGILL, SIGFPE, SIGQUIT, SIGPIPE, SIGXFSZ, SIGUSR1.
never@3156 3152 // It should be consulted by handlers for any of those signals.
never@3156 3153 //
never@3156 3154 // The caller of this routine must pass in the three arguments supplied
never@3156 3155 // to the function referred to in the "sa_sigaction" (not the "sa_handler")
never@3156 3156 // field of the structure passed to sigaction(). This routine assumes that
never@3156 3157 // the sa_flags field passed to sigaction() includes SA_SIGINFO and SA_RESTART.
never@3156 3158 //
never@3156 3159 // Note that the VM will print warnings if it detects conflicting signal
never@3156 3160 // handlers, unless invoked with the option "-XX:+AllowUserSignalHandlers".
never@3156 3161 //
never@3156 3162 extern "C" JNIEXPORT int
never@3156 3163 JVM_handle_bsd_signal(int signo, siginfo_t* siginfo,
never@3156 3164 void* ucontext, int abort_if_unrecognized);
never@3156 3165
never@3156 3166 void signalHandler(int sig, siginfo_t* info, void* uc) {
never@3156 3167 assert(info != NULL && uc != NULL, "it must be old kernel");
hseigel@4608 3168 int orig_errno = errno; // Preserve errno value over signal handler.
never@3156 3169 JVM_handle_bsd_signal(sig, info, uc, true);
hseigel@4608 3170 errno = orig_errno;
never@3156 3171 }
never@3156 3172
never@3156 3173
never@3156 3174 // This boolean allows users to forward their own non-matching signals
never@3156 3175 // to JVM_handle_bsd_signal, harmlessly.
never@3156 3176 bool os::Bsd::signal_handlers_are_installed = false;
never@3156 3177
never@3156 3178 // For signal-chaining
never@3156 3179 struct sigaction os::Bsd::sigact[MAXSIGNUM];
never@3156 3180 unsigned int os::Bsd::sigs = 0;
never@3156 3181 bool os::Bsd::libjsig_is_loaded = false;
never@3156 3182 typedef struct sigaction *(*get_signal_t)(int);
never@3156 3183 get_signal_t os::Bsd::get_signal_action = NULL;
never@3156 3184
never@3156 3185 struct sigaction* os::Bsd::get_chained_signal_action(int sig) {
never@3156 3186 struct sigaction *actp = NULL;
never@3156 3187
never@3156 3188 if (libjsig_is_loaded) {
never@3156 3189 // Retrieve the old signal handler from libjsig
never@3156 3190 actp = (*get_signal_action)(sig);
never@3156 3191 }
never@3156 3192 if (actp == NULL) {
never@3156 3193 // Retrieve the preinstalled signal handler from jvm
never@3156 3194 actp = get_preinstalled_handler(sig);
never@3156 3195 }
never@3156 3196
never@3156 3197 return actp;
never@3156 3198 }
never@3156 3199
never@3156 3200 static bool call_chained_handler(struct sigaction *actp, int sig,
never@3156 3201 siginfo_t *siginfo, void *context) {
never@3156 3202 // Call the old signal handler
never@3156 3203 if (actp->sa_handler == SIG_DFL) {
never@3156 3204 // It's more reasonable to let jvm treat it as an unexpected exception
never@3156 3205 // instead of taking the default action.
never@3156 3206 return false;
never@3156 3207 } else if (actp->sa_handler != SIG_IGN) {
never@3156 3208 if ((actp->sa_flags & SA_NODEFER) == 0) {
never@3156 3209 // automaticlly block the signal
never@3156 3210 sigaddset(&(actp->sa_mask), sig);
never@3156 3211 }
never@3156 3212
never@3156 3213 sa_handler_t hand;
never@3156 3214 sa_sigaction_t sa;
never@3156 3215 bool siginfo_flag_set = (actp->sa_flags & SA_SIGINFO) != 0;
never@3156 3216 // retrieve the chained handler
never@3156 3217 if (siginfo_flag_set) {
never@3156 3218 sa = actp->sa_sigaction;
never@3156 3219 } else {
never@3156 3220 hand = actp->sa_handler;
never@3156 3221 }
never@3156 3222
never@3156 3223 if ((actp->sa_flags & SA_RESETHAND) != 0) {
never@3156 3224 actp->sa_handler = SIG_DFL;
never@3156 3225 }
never@3156 3226
never@3156 3227 // try to honor the signal mask
never@3156 3228 sigset_t oset;
never@3156 3229 pthread_sigmask(SIG_SETMASK, &(actp->sa_mask), &oset);
never@3156 3230
never@3156 3231 // call into the chained handler
never@3156 3232 if (siginfo_flag_set) {
never@3156 3233 (*sa)(sig, siginfo, context);
never@3156 3234 } else {
never@3156 3235 (*hand)(sig);
never@3156 3236 }
never@3156 3237
never@3156 3238 // restore the signal mask
never@3156 3239 pthread_sigmask(SIG_SETMASK, &oset, 0);
never@3156 3240 }
never@3156 3241 // Tell jvm's signal handler the signal is taken care of.
never@3156 3242 return true;
never@3156 3243 }
never@3156 3244
never@3156 3245 bool os::Bsd::chained_handler(int sig, siginfo_t* siginfo, void* context) {
never@3156 3246 bool chained = false;
never@3156 3247 // signal-chaining
never@3156 3248 if (UseSignalChaining) {
never@3156 3249 struct sigaction *actp = get_chained_signal_action(sig);
never@3156 3250 if (actp != NULL) {
never@3156 3251 chained = call_chained_handler(actp, sig, siginfo, context);
never@3156 3252 }
never@3156 3253 }
never@3156 3254 return chained;
never@3156 3255 }
never@3156 3256
never@3156 3257 struct sigaction* os::Bsd::get_preinstalled_handler(int sig) {
never@3156 3258 if ((( (unsigned int)1 << sig ) & sigs) != 0) {
never@3156 3259 return &sigact[sig];
never@3156 3260 }
never@3156 3261 return NULL;
never@3156 3262 }
never@3156 3263
never@3156 3264 void os::Bsd::save_preinstalled_handler(int sig, struct sigaction& oldAct) {
never@3156 3265 assert(sig > 0 && sig < MAXSIGNUM, "vm signal out of expected range");
never@3156 3266 sigact[sig] = oldAct;
never@3156 3267 sigs |= (unsigned int)1 << sig;
never@3156 3268 }
never@3156 3269
never@3156 3270 // for diagnostic
never@3156 3271 int os::Bsd::sigflags[MAXSIGNUM];
never@3156 3272
never@3156 3273 int os::Bsd::get_our_sigflags(int sig) {
never@3156 3274 assert(sig > 0 && sig < MAXSIGNUM, "vm signal out of expected range");
never@3156 3275 return sigflags[sig];
never@3156 3276 }
never@3156 3277
never@3156 3278 void os::Bsd::set_our_sigflags(int sig, int flags) {
never@3156 3279 assert(sig > 0 && sig < MAXSIGNUM, "vm signal out of expected range");
never@3156 3280 sigflags[sig] = flags;
never@3156 3281 }
never@3156 3282
never@3156 3283 void os::Bsd::set_signal_handler(int sig, bool set_installed) {
never@3156 3284 // Check for overwrite.
never@3156 3285 struct sigaction oldAct;
never@3156 3286 sigaction(sig, (struct sigaction*)NULL, &oldAct);
never@3156 3287
never@3156 3288 void* oldhand = oldAct.sa_sigaction
never@3156 3289 ? CAST_FROM_FN_PTR(void*, oldAct.sa_sigaction)
never@3156 3290 : CAST_FROM_FN_PTR(void*, oldAct.sa_handler);
never@3156 3291 if (oldhand != CAST_FROM_FN_PTR(void*, SIG_DFL) &&
never@3156 3292 oldhand != CAST_FROM_FN_PTR(void*, SIG_IGN) &&
never@3156 3293 oldhand != CAST_FROM_FN_PTR(void*, (sa_sigaction_t)signalHandler)) {
never@3156 3294 if (AllowUserSignalHandlers || !set_installed) {
never@3156 3295 // Do not overwrite; user takes responsibility to forward to us.
never@3156 3296 return;
never@3156 3297 } else if (UseSignalChaining) {
never@3156 3298 // save the old handler in jvm
never@3156 3299 save_preinstalled_handler(sig, oldAct);
never@3156 3300 // libjsig also interposes the sigaction() call below and saves the
never@3156 3301 // old sigaction on it own.
never@3156 3302 } else {
never@3156 3303 fatal(err_msg("Encountered unexpected pre-existing sigaction handler "
never@3156 3304 "%#lx for signal %d.", (long)oldhand, sig));
never@3156 3305 }
never@3156 3306 }
never@3156 3307
never@3156 3308 struct sigaction sigAct;
never@3156 3309 sigfillset(&(sigAct.sa_mask));
never@3156 3310 sigAct.sa_handler = SIG_DFL;
never@3156 3311 if (!set_installed) {
never@3156 3312 sigAct.sa_flags = SA_SIGINFO|SA_RESTART;
never@3156 3313 } else {
never@3156 3314 sigAct.sa_sigaction = signalHandler;
never@3156 3315 sigAct.sa_flags = SA_SIGINFO|SA_RESTART;
never@3156 3316 }
goetz@6556 3317 #ifdef __APPLE__
hseigel@5218 3318 // Needed for main thread as XNU (Mac OS X kernel) will only deliver SIGSEGV
hseigel@5218 3319 // (which starts as SIGBUS) on main thread with faulting address inside "stack+guard pages"
hseigel@5218 3320 // if the signal handler declares it will handle it on alternate stack.
hseigel@5218 3321 // Notice we only declare we will handle it on alt stack, but we are not
hseigel@5218 3322 // actually going to use real alt stack - this is just a workaround.
hseigel@5218 3323 // Please see ux_exception.c, method catch_mach_exception_raise for details
hseigel@5218 3324 // link http://www.opensource.apple.com/source/xnu/xnu-2050.18.24/bsd/uxkern/ux_exception.c
hseigel@5218 3325 if (sig == SIGSEGV) {
hseigel@5218 3326 sigAct.sa_flags |= SA_ONSTACK;
hseigel@5218 3327 }
hseigel@5218 3328 #endif
hseigel@5218 3329
never@3156 3330 // Save flags, which are set by ours
never@3156 3331 assert(sig > 0 && sig < MAXSIGNUM, "vm signal out of expected range");
never@3156 3332 sigflags[sig] = sigAct.sa_flags;
never@3156 3333
never@3156 3334 int ret = sigaction(sig, &sigAct, &oldAct);
never@3156 3335 assert(ret == 0, "check");
never@3156 3336
never@3156 3337 void* oldhand2 = oldAct.sa_sigaction
never@3156 3338 ? CAST_FROM_FN_PTR(void*, oldAct.sa_sigaction)
never@3156 3339 : CAST_FROM_FN_PTR(void*, oldAct.sa_handler);
never@3156 3340 assert(oldhand2 == oldhand, "no concurrent signal handler installation");
never@3156 3341 }
never@3156 3342
never@3156 3343 // install signal handlers for signals that HotSpot needs to
never@3156 3344 // handle in order to support Java-level exception handling.
never@3156 3345
never@3156 3346 void os::Bsd::install_signal_handlers() {
never@3156 3347 if (!signal_handlers_are_installed) {
never@3156 3348 signal_handlers_are_installed = true;
never@3156 3349
never@3156 3350 // signal-chaining
never@3156 3351 typedef void (*signal_setting_t)();
never@3156 3352 signal_setting_t begin_signal_setting = NULL;
never@3156 3353 signal_setting_t end_signal_setting = NULL;
never@3156 3354 begin_signal_setting = CAST_TO_FN_PTR(signal_setting_t,
never@3156 3355 dlsym(RTLD_DEFAULT, "JVM_begin_signal_setting"));
never@3156 3356 if (begin_signal_setting != NULL) {
never@3156 3357 end_signal_setting = CAST_TO_FN_PTR(signal_setting_t,
never@3156 3358 dlsym(RTLD_DEFAULT, "JVM_end_signal_setting"));
never@3156 3359 get_signal_action = CAST_TO_FN_PTR(get_signal_t,
never@3156 3360 dlsym(RTLD_DEFAULT, "JVM_get_signal_action"));
never@3156 3361 libjsig_is_loaded = true;
never@3156 3362 assert(UseSignalChaining, "should enable signal-chaining");
never@3156 3363 }
never@3156 3364 if (libjsig_is_loaded) {
never@3156 3365 // Tell libjsig jvm is setting signal handlers
never@3156 3366 (*begin_signal_setting)();
never@3156 3367 }
never@3156 3368
never@3156 3369 set_signal_handler(SIGSEGV, true);
never@3156 3370 set_signal_handler(SIGPIPE, true);
never@3156 3371 set_signal_handler(SIGBUS, true);
never@3156 3372 set_signal_handler(SIGILL, true);
never@3156 3373 set_signal_handler(SIGFPE, true);
never@3156 3374 set_signal_handler(SIGXFSZ, true);
never@3156 3375
never@3156 3376 #if defined(__APPLE__)
never@3156 3377 // In Mac OS X 10.4, CrashReporter will write a crash log for all 'fatal' signals, including
never@3156 3378 // signals caught and handled by the JVM. To work around this, we reset the mach task
never@3156 3379 // signal handler that's placed on our process by CrashReporter. This disables
never@3156 3380 // CrashReporter-based reporting.
never@3156 3381 //
never@3156 3382 // This work-around is not necessary for 10.5+, as CrashReporter no longer intercedes
never@3156 3383 // on caught fatal signals.
never@3156 3384 //
never@3156 3385 // Additionally, gdb installs both standard BSD signal handlers, and mach exception
never@3156 3386 // handlers. By replacing the existing task exception handler, we disable gdb's mach
never@3156 3387 // exception handling, while leaving the standard BSD signal handlers functional.
never@3156 3388 kern_return_t kr;
never@3156 3389 kr = task_set_exception_ports(mach_task_self(),
never@3156 3390 EXC_MASK_BAD_ACCESS | EXC_MASK_ARITHMETIC,
never@3156 3391 MACH_PORT_NULL,
never@3156 3392 EXCEPTION_STATE_IDENTITY,
never@3156 3393 MACHINE_THREAD_STATE);
never@3156 3394
never@3156 3395 assert(kr == KERN_SUCCESS, "could not set mach task signal handler");
never@3156 3396 #endif
never@3156 3397
never@3156 3398 if (libjsig_is_loaded) {
never@3156 3399 // Tell libjsig jvm finishes setting signal handlers
never@3156 3400 (*end_signal_setting)();
never@3156 3401 }
never@3156 3402
never@3156 3403 // We don't activate signal checker if libjsig is in place, we trust ourselves
never@3156 3404 // and if UserSignalHandler is installed all bets are off
never@3156 3405 if (CheckJNICalls) {
never@3156 3406 if (libjsig_is_loaded) {
hseigel@5564 3407 if (PrintJNIResolving) {
hseigel@5564 3408 tty->print_cr("Info: libjsig is activated, all active signal checking is disabled");
hseigel@5564 3409 }
never@3156 3410 check_signals = false;
never@3156 3411 }
never@3156 3412 if (AllowUserSignalHandlers) {
hseigel@5564 3413 if (PrintJNIResolving) {
hseigel@5564 3414 tty->print_cr("Info: AllowUserSignalHandlers is activated, all active signal checking is disabled");
hseigel@5564 3415 }
never@3156 3416 check_signals = false;
never@3156 3417 }
never@3156 3418 }
never@3156 3419 }
never@3156 3420 }
never@3156 3421
never@3156 3422
never@3156 3423 /////
never@3156 3424 // glibc on Bsd platform uses non-documented flag
never@3156 3425 // to indicate, that some special sort of signal
never@3156 3426 // trampoline is used.
never@3156 3427 // We will never set this flag, and we should
never@3156 3428 // ignore this flag in our diagnostic
never@3156 3429 #ifdef SIGNIFICANT_SIGNAL_MASK
never@3156 3430 #undef SIGNIFICANT_SIGNAL_MASK
never@3156 3431 #endif
never@3156 3432 #define SIGNIFICANT_SIGNAL_MASK (~0x04000000)
never@3156 3433
never@3156 3434 static const char* get_signal_handler_name(address handler,
never@3156 3435 char* buf, int buflen) {
never@3156 3436 int offset;
never@3156 3437 bool found = os::dll_address_to_library_name(handler, buf, buflen, &offset);
never@3156 3438 if (found) {
never@3156 3439 // skip directory names
never@3156 3440 const char *p1, *p2;
never@3156 3441 p1 = buf;
never@3156 3442 size_t len = strlen(os::file_separator());
never@3156 3443 while ((p2 = strstr(p1, os::file_separator())) != NULL) p1 = p2 + len;
never@3156 3444 jio_snprintf(buf, buflen, "%s+0x%x", p1, offset);
never@3156 3445 } else {
never@3156 3446 jio_snprintf(buf, buflen, PTR_FORMAT, handler);
never@3156 3447 }
never@3156 3448 return buf;
never@3156 3449 }
never@3156 3450
never@3156 3451 static void print_signal_handler(outputStream* st, int sig,
never@3156 3452 char* buf, size_t buflen) {
never@3156 3453 struct sigaction sa;
never@3156 3454
never@3156 3455 sigaction(sig, NULL, &sa);
never@3156 3456
never@3156 3457 // See comment for SIGNIFICANT_SIGNAL_MASK define
never@3156 3458 sa.sa_flags &= SIGNIFICANT_SIGNAL_MASK;
never@3156 3459
never@3156 3460 st->print("%s: ", os::exception_name(sig, buf, buflen));
never@3156 3461
never@3156 3462 address handler = (sa.sa_flags & SA_SIGINFO)
never@3156 3463 ? CAST_FROM_FN_PTR(address, sa.sa_sigaction)
never@3156 3464 : CAST_FROM_FN_PTR(address, sa.sa_handler);
never@3156 3465
never@3156 3466 if (handler == CAST_FROM_FN_PTR(address, SIG_DFL)) {
never@3156 3467 st->print("SIG_DFL");
never@3156 3468 } else if (handler == CAST_FROM_FN_PTR(address, SIG_IGN)) {
never@3156 3469 st->print("SIG_IGN");
never@3156 3470 } else {
never@3156 3471 st->print("[%s]", get_signal_handler_name(handler, buf, buflen));
never@3156 3472 }
never@3156 3473
goetz@6460 3474 st->print(", sa_mask[0]=");
goetz@6460 3475 os::Posix::print_signal_set_short(st, &sa.sa_mask);
never@3156 3476
never@3156 3477 address rh = VMError::get_resetted_sighandler(sig);
never@3156 3478 // May be, handler was resetted by VMError?
never@3156 3479 if(rh != NULL) {
never@3156 3480 handler = rh;
never@3156 3481 sa.sa_flags = VMError::get_resetted_sigflags(sig) & SIGNIFICANT_SIGNAL_MASK;
never@3156 3482 }
never@3156 3483
goetz@6460 3484 st->print(", sa_flags=");
goetz@6460 3485 os::Posix::print_sa_flags(st, sa.sa_flags);
never@3156 3486
never@3156 3487 // Check: is it our handler?
never@3156 3488 if(handler == CAST_FROM_FN_PTR(address, (sa_sigaction_t)signalHandler) ||
never@3156 3489 handler == CAST_FROM_FN_PTR(address, (sa_sigaction_t)SR_handler)) {
never@3156 3490 // It is our signal handler
never@3156 3491 // check for flags, reset system-used one!
never@3156 3492 if((int)sa.sa_flags != os::Bsd::get_our_sigflags(sig)) {
never@3156 3493 st->print(
never@3156 3494 ", flags was changed from " PTR32_FORMAT ", consider using jsig library",
never@3156 3495 os::Bsd::get_our_sigflags(sig));
never@3156 3496 }
never@3156 3497 }
never@3156 3498 st->cr();
never@3156 3499 }
never@3156 3500
never@3156 3501
never@3156 3502 #define DO_SIGNAL_CHECK(sig) \
never@3156 3503 if (!sigismember(&check_signal_done, sig)) \
never@3156 3504 os::Bsd::check_signal_handler(sig)
never@3156 3505
never@3156 3506 // This method is a periodic task to check for misbehaving JNI applications
never@3156 3507 // under CheckJNI, we can add any periodic checks here
never@3156 3508
never@3156 3509 void os::run_periodic_checks() {
never@3156 3510
never@3156 3511 if (check_signals == false) return;
never@3156 3512
never@3156 3513 // SEGV and BUS if overridden could potentially prevent
never@3156 3514 // generation of hs*.log in the event of a crash, debugging
never@3156 3515 // such a case can be very challenging, so we absolutely
never@3156 3516 // check the following for a good measure:
never@3156 3517 DO_SIGNAL_CHECK(SIGSEGV);
never@3156 3518 DO_SIGNAL_CHECK(SIGILL);
never@3156 3519 DO_SIGNAL_CHECK(SIGFPE);
never@3156 3520 DO_SIGNAL_CHECK(SIGBUS);
never@3156 3521 DO_SIGNAL_CHECK(SIGPIPE);
never@3156 3522 DO_SIGNAL_CHECK(SIGXFSZ);
never@3156 3523
never@3156 3524
never@3156 3525 // ReduceSignalUsage allows the user to override these handlers
never@3156 3526 // see comments at the very top and jvm_solaris.h
never@3156 3527 if (!ReduceSignalUsage) {
never@3156 3528 DO_SIGNAL_CHECK(SHUTDOWN1_SIGNAL);
never@3156 3529 DO_SIGNAL_CHECK(SHUTDOWN2_SIGNAL);
never@3156 3530 DO_SIGNAL_CHECK(SHUTDOWN3_SIGNAL);
never@3156 3531 DO_SIGNAL_CHECK(BREAK_SIGNAL);
never@3156 3532 }
never@3156 3533
never@3156 3534 DO_SIGNAL_CHECK(SR_signum);
never@3156 3535 DO_SIGNAL_CHECK(INTERRUPT_SIGNAL);
never@3156 3536 }
never@3156 3537
never@3156 3538 typedef int (*os_sigaction_t)(int, const struct sigaction *, struct sigaction *);
never@3156 3539
never@3156 3540 static os_sigaction_t os_sigaction = NULL;
never@3156 3541
never@3156 3542 void os::Bsd::check_signal_handler(int sig) {
never@3156 3543 char buf[O_BUFLEN];
never@3156 3544 address jvmHandler = NULL;
never@3156 3545
never@3156 3546
never@3156 3547 struct sigaction act;
never@3156 3548 if (os_sigaction == NULL) {
never@3156 3549 // only trust the default sigaction, in case it has been interposed
never@3156 3550 os_sigaction = (os_sigaction_t)dlsym(RTLD_DEFAULT, "sigaction");
never@3156 3551 if (os_sigaction == NULL) return;
never@3156 3552 }
never@3156 3553
never@3156 3554 os_sigaction(sig, (struct sigaction*)NULL, &act);
never@3156 3555
never@3156 3556
never@3156 3557 act.sa_flags &= SIGNIFICANT_SIGNAL_MASK;
never@3156 3558
never@3156 3559 address thisHandler = (act.sa_flags & SA_SIGINFO)
never@3156 3560 ? CAST_FROM_FN_PTR(address, act.sa_sigaction)
never@3156 3561 : CAST_FROM_FN_PTR(address, act.sa_handler) ;
never@3156 3562
never@3156 3563
never@3156 3564 switch(sig) {
never@3156 3565 case SIGSEGV:
never@3156 3566 case SIGBUS:
never@3156 3567 case SIGFPE:
never@3156 3568 case SIGPIPE:
never@3156 3569 case SIGILL:
never@3156 3570 case SIGXFSZ:
never@3156 3571 jvmHandler = CAST_FROM_FN_PTR(address, (sa_sigaction_t)signalHandler);
never@3156 3572 break;
never@3156 3573
never@3156 3574 case SHUTDOWN1_SIGNAL:
never@3156 3575 case SHUTDOWN2_SIGNAL:
never@3156 3576 case SHUTDOWN3_SIGNAL:
never@3156 3577 case BREAK_SIGNAL:
never@3156 3578 jvmHandler = (address)user_handler();
never@3156 3579 break;
never@3156 3580
never@3156 3581 case INTERRUPT_SIGNAL:
never@3156 3582 jvmHandler = CAST_FROM_FN_PTR(address, SIG_DFL);
never@3156 3583 break;
never@3156 3584
never@3156 3585 default:
never@3156 3586 if (sig == SR_signum) {
never@3156 3587 jvmHandler = CAST_FROM_FN_PTR(address, (sa_sigaction_t)SR_handler);
never@3156 3588 } else {
never@3156 3589 return;
never@3156 3590 }
never@3156 3591 break;
never@3156 3592 }
never@3156 3593
never@3156 3594 if (thisHandler != jvmHandler) {
never@3156 3595 tty->print("Warning: %s handler ", exception_name(sig, buf, O_BUFLEN));
never@3156 3596 tty->print("expected:%s", get_signal_handler_name(jvmHandler, buf, O_BUFLEN));
never@3156 3597 tty->print_cr(" found:%s", get_signal_handler_name(thisHandler, buf, O_BUFLEN));
never@3156 3598 // No need to check this sig any longer
never@3156 3599 sigaddset(&check_signal_done, sig);
minqi@7824 3600 // Running under non-interactive shell, SHUTDOWN2_SIGNAL will be reassigned SIG_IGN
minqi@7824 3601 if (sig == SHUTDOWN2_SIGNAL && !isatty(fileno(stdin))) {
minqi@7824 3602 tty->print_cr("Running in non-interactive shell, %s handler is replaced by shell",
minqi@7824 3603 exception_name(sig, buf, O_BUFLEN));
minqi@7824 3604 }
never@3156 3605 } else if(os::Bsd::get_our_sigflags(sig) != 0 && (int)act.sa_flags != os::Bsd::get_our_sigflags(sig)) {
never@3156 3606 tty->print("Warning: %s handler flags ", exception_name(sig, buf, O_BUFLEN));
never@3156 3607 tty->print("expected:" PTR32_FORMAT, os::Bsd::get_our_sigflags(sig));
never@3156 3608 tty->print_cr(" found:" PTR32_FORMAT, act.sa_flags);
never@3156 3609 // No need to check this sig any longer
never@3156 3610 sigaddset(&check_signal_done, sig);
never@3156 3611 }
never@3156 3612
never@3156 3613 // Dump all the signal
never@3156 3614 if (sigismember(&check_signal_done, sig)) {
never@3156 3615 print_signal_handlers(tty, buf, O_BUFLEN);
never@3156 3616 }
never@3156 3617 }
never@3156 3618
never@3156 3619 extern void report_error(char* file_name, int line_no, char* title, char* format, ...);
never@3156 3620
never@3156 3621 extern bool signal_name(int signo, char* buf, size_t len);
never@3156 3622
never@3156 3623 const char* os::exception_name(int exception_code, char* buf, size_t size) {
never@3156 3624 if (0 < exception_code && exception_code <= SIGRTMAX) {
never@3156 3625 // signal
never@3156 3626 if (!signal_name(exception_code, buf, size)) {
never@3156 3627 jio_snprintf(buf, size, "SIG%d", exception_code);
never@3156 3628 }
never@3156 3629 return buf;
never@3156 3630 } else {
never@3156 3631 return NULL;
never@3156 3632 }
never@3156 3633 }
never@3156 3634
never@3156 3635 // this is called _before_ the most of global arguments have been parsed
never@3156 3636 void os::init(void) {
never@3156 3637 char dummy; /* used to get a guess on initial stack address */
never@3156 3638 // first_hrtime = gethrtime();
never@3156 3639
never@3156 3640 // With BsdThreads the JavaMain thread pid (primordial thread)
never@3156 3641 // is different than the pid of the java launcher thread.
never@3156 3642 // So, on Bsd, the launcher thread pid is passed to the VM
never@3156 3643 // via the sun.java.launcher.pid property.
never@3156 3644 // Use this property instead of getpid() if it was correctly passed.
never@3156 3645 // See bug 6351349.
never@3156 3646 pid_t java_launcher_pid = (pid_t) Arguments::sun_java_launcher_pid();
never@3156 3647
never@3156 3648 _initial_pid = (java_launcher_pid > 0) ? java_launcher_pid : getpid();
never@3156 3649
never@3156 3650 clock_tics_per_sec = CLK_TCK;
never@3156 3651
never@3156 3652 init_random(1234567);
never@3156 3653
never@3156 3654 ThreadCritical::initialize();
never@3156 3655
never@3156 3656 Bsd::set_page_size(getpagesize());
never@3156 3657 if (Bsd::page_size() == -1) {
never@3156 3658 fatal(err_msg("os_bsd.cpp: os::init: sysconf failed (%s)",
never@3156 3659 strerror(errno)));
never@3156 3660 }
never@3156 3661 init_page_sizes((size_t) Bsd::page_size());
never@3156 3662
never@3156 3663 Bsd::initialize_system_info();
never@3156 3664
dbuck@9289 3665 // _main_thread points to the thread that created/loaded the JVM.
never@3156 3666 Bsd::_main_thread = pthread_self();
never@3156 3667
never@3156 3668 Bsd::clock_init();
jbachorik@6026 3669 initial_time_count = javaTimeNanos();
never@3156 3670
never@3156 3671 #ifdef __APPLE__
never@3156 3672 // XXXDARWIN
never@3156 3673 // Work around the unaligned VM callbacks in hotspot's
never@3156 3674 // sharedRuntime. The callbacks don't use SSE2 instructions, and work on
never@3156 3675 // Linux, Solaris, and FreeBSD. On Mac OS X, dyld (rightly so) enforces
never@3156 3676 // alignment when doing symbol lookup. To work around this, we force early
never@3156 3677 // binding of all symbols now, thus binding when alignment is known-good.
never@3156 3678 _dyld_bind_fully_image_containing_address((const void *) &os::init);
never@3156 3679 #endif
never@3156 3680 }
never@3156 3681
never@3156 3682 // To install functions for atexit system call
never@3156 3683 extern "C" {
never@3156 3684 static void perfMemory_exit_helper() {
never@3156 3685 perfMemory_exit();
never@3156 3686 }
never@3156 3687 }
never@3156 3688
never@3156 3689 // this is called _after_ the global arguments have been parsed
never@3156 3690 jint os::init_2(void)
never@3156 3691 {
never@3156 3692 // Allocate a single page and mark it as readable for safepoint polling
never@3156 3693 address polling_page = (address) ::mmap(NULL, Bsd::page_size(), PROT_READ, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0);
never@3156 3694 guarantee( polling_page != MAP_FAILED, "os::init_2: failed to allocate polling page" );
never@3156 3695
never@3156 3696 os::set_polling_page( polling_page );
never@3156 3697
never@3156 3698 #ifndef PRODUCT
never@3156 3699 if(Verbose && PrintMiscellaneous)
never@3156 3700 tty->print("[SafePoint Polling address: " INTPTR_FORMAT "]\n", (intptr_t)polling_page);
never@3156 3701 #endif
never@3156 3702
never@3156 3703 if (!UseMembar) {
never@3156 3704 address mem_serialize_page = (address) ::mmap(NULL, Bsd::page_size(), PROT_READ | PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0);
dcubed@5255 3705 guarantee( mem_serialize_page != MAP_FAILED, "mmap Failed for memory serialize page");
never@3156 3706 os::set_memory_serialize_page( mem_serialize_page );
never@3156 3707
never@3156 3708 #ifndef PRODUCT
never@3156 3709 if(Verbose && PrintMiscellaneous)
never@3156 3710 tty->print("[Memory Serialize Page address: " INTPTR_FORMAT "]\n", (intptr_t)mem_serialize_page);
never@3156 3711 #endif
never@3156 3712 }
never@3156 3713
never@3156 3714 // initialize suspend/resume support - must do this before signal_sets_init()
never@3156 3715 if (SR_initialize() != 0) {
never@3156 3716 perror("SR_initialize failed");
never@3156 3717 return JNI_ERR;
never@3156 3718 }
never@3156 3719
never@3156 3720 Bsd::signal_sets_init();
never@3156 3721 Bsd::install_signal_handlers();
never@3156 3722
never@3156 3723 // Check minimum allowable stack size for thread creation and to initialize
never@3156 3724 // the java system classes, including StackOverflowError - depends on page
never@3156 3725 // size. Add a page for compiler2 recursion in main thread.
never@3156 3726 // Add in 2*BytesPerWord times page size to account for VM stack during
never@3156 3727 // class initialization depending on 32 or 64 bit VM.
never@3156 3728 os::Bsd::min_stack_allowed = MAX2(os::Bsd::min_stack_allowed,
never@3156 3729 (size_t)(StackYellowPages+StackRedPages+StackShadowPages+
never@3156 3730 2*BytesPerWord COMPILER2_PRESENT(+1)) * Bsd::page_size());
never@3156 3731
never@3156 3732 size_t threadStackSizeInBytes = ThreadStackSize * K;
never@3156 3733 if (threadStackSizeInBytes != 0 &&
never@3156 3734 threadStackSizeInBytes < os::Bsd::min_stack_allowed) {
never@3156 3735 tty->print_cr("\nThe stack size specified is too small, "
never@3156 3736 "Specify at least %dk",
never@3156 3737 os::Bsd::min_stack_allowed/ K);
never@3156 3738 return JNI_ERR;
never@3156 3739 }
never@3156 3740
never@3156 3741 // Make the stack size a multiple of the page size so that
never@3156 3742 // the yellow/red zones can be guarded.
never@3156 3743 JavaThread::set_stack_size_at_create(round_to(threadStackSizeInBytes,
never@3156 3744 vm_page_size()));
never@3156 3745
never@3156 3746 if (MaxFDLimit) {
never@3156 3747 // set the number of file descriptors to max. print out error
never@3156 3748 // if getrlimit/setrlimit fails but continue regardless.
never@3156 3749 struct rlimit nbr_files;
never@3156 3750 int status = getrlimit(RLIMIT_NOFILE, &nbr_files);
never@3156 3751 if (status != 0) {
never@3156 3752 if (PrintMiscellaneous && (Verbose || WizardMode))
never@3156 3753 perror("os::init_2 getrlimit failed");
never@3156 3754 } else {
never@3156 3755 nbr_files.rlim_cur = nbr_files.rlim_max;
never@3156 3756
never@3156 3757 #ifdef __APPLE__
never@3156 3758 // Darwin returns RLIM_INFINITY for rlim_max, but fails with EINVAL if
never@3156 3759 // you attempt to use RLIM_INFINITY. As per setrlimit(2), OPEN_MAX must
never@3156 3760 // be used instead
never@3156 3761 nbr_files.rlim_cur = MIN(OPEN_MAX, nbr_files.rlim_cur);
never@3156 3762 #endif
never@3156 3763
never@3156 3764 status = setrlimit(RLIMIT_NOFILE, &nbr_files);
never@3156 3765 if (status != 0) {
never@3156 3766 if (PrintMiscellaneous && (Verbose || WizardMode))
never@3156 3767 perror("os::init_2 setrlimit failed");
never@3156 3768 }
never@3156 3769 }
never@3156 3770 }
never@3156 3771
never@3156 3772 // at-exit methods are called in the reverse order of their registration.
never@3156 3773 // atexit functions are called on return from main or as a result of a
never@3156 3774 // call to exit(3C). There can be only 32 of these functions registered
never@3156 3775 // and atexit() does not set errno.
never@3156 3776
never@3156 3777 if (PerfAllowAtExitRegistration) {
never@3156 3778 // only register atexit functions if PerfAllowAtExitRegistration is set.
never@3156 3779 // atexit functions can be delayed until process exit time, which
never@3156 3780 // can be problematic for embedded VM situations. Embedded VMs should
never@3156 3781 // call DestroyJavaVM() to assure that VM resources are released.
never@3156 3782
never@3156 3783 // note: perfMemory_exit_helper atexit function may be removed in
never@3156 3784 // the future if the appropriate cleanup code can be added to the
never@3156 3785 // VM_Exit VMOperation's doit method.
never@3156 3786 if (atexit(perfMemory_exit_helper) != 0) {
never@3156 3787 warning("os::init2 atexit(perfMemory_exit_helper) failed");
never@3156 3788 }
never@3156 3789 }
never@3156 3790
never@3156 3791 // initialize thread priority policy
never@3156 3792 prio_init();
never@3156 3793
dcubed@3202 3794 #ifdef __APPLE__
dcubed@3202 3795 // dynamically link to objective c gc registration
dcubed@3202 3796 void *handleLibObjc = dlopen(OBJC_LIB, RTLD_LAZY);
dcubed@3202 3797 if (handleLibObjc != NULL) {
dcubed@3202 3798 objc_registerThreadWithCollectorFunction = (objc_registerThreadWithCollector_t) dlsym(handleLibObjc, OBJC_GCREGISTER);
dcubed@3202 3799 }
dcubed@3202 3800 #endif
dcubed@3202 3801
never@3156 3802 return JNI_OK;
never@3156 3803 }
never@3156 3804
never@3156 3805 // Mark the polling page as unreadable
never@3156 3806 void os::make_polling_page_unreadable(void) {
never@3156 3807 if( !guard_memory((char*)_polling_page, Bsd::page_size()) )
never@3156 3808 fatal("Could not disable polling page");
never@3156 3809 };
never@3156 3810
never@3156 3811 // Mark the polling page as readable
never@3156 3812 void os::make_polling_page_readable(void) {
never@3156 3813 if( !bsd_mprotect((char *)_polling_page, Bsd::page_size(), PROT_READ)) {
never@3156 3814 fatal("Could not enable polling page");
never@3156 3815 }
never@3156 3816 };
never@3156 3817
never@3156 3818 int os::active_processor_count() {
poonam@9413 3819 // User has overridden the number of active processors
poonam@9413 3820 if (ActiveProcessorCount > 0) {
poonam@9413 3821 if (PrintActiveCpus) {
poonam@9413 3822 tty->print_cr("active_processor_count: "
poonam@9413 3823 "active processor count set by user : %d",
poonam@9413 3824 ActiveProcessorCount);
poonam@9413 3825 }
poonam@9413 3826 return ActiveProcessorCount;
poonam@9413 3827 }
poonam@9413 3828
never@3156 3829 return _processor_count;
never@3156 3830 }
never@3156 3831
dcubed@3202 3832 void os::set_native_thread_name(const char *name) {
dcubed@3202 3833 #if defined(__APPLE__) && MAC_OS_X_VERSION_MIN_REQUIRED > MAC_OS_X_VERSION_10_5
dcubed@3202 3834 // This is only supported in Snow Leopard and beyond
dcubed@3202 3835 if (name != NULL) {
dcubed@3202 3836 // Add a "Java: " prefix to the name
dcubed@3202 3837 char buf[MAXTHREADNAMESIZE];
dcubed@3202 3838 snprintf(buf, sizeof(buf), "Java: %s", name);
dcubed@3202 3839 pthread_setname_np(buf);
dcubed@3202 3840 }
dcubed@3202 3841 #endif
dcubed@3202 3842 }
dcubed@3202 3843
never@3156 3844 bool os::distribute_processes(uint length, uint* distribution) {
never@3156 3845 // Not yet implemented.
never@3156 3846 return false;
never@3156 3847 }
never@3156 3848
never@3156 3849 bool os::bind_to_processor(uint processor_id) {
never@3156 3850 // Not yet implemented.
never@3156 3851 return false;
never@3156 3852 }
never@3156 3853
sla@5237 3854 void os::SuspendedThreadTask::internal_do_task() {
sla@5237 3855 if (do_suspend(_thread->osthread())) {
sla@5237 3856 SuspendedThreadTaskContext context(_thread, _thread->osthread()->ucontext());
sla@5237 3857 do_task(context);
sla@5237 3858 do_resume(_thread->osthread());
sla@5237 3859 }
sla@5237 3860 }
sla@5237 3861
never@3156 3862 ///
sla@5237 3863 class PcFetcher : public os::SuspendedThreadTask {
sla@5237 3864 public:
sla@5237 3865 PcFetcher(Thread* thread) : os::SuspendedThreadTask(thread) {}
sla@5237 3866 ExtendedPC result();
sla@5237 3867 protected:
sla@5237 3868 void do_task(const os::SuspendedThreadTaskContext& context);
sla@5237 3869 private:
sla@5237 3870 ExtendedPC _epc;
sla@5237 3871 };
sla@5237 3872
sla@5237 3873 ExtendedPC PcFetcher::result() {
sla@5237 3874 guarantee(is_done(), "task is not done yet.");
sla@5237 3875 return _epc;
sla@5237 3876 }
sla@5237 3877
sla@5237 3878 void PcFetcher::do_task(const os::SuspendedThreadTaskContext& context) {
sla@5237 3879 Thread* thread = context.thread();
sla@5237 3880 OSThread* osthread = thread->osthread();
sla@5237 3881 if (osthread->ucontext() != NULL) {
sla@5237 3882 _epc = os::Bsd::ucontext_get_pc((ucontext_t *) context.ucontext());
sla@5237 3883 } else {
sla@5237 3884 // NULL context is unexpected, double-check this is the VMThread
sla@5237 3885 guarantee(thread->is_VM_thread(), "can only be called for VMThread");
sla@5237 3886 }
sla@5237 3887 }
never@3156 3888
never@3156 3889 // Suspends the target using the signal mechanism and then grabs the PC before
never@3156 3890 // resuming the target. Used by the flat-profiler only
never@3156 3891 ExtendedPC os::get_thread_pc(Thread* thread) {
never@3156 3892 // Make sure that it is called by the watcher for the VMThread
never@3156 3893 assert(Thread::current()->is_Watcher_thread(), "Must be watcher");
never@3156 3894 assert(thread->is_VM_thread(), "Can only be called for VMThread");
never@3156 3895
sla@5237 3896 PcFetcher fetcher(thread);
sla@5237 3897 fetcher.run();
sla@5237 3898 return fetcher.result();
never@3156 3899 }
never@3156 3900
never@3156 3901 int os::Bsd::safe_cond_timedwait(pthread_cond_t *_cond, pthread_mutex_t *_mutex, const struct timespec *_abstime)
never@3156 3902 {
never@3156 3903 return pthread_cond_timedwait(_cond, _mutex, _abstime);
never@3156 3904 }
never@3156 3905
never@3156 3906 ////////////////////////////////////////////////////////////////////////////////
never@3156 3907 // debug support
never@3156 3908
never@3156 3909 bool os::find(address addr, outputStream* st) {
never@3156 3910 Dl_info dlinfo;
never@3156 3911 memset(&dlinfo, 0, sizeof(dlinfo));
dcubed@5365 3912 if (dladdr(addr, &dlinfo) != 0) {
never@3156 3913 st->print(PTR_FORMAT ": ", addr);
dcubed@5365 3914 if (dlinfo.dli_sname != NULL && dlinfo.dli_saddr != NULL) {
never@3156 3915 st->print("%s+%#x", dlinfo.dli_sname,
never@3156 3916 addr - (intptr_t)dlinfo.dli_saddr);
dcubed@5365 3917 } else if (dlinfo.dli_fbase != NULL) {
never@3156 3918 st->print("<offset %#x>", addr - (intptr_t)dlinfo.dli_fbase);
never@3156 3919 } else {
never@3156 3920 st->print("<absolute address>");
never@3156 3921 }
dcubed@5365 3922 if (dlinfo.dli_fname != NULL) {
never@3156 3923 st->print(" in %s", dlinfo.dli_fname);
never@3156 3924 }
dcubed@5365 3925 if (dlinfo.dli_fbase != NULL) {
never@3156 3926 st->print(" at " PTR_FORMAT, dlinfo.dli_fbase);
never@3156 3927 }
never@3156 3928 st->cr();
never@3156 3929
never@3156 3930 if (Verbose) {
never@3156 3931 // decode some bytes around the PC
mikael@4889 3932 address begin = clamp_address_in_page(addr-40, addr, os::vm_page_size());
mikael@4889 3933 address end = clamp_address_in_page(addr+40, addr, os::vm_page_size());
never@3156 3934 address lowest = (address) dlinfo.dli_sname;
never@3156 3935 if (!lowest) lowest = (address) dlinfo.dli_fbase;
never@3156 3936 if (begin < lowest) begin = lowest;
never@3156 3937 Dl_info dlinfo2;
dcubed@5365 3938 if (dladdr(end, &dlinfo2) != 0 && dlinfo2.dli_saddr != dlinfo.dli_saddr
never@3156 3939 && end > dlinfo2.dli_saddr && dlinfo2.dli_saddr > begin)
never@3156 3940 end = (address) dlinfo2.dli_saddr;
never@3156 3941 Disassembler::decode(begin, end, st);
never@3156 3942 }
never@3156 3943 return true;
never@3156 3944 }
never@3156 3945 return false;
never@3156 3946 }
never@3156 3947
never@3156 3948 ////////////////////////////////////////////////////////////////////////////////
never@3156 3949 // misc
never@3156 3950
never@3156 3951 // This does not do anything on Bsd. This is basically a hook for being
never@3156 3952 // able to use structured exception handling (thread-local exception filters)
never@3156 3953 // on, e.g., Win32.
never@3156 3954 void
never@3156 3955 os::os_exception_wrapper(java_call_t f, JavaValue* value, methodHandle* method,
never@3156 3956 JavaCallArguments* args, Thread* thread) {
never@3156 3957 f(value, method, args, thread);
never@3156 3958 }
never@3156 3959
never@3156 3960 void os::print_statistics() {
never@3156 3961 }
never@3156 3962
never@3156 3963 int os::message_box(const char* title, const char* message) {
never@3156 3964 int i;
never@3156 3965 fdStream err(defaultStream::error_fd());
never@3156 3966 for (i = 0; i < 78; i++) err.print_raw("=");
never@3156 3967 err.cr();
never@3156 3968 err.print_raw_cr(title);
never@3156 3969 for (i = 0; i < 78; i++) err.print_raw("-");
never@3156 3970 err.cr();
never@3156 3971 err.print_raw_cr(message);
never@3156 3972 for (i = 0; i < 78; i++) err.print_raw("=");
never@3156 3973 err.cr();
never@3156 3974
never@3156 3975 char buf[16];
never@3156 3976 // Prevent process from exiting upon "read error" without consuming all CPU
never@3156 3977 while (::read(0, buf, sizeof(buf)) <= 0) { ::sleep(100); }
never@3156 3978
never@3156 3979 return buf[0] == 'y' || buf[0] == 'Y';
never@3156 3980 }
never@3156 3981
never@3156 3982 int os::stat(const char *path, struct stat *sbuf) {
never@3156 3983 char pathbuf[MAX_PATH];
never@3156 3984 if (strlen(path) > MAX_PATH - 1) {
never@3156 3985 errno = ENAMETOOLONG;
never@3156 3986 return -1;
never@3156 3987 }
never@3156 3988 os::native_path(strcpy(pathbuf, path));
never@3156 3989 return ::stat(pathbuf, sbuf);
never@3156 3990 }
never@3156 3991
never@3156 3992 bool os::check_heap(bool force) {
never@3156 3993 return true;
never@3156 3994 }
never@3156 3995
drchase@6680 3996 ATTRIBUTE_PRINTF(3, 0)
never@3156 3997 int local_vsnprintf(char* buf, size_t count, const char* format, va_list args) {
never@3156 3998 return ::vsnprintf(buf, count, format, args);
never@3156 3999 }
never@3156 4000
never@3156 4001 // Is a (classpath) directory empty?
never@3156 4002 bool os::dir_is_empty(const char* path) {
never@3156 4003 DIR *dir = NULL;
never@3156 4004 struct dirent *ptr;
never@3156 4005
never@3156 4006 dir = opendir(path);
never@3156 4007 if (dir == NULL) return true;
never@3156 4008
never@3156 4009 /* Scan the directory */
never@3156 4010 bool result = true;
andrew@9711 4011 while (result && (ptr = readdir(dir)) != NULL) {
never@3156 4012 if (strcmp(ptr->d_name, ".") != 0 && strcmp(ptr->d_name, "..") != 0) {
never@3156 4013 result = false;
never@3156 4014 }
never@3156 4015 }
never@3156 4016 closedir(dir);
never@3156 4017 return result;
never@3156 4018 }
never@3156 4019
never@3156 4020 // This code originates from JDK's sysOpen and open64_w
never@3156 4021 // from src/solaris/hpi/src/system_md.c
never@3156 4022
never@3156 4023 #ifndef O_DELETE
never@3156 4024 #define O_DELETE 0x10000
never@3156 4025 #endif
never@3156 4026
never@3156 4027 // Open a file. Unlink the file immediately after open returns
never@3156 4028 // if the specified oflag has the O_DELETE flag set.
never@3156 4029 // O_DELETE is used only in j2se/src/share/native/java/util/zip/ZipFile.c
never@3156 4030
never@3156 4031 int os::open(const char *path, int oflag, int mode) {
never@3156 4032
never@3156 4033 if (strlen(path) > MAX_PATH - 1) {
never@3156 4034 errno = ENAMETOOLONG;
never@3156 4035 return -1;
never@3156 4036 }
never@3156 4037 int fd;
never@3156 4038 int o_delete = (oflag & O_DELETE);
never@3156 4039 oflag = oflag & ~O_DELETE;
never@3156 4040
never@3156 4041 fd = ::open(path, oflag, mode);
never@3156 4042 if (fd == -1) return -1;
never@3156 4043
never@3156 4044 //If the open succeeded, the file might still be a directory
never@3156 4045 {
never@3156 4046 struct stat buf;
never@3156 4047 int ret = ::fstat(fd, &buf);
never@3156 4048 int st_mode = buf.st_mode;
never@3156 4049
never@3156 4050 if (ret != -1) {
never@3156 4051 if ((st_mode & S_IFMT) == S_IFDIR) {
never@3156 4052 errno = EISDIR;
never@3156 4053 ::close(fd);
never@3156 4054 return -1;
never@3156 4055 }
never@3156 4056 } else {
never@3156 4057 ::close(fd);
never@3156 4058 return -1;
never@3156 4059 }
never@3156 4060 }
never@3156 4061
never@3156 4062 /*
never@3156 4063 * All file descriptors that are opened in the JVM and not
never@3156 4064 * specifically destined for a subprocess should have the
never@3156 4065 * close-on-exec flag set. If we don't set it, then careless 3rd
never@3156 4066 * party native code might fork and exec without closing all
never@3156 4067 * appropriate file descriptors (e.g. as we do in closeDescriptors in
never@3156 4068 * UNIXProcess.c), and this in turn might:
never@3156 4069 *
never@3156 4070 * - cause end-of-file to fail to be detected on some file
never@3156 4071 * descriptors, resulting in mysterious hangs, or
never@3156 4072 *
never@3156 4073 * - might cause an fopen in the subprocess to fail on a system
never@3156 4074 * suffering from bug 1085341.
never@3156 4075 *
never@3156 4076 * (Yes, the default setting of the close-on-exec flag is a Unix
never@3156 4077 * design flaw)
never@3156 4078 *
never@3156 4079 * See:
never@3156 4080 * 1085341: 32-bit stdio routines should support file descriptors >255
never@3156 4081 * 4843136: (process) pipe file descriptor from Runtime.exec not being closed
never@3156 4082 * 6339493: (process) Runtime.exec does not close all file descriptors on Solaris 9
never@3156 4083 */
never@3156 4084 #ifdef FD_CLOEXEC
never@3156 4085 {
never@3156 4086 int flags = ::fcntl(fd, F_GETFD);
never@3156 4087 if (flags != -1)
never@3156 4088 ::fcntl(fd, F_SETFD, flags | FD_CLOEXEC);
never@3156 4089 }
never@3156 4090 #endif
never@3156 4091
never@3156 4092 if (o_delete != 0) {
never@3156 4093 ::unlink(path);
never@3156 4094 }
never@3156 4095 return fd;
never@3156 4096 }
never@3156 4097
never@3156 4098
never@3156 4099 // create binary file, rewriting existing file if required
never@3156 4100 int os::create_binary_file(const char* path, bool rewrite_existing) {
never@3156 4101 int oflags = O_WRONLY | O_CREAT;
never@3156 4102 if (!rewrite_existing) {
never@3156 4103 oflags |= O_EXCL;
never@3156 4104 }
never@3156 4105 return ::open(path, oflags, S_IREAD | S_IWRITE);
never@3156 4106 }
never@3156 4107
never@3156 4108 // return current position of file pointer
never@3156 4109 jlong os::current_file_offset(int fd) {
never@3156 4110 return (jlong)::lseek(fd, (off_t)0, SEEK_CUR);
never@3156 4111 }
never@3156 4112
never@3156 4113 // move file pointer to the specified offset
never@3156 4114 jlong os::seek_to_file_offset(int fd, jlong offset) {
never@3156 4115 return (jlong)::lseek(fd, (off_t)offset, SEEK_SET);
never@3156 4116 }
never@3156 4117
never@3156 4118 // This code originates from JDK's sysAvailable
never@3156 4119 // from src/solaris/hpi/src/native_threads/src/sys_api_td.c
never@3156 4120
never@3156 4121 int os::available(int fd, jlong *bytes) {
never@3156 4122 jlong cur, end;
never@3156 4123 int mode;
never@3156 4124 struct stat buf;
never@3156 4125
never@3156 4126 if (::fstat(fd, &buf) >= 0) {
never@3156 4127 mode = buf.st_mode;
never@3156 4128 if (S_ISCHR(mode) || S_ISFIFO(mode) || S_ISSOCK(mode)) {
never@3156 4129 /*
never@3156 4130 * XXX: is the following call interruptible? If so, this might
never@3156 4131 * need to go through the INTERRUPT_IO() wrapper as for other
never@3156 4132 * blocking, interruptible calls in this file.
never@3156 4133 */
never@3156 4134 int n;
never@3156 4135 if (::ioctl(fd, FIONREAD, &n) >= 0) {
never@3156 4136 *bytes = n;
never@3156 4137 return 1;
never@3156 4138 }
never@3156 4139 }
never@3156 4140 }
never@3156 4141 if ((cur = ::lseek(fd, 0L, SEEK_CUR)) == -1) {
never@3156 4142 return 0;
never@3156 4143 } else if ((end = ::lseek(fd, 0L, SEEK_END)) == -1) {
never@3156 4144 return 0;
never@3156 4145 } else if (::lseek(fd, cur, SEEK_SET) == -1) {
never@3156 4146 return 0;
never@3156 4147 }
never@3156 4148 *bytes = end - cur;
never@3156 4149 return 1;
never@3156 4150 }
never@3156 4151
never@3156 4152 int os::socket_available(int fd, jint *pbytes) {
never@3156 4153 if (fd < 0)
never@3156 4154 return OS_OK;
never@3156 4155
never@3156 4156 int ret;
never@3156 4157
never@3156 4158 RESTARTABLE(::ioctl(fd, FIONREAD, pbytes), ret);
never@3156 4159
never@3156 4160 //%% note ioctl can return 0 when successful, JVM_SocketAvailable
never@3156 4161 // is expected to return 0 on failure and 1 on success to the jdk.
never@3156 4162
never@3156 4163 return (ret == OS_ERR) ? 0 : 1;
never@3156 4164 }
never@3156 4165
never@3156 4166 // Map a block of memory.
zgu@3900 4167 char* os::pd_map_memory(int fd, const char* file_name, size_t file_offset,
never@3156 4168 char *addr, size_t bytes, bool read_only,
never@3156 4169 bool allow_exec) {
never@3156 4170 int prot;
never@3156 4171 int flags;
never@3156 4172
never@3156 4173 if (read_only) {
never@3156 4174 prot = PROT_READ;
never@3156 4175 flags = MAP_SHARED;
never@3156 4176 } else {
never@3156 4177 prot = PROT_READ | PROT_WRITE;
never@3156 4178 flags = MAP_PRIVATE;
never@3156 4179 }
never@3156 4180
never@3156 4181 if (allow_exec) {
never@3156 4182 prot |= PROT_EXEC;
never@3156 4183 }
never@3156 4184
never@3156 4185 if (addr != NULL) {
never@3156 4186 flags |= MAP_FIXED;
never@3156 4187 }
never@3156 4188
never@3156 4189 char* mapped_address = (char*)mmap(addr, (size_t)bytes, prot, flags,
never@3156 4190 fd, file_offset);
never@3156 4191 if (mapped_address == MAP_FAILED) {
never@3156 4192 return NULL;
never@3156 4193 }
never@3156 4194 return mapped_address;
never@3156 4195 }
never@3156 4196
never@3156 4197
never@3156 4198 // Remap a block of memory.
zgu@3900 4199 char* os::pd_remap_memory(int fd, const char* file_name, size_t file_offset,
never@3156 4200 char *addr, size_t bytes, bool read_only,
never@3156 4201 bool allow_exec) {
never@3156 4202 // same as map_memory() on this OS
never@3156 4203 return os::map_memory(fd, file_name, file_offset, addr, bytes, read_only,
never@3156 4204 allow_exec);
never@3156 4205 }
never@3156 4206
never@3156 4207
never@3156 4208 // Unmap a block of memory.
zgu@3900 4209 bool os::pd_unmap_memory(char* addr, size_t bytes) {
never@3156 4210 return munmap(addr, bytes) == 0;
never@3156 4211 }
never@3156 4212
never@3156 4213 // current_thread_cpu_time(bool) and thread_cpu_time(Thread*, bool)
never@3156 4214 // are used by JVM M&M and JVMTI to get user+sys or user CPU time
never@3156 4215 // of a thread.
never@3156 4216 //
never@3156 4217 // current_thread_cpu_time() and thread_cpu_time(Thread*) returns
never@3156 4218 // the fast estimate available on the platform.
never@3156 4219
never@3156 4220 jlong os::current_thread_cpu_time() {
never@3156 4221 #ifdef __APPLE__
never@3156 4222 return os::thread_cpu_time(Thread::current(), true /* user + sys */);
morris@4689 4223 #else
morris@4689 4224 Unimplemented();
morris@4689 4225 return 0;
never@3156 4226 #endif
never@3156 4227 }
never@3156 4228
never@3156 4229 jlong os::thread_cpu_time(Thread* thread) {
morris@4689 4230 #ifdef __APPLE__
morris@4689 4231 return os::thread_cpu_time(thread, true /* user + sys */);
morris@4689 4232 #else
morris@4689 4233 Unimplemented();
morris@4689 4234 return 0;
morris@4689 4235 #endif
never@3156 4236 }
never@3156 4237
never@3156 4238 jlong os::current_thread_cpu_time(bool user_sys_cpu_time) {
never@3156 4239 #ifdef __APPLE__
never@3156 4240 return os::thread_cpu_time(Thread::current(), user_sys_cpu_time);
morris@4689 4241 #else
morris@4689 4242 Unimplemented();
morris@4689 4243 return 0;
never@3156 4244 #endif
never@3156 4245 }
never@3156 4246
never@3156 4247 jlong os::thread_cpu_time(Thread *thread, bool user_sys_cpu_time) {
never@3156 4248 #ifdef __APPLE__
never@3156 4249 struct thread_basic_info tinfo;
never@3156 4250 mach_msg_type_number_t tcount = THREAD_INFO_MAX;
never@3156 4251 kern_return_t kr;
sla@3587 4252 thread_t mach_thread;
sla@3587 4253
sla@3587 4254 mach_thread = thread->osthread()->thread_id();
never@3156 4255 kr = thread_info(mach_thread, THREAD_BASIC_INFO, (thread_info_t)&tinfo, &tcount);
never@3156 4256 if (kr != KERN_SUCCESS)
never@3156 4257 return -1;
never@3156 4258
never@3156 4259 if (user_sys_cpu_time) {
never@3156 4260 jlong nanos;
never@3156 4261 nanos = ((jlong) tinfo.system_time.seconds + tinfo.user_time.seconds) * (jlong)1000000000;
never@3156 4262 nanos += ((jlong) tinfo.system_time.microseconds + (jlong) tinfo.user_time.microseconds) * (jlong)1000;
never@3156 4263 return nanos;
never@3156 4264 } else {
never@3156 4265 return ((jlong)tinfo.user_time.seconds * 1000000000) + ((jlong)tinfo.user_time.microseconds * (jlong)1000);
never@3156 4266 }
morris@4689 4267 #else
morris@4689 4268 Unimplemented();
morris@4689 4269 return 0;
never@3156 4270 #endif
never@3156 4271 }
never@3156 4272
never@3156 4273
never@3156 4274 void os::current_thread_cpu_time_info(jvmtiTimerInfo *info_ptr) {
never@3156 4275 info_ptr->max_value = ALL_64_BITS; // will not wrap in less than 64 bits
never@3156 4276 info_ptr->may_skip_backward = false; // elapsed time not wall time
never@3156 4277 info_ptr->may_skip_forward = false; // elapsed time not wall time
never@3156 4278 info_ptr->kind = JVMTI_TIMER_TOTAL_CPU; // user+system time is returned
never@3156 4279 }
never@3156 4280
never@3156 4281 void os::thread_cpu_time_info(jvmtiTimerInfo *info_ptr) {
never@3156 4282 info_ptr->max_value = ALL_64_BITS; // will not wrap in less than 64 bits
never@3156 4283 info_ptr->may_skip_backward = false; // elapsed time not wall time
never@3156 4284 info_ptr->may_skip_forward = false; // elapsed time not wall time
never@3156 4285 info_ptr->kind = JVMTI_TIMER_TOTAL_CPU; // user+system time is returned
never@3156 4286 }
never@3156 4287
never@3156 4288 bool os::is_thread_cpu_time_supported() {
never@3156 4289 #ifdef __APPLE__
never@3156 4290 return true;
sla@4229 4291 #else
never@3156 4292 return false;
never@3156 4293 #endif
never@3156 4294 }
never@3156 4295
never@3156 4296 // System loadavg support. Returns -1 if load average cannot be obtained.
never@3156 4297 // Bsd doesn't yet have a (official) notion of processor sets,
never@3156 4298 // so just return the system wide load average.
never@3156 4299 int os::loadavg(double loadavg[], int nelem) {
never@3156 4300 return ::getloadavg(loadavg, nelem);
never@3156 4301 }
never@3156 4302
never@3156 4303 void os::pause() {
never@3156 4304 char filename[MAX_PATH];
never@3156 4305 if (PauseAtStartupFile && PauseAtStartupFile[0]) {
never@3156 4306 jio_snprintf(filename, MAX_PATH, PauseAtStartupFile);
never@3156 4307 } else {
never@3156 4308 jio_snprintf(filename, MAX_PATH, "./vm.paused.%d", current_process_id());
never@3156 4309 }
never@3156 4310
never@3156 4311 int fd = ::open(filename, O_WRONLY | O_CREAT | O_TRUNC, 0666);
never@3156 4312 if (fd != -1) {
never@3156 4313 struct stat buf;
never@3156 4314 ::close(fd);
never@3156 4315 while (::stat(filename, &buf) == 0) {
never@3156 4316 (void)::poll(NULL, 0, 100);
never@3156 4317 }
never@3156 4318 } else {
never@3156 4319 jio_fprintf(stderr,
never@3156 4320 "Could not open pause file '%s', continuing immediately.\n", filename);
never@3156 4321 }
never@3156 4322 }
never@3156 4323
never@3156 4324
never@3156 4325 // Refer to the comments in os_solaris.cpp park-unpark.
never@3156 4326 //
never@3156 4327 // Beware -- Some versions of NPTL embody a flaw where pthread_cond_timedwait() can
never@3156 4328 // hang indefinitely. For instance NPTL 0.60 on 2.4.21-4ELsmp is vulnerable.
never@3156 4329 // For specifics regarding the bug see GLIBC BUGID 261237 :
never@3156 4330 // http://www.mail-archive.com/debian-glibc@lists.debian.org/msg10837.html.
never@3156 4331 // Briefly, pthread_cond_timedwait() calls with an expiry time that's not in the future
never@3156 4332 // will either hang or corrupt the condvar, resulting in subsequent hangs if the condvar
never@3156 4333 // is used. (The simple C test-case provided in the GLIBC bug report manifests the
never@3156 4334 // hang). The JVM is vulernable via sleep(), Object.wait(timo), LockSupport.parkNanos()
never@3156 4335 // and monitorenter when we're using 1-0 locking. All those operations may result in
never@3156 4336 // calls to pthread_cond_timedwait(). Using LD_ASSUME_KERNEL to use an older version
never@3156 4337 // of libpthread avoids the problem, but isn't practical.
never@3156 4338 //
never@3156 4339 // Possible remedies:
never@3156 4340 //
never@3156 4341 // 1. Establish a minimum relative wait time. 50 to 100 msecs seems to work.
never@3156 4342 // This is palliative and probabilistic, however. If the thread is preempted
never@3156 4343 // between the call to compute_abstime() and pthread_cond_timedwait(), more
never@3156 4344 // than the minimum period may have passed, and the abstime may be stale (in the
never@3156 4345 // past) resultin in a hang. Using this technique reduces the odds of a hang
never@3156 4346 // but the JVM is still vulnerable, particularly on heavily loaded systems.
never@3156 4347 //
never@3156 4348 // 2. Modify park-unpark to use per-thread (per ParkEvent) pipe-pairs instead
never@3156 4349 // of the usual flag-condvar-mutex idiom. The write side of the pipe is set
never@3156 4350 // NDELAY. unpark() reduces to write(), park() reduces to read() and park(timo)
never@3156 4351 // reduces to poll()+read(). This works well, but consumes 2 FDs per extant
never@3156 4352 // thread.
never@3156 4353 //
never@3156 4354 // 3. Embargo pthread_cond_timedwait() and implement a native "chron" thread
never@3156 4355 // that manages timeouts. We'd emulate pthread_cond_timedwait() by enqueuing
never@3156 4356 // a timeout request to the chron thread and then blocking via pthread_cond_wait().
never@3156 4357 // This also works well. In fact it avoids kernel-level scalability impediments
never@3156 4358 // on certain platforms that don't handle lots of active pthread_cond_timedwait()
never@3156 4359 // timers in a graceful fashion.
never@3156 4360 //
never@3156 4361 // 4. When the abstime value is in the past it appears that control returns
never@3156 4362 // correctly from pthread_cond_timedwait(), but the condvar is left corrupt.
never@3156 4363 // Subsequent timedwait/wait calls may hang indefinitely. Given that, we
never@3156 4364 // can avoid the problem by reinitializing the condvar -- by cond_destroy()
never@3156 4365 // followed by cond_init() -- after all calls to pthread_cond_timedwait().
never@3156 4366 // It may be possible to avoid reinitialization by checking the return
never@3156 4367 // value from pthread_cond_timedwait(). In addition to reinitializing the
never@3156 4368 // condvar we must establish the invariant that cond_signal() is only called
never@3156 4369 // within critical sections protected by the adjunct mutex. This prevents
never@3156 4370 // cond_signal() from "seeing" a condvar that's in the midst of being
never@3156 4371 // reinitialized or that is corrupt. Sadly, this invariant obviates the
never@3156 4372 // desirable signal-after-unlock optimization that avoids futile context switching.
never@3156 4373 //
never@3156 4374 // I'm also concerned that some versions of NTPL might allocate an auxilliary
never@3156 4375 // structure when a condvar is used or initialized. cond_destroy() would
never@3156 4376 // release the helper structure. Our reinitialize-after-timedwait fix
never@3156 4377 // put excessive stress on malloc/free and locks protecting the c-heap.
never@3156 4378 //
never@3156 4379 // We currently use (4). See the WorkAroundNTPLTimedWaitHang flag.
never@3156 4380 // It may be possible to refine (4) by checking the kernel and NTPL verisons
never@3156 4381 // and only enabling the work-around for vulnerable environments.
never@3156 4382
never@3156 4383 // utility to compute the abstime argument to timedwait:
never@3156 4384 // millis is the relative timeout time
never@3156 4385 // abstime will be the absolute timeout time
never@3156 4386 // TODO: replace compute_abstime() with unpackTime()
never@3156 4387
never@3156 4388 static struct timespec* compute_abstime(struct timespec* abstime, jlong millis) {
never@3156 4389 if (millis < 0) millis = 0;
never@3156 4390 struct timeval now;
never@3156 4391 int status = gettimeofday(&now, NULL);
never@3156 4392 assert(status == 0, "gettimeofday");
never@3156 4393 jlong seconds = millis / 1000;
never@3156 4394 millis %= 1000;
never@3156 4395 if (seconds > 50000000) { // see man cond_timedwait(3T)
never@3156 4396 seconds = 50000000;
never@3156 4397 }
never@3156 4398 abstime->tv_sec = now.tv_sec + seconds;
never@3156 4399 long usec = now.tv_usec + millis * 1000;
never@3156 4400 if (usec >= 1000000) {
never@3156 4401 abstime->tv_sec += 1;
never@3156 4402 usec -= 1000000;
never@3156 4403 }
never@3156 4404 abstime->tv_nsec = usec * 1000;
never@3156 4405 return abstime;
never@3156 4406 }
never@3156 4407
never@3156 4408
never@3156 4409 // Test-and-clear _Event, always leaves _Event set to 0, returns immediately.
never@3156 4410 // Conceptually TryPark() should be equivalent to park(0).
never@3156 4411
never@3156 4412 int os::PlatformEvent::TryPark() {
never@3156 4413 for (;;) {
never@3156 4414 const int v = _Event ;
never@3156 4415 guarantee ((v == 0) || (v == 1), "invariant") ;
never@3156 4416 if (Atomic::cmpxchg (0, &_Event, v) == v) return v ;
never@3156 4417 }
never@3156 4418 }
never@3156 4419
never@3156 4420 void os::PlatformEvent::park() { // AKA "down()"
never@3156 4421 // Invariant: Only the thread associated with the Event/PlatformEvent
never@3156 4422 // may call park().
never@3156 4423 // TODO: assert that _Assoc != NULL or _Assoc == Self
never@3156 4424 int v ;
never@3156 4425 for (;;) {
never@3156 4426 v = _Event ;
never@3156 4427 if (Atomic::cmpxchg (v-1, &_Event, v) == v) break ;
never@3156 4428 }
never@3156 4429 guarantee (v >= 0, "invariant") ;
never@3156 4430 if (v == 0) {
never@3156 4431 // Do this the hard way by blocking ...
never@3156 4432 int status = pthread_mutex_lock(_mutex);
never@3156 4433 assert_status(status == 0, status, "mutex_lock");
never@3156 4434 guarantee (_nParked == 0, "invariant") ;
never@3156 4435 ++ _nParked ;
never@3156 4436 while (_Event < 0) {
never@3156 4437 status = pthread_cond_wait(_cond, _mutex);
never@3156 4438 // for some reason, under 2.7 lwp_cond_wait() may return ETIME ...
never@3156 4439 // Treat this the same as if the wait was interrupted
never@3156 4440 if (status == ETIMEDOUT) { status = EINTR; }
never@3156 4441 assert_status(status == 0 || status == EINTR, status, "cond_wait");
never@3156 4442 }
never@3156 4443 -- _nParked ;
never@3156 4444
never@3156 4445 _Event = 0 ;
never@3156 4446 status = pthread_mutex_unlock(_mutex);
never@3156 4447 assert_status(status == 0, status, "mutex_unlock");
dcubed@4471 4448 // Paranoia to ensure our locked and lock-free paths interact
dcubed@4471 4449 // correctly with each other.
dcubed@4471 4450 OrderAccess::fence();
never@3156 4451 }
never@3156 4452 guarantee (_Event >= 0, "invariant") ;
never@3156 4453 }
never@3156 4454
never@3156 4455 int os::PlatformEvent::park(jlong millis) {
never@3156 4456 guarantee (_nParked == 0, "invariant") ;
never@3156 4457
never@3156 4458 int v ;
never@3156 4459 for (;;) {
never@3156 4460 v = _Event ;
never@3156 4461 if (Atomic::cmpxchg (v-1, &_Event, v) == v) break ;
never@3156 4462 }
never@3156 4463 guarantee (v >= 0, "invariant") ;
never@3156 4464 if (v != 0) return OS_OK ;
never@3156 4465
never@3156 4466 // We do this the hard way, by blocking the thread.
never@3156 4467 // Consider enforcing a minimum timeout value.
never@3156 4468 struct timespec abst;
never@3156 4469 compute_abstime(&abst, millis);
never@3156 4470
never@3156 4471 int ret = OS_TIMEOUT;
never@3156 4472 int status = pthread_mutex_lock(_mutex);
never@3156 4473 assert_status(status == 0, status, "mutex_lock");
never@3156 4474 guarantee (_nParked == 0, "invariant") ;
never@3156 4475 ++_nParked ;
never@3156 4476
never@3156 4477 // Object.wait(timo) will return because of
never@3156 4478 // (a) notification
never@3156 4479 // (b) timeout
never@3156 4480 // (c) thread.interrupt
never@3156 4481 //
never@3156 4482 // Thread.interrupt and object.notify{All} both call Event::set.
never@3156 4483 // That is, we treat thread.interrupt as a special case of notification.
never@3156 4484 // The underlying Solaris implementation, cond_timedwait, admits
never@3156 4485 // spurious/premature wakeups, but the JLS/JVM spec prevents the
never@3156 4486 // JVM from making those visible to Java code. As such, we must
never@3156 4487 // filter out spurious wakeups. We assume all ETIME returns are valid.
never@3156 4488 //
never@3156 4489 // TODO: properly differentiate simultaneous notify+interrupt.
never@3156 4490 // In that case, we should propagate the notify to another waiter.
never@3156 4491
never@3156 4492 while (_Event < 0) {
never@3156 4493 status = os::Bsd::safe_cond_timedwait(_cond, _mutex, &abst);
never@3156 4494 if (status != 0 && WorkAroundNPTLTimedWaitHang) {
never@3156 4495 pthread_cond_destroy (_cond);
never@3156 4496 pthread_cond_init (_cond, NULL) ;
never@3156 4497 }
never@3156 4498 assert_status(status == 0 || status == EINTR ||
never@3156 4499 status == ETIMEDOUT,
never@3156 4500 status, "cond_timedwait");
never@3156 4501 if (!FilterSpuriousWakeups) break ; // previous semantics
never@3156 4502 if (status == ETIMEDOUT) break ;
never@3156 4503 // We consume and ignore EINTR and spurious wakeups.
never@3156 4504 }
never@3156 4505 --_nParked ;
never@3156 4506 if (_Event >= 0) {
never@3156 4507 ret = OS_OK;
never@3156 4508 }
never@3156 4509 _Event = 0 ;
never@3156 4510 status = pthread_mutex_unlock(_mutex);
never@3156 4511 assert_status(status == 0, status, "mutex_unlock");
never@3156 4512 assert (_nParked == 0, "invariant") ;
dcubed@4471 4513 // Paranoia to ensure our locked and lock-free paths interact
dcubed@4471 4514 // correctly with each other.
dcubed@4471 4515 OrderAccess::fence();
never@3156 4516 return ret;
never@3156 4517 }
never@3156 4518
never@3156 4519 void os::PlatformEvent::unpark() {
dcubed@4471 4520 // Transitions for _Event:
dcubed@4471 4521 // 0 :=> 1
dcubed@4471 4522 // 1 :=> 1
dcubed@4471 4523 // -1 :=> either 0 or 1; must signal target thread
dcubed@4471 4524 // That is, we can safely transition _Event from -1 to either
dcubed@4471 4525 // 0 or 1. Forcing 1 is slightly more efficient for back-to-back
dcubed@4471 4526 // unpark() calls.
dcubed@4471 4527 // See also: "Semaphores in Plan 9" by Mullender & Cox
dcubed@4471 4528 //
dcubed@4471 4529 // Note: Forcing a transition from "-1" to "1" on an unpark() means
dcubed@4471 4530 // that it will take two back-to-back park() calls for the owning
dcubed@4471 4531 // thread to block. This has the benefit of forcing a spurious return
dcubed@4471 4532 // from the first park() call after an unpark() call which will help
dcubed@4471 4533 // shake out uses of park() and unpark() without condition variables.
dcubed@4471 4534
dcubed@4471 4535 if (Atomic::xchg(1, &_Event) >= 0) return;
dcubed@4471 4536
dcubed@4471 4537 // Wait for the thread associated with the event to vacate
dcubed@4471 4538 int status = pthread_mutex_lock(_mutex);
dcubed@4471 4539 assert_status(status == 0, status, "mutex_lock");
dcubed@4471 4540 int AnyWaiters = _nParked;
dcubed@4471 4541 assert(AnyWaiters == 0 || AnyWaiters == 1, "invariant");
dcubed@4471 4542 if (AnyWaiters != 0 && WorkAroundNPTLTimedWaitHang) {
dcubed@4471 4543 AnyWaiters = 0;
dcubed@4471 4544 pthread_cond_signal(_cond);
never@3156 4545 }
dcubed@4471 4546 status = pthread_mutex_unlock(_mutex);
dcubed@4471 4547 assert_status(status == 0, status, "mutex_unlock");
dcubed@4471 4548 if (AnyWaiters != 0) {
dcubed@4471 4549 status = pthread_cond_signal(_cond);
dcubed@4471 4550 assert_status(status == 0, status, "cond_signal");
never@3156 4551 }
never@3156 4552
never@3156 4553 // Note that we signal() _after dropping the lock for "immortal" Events.
never@3156 4554 // This is safe and avoids a common class of futile wakeups. In rare
never@3156 4555 // circumstances this can cause a thread to return prematurely from
never@3156 4556 // cond_{timed}wait() but the spurious wakeup is benign and the victim will
never@3156 4557 // simply re-test the condition and re-park itself.
never@3156 4558 }
never@3156 4559
never@3156 4560
never@3156 4561 // JSR166
never@3156 4562 // -------------------------------------------------------
never@3156 4563
never@3156 4564 /*
never@3156 4565 * The solaris and bsd implementations of park/unpark are fairly
never@3156 4566 * conservative for now, but can be improved. They currently use a
never@3156 4567 * mutex/condvar pair, plus a a count.
never@3156 4568 * Park decrements count if > 0, else does a condvar wait. Unpark
never@3156 4569 * sets count to 1 and signals condvar. Only one thread ever waits
never@3156 4570 * on the condvar. Contention seen when trying to park implies that someone
never@3156 4571 * is unparking you, so don't wait. And spurious returns are fine, so there
never@3156 4572 * is no need to track notifications.
never@3156 4573 */
never@3156 4574
never@3156 4575 #define MAX_SECS 100000000
never@3156 4576 /*
never@3156 4577 * This code is common to bsd and solaris and will be moved to a
never@3156 4578 * common place in dolphin.
never@3156 4579 *
never@3156 4580 * The passed in time value is either a relative time in nanoseconds
never@3156 4581 * or an absolute time in milliseconds. Either way it has to be unpacked
never@3156 4582 * into suitable seconds and nanoseconds components and stored in the
never@3156 4583 * given timespec structure.
never@3156 4584 * Given time is a 64-bit value and the time_t used in the timespec is only
never@3156 4585 * a signed-32-bit value (except on 64-bit Bsd) we have to watch for
never@3156 4586 * overflow if times way in the future are given. Further on Solaris versions
never@3156 4587 * prior to 10 there is a restriction (see cond_timedwait) that the specified
never@3156 4588 * number of seconds, in abstime, is less than current_time + 100,000,000.
never@3156 4589 * As it will be 28 years before "now + 100000000" will overflow we can
never@3156 4590 * ignore overflow and just impose a hard-limit on seconds using the value
never@3156 4591 * of "now + 100,000,000". This places a limit on the timeout of about 3.17
never@3156 4592 * years from "now".
never@3156 4593 */
never@3156 4594
never@3156 4595 static void unpackTime(struct timespec* absTime, bool isAbsolute, jlong time) {
never@3156 4596 assert (time > 0, "convertTime");
never@3156 4597
never@3156 4598 struct timeval now;
never@3156 4599 int status = gettimeofday(&now, NULL);
never@3156 4600 assert(status == 0, "gettimeofday");
never@3156 4601
never@3156 4602 time_t max_secs = now.tv_sec + MAX_SECS;
never@3156 4603
never@3156 4604 if (isAbsolute) {
never@3156 4605 jlong secs = time / 1000;
never@3156 4606 if (secs > max_secs) {
never@3156 4607 absTime->tv_sec = max_secs;
never@3156 4608 }
never@3156 4609 else {
never@3156 4610 absTime->tv_sec = secs;
never@3156 4611 }
never@3156 4612 absTime->tv_nsec = (time % 1000) * NANOSECS_PER_MILLISEC;
never@3156 4613 }
never@3156 4614 else {
never@3156 4615 jlong secs = time / NANOSECS_PER_SEC;
never@3156 4616 if (secs >= MAX_SECS) {
never@3156 4617 absTime->tv_sec = max_secs;
never@3156 4618 absTime->tv_nsec = 0;
never@3156 4619 }
never@3156 4620 else {
never@3156 4621 absTime->tv_sec = now.tv_sec + secs;
never@3156 4622 absTime->tv_nsec = (time % NANOSECS_PER_SEC) + now.tv_usec*1000;
never@3156 4623 if (absTime->tv_nsec >= NANOSECS_PER_SEC) {
never@3156 4624 absTime->tv_nsec -= NANOSECS_PER_SEC;
never@3156 4625 ++absTime->tv_sec; // note: this must be <= max_secs
never@3156 4626 }
never@3156 4627 }
never@3156 4628 }
never@3156 4629 assert(absTime->tv_sec >= 0, "tv_sec < 0");
never@3156 4630 assert(absTime->tv_sec <= max_secs, "tv_sec > max_secs");
never@3156 4631 assert(absTime->tv_nsec >= 0, "tv_nsec < 0");
never@3156 4632 assert(absTime->tv_nsec < NANOSECS_PER_SEC, "tv_nsec >= nanos_per_sec");
never@3156 4633 }
never@3156 4634
never@3156 4635 void Parker::park(bool isAbsolute, jlong time) {
dcubed@4471 4636 // Ideally we'd do something useful while spinning, such
dcubed@4471 4637 // as calling unpackTime().
dcubed@4471 4638
never@3156 4639 // Optional fast-path check:
never@3156 4640 // Return immediately if a permit is available.
dcubed@4471 4641 // We depend on Atomic::xchg() having full barrier semantics
dcubed@4471 4642 // since we are doing a lock-free update to _counter.
dcubed@4471 4643 if (Atomic::xchg(0, &_counter) > 0) return;
never@3156 4644
never@3156 4645 Thread* thread = Thread::current();
never@3156 4646 assert(thread->is_Java_thread(), "Must be JavaThread");
never@3156 4647 JavaThread *jt = (JavaThread *)thread;
never@3156 4648
never@3156 4649 // Optional optimization -- avoid state transitions if there's an interrupt pending.
never@3156 4650 // Check interrupt before trying to wait
never@3156 4651 if (Thread::is_interrupted(thread, false)) {
never@3156 4652 return;
never@3156 4653 }
never@3156 4654
never@3156 4655 // Next, demultiplex/decode time arguments
never@3156 4656 struct timespec absTime;
never@3156 4657 if (time < 0 || (isAbsolute && time == 0) ) { // don't wait at all
never@3156 4658 return;
never@3156 4659 }
never@3156 4660 if (time > 0) {
never@3156 4661 unpackTime(&absTime, isAbsolute, time);
never@3156 4662 }
never@3156 4663
never@3156 4664
never@3156 4665 // Enter safepoint region
never@3156 4666 // Beware of deadlocks such as 6317397.
never@3156 4667 // The per-thread Parker:: mutex is a classic leaf-lock.
never@3156 4668 // In particular a thread must never block on the Threads_lock while
never@3156 4669 // holding the Parker:: mutex. If safepoints are pending both the
never@3156 4670 // the ThreadBlockInVM() CTOR and DTOR may grab Threads_lock.
never@3156 4671 ThreadBlockInVM tbivm(jt);
never@3156 4672
never@3156 4673 // Don't wait if cannot get lock since interference arises from
never@3156 4674 // unblocking. Also. check interrupt before trying wait
never@3156 4675 if (Thread::is_interrupted(thread, false) || pthread_mutex_trylock(_mutex) != 0) {
never@3156 4676 return;
never@3156 4677 }
never@3156 4678
never@3156 4679 int status ;
never@3156 4680 if (_counter > 0) { // no wait needed
never@3156 4681 _counter = 0;
never@3156 4682 status = pthread_mutex_unlock(_mutex);
never@3156 4683 assert (status == 0, "invariant") ;
dcubed@4471 4684 // Paranoia to ensure our locked and lock-free paths interact
dcubed@4471 4685 // correctly with each other and Java-level accesses.
never@3156 4686 OrderAccess::fence();
never@3156 4687 return;
never@3156 4688 }
never@3156 4689
never@3156 4690 #ifdef ASSERT
never@3156 4691 // Don't catch signals while blocked; let the running threads have the signals.
never@3156 4692 // (This allows a debugger to break into the running thread.)
never@3156 4693 sigset_t oldsigs;
never@3156 4694 sigset_t* allowdebug_blocked = os::Bsd::allowdebug_blocked_signals();
never@3156 4695 pthread_sigmask(SIG_BLOCK, allowdebug_blocked, &oldsigs);
never@3156 4696 #endif
never@3156 4697
never@3156 4698 OSThreadWaitState osts(thread->osthread(), false /* not Object.wait() */);
never@3156 4699 jt->set_suspend_equivalent();
never@3156 4700 // cleared by handle_special_suspend_equivalent_condition() or java_suspend_self()
never@3156 4701
never@3156 4702 if (time == 0) {
never@3156 4703 status = pthread_cond_wait (_cond, _mutex) ;
never@3156 4704 } else {
never@3156 4705 status = os::Bsd::safe_cond_timedwait (_cond, _mutex, &absTime) ;
never@3156 4706 if (status != 0 && WorkAroundNPTLTimedWaitHang) {
never@3156 4707 pthread_cond_destroy (_cond) ;
never@3156 4708 pthread_cond_init (_cond, NULL);
never@3156 4709 }
never@3156 4710 }
never@3156 4711 assert_status(status == 0 || status == EINTR ||
never@3156 4712 status == ETIMEDOUT,
never@3156 4713 status, "cond_timedwait");
never@3156 4714
never@3156 4715 #ifdef ASSERT
never@3156 4716 pthread_sigmask(SIG_SETMASK, &oldsigs, NULL);
never@3156 4717 #endif
never@3156 4718
never@3156 4719 _counter = 0 ;
never@3156 4720 status = pthread_mutex_unlock(_mutex) ;
never@3156 4721 assert_status(status == 0, status, "invariant") ;
dcubed@4471 4722 // Paranoia to ensure our locked and lock-free paths interact
dcubed@4471 4723 // correctly with each other and Java-level accesses.
dcubed@4471 4724 OrderAccess::fence();
dcubed@4471 4725
never@3156 4726 // If externally suspended while waiting, re-suspend
never@3156 4727 if (jt->handle_special_suspend_equivalent_condition()) {
never@3156 4728 jt->java_suspend_self();
never@3156 4729 }
never@3156 4730 }
never@3156 4731
never@3156 4732 void Parker::unpark() {
never@3156 4733 int s, status ;
never@3156 4734 status = pthread_mutex_lock(_mutex);
never@3156 4735 assert (status == 0, "invariant") ;
never@3156 4736 s = _counter;
never@3156 4737 _counter = 1;
never@3156 4738 if (s < 1) {
never@3156 4739 if (WorkAroundNPTLTimedWaitHang) {
never@3156 4740 status = pthread_cond_signal (_cond) ;
never@3156 4741 assert (status == 0, "invariant") ;
never@3156 4742 status = pthread_mutex_unlock(_mutex);
never@3156 4743 assert (status == 0, "invariant") ;
never@3156 4744 } else {
never@3156 4745 status = pthread_mutex_unlock(_mutex);
never@3156 4746 assert (status == 0, "invariant") ;
never@3156 4747 status = pthread_cond_signal (_cond) ;
never@3156 4748 assert (status == 0, "invariant") ;
never@3156 4749 }
never@3156 4750 } else {
never@3156 4751 pthread_mutex_unlock(_mutex);
never@3156 4752 assert (status == 0, "invariant") ;
never@3156 4753 }
never@3156 4754 }
never@3156 4755
never@3156 4756
never@3156 4757 /* Darwin has no "environ" in a dynamic library. */
never@3156 4758 #ifdef __APPLE__
never@3156 4759 #include <crt_externs.h>
never@3156 4760 #define environ (*_NSGetEnviron())
never@3156 4761 #else
never@3156 4762 extern char** environ;
never@3156 4763 #endif
never@3156 4764
never@3156 4765 // Run the specified command in a separate process. Return its exit value,
never@3156 4766 // or -1 on failure (e.g. can't fork a new process).
never@3156 4767 // Unlike system(), this function can be called from signal handler. It
never@3156 4768 // doesn't block SIGINT et al.
phh@9620 4769 int os::fork_and_exec(char* cmd, bool use_vfork_if_available) {
never@3156 4770 const char * argv[4] = {"sh", "-c", cmd, NULL};
never@3156 4771
never@3156 4772 // fork() in BsdThreads/NPTL is not async-safe. It needs to run
never@3156 4773 // pthread_atfork handlers and reset pthread library. All we need is a
never@3156 4774 // separate process to execve. Make a direct syscall to fork process.
never@3156 4775 // On IA64 there's no fork syscall, we have to use fork() and hope for
never@3156 4776 // the best...
never@3156 4777 pid_t pid = fork();
never@3156 4778
never@3156 4779 if (pid < 0) {
never@3156 4780 // fork failed
never@3156 4781 return -1;
never@3156 4782
never@3156 4783 } else if (pid == 0) {
never@3156 4784 // child process
never@3156 4785
never@3156 4786 // execve() in BsdThreads will call pthread_kill_other_threads_np()
never@3156 4787 // first to kill every thread on the thread list. Because this list is
never@3156 4788 // not reset by fork() (see notes above), execve() will instead kill
never@3156 4789 // every thread in the parent process. We know this is the only thread
never@3156 4790 // in the new process, so make a system call directly.
never@3156 4791 // IA64 should use normal execve() from glibc to match the glibc fork()
never@3156 4792 // above.
never@3156 4793 execve("/bin/sh", (char* const*)argv, environ);
never@3156 4794
never@3156 4795 // execve failed
never@3156 4796 _exit(-1);
never@3156 4797
never@3156 4798 } else {
never@3156 4799 // copied from J2SE ..._waitForProcessExit() in UNIXProcess_md.c; we don't
never@3156 4800 // care about the actual exit code, for now.
never@3156 4801
never@3156 4802 int status;
never@3156 4803
never@3156 4804 // Wait for the child process to exit. This returns immediately if
never@3156 4805 // the child has already exited. */
never@3156 4806 while (waitpid(pid, &status, 0) < 0) {
never@3156 4807 switch (errno) {
never@3156 4808 case ECHILD: return 0;
never@3156 4809 case EINTR: break;
never@3156 4810 default: return -1;
never@3156 4811 }
never@3156 4812 }
never@3156 4813
never@3156 4814 if (WIFEXITED(status)) {
never@3156 4815 // The child exited normally; get its exit code.
never@3156 4816 return WEXITSTATUS(status);
never@3156 4817 } else if (WIFSIGNALED(status)) {
never@3156 4818 // The child exited because of a signal
never@3156 4819 // The best value to return is 0x80 + signal number,
never@3156 4820 // because that is what all Unix shells do, and because
never@3156 4821 // it allows callers to distinguish between process exit and
never@3156 4822 // process death by signal.
never@3156 4823 return 0x80 + WTERMSIG(status);
never@3156 4824 } else {
never@3156 4825 // Unknown exit code; pass it through
never@3156 4826 return status;
never@3156 4827 }
never@3156 4828 }
never@3156 4829 }
never@3156 4830
never@3156 4831 // is_headless_jre()
never@3156 4832 //
dholmes@3281 4833 // Test for the existence of xawt/libmawt.so or libawt_xawt.so
never@3156 4834 // in order to report if we are running in a headless jre
never@3156 4835 //
dholmes@3281 4836 // Since JDK8 xawt/libmawt.so was moved into the same directory
dholmes@3281 4837 // as libawt.so, and renamed libawt_xawt.so
dholmes@3281 4838 //
never@3156 4839 bool os::is_headless_jre() {
dholmes@6015 4840 #ifdef __APPLE__
dholmes@6015 4841 // We no longer build headless-only on Mac OS X
dholmes@6015 4842 return false;
dholmes@6015 4843 #else
never@3156 4844 struct stat statbuf;
never@3156 4845 char buf[MAXPATHLEN];
never@3156 4846 char libmawtpath[MAXPATHLEN];
dcubed@3202 4847 const char *xawtstr = "/xawt/libmawt" JNI_LIB_SUFFIX;
dcubed@3625 4848 const char *new_xawtstr = "/libawt_xawt" JNI_LIB_SUFFIX;
never@3156 4849 char *p;
never@3156 4850
never@3156 4851 // Get path to libjvm.so
never@3156 4852 os::jvm_path(buf, sizeof(buf));
never@3156 4853
never@3156 4854 // Get rid of libjvm.so
never@3156 4855 p = strrchr(buf, '/');
never@3156 4856 if (p == NULL) return false;
never@3156 4857 else *p = '\0';
never@3156 4858
never@3156 4859 // Get rid of client or server
never@3156 4860 p = strrchr(buf, '/');
never@3156 4861 if (p == NULL) return false;
never@3156 4862 else *p = '\0';
never@3156 4863
never@3156 4864 // check xawt/libmawt.so
never@3156 4865 strcpy(libmawtpath, buf);
never@3156 4866 strcat(libmawtpath, xawtstr);
never@3156 4867 if (::stat(libmawtpath, &statbuf) == 0) return false;
never@3156 4868
dholmes@3281 4869 // check libawt_xawt.so
never@3156 4870 strcpy(libmawtpath, buf);
dholmes@3281 4871 strcat(libmawtpath, new_xawtstr);
never@3156 4872 if (::stat(libmawtpath, &statbuf) == 0) return false;
never@3156 4873
never@3156 4874 return true;
dholmes@6015 4875 #endif
never@3156 4876 }
mikael@3903 4877
mikael@3903 4878 // Get the default path to the core file
mikael@3903 4879 // Returns the length of the string
mikael@3903 4880 int os::get_core_path(char* buffer, size_t bufferSize) {
mikael@3903 4881 int n = jio_snprintf(buffer, bufferSize, "/cores");
mikael@3903 4882
mikael@3903 4883 // Truncate if theoretical string was longer than bufferSize
mikael@3903 4884 n = MIN2(n, (int)bufferSize);
mikael@3903 4885
mikael@3903 4886 return n;
mikael@3903 4887 }
sla@5237 4888
stefank@5578 4889 #ifndef PRODUCT
stefank@5578 4890 void TestReserveMemorySpecial_test() {
stefank@5578 4891 // No tests available for this platform
stefank@5578 4892 }
stefank@5578 4893 #endif

mercurial