src/share/vm/runtime/os.cpp

Wed, 10 Aug 2011 15:04:21 +0400

author
dsamersoff
date
Wed, 10 Aug 2011 15:04:21 +0400
changeset 3030
46cb9a7b8b01
parent 2997
bf6481e5f96d
child 3063
9f12ede5571a
permissions
-rw-r--r--

7073913: The fix for 7017193 causes segfaults
Summary: Buffer overflow in os::get_line_chars
Reviewed-by: coleenp, dholmes, dcubed
Contributed-by: aph@redhat.com

duke@435 1 /*
kvn@2557 2 * Copyright (c) 1997, 2011, Oracle and/or its affiliates. All rights reserved.
duke@435 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435 4 *
duke@435 5 * This code is free software; you can redistribute it and/or modify it
duke@435 6 * under the terms of the GNU General Public License version 2 only, as
duke@435 7 * published by the Free Software Foundation.
duke@435 8 *
duke@435 9 * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
duke@435 12 * version 2 for more details (a copy is included in the LICENSE file that
duke@435 13 * accompanied this code).
duke@435 14 *
duke@435 15 * You should have received a copy of the GNU General Public License version
duke@435 16 * 2 along with this work; if not, write to the Free Software Foundation,
duke@435 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435 18 *
trims@1907 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
trims@1907 20 * or visit www.oracle.com if you need additional information or have any
trims@1907 21 * questions.
duke@435 22 *
duke@435 23 */
duke@435 24
stefank@2314 25 #include "precompiled.hpp"
stefank@2314 26 #include "classfile/classLoader.hpp"
stefank@2314 27 #include "classfile/javaClasses.hpp"
stefank@2314 28 #include "classfile/systemDictionary.hpp"
stefank@2314 29 #include "classfile/vmSymbols.hpp"
stefank@2314 30 #include "code/icBuffer.hpp"
stefank@2314 31 #include "code/vtableStubs.hpp"
stefank@2314 32 #include "gc_implementation/shared/vmGCOperations.hpp"
stefank@2314 33 #include "interpreter/interpreter.hpp"
stefank@2314 34 #include "memory/allocation.inline.hpp"
stefank@2314 35 #include "oops/oop.inline.hpp"
stefank@2314 36 #include "prims/jvm.h"
stefank@2314 37 #include "prims/jvm_misc.hpp"
stefank@2314 38 #include "prims/privilegedStack.hpp"
stefank@2314 39 #include "runtime/arguments.hpp"
stefank@2314 40 #include "runtime/frame.inline.hpp"
stefank@2314 41 #include "runtime/interfaceSupport.hpp"
stefank@2314 42 #include "runtime/java.hpp"
stefank@2314 43 #include "runtime/javaCalls.hpp"
stefank@2314 44 #include "runtime/mutexLocker.hpp"
stefank@2314 45 #include "runtime/os.hpp"
stefank@2314 46 #include "runtime/stubRoutines.hpp"
stefank@2314 47 #include "services/attachListener.hpp"
stefank@2314 48 #include "services/threadService.hpp"
stefank@2314 49 #include "utilities/defaultStream.hpp"
stefank@2314 50 #include "utilities/events.hpp"
stefank@2314 51 #ifdef TARGET_OS_FAMILY_linux
stefank@2314 52 # include "os_linux.inline.hpp"
stefank@2314 53 # include "thread_linux.inline.hpp"
stefank@2314 54 #endif
stefank@2314 55 #ifdef TARGET_OS_FAMILY_solaris
stefank@2314 56 # include "os_solaris.inline.hpp"
stefank@2314 57 # include "thread_solaris.inline.hpp"
stefank@2314 58 #endif
stefank@2314 59 #ifdef TARGET_OS_FAMILY_windows
stefank@2314 60 # include "os_windows.inline.hpp"
stefank@2314 61 # include "thread_windows.inline.hpp"
stefank@2314 62 #endif
duke@435 63
duke@435 64 # include <signal.h>
duke@435 65
duke@435 66 OSThread* os::_starting_thread = NULL;
duke@435 67 address os::_polling_page = NULL;
duke@435 68 volatile int32_t* os::_mem_serialize_page = NULL;
duke@435 69 uintptr_t os::_serialize_page_mask = 0;
duke@435 70 long os::_rand_seed = 1;
duke@435 71 int os::_processor_count = 0;
duke@435 72 size_t os::_page_sizes[os::page_sizes_max];
duke@435 73
duke@435 74 #ifndef PRODUCT
kvn@2557 75 julong os::num_mallocs = 0; // # of calls to malloc/realloc
kvn@2557 76 julong os::alloc_bytes = 0; // # of bytes allocated
kvn@2557 77 julong os::num_frees = 0; // # of calls to free
kvn@2557 78 julong os::free_bytes = 0; // # of bytes freed
duke@435 79 #endif
duke@435 80
duke@435 81 // Fill in buffer with current local time as an ISO-8601 string.
duke@435 82 // E.g., yyyy-mm-ddThh:mm:ss-zzzz.
duke@435 83 // Returns buffer, or NULL if it failed.
duke@435 84 // This would mostly be a call to
duke@435 85 // strftime(...., "%Y-%m-%d" "T" "%H:%M:%S" "%z", ....)
duke@435 86 // except that on Windows the %z behaves badly, so we do it ourselves.
duke@435 87 // Also, people wanted milliseconds on there,
duke@435 88 // and strftime doesn't do milliseconds.
duke@435 89 char* os::iso8601_time(char* buffer, size_t buffer_length) {
duke@435 90 // Output will be of the form "YYYY-MM-DDThh:mm:ss.mmm+zzzz\0"
duke@435 91 // 1 2
duke@435 92 // 12345678901234567890123456789
duke@435 93 static const char* iso8601_format =
duke@435 94 "%04d-%02d-%02dT%02d:%02d:%02d.%03d%c%02d%02d";
duke@435 95 static const size_t needed_buffer = 29;
duke@435 96
duke@435 97 // Sanity check the arguments
duke@435 98 if (buffer == NULL) {
duke@435 99 assert(false, "NULL buffer");
duke@435 100 return NULL;
duke@435 101 }
duke@435 102 if (buffer_length < needed_buffer) {
duke@435 103 assert(false, "buffer_length too small");
duke@435 104 return NULL;
duke@435 105 }
duke@435 106 // Get the current time
sbohne@496 107 jlong milliseconds_since_19700101 = javaTimeMillis();
duke@435 108 const int milliseconds_per_microsecond = 1000;
duke@435 109 const time_t seconds_since_19700101 =
duke@435 110 milliseconds_since_19700101 / milliseconds_per_microsecond;
duke@435 111 const int milliseconds_after_second =
duke@435 112 milliseconds_since_19700101 % milliseconds_per_microsecond;
duke@435 113 // Convert the time value to a tm and timezone variable
ysr@983 114 struct tm time_struct;
ysr@983 115 if (localtime_pd(&seconds_since_19700101, &time_struct) == NULL) {
ysr@983 116 assert(false, "Failed localtime_pd");
duke@435 117 return NULL;
duke@435 118 }
duke@435 119 const time_t zone = timezone;
duke@435 120
duke@435 121 // If daylight savings time is in effect,
duke@435 122 // we are 1 hour East of our time zone
duke@435 123 const time_t seconds_per_minute = 60;
duke@435 124 const time_t minutes_per_hour = 60;
duke@435 125 const time_t seconds_per_hour = seconds_per_minute * minutes_per_hour;
duke@435 126 time_t UTC_to_local = zone;
duke@435 127 if (time_struct.tm_isdst > 0) {
duke@435 128 UTC_to_local = UTC_to_local - seconds_per_hour;
duke@435 129 }
duke@435 130 // Compute the time zone offset.
ysr@983 131 // localtime_pd() sets timezone to the difference (in seconds)
duke@435 132 // between UTC and and local time.
duke@435 133 // ISO 8601 says we need the difference between local time and UTC,
ysr@983 134 // we change the sign of the localtime_pd() result.
duke@435 135 const time_t local_to_UTC = -(UTC_to_local);
duke@435 136 // Then we have to figure out if if we are ahead (+) or behind (-) UTC.
duke@435 137 char sign_local_to_UTC = '+';
duke@435 138 time_t abs_local_to_UTC = local_to_UTC;
duke@435 139 if (local_to_UTC < 0) {
duke@435 140 sign_local_to_UTC = '-';
duke@435 141 abs_local_to_UTC = -(abs_local_to_UTC);
duke@435 142 }
duke@435 143 // Convert time zone offset seconds to hours and minutes.
duke@435 144 const time_t zone_hours = (abs_local_to_UTC / seconds_per_hour);
duke@435 145 const time_t zone_min =
duke@435 146 ((abs_local_to_UTC % seconds_per_hour) / seconds_per_minute);
duke@435 147
duke@435 148 // Print an ISO 8601 date and time stamp into the buffer
duke@435 149 const int year = 1900 + time_struct.tm_year;
duke@435 150 const int month = 1 + time_struct.tm_mon;
duke@435 151 const int printed = jio_snprintf(buffer, buffer_length, iso8601_format,
duke@435 152 year,
duke@435 153 month,
duke@435 154 time_struct.tm_mday,
duke@435 155 time_struct.tm_hour,
duke@435 156 time_struct.tm_min,
duke@435 157 time_struct.tm_sec,
duke@435 158 milliseconds_after_second,
duke@435 159 sign_local_to_UTC,
duke@435 160 zone_hours,
duke@435 161 zone_min);
duke@435 162 if (printed == 0) {
duke@435 163 assert(false, "Failed jio_printf");
duke@435 164 return NULL;
duke@435 165 }
duke@435 166 return buffer;
duke@435 167 }
duke@435 168
duke@435 169 OSReturn os::set_priority(Thread* thread, ThreadPriority p) {
duke@435 170 #ifdef ASSERT
duke@435 171 if (!(!thread->is_Java_thread() ||
duke@435 172 Thread::current() == thread ||
duke@435 173 Threads_lock->owned_by_self()
duke@435 174 || thread->is_Compiler_thread()
duke@435 175 )) {
duke@435 176 assert(false, "possibility of dangling Thread pointer");
duke@435 177 }
duke@435 178 #endif
duke@435 179
duke@435 180 if (p >= MinPriority && p <= MaxPriority) {
duke@435 181 int priority = java_to_os_priority[p];
duke@435 182 return set_native_priority(thread, priority);
duke@435 183 } else {
duke@435 184 assert(false, "Should not happen");
duke@435 185 return OS_ERR;
duke@435 186 }
duke@435 187 }
duke@435 188
duke@435 189
duke@435 190 OSReturn os::get_priority(const Thread* const thread, ThreadPriority& priority) {
duke@435 191 int p;
duke@435 192 int os_prio;
duke@435 193 OSReturn ret = get_native_priority(thread, &os_prio);
duke@435 194 if (ret != OS_OK) return ret;
duke@435 195
duke@435 196 for (p = MaxPriority; p > MinPriority && java_to_os_priority[p] > os_prio; p--) ;
duke@435 197 priority = (ThreadPriority)p;
duke@435 198 return OS_OK;
duke@435 199 }
duke@435 200
duke@435 201
duke@435 202 // --------------------- sun.misc.Signal (optional) ---------------------
duke@435 203
duke@435 204
duke@435 205 // SIGBREAK is sent by the keyboard to query the VM state
duke@435 206 #ifndef SIGBREAK
duke@435 207 #define SIGBREAK SIGQUIT
duke@435 208 #endif
duke@435 209
duke@435 210 // sigexitnum_pd is a platform-specific special signal used for terminating the Signal thread.
duke@435 211
duke@435 212
duke@435 213 static void signal_thread_entry(JavaThread* thread, TRAPS) {
duke@435 214 os::set_priority(thread, NearMaxPriority);
duke@435 215 while (true) {
duke@435 216 int sig;
duke@435 217 {
duke@435 218 // FIXME : Currently we have not decieded what should be the status
duke@435 219 // for this java thread blocked here. Once we decide about
duke@435 220 // that we should fix this.
duke@435 221 sig = os::signal_wait();
duke@435 222 }
duke@435 223 if (sig == os::sigexitnum_pd()) {
duke@435 224 // Terminate the signal thread
duke@435 225 return;
duke@435 226 }
duke@435 227
duke@435 228 switch (sig) {
duke@435 229 case SIGBREAK: {
duke@435 230 // Check if the signal is a trigger to start the Attach Listener - in that
duke@435 231 // case don't print stack traces.
duke@435 232 if (!DisableAttachMechanism && AttachListener::is_init_trigger()) {
duke@435 233 continue;
duke@435 234 }
duke@435 235 // Print stack traces
duke@435 236 // Any SIGBREAK operations added here should make sure to flush
duke@435 237 // the output stream (e.g. tty->flush()) after output. See 4803766.
duke@435 238 // Each module also prints an extra carriage return after its output.
duke@435 239 VM_PrintThreads op;
duke@435 240 VMThread::execute(&op);
duke@435 241 VM_PrintJNI jni_op;
duke@435 242 VMThread::execute(&jni_op);
duke@435 243 VM_FindDeadlocks op1(tty);
duke@435 244 VMThread::execute(&op1);
duke@435 245 Universe::print_heap_at_SIGBREAK();
duke@435 246 if (PrintClassHistogram) {
ysr@1050 247 VM_GC_HeapInspection op1(gclog_or_tty, true /* force full GC before heap inspection */,
ysr@1050 248 true /* need_prologue */);
duke@435 249 VMThread::execute(&op1);
duke@435 250 }
duke@435 251 if (JvmtiExport::should_post_data_dump()) {
duke@435 252 JvmtiExport::post_data_dump();
duke@435 253 }
duke@435 254 break;
duke@435 255 }
duke@435 256 default: {
duke@435 257 // Dispatch the signal to java
duke@435 258 HandleMark hm(THREAD);
coleenp@2497 259 klassOop k = SystemDictionary::resolve_or_null(vmSymbols::sun_misc_Signal(), THREAD);
duke@435 260 KlassHandle klass (THREAD, k);
duke@435 261 if (klass.not_null()) {
duke@435 262 JavaValue result(T_VOID);
duke@435 263 JavaCallArguments args;
duke@435 264 args.push_int(sig);
duke@435 265 JavaCalls::call_static(
duke@435 266 &result,
duke@435 267 klass,
coleenp@2497 268 vmSymbols::dispatch_name(),
coleenp@2497 269 vmSymbols::int_void_signature(),
duke@435 270 &args,
duke@435 271 THREAD
duke@435 272 );
duke@435 273 }
duke@435 274 if (HAS_PENDING_EXCEPTION) {
duke@435 275 // tty is initialized early so we don't expect it to be null, but
duke@435 276 // if it is we can't risk doing an initialization that might
duke@435 277 // trigger additional out-of-memory conditions
duke@435 278 if (tty != NULL) {
duke@435 279 char klass_name[256];
duke@435 280 char tmp_sig_name[16];
duke@435 281 const char* sig_name = "UNKNOWN";
duke@435 282 instanceKlass::cast(PENDING_EXCEPTION->klass())->
duke@435 283 name()->as_klass_external_name(klass_name, 256);
duke@435 284 if (os::exception_name(sig, tmp_sig_name, 16) != NULL)
duke@435 285 sig_name = tmp_sig_name;
duke@435 286 warning("Exception %s occurred dispatching signal %s to handler"
duke@435 287 "- the VM may need to be forcibly terminated",
duke@435 288 klass_name, sig_name );
duke@435 289 }
duke@435 290 CLEAR_PENDING_EXCEPTION;
duke@435 291 }
duke@435 292 }
duke@435 293 }
duke@435 294 }
duke@435 295 }
duke@435 296
duke@435 297
duke@435 298 void os::signal_init() {
duke@435 299 if (!ReduceSignalUsage) {
duke@435 300 // Setup JavaThread for processing signals
duke@435 301 EXCEPTION_MARK;
coleenp@2497 302 klassOop k = SystemDictionary::resolve_or_fail(vmSymbols::java_lang_Thread(), true, CHECK);
duke@435 303 instanceKlassHandle klass (THREAD, k);
duke@435 304 instanceHandle thread_oop = klass->allocate_instance_handle(CHECK);
duke@435 305
duke@435 306 const char thread_name[] = "Signal Dispatcher";
duke@435 307 Handle string = java_lang_String::create_from_str(thread_name, CHECK);
duke@435 308
duke@435 309 // Initialize thread_oop to put it into the system threadGroup
duke@435 310 Handle thread_group (THREAD, Universe::system_thread_group());
duke@435 311 JavaValue result(T_VOID);
duke@435 312 JavaCalls::call_special(&result, thread_oop,
duke@435 313 klass,
coleenp@2497 314 vmSymbols::object_initializer_name(),
coleenp@2497 315 vmSymbols::threadgroup_string_void_signature(),
duke@435 316 thread_group,
duke@435 317 string,
duke@435 318 CHECK);
duke@435 319
never@1577 320 KlassHandle group(THREAD, SystemDictionary::ThreadGroup_klass());
duke@435 321 JavaCalls::call_special(&result,
duke@435 322 thread_group,
duke@435 323 group,
coleenp@2497 324 vmSymbols::add_method_name(),
coleenp@2497 325 vmSymbols::thread_void_signature(),
duke@435 326 thread_oop, // ARG 1
duke@435 327 CHECK);
duke@435 328
duke@435 329 os::signal_init_pd();
duke@435 330
duke@435 331 { MutexLocker mu(Threads_lock);
duke@435 332 JavaThread* signal_thread = new JavaThread(&signal_thread_entry);
duke@435 333
duke@435 334 // At this point it may be possible that no osthread was created for the
duke@435 335 // JavaThread due to lack of memory. We would have to throw an exception
duke@435 336 // in that case. However, since this must work and we do not allow
duke@435 337 // exceptions anyway, check and abort if this fails.
duke@435 338 if (signal_thread == NULL || signal_thread->osthread() == NULL) {
duke@435 339 vm_exit_during_initialization("java.lang.OutOfMemoryError",
duke@435 340 "unable to create new native thread");
duke@435 341 }
duke@435 342
duke@435 343 java_lang_Thread::set_thread(thread_oop(), signal_thread);
duke@435 344 java_lang_Thread::set_priority(thread_oop(), NearMaxPriority);
duke@435 345 java_lang_Thread::set_daemon(thread_oop());
duke@435 346
duke@435 347 signal_thread->set_threadObj(thread_oop());
duke@435 348 Threads::add(signal_thread);
duke@435 349 Thread::start(signal_thread);
duke@435 350 }
duke@435 351 // Handle ^BREAK
duke@435 352 os::signal(SIGBREAK, os::user_handler());
duke@435 353 }
duke@435 354 }
duke@435 355
duke@435 356
duke@435 357 void os::terminate_signal_thread() {
duke@435 358 if (!ReduceSignalUsage)
duke@435 359 signal_notify(sigexitnum_pd());
duke@435 360 }
duke@435 361
duke@435 362
duke@435 363 // --------------------- loading libraries ---------------------
duke@435 364
duke@435 365 typedef jint (JNICALL *JNI_OnLoad_t)(JavaVM *, void *);
duke@435 366 extern struct JavaVM_ main_vm;
duke@435 367
duke@435 368 static void* _native_java_library = NULL;
duke@435 369
duke@435 370 void* os::native_java_library() {
duke@435 371 if (_native_java_library == NULL) {
duke@435 372 char buffer[JVM_MAXPATHLEN];
duke@435 373 char ebuf[1024];
duke@435 374
kamg@677 375 // Try to load verify dll first. In 1.3 java dll depends on it and is not
kamg@677 376 // always able to find it when the loading executable is outside the JDK.
duke@435 377 // In order to keep working with 1.2 we ignore any loading errors.
kamg@677 378 dll_build_name(buffer, sizeof(buffer), Arguments::get_dll_dir(), "verify");
kamg@677 379 dll_load(buffer, ebuf, sizeof(ebuf));
duke@435 380
duke@435 381 // Load java dll
kamg@677 382 dll_build_name(buffer, sizeof(buffer), Arguments::get_dll_dir(), "java");
kamg@677 383 _native_java_library = dll_load(buffer, ebuf, sizeof(ebuf));
duke@435 384 if (_native_java_library == NULL) {
duke@435 385 vm_exit_during_initialization("Unable to load native library", ebuf);
duke@435 386 }
kamg@677 387 }
kamg@677 388 static jboolean onLoaded = JNI_FALSE;
kamg@677 389 if (onLoaded) {
kamg@677 390 // We may have to wait to fire OnLoad until TLS is initialized.
kamg@677 391 if (ThreadLocalStorage::is_initialized()) {
kamg@677 392 // The JNI_OnLoad handling is normally done by method load in
kamg@677 393 // java.lang.ClassLoader$NativeLibrary, but the VM loads the base library
kamg@677 394 // explicitly so we have to check for JNI_OnLoad as well
kamg@677 395 const char *onLoadSymbols[] = JNI_ONLOAD_SYMBOLS;
kamg@677 396 JNI_OnLoad_t JNI_OnLoad = CAST_TO_FN_PTR(
kamg@677 397 JNI_OnLoad_t, dll_lookup(_native_java_library, onLoadSymbols[0]));
kamg@677 398 if (JNI_OnLoad != NULL) {
kamg@677 399 JavaThread* thread = JavaThread::current();
kamg@677 400 ThreadToNativeFromVM ttn(thread);
kamg@677 401 HandleMark hm(thread);
kamg@677 402 jint ver = (*JNI_OnLoad)(&main_vm, NULL);
kamg@677 403 onLoaded = JNI_TRUE;
kamg@677 404 if (!Threads::is_supported_jni_version_including_1_1(ver)) {
kamg@677 405 vm_exit_during_initialization("Unsupported JNI version");
kamg@677 406 }
duke@435 407 }
duke@435 408 }
duke@435 409 }
duke@435 410 return _native_java_library;
duke@435 411 }
duke@435 412
duke@435 413 // --------------------- heap allocation utilities ---------------------
duke@435 414
duke@435 415 char *os::strdup(const char *str) {
duke@435 416 size_t size = strlen(str);
duke@435 417 char *dup_str = (char *)malloc(size + 1);
duke@435 418 if (dup_str == NULL) return NULL;
duke@435 419 strcpy(dup_str, str);
duke@435 420 return dup_str;
duke@435 421 }
duke@435 422
duke@435 423
duke@435 424
duke@435 425 #ifdef ASSERT
duke@435 426 #define space_before (MallocCushion + sizeof(double))
duke@435 427 #define space_after MallocCushion
duke@435 428 #define size_addr_from_base(p) (size_t*)(p + space_before - sizeof(size_t))
duke@435 429 #define size_addr_from_obj(p) ((size_t*)p - 1)
duke@435 430 // MallocCushion: size of extra cushion allocated around objects with +UseMallocOnly
duke@435 431 // NB: cannot be debug variable, because these aren't set from the command line until
duke@435 432 // *after* the first few allocs already happened
duke@435 433 #define MallocCushion 16
duke@435 434 #else
duke@435 435 #define space_before 0
duke@435 436 #define space_after 0
duke@435 437 #define size_addr_from_base(p) should not use w/o ASSERT
duke@435 438 #define size_addr_from_obj(p) should not use w/o ASSERT
duke@435 439 #define MallocCushion 0
duke@435 440 #endif
duke@435 441 #define paranoid 0 /* only set to 1 if you suspect checking code has bug */
duke@435 442
duke@435 443 #ifdef ASSERT
duke@435 444 inline size_t get_size(void* obj) {
duke@435 445 size_t size = *size_addr_from_obj(obj);
jcoomes@1845 446 if (size < 0) {
jcoomes@1845 447 fatal(err_msg("free: size field of object #" PTR_FORMAT " was overwritten ("
jcoomes@1845 448 SIZE_FORMAT ")", obj, size));
jcoomes@1845 449 }
duke@435 450 return size;
duke@435 451 }
duke@435 452
duke@435 453 u_char* find_cushion_backwards(u_char* start) {
duke@435 454 u_char* p = start;
duke@435 455 while (p[ 0] != badResourceValue || p[-1] != badResourceValue ||
duke@435 456 p[-2] != badResourceValue || p[-3] != badResourceValue) p--;
duke@435 457 // ok, we have four consecutive marker bytes; find start
duke@435 458 u_char* q = p - 4;
duke@435 459 while (*q == badResourceValue) q--;
duke@435 460 return q + 1;
duke@435 461 }
duke@435 462
duke@435 463 u_char* find_cushion_forwards(u_char* start) {
duke@435 464 u_char* p = start;
duke@435 465 while (p[0] != badResourceValue || p[1] != badResourceValue ||
duke@435 466 p[2] != badResourceValue || p[3] != badResourceValue) p++;
duke@435 467 // ok, we have four consecutive marker bytes; find end of cushion
duke@435 468 u_char* q = p + 4;
duke@435 469 while (*q == badResourceValue) q++;
duke@435 470 return q - MallocCushion;
duke@435 471 }
duke@435 472
duke@435 473 void print_neighbor_blocks(void* ptr) {
duke@435 474 // find block allocated before ptr (not entirely crash-proof)
duke@435 475 if (MallocCushion < 4) {
duke@435 476 tty->print_cr("### cannot find previous block (MallocCushion < 4)");
duke@435 477 return;
duke@435 478 }
duke@435 479 u_char* start_of_this_block = (u_char*)ptr - space_before;
duke@435 480 u_char* end_of_prev_block_data = start_of_this_block - space_after -1;
duke@435 481 // look for cushion in front of prev. block
duke@435 482 u_char* start_of_prev_block = find_cushion_backwards(end_of_prev_block_data);
duke@435 483 ptrdiff_t size = *size_addr_from_base(start_of_prev_block);
duke@435 484 u_char* obj = start_of_prev_block + space_before;
duke@435 485 if (size <= 0 ) {
duke@435 486 // start is bad; mayhave been confused by OS data inbetween objects
duke@435 487 // search one more backwards
duke@435 488 start_of_prev_block = find_cushion_backwards(start_of_prev_block);
duke@435 489 size = *size_addr_from_base(start_of_prev_block);
duke@435 490 obj = start_of_prev_block + space_before;
duke@435 491 }
duke@435 492
duke@435 493 if (start_of_prev_block + space_before + size + space_after == start_of_this_block) {
kvn@2557 494 tty->print_cr("### previous object: " PTR_FORMAT " (" SSIZE_FORMAT " bytes)", obj, size);
duke@435 495 } else {
kvn@2557 496 tty->print_cr("### previous object (not sure if correct): " PTR_FORMAT " (" SSIZE_FORMAT " bytes)", obj, size);
duke@435 497 }
duke@435 498
duke@435 499 // now find successor block
duke@435 500 u_char* start_of_next_block = (u_char*)ptr + *size_addr_from_obj(ptr) + space_after;
duke@435 501 start_of_next_block = find_cushion_forwards(start_of_next_block);
duke@435 502 u_char* next_obj = start_of_next_block + space_before;
duke@435 503 ptrdiff_t next_size = *size_addr_from_base(start_of_next_block);
duke@435 504 if (start_of_next_block[0] == badResourceValue &&
duke@435 505 start_of_next_block[1] == badResourceValue &&
duke@435 506 start_of_next_block[2] == badResourceValue &&
duke@435 507 start_of_next_block[3] == badResourceValue) {
kvn@2557 508 tty->print_cr("### next object: " PTR_FORMAT " (" SSIZE_FORMAT " bytes)", next_obj, next_size);
duke@435 509 } else {
kvn@2557 510 tty->print_cr("### next object (not sure if correct): " PTR_FORMAT " (" SSIZE_FORMAT " bytes)", next_obj, next_size);
duke@435 511 }
duke@435 512 }
duke@435 513
duke@435 514
duke@435 515 void report_heap_error(void* memblock, void* bad, const char* where) {
kvn@2557 516 tty->print_cr("## nof_mallocs = " UINT64_FORMAT ", nof_frees = " UINT64_FORMAT, os::num_mallocs, os::num_frees);
kvn@2557 517 tty->print_cr("## memory stomp: byte at " PTR_FORMAT " %s object " PTR_FORMAT, bad, where, memblock);
duke@435 518 print_neighbor_blocks(memblock);
duke@435 519 fatal("memory stomping error");
duke@435 520 }
duke@435 521
duke@435 522 void verify_block(void* memblock) {
duke@435 523 size_t size = get_size(memblock);
duke@435 524 if (MallocCushion) {
duke@435 525 u_char* ptr = (u_char*)memblock - space_before;
duke@435 526 for (int i = 0; i < MallocCushion; i++) {
duke@435 527 if (ptr[i] != badResourceValue) {
duke@435 528 report_heap_error(memblock, ptr+i, "in front of");
duke@435 529 }
duke@435 530 }
duke@435 531 u_char* end = (u_char*)memblock + size + space_after;
duke@435 532 for (int j = -MallocCushion; j < 0; j++) {
duke@435 533 if (end[j] != badResourceValue) {
duke@435 534 report_heap_error(memblock, end+j, "after");
duke@435 535 }
duke@435 536 }
duke@435 537 }
duke@435 538 }
duke@435 539 #endif
duke@435 540
duke@435 541 void* os::malloc(size_t size) {
kvn@2557 542 NOT_PRODUCT(inc_stat_counter(&num_mallocs, 1));
kvn@2557 543 NOT_PRODUCT(inc_stat_counter(&alloc_bytes, size));
duke@435 544
duke@435 545 if (size == 0) {
duke@435 546 // return a valid pointer if size is zero
duke@435 547 // if NULL is returned the calling functions assume out of memory.
duke@435 548 size = 1;
duke@435 549 }
duke@435 550
duke@435 551 NOT_PRODUCT(if (MallocVerifyInterval > 0) check_heap());
duke@435 552 u_char* ptr = (u_char*)::malloc(size + space_before + space_after);
duke@435 553 #ifdef ASSERT
duke@435 554 if (ptr == NULL) return NULL;
duke@435 555 if (MallocCushion) {
duke@435 556 for (u_char* p = ptr; p < ptr + MallocCushion; p++) *p = (u_char)badResourceValue;
duke@435 557 u_char* end = ptr + space_before + size;
duke@435 558 for (u_char* pq = ptr+MallocCushion; pq < end; pq++) *pq = (u_char)uninitBlockPad;
duke@435 559 for (u_char* q = end; q < end + MallocCushion; q++) *q = (u_char)badResourceValue;
duke@435 560 }
duke@435 561 // put size just before data
duke@435 562 *size_addr_from_base(ptr) = size;
duke@435 563 #endif
duke@435 564 u_char* memblock = ptr + space_before;
duke@435 565 if ((intptr_t)memblock == (intptr_t)MallocCatchPtr) {
kvn@2557 566 tty->print_cr("os::malloc caught, " SIZE_FORMAT " bytes --> " PTR_FORMAT, size, memblock);
duke@435 567 breakpoint();
duke@435 568 }
duke@435 569 debug_only(if (paranoid) verify_block(memblock));
kvn@2557 570 if (PrintMalloc && tty != NULL) tty->print_cr("os::malloc " SIZE_FORMAT " bytes --> " PTR_FORMAT, size, memblock);
duke@435 571 return memblock;
duke@435 572 }
duke@435 573
duke@435 574
duke@435 575 void* os::realloc(void *memblock, size_t size) {
duke@435 576 #ifndef ASSERT
kvn@2557 577 NOT_PRODUCT(inc_stat_counter(&num_mallocs, 1));
kvn@2557 578 NOT_PRODUCT(inc_stat_counter(&alloc_bytes, size));
duke@435 579 return ::realloc(memblock, size);
duke@435 580 #else
duke@435 581 if (memblock == NULL) {
kvn@2557 582 return malloc(size);
duke@435 583 }
duke@435 584 if ((intptr_t)memblock == (intptr_t)MallocCatchPtr) {
kvn@2557 585 tty->print_cr("os::realloc caught " PTR_FORMAT, memblock);
duke@435 586 breakpoint();
duke@435 587 }
duke@435 588 verify_block(memblock);
duke@435 589 NOT_PRODUCT(if (MallocVerifyInterval > 0) check_heap());
duke@435 590 if (size == 0) return NULL;
duke@435 591 // always move the block
duke@435 592 void* ptr = malloc(size);
kvn@2557 593 if (PrintMalloc) tty->print_cr("os::remalloc " SIZE_FORMAT " bytes, " PTR_FORMAT " --> " PTR_FORMAT, size, memblock, ptr);
duke@435 594 // Copy to new memory if malloc didn't fail
duke@435 595 if ( ptr != NULL ) {
duke@435 596 memcpy(ptr, memblock, MIN2(size, get_size(memblock)));
duke@435 597 if (paranoid) verify_block(ptr);
duke@435 598 if ((intptr_t)ptr == (intptr_t)MallocCatchPtr) {
kvn@2557 599 tty->print_cr("os::realloc caught, " SIZE_FORMAT " bytes --> " PTR_FORMAT, size, ptr);
duke@435 600 breakpoint();
duke@435 601 }
duke@435 602 free(memblock);
duke@435 603 }
duke@435 604 return ptr;
duke@435 605 #endif
duke@435 606 }
duke@435 607
duke@435 608
duke@435 609 void os::free(void *memblock) {
kvn@2557 610 NOT_PRODUCT(inc_stat_counter(&num_frees, 1));
duke@435 611 #ifdef ASSERT
duke@435 612 if (memblock == NULL) return;
duke@435 613 if ((intptr_t)memblock == (intptr_t)MallocCatchPtr) {
kvn@2557 614 if (tty != NULL) tty->print_cr("os::free caught " PTR_FORMAT, memblock);
duke@435 615 breakpoint();
duke@435 616 }
duke@435 617 verify_block(memblock);
duke@435 618 NOT_PRODUCT(if (MallocVerifyInterval > 0) check_heap());
duke@435 619 // Added by detlefs.
duke@435 620 if (MallocCushion) {
duke@435 621 u_char* ptr = (u_char*)memblock - space_before;
duke@435 622 for (u_char* p = ptr; p < ptr + MallocCushion; p++) {
duke@435 623 guarantee(*p == badResourceValue,
duke@435 624 "Thing freed should be malloc result.");
duke@435 625 *p = (u_char)freeBlockPad;
duke@435 626 }
duke@435 627 size_t size = get_size(memblock);
kvn@2557 628 inc_stat_counter(&free_bytes, size);
duke@435 629 u_char* end = ptr + space_before + size;
duke@435 630 for (u_char* q = end; q < end + MallocCushion; q++) {
duke@435 631 guarantee(*q == badResourceValue,
duke@435 632 "Thing freed should be malloc result.");
duke@435 633 *q = (u_char)freeBlockPad;
duke@435 634 }
kvn@2557 635 if (PrintMalloc && tty != NULL)
coleenp@2615 636 fprintf(stderr, "os::free " SIZE_FORMAT " bytes --> " PTR_FORMAT "\n", size, (uintptr_t)memblock);
kvn@2557 637 } else if (PrintMalloc && tty != NULL) {
kvn@2557 638 // tty->print_cr("os::free %p", memblock);
coleenp@2615 639 fprintf(stderr, "os::free " PTR_FORMAT "\n", (uintptr_t)memblock);
duke@435 640 }
duke@435 641 #endif
duke@435 642 ::free((char*)memblock - space_before);
duke@435 643 }
duke@435 644
duke@435 645 void os::init_random(long initval) {
duke@435 646 _rand_seed = initval;
duke@435 647 }
duke@435 648
duke@435 649
duke@435 650 long os::random() {
duke@435 651 /* standard, well-known linear congruential random generator with
duke@435 652 * next_rand = (16807*seed) mod (2**31-1)
duke@435 653 * see
duke@435 654 * (1) "Random Number Generators: Good Ones Are Hard to Find",
duke@435 655 * S.K. Park and K.W. Miller, Communications of the ACM 31:10 (Oct 1988),
duke@435 656 * (2) "Two Fast Implementations of the 'Minimal Standard' Random
duke@435 657 * Number Generator", David G. Carta, Comm. ACM 33, 1 (Jan 1990), pp. 87-88.
duke@435 658 */
duke@435 659 const long a = 16807;
duke@435 660 const unsigned long m = 2147483647;
duke@435 661 const long q = m / a; assert(q == 127773, "weird math");
duke@435 662 const long r = m % a; assert(r == 2836, "weird math");
duke@435 663
duke@435 664 // compute az=2^31p+q
duke@435 665 unsigned long lo = a * (long)(_rand_seed & 0xFFFF);
duke@435 666 unsigned long hi = a * (long)((unsigned long)_rand_seed >> 16);
duke@435 667 lo += (hi & 0x7FFF) << 16;
duke@435 668
duke@435 669 // if q overflowed, ignore the overflow and increment q
duke@435 670 if (lo > m) {
duke@435 671 lo &= m;
duke@435 672 ++lo;
duke@435 673 }
duke@435 674 lo += hi >> 15;
duke@435 675
duke@435 676 // if (p+q) overflowed, ignore the overflow and increment (p+q)
duke@435 677 if (lo > m) {
duke@435 678 lo &= m;
duke@435 679 ++lo;
duke@435 680 }
duke@435 681 return (_rand_seed = lo);
duke@435 682 }
duke@435 683
duke@435 684 // The INITIALIZED state is distinguished from the SUSPENDED state because the
duke@435 685 // conditions in which a thread is first started are different from those in which
duke@435 686 // a suspension is resumed. These differences make it hard for us to apply the
duke@435 687 // tougher checks when starting threads that we want to do when resuming them.
duke@435 688 // However, when start_thread is called as a result of Thread.start, on a Java
duke@435 689 // thread, the operation is synchronized on the Java Thread object. So there
duke@435 690 // cannot be a race to start the thread and hence for the thread to exit while
duke@435 691 // we are working on it. Non-Java threads that start Java threads either have
duke@435 692 // to do so in a context in which races are impossible, or should do appropriate
duke@435 693 // locking.
duke@435 694
duke@435 695 void os::start_thread(Thread* thread) {
duke@435 696 // guard suspend/resume
duke@435 697 MutexLockerEx ml(thread->SR_lock(), Mutex::_no_safepoint_check_flag);
duke@435 698 OSThread* osthread = thread->osthread();
duke@435 699 osthread->set_state(RUNNABLE);
duke@435 700 pd_start_thread(thread);
duke@435 701 }
duke@435 702
duke@435 703 //---------------------------------------------------------------------------
duke@435 704 // Helper functions for fatal error handler
duke@435 705
duke@435 706 void os::print_hex_dump(outputStream* st, address start, address end, int unitsize) {
duke@435 707 assert(unitsize == 1 || unitsize == 2 || unitsize == 4 || unitsize == 8, "just checking");
duke@435 708
duke@435 709 int cols = 0;
duke@435 710 int cols_per_line = 0;
duke@435 711 switch (unitsize) {
duke@435 712 case 1: cols_per_line = 16; break;
duke@435 713 case 2: cols_per_line = 8; break;
duke@435 714 case 4: cols_per_line = 4; break;
duke@435 715 case 8: cols_per_line = 2; break;
duke@435 716 default: return;
duke@435 717 }
duke@435 718
duke@435 719 address p = start;
duke@435 720 st->print(PTR_FORMAT ": ", start);
duke@435 721 while (p < end) {
duke@435 722 switch (unitsize) {
duke@435 723 case 1: st->print("%02x", *(u1*)p); break;
duke@435 724 case 2: st->print("%04x", *(u2*)p); break;
duke@435 725 case 4: st->print("%08x", *(u4*)p); break;
duke@435 726 case 8: st->print("%016" FORMAT64_MODIFIER "x", *(u8*)p); break;
duke@435 727 }
duke@435 728 p += unitsize;
duke@435 729 cols++;
duke@435 730 if (cols >= cols_per_line && p < end) {
duke@435 731 cols = 0;
duke@435 732 st->cr();
duke@435 733 st->print(PTR_FORMAT ": ", p);
duke@435 734 } else {
duke@435 735 st->print(" ");
duke@435 736 }
duke@435 737 }
duke@435 738 st->cr();
duke@435 739 }
duke@435 740
duke@435 741 void os::print_environment_variables(outputStream* st, const char** env_list,
duke@435 742 char* buffer, int len) {
duke@435 743 if (env_list) {
duke@435 744 st->print_cr("Environment Variables:");
duke@435 745
duke@435 746 for (int i = 0; env_list[i] != NULL; i++) {
duke@435 747 if (getenv(env_list[i], buffer, len)) {
duke@435 748 st->print(env_list[i]);
duke@435 749 st->print("=");
duke@435 750 st->print_cr(buffer);
duke@435 751 }
duke@435 752 }
duke@435 753 }
duke@435 754 }
duke@435 755
duke@435 756 void os::print_cpu_info(outputStream* st) {
duke@435 757 // cpu
duke@435 758 st->print("CPU:");
duke@435 759 st->print("total %d", os::processor_count());
duke@435 760 // It's not safe to query number of active processors after crash
duke@435 761 // st->print("(active %d)", os::active_processor_count());
duke@435 762 st->print(" %s", VM_Version::cpu_features());
duke@435 763 st->cr();
jcoomes@2997 764 pd_print_cpu_info(st);
duke@435 765 }
duke@435 766
duke@435 767 void os::print_date_and_time(outputStream *st) {
duke@435 768 time_t tloc;
duke@435 769 (void)time(&tloc);
duke@435 770 st->print("time: %s", ctime(&tloc)); // ctime adds newline.
duke@435 771
duke@435 772 double t = os::elapsedTime();
duke@435 773 // NOTE: It tends to crash after a SEGV if we want to printf("%f",...) in
duke@435 774 // Linux. Must be a bug in glibc ? Workaround is to round "t" to int
duke@435 775 // before printf. We lost some precision, but who cares?
duke@435 776 st->print_cr("elapsed time: %d seconds", (int)t);
duke@435 777 }
duke@435 778
bobv@2036 779 // moved from debug.cpp (used to be find()) but still called from there
never@2262 780 // The verbose parameter is only set by the debug code in one case
never@2262 781 void os::print_location(outputStream* st, intptr_t x, bool verbose) {
bobv@2036 782 address addr = (address)x;
bobv@2036 783 CodeBlob* b = CodeCache::find_blob_unsafe(addr);
bobv@2036 784 if (b != NULL) {
bobv@2036 785 if (b->is_buffer_blob()) {
bobv@2036 786 // the interpreter is generated into a buffer blob
bobv@2036 787 InterpreterCodelet* i = Interpreter::codelet_containing(addr);
bobv@2036 788 if (i != NULL) {
never@2262 789 st->print_cr(INTPTR_FORMAT " is an Interpreter codelet", addr);
bobv@2036 790 i->print_on(st);
bobv@2036 791 return;
bobv@2036 792 }
bobv@2036 793 if (Interpreter::contains(addr)) {
bobv@2036 794 st->print_cr(INTPTR_FORMAT " is pointing into interpreter code"
bobv@2036 795 " (not bytecode specific)", addr);
bobv@2036 796 return;
bobv@2036 797 }
bobv@2036 798 //
bobv@2036 799 if (AdapterHandlerLibrary::contains(b)) {
never@2262 800 st->print_cr(INTPTR_FORMAT " is an AdapterHandler", addr);
bobv@2036 801 AdapterHandlerLibrary::print_handler_on(st, b);
bobv@2036 802 }
bobv@2036 803 // the stubroutines are generated into a buffer blob
bobv@2036 804 StubCodeDesc* d = StubCodeDesc::desc_for(addr);
bobv@2036 805 if (d != NULL) {
bobv@2036 806 d->print_on(st);
never@2262 807 if (verbose) st->cr();
bobv@2036 808 return;
bobv@2036 809 }
bobv@2036 810 if (StubRoutines::contains(addr)) {
bobv@2036 811 st->print_cr(INTPTR_FORMAT " is pointing to an (unnamed) "
bobv@2036 812 "stub routine", addr);
bobv@2036 813 return;
bobv@2036 814 }
bobv@2036 815 // the InlineCacheBuffer is using stubs generated into a buffer blob
bobv@2036 816 if (InlineCacheBuffer::contains(addr)) {
bobv@2036 817 st->print_cr(INTPTR_FORMAT " is pointing into InlineCacheBuffer", addr);
bobv@2036 818 return;
bobv@2036 819 }
bobv@2036 820 VtableStub* v = VtableStubs::stub_containing(addr);
bobv@2036 821 if (v != NULL) {
bobv@2036 822 v->print_on(st);
bobv@2036 823 return;
bobv@2036 824 }
bobv@2036 825 }
never@2262 826 if (verbose && b->is_nmethod()) {
bobv@2036 827 ResourceMark rm;
bobv@2036 828 st->print("%#p: Compiled ", addr);
bobv@2036 829 ((nmethod*)b)->method()->print_value_on(st);
bobv@2036 830 st->print(" = (CodeBlob*)" INTPTR_FORMAT, b);
bobv@2036 831 st->cr();
bobv@2036 832 return;
bobv@2036 833 }
never@2262 834 st->print(INTPTR_FORMAT " ", b);
bobv@2036 835 if ( b->is_nmethod()) {
bobv@2036 836 if (b->is_zombie()) {
never@2262 837 st->print_cr("is zombie nmethod");
bobv@2036 838 } else if (b->is_not_entrant()) {
never@2262 839 st->print_cr("is non-entrant nmethod");
bobv@2036 840 }
bobv@2036 841 }
bobv@2036 842 b->print_on(st);
bobv@2036 843 return;
bobv@2036 844 }
bobv@2036 845
bobv@2036 846 if (Universe::heap()->is_in(addr)) {
bobv@2036 847 HeapWord* p = Universe::heap()->block_start(addr);
bobv@2036 848 bool print = false;
bobv@2036 849 // If we couldn't find it it just may mean that heap wasn't parseable
bobv@2036 850 // See if we were just given an oop directly
bobv@2036 851 if (p != NULL && Universe::heap()->block_is_obj(p)) {
bobv@2036 852 print = true;
bobv@2036 853 } else if (p == NULL && ((oopDesc*)addr)->is_oop()) {
bobv@2036 854 p = (HeapWord*) addr;
bobv@2036 855 print = true;
bobv@2036 856 }
bobv@2036 857 if (print) {
never@2262 858 st->print_cr(INTPTR_FORMAT " is an oop", addr);
bobv@2036 859 oop(p)->print_on(st);
bobv@2036 860 if (p != (HeapWord*)x && oop(p)->is_constMethod() &&
bobv@2036 861 constMethodOop(p)->contains(addr)) {
bobv@2036 862 Thread *thread = Thread::current();
bobv@2036 863 HandleMark hm(thread);
bobv@2036 864 methodHandle mh (thread, constMethodOop(p)->method());
bobv@2036 865 if (!mh->is_native()) {
bobv@2036 866 st->print_cr("bci_from(%p) = %d; print_codes():",
bobv@2036 867 addr, mh->bci_from(address(x)));
bobv@2036 868 mh->print_codes_on(st);
bobv@2036 869 }
bobv@2036 870 }
bobv@2036 871 return;
bobv@2036 872 }
bobv@2036 873 } else {
bobv@2036 874 if (Universe::heap()->is_in_reserved(addr)) {
bobv@2036 875 st->print_cr(INTPTR_FORMAT " is an unallocated location "
bobv@2036 876 "in the heap", addr);
bobv@2036 877 return;
bobv@2036 878 }
bobv@2036 879 }
bobv@2036 880 if (JNIHandles::is_global_handle((jobject) addr)) {
bobv@2036 881 st->print_cr(INTPTR_FORMAT " is a global jni handle", addr);
bobv@2036 882 return;
bobv@2036 883 }
bobv@2036 884 if (JNIHandles::is_weak_global_handle((jobject) addr)) {
bobv@2036 885 st->print_cr(INTPTR_FORMAT " is a weak global jni handle", addr);
bobv@2036 886 return;
bobv@2036 887 }
bobv@2036 888 #ifndef PRODUCT
bobv@2036 889 // we don't keep the block list in product mode
bobv@2036 890 if (JNIHandleBlock::any_contains((jobject) addr)) {
bobv@2036 891 st->print_cr(INTPTR_FORMAT " is a local jni handle", addr);
bobv@2036 892 return;
bobv@2036 893 }
bobv@2036 894 #endif
bobv@2036 895
bobv@2036 896 for(JavaThread *thread = Threads::first(); thread; thread = thread->next()) {
bobv@2036 897 // Check for privilege stack
bobv@2036 898 if (thread->privileged_stack_top() != NULL &&
bobv@2036 899 thread->privileged_stack_top()->contains(addr)) {
bobv@2036 900 st->print_cr(INTPTR_FORMAT " is pointing into the privilege stack "
bobv@2036 901 "for thread: " INTPTR_FORMAT, addr, thread);
never@2262 902 if (verbose) thread->print_on(st);
bobv@2036 903 return;
bobv@2036 904 }
bobv@2036 905 // If the addr is a java thread print information about that.
bobv@2036 906 if (addr == (address)thread) {
never@2262 907 if (verbose) {
never@2262 908 thread->print_on(st);
never@2262 909 } else {
never@2262 910 st->print_cr(INTPTR_FORMAT " is a thread", addr);
never@2262 911 }
bobv@2036 912 return;
bobv@2036 913 }
bobv@2036 914 // If the addr is in the stack region for this thread then report that
bobv@2036 915 // and print thread info
bobv@2036 916 if (thread->stack_base() >= addr &&
bobv@2036 917 addr > (thread->stack_base() - thread->stack_size())) {
bobv@2036 918 st->print_cr(INTPTR_FORMAT " is pointing into the stack for thread: "
bobv@2036 919 INTPTR_FORMAT, addr, thread);
never@2262 920 if (verbose) thread->print_on(st);
bobv@2036 921 return;
bobv@2036 922 }
bobv@2036 923
bobv@2036 924 }
bobv@2036 925 // Try an OS specific find
bobv@2036 926 if (os::find(addr, st)) {
bobv@2036 927 return;
bobv@2036 928 }
bobv@2036 929
never@2262 930 st->print_cr(INTPTR_FORMAT " is an unknown value", addr);
bobv@2036 931 }
duke@435 932
duke@435 933 // Looks like all platforms except IA64 can use the same function to check
duke@435 934 // if C stack is walkable beyond current frame. The check for fp() is not
duke@435 935 // necessary on Sparc, but it's harmless.
duke@435 936 bool os::is_first_C_frame(frame* fr) {
duke@435 937 #ifdef IA64
duke@435 938 // In order to walk native frames on Itanium, we need to access the unwind
duke@435 939 // table, which is inside ELF. We don't want to parse ELF after fatal error,
duke@435 940 // so return true for IA64. If we need to support C stack walking on IA64,
duke@435 941 // this function needs to be moved to CPU specific files, as fp() on IA64
duke@435 942 // is register stack, which grows towards higher memory address.
duke@435 943 return true;
duke@435 944 #endif
duke@435 945
duke@435 946 // Load up sp, fp, sender sp and sender fp, check for reasonable values.
duke@435 947 // Check usp first, because if that's bad the other accessors may fault
duke@435 948 // on some architectures. Ditto ufp second, etc.
duke@435 949 uintptr_t fp_align_mask = (uintptr_t)(sizeof(address)-1);
duke@435 950 // sp on amd can be 32 bit aligned.
duke@435 951 uintptr_t sp_align_mask = (uintptr_t)(sizeof(int)-1);
duke@435 952
duke@435 953 uintptr_t usp = (uintptr_t)fr->sp();
duke@435 954 if ((usp & sp_align_mask) != 0) return true;
duke@435 955
duke@435 956 uintptr_t ufp = (uintptr_t)fr->fp();
duke@435 957 if ((ufp & fp_align_mask) != 0) return true;
duke@435 958
duke@435 959 uintptr_t old_sp = (uintptr_t)fr->sender_sp();
duke@435 960 if ((old_sp & sp_align_mask) != 0) return true;
duke@435 961 if (old_sp == 0 || old_sp == (uintptr_t)-1) return true;
duke@435 962
duke@435 963 uintptr_t old_fp = (uintptr_t)fr->link();
duke@435 964 if ((old_fp & fp_align_mask) != 0) return true;
duke@435 965 if (old_fp == 0 || old_fp == (uintptr_t)-1 || old_fp == ufp) return true;
duke@435 966
duke@435 967 // stack grows downwards; if old_fp is below current fp or if the stack
duke@435 968 // frame is too large, either the stack is corrupted or fp is not saved
duke@435 969 // on stack (i.e. on x86, ebp may be used as general register). The stack
duke@435 970 // is not walkable beyond current frame.
duke@435 971 if (old_fp < ufp) return true;
duke@435 972 if (old_fp - ufp > 64 * K) return true;
duke@435 973
duke@435 974 return false;
duke@435 975 }
duke@435 976
duke@435 977 #ifdef ASSERT
duke@435 978 extern "C" void test_random() {
duke@435 979 const double m = 2147483647;
duke@435 980 double mean = 0.0, variance = 0.0, t;
duke@435 981 long reps = 10000;
duke@435 982 unsigned long seed = 1;
duke@435 983
duke@435 984 tty->print_cr("seed %ld for %ld repeats...", seed, reps);
duke@435 985 os::init_random(seed);
duke@435 986 long num;
duke@435 987 for (int k = 0; k < reps; k++) {
duke@435 988 num = os::random();
duke@435 989 double u = (double)num / m;
duke@435 990 assert(u >= 0.0 && u <= 1.0, "bad random number!");
duke@435 991
duke@435 992 // calculate mean and variance of the random sequence
duke@435 993 mean += u;
duke@435 994 variance += (u*u);
duke@435 995 }
duke@435 996 mean /= reps;
duke@435 997 variance /= (reps - 1);
duke@435 998
duke@435 999 assert(num == 1043618065, "bad seed");
duke@435 1000 tty->print_cr("mean of the 1st 10000 numbers: %f", mean);
duke@435 1001 tty->print_cr("variance of the 1st 10000 numbers: %f", variance);
duke@435 1002 const double eps = 0.0001;
duke@435 1003 t = fabsd(mean - 0.5018);
duke@435 1004 assert(t < eps, "bad mean");
duke@435 1005 t = (variance - 0.3355) < 0.0 ? -(variance - 0.3355) : variance - 0.3355;
duke@435 1006 assert(t < eps, "bad variance");
duke@435 1007 }
duke@435 1008 #endif
duke@435 1009
duke@435 1010
duke@435 1011 // Set up the boot classpath.
duke@435 1012
duke@435 1013 char* os::format_boot_path(const char* format_string,
duke@435 1014 const char* home,
duke@435 1015 int home_len,
duke@435 1016 char fileSep,
duke@435 1017 char pathSep) {
duke@435 1018 assert((fileSep == '/' && pathSep == ':') ||
duke@435 1019 (fileSep == '\\' && pathSep == ';'), "unexpected seperator chars");
duke@435 1020
duke@435 1021 // Scan the format string to determine the length of the actual
duke@435 1022 // boot classpath, and handle platform dependencies as well.
duke@435 1023 int formatted_path_len = 0;
duke@435 1024 const char* p;
duke@435 1025 for (p = format_string; *p != 0; ++p) {
duke@435 1026 if (*p == '%') formatted_path_len += home_len - 1;
duke@435 1027 ++formatted_path_len;
duke@435 1028 }
duke@435 1029
duke@435 1030 char* formatted_path = NEW_C_HEAP_ARRAY(char, formatted_path_len + 1);
duke@435 1031 if (formatted_path == NULL) {
duke@435 1032 return NULL;
duke@435 1033 }
duke@435 1034
duke@435 1035 // Create boot classpath from format, substituting separator chars and
duke@435 1036 // java home directory.
duke@435 1037 char* q = formatted_path;
duke@435 1038 for (p = format_string; *p != 0; ++p) {
duke@435 1039 switch (*p) {
duke@435 1040 case '%':
duke@435 1041 strcpy(q, home);
duke@435 1042 q += home_len;
duke@435 1043 break;
duke@435 1044 case '/':
duke@435 1045 *q++ = fileSep;
duke@435 1046 break;
duke@435 1047 case ':':
duke@435 1048 *q++ = pathSep;
duke@435 1049 break;
duke@435 1050 default:
duke@435 1051 *q++ = *p;
duke@435 1052 }
duke@435 1053 }
duke@435 1054 *q = '\0';
duke@435 1055
duke@435 1056 assert((q - formatted_path) == formatted_path_len, "formatted_path size botched");
duke@435 1057 return formatted_path;
duke@435 1058 }
duke@435 1059
duke@435 1060
duke@435 1061 bool os::set_boot_path(char fileSep, char pathSep) {
duke@435 1062 const char* home = Arguments::get_java_home();
duke@435 1063 int home_len = (int)strlen(home);
duke@435 1064
duke@435 1065 static const char* meta_index_dir_format = "%/lib/";
duke@435 1066 static const char* meta_index_format = "%/lib/meta-index";
duke@435 1067 char* meta_index = format_boot_path(meta_index_format, home, home_len, fileSep, pathSep);
duke@435 1068 if (meta_index == NULL) return false;
duke@435 1069 char* meta_index_dir = format_boot_path(meta_index_dir_format, home, home_len, fileSep, pathSep);
duke@435 1070 if (meta_index_dir == NULL) return false;
duke@435 1071 Arguments::set_meta_index_path(meta_index, meta_index_dir);
duke@435 1072
duke@435 1073 // Any modification to the JAR-file list, for the boot classpath must be
duke@435 1074 // aligned with install/install/make/common/Pack.gmk. Note: boot class
duke@435 1075 // path class JARs, are stripped for StackMapTable to reduce download size.
duke@435 1076 static const char classpath_format[] =
duke@435 1077 "%/lib/resources.jar:"
duke@435 1078 "%/lib/rt.jar:"
duke@435 1079 "%/lib/sunrsasign.jar:"
duke@435 1080 "%/lib/jsse.jar:"
duke@435 1081 "%/lib/jce.jar:"
duke@435 1082 "%/lib/charsets.jar:"
duke@435 1083 "%/classes";
duke@435 1084 char* sysclasspath = format_boot_path(classpath_format, home, home_len, fileSep, pathSep);
duke@435 1085 if (sysclasspath == NULL) return false;
duke@435 1086 Arguments::set_sysclasspath(sysclasspath);
duke@435 1087
duke@435 1088 return true;
duke@435 1089 }
duke@435 1090
phh@1126 1091 /*
phh@1126 1092 * Splits a path, based on its separator, the number of
phh@1126 1093 * elements is returned back in n.
phh@1126 1094 * It is the callers responsibility to:
phh@1126 1095 * a> check the value of n, and n may be 0.
phh@1126 1096 * b> ignore any empty path elements
phh@1126 1097 * c> free up the data.
phh@1126 1098 */
phh@1126 1099 char** os::split_path(const char* path, int* n) {
phh@1126 1100 *n = 0;
phh@1126 1101 if (path == NULL || strlen(path) == 0) {
phh@1126 1102 return NULL;
phh@1126 1103 }
phh@1126 1104 const char psepchar = *os::path_separator();
phh@1126 1105 char* inpath = (char*)NEW_C_HEAP_ARRAY(char, strlen(path) + 1);
phh@1126 1106 if (inpath == NULL) {
phh@1126 1107 return NULL;
phh@1126 1108 }
phh@1126 1109 strncpy(inpath, path, strlen(path));
phh@1126 1110 int count = 1;
phh@1126 1111 char* p = strchr(inpath, psepchar);
phh@1126 1112 // Get a count of elements to allocate memory
phh@1126 1113 while (p != NULL) {
phh@1126 1114 count++;
phh@1126 1115 p++;
phh@1126 1116 p = strchr(p, psepchar);
phh@1126 1117 }
phh@1126 1118 char** opath = (char**) NEW_C_HEAP_ARRAY(char*, count);
phh@1126 1119 if (opath == NULL) {
phh@1126 1120 return NULL;
phh@1126 1121 }
phh@1126 1122
phh@1126 1123 // do the actual splitting
phh@1126 1124 p = inpath;
phh@1126 1125 for (int i = 0 ; i < count ; i++) {
phh@1126 1126 size_t len = strcspn(p, os::path_separator());
phh@1126 1127 if (len > JVM_MAXPATHLEN) {
phh@1126 1128 return NULL;
phh@1126 1129 }
phh@1126 1130 // allocate the string and add terminator storage
phh@1126 1131 char* s = (char*)NEW_C_HEAP_ARRAY(char, len + 1);
phh@1126 1132 if (s == NULL) {
phh@1126 1133 return NULL;
phh@1126 1134 }
phh@1126 1135 strncpy(s, p, len);
phh@1126 1136 s[len] = '\0';
phh@1126 1137 opath[i] = s;
phh@1126 1138 p += len + 1;
phh@1126 1139 }
phh@1126 1140 FREE_C_HEAP_ARRAY(char, inpath);
phh@1126 1141 *n = count;
phh@1126 1142 return opath;
phh@1126 1143 }
phh@1126 1144
duke@435 1145 void os::set_memory_serialize_page(address page) {
duke@435 1146 int count = log2_intptr(sizeof(class JavaThread)) - log2_intptr(64);
duke@435 1147 _mem_serialize_page = (volatile int32_t *)page;
duke@435 1148 // We initialize the serialization page shift count here
duke@435 1149 // We assume a cache line size of 64 bytes
duke@435 1150 assert(SerializePageShiftCount == count,
duke@435 1151 "thread size changed, fix SerializePageShiftCount constant");
duke@435 1152 set_serialize_page_mask((uintptr_t)(vm_page_size() - sizeof(int32_t)));
duke@435 1153 }
duke@435 1154
xlu@490 1155 static volatile intptr_t SerializePageLock = 0;
xlu@490 1156
duke@435 1157 // This method is called from signal handler when SIGSEGV occurs while the current
duke@435 1158 // thread tries to store to the "read-only" memory serialize page during state
duke@435 1159 // transition.
duke@435 1160 void os::block_on_serialize_page_trap() {
duke@435 1161 if (TraceSafepoint) {
duke@435 1162 tty->print_cr("Block until the serialize page permission restored");
duke@435 1163 }
xlu@490 1164 // When VMThread is holding the SerializePageLock during modifying the
duke@435 1165 // access permission of the memory serialize page, the following call
duke@435 1166 // will block until the permission of that page is restored to rw.
duke@435 1167 // Generally, it is unsafe to manipulate locks in signal handlers, but in
duke@435 1168 // this case, it's OK as the signal is synchronous and we know precisely when
xlu@490 1169 // it can occur.
xlu@490 1170 Thread::muxAcquire(&SerializePageLock, "set_memory_serialize_page");
xlu@490 1171 Thread::muxRelease(&SerializePageLock);
duke@435 1172 }
duke@435 1173
duke@435 1174 // Serialize all thread state variables
duke@435 1175 void os::serialize_thread_states() {
duke@435 1176 // On some platforms such as Solaris & Linux, the time duration of the page
duke@435 1177 // permission restoration is observed to be much longer than expected due to
duke@435 1178 // scheduler starvation problem etc. To avoid the long synchronization
xlu@490 1179 // time and expensive page trap spinning, 'SerializePageLock' is used to block
xlu@490 1180 // the mutator thread if such case is encountered. See bug 6546278 for details.
xlu@490 1181 Thread::muxAcquire(&SerializePageLock, "serialize_thread_states");
coleenp@672 1182 os::protect_memory((char *)os::get_memory_serialize_page(),
coleenp@912 1183 os::vm_page_size(), MEM_PROT_READ);
coleenp@912 1184 os::protect_memory((char *)os::get_memory_serialize_page(),
coleenp@912 1185 os::vm_page_size(), MEM_PROT_RW);
xlu@490 1186 Thread::muxRelease(&SerializePageLock);
duke@435 1187 }
duke@435 1188
duke@435 1189 // Returns true if the current stack pointer is above the stack shadow
duke@435 1190 // pages, false otherwise.
duke@435 1191
duke@435 1192 bool os::stack_shadow_pages_available(Thread *thread, methodHandle method) {
duke@435 1193 assert(StackRedPages > 0 && StackYellowPages > 0,"Sanity check");
duke@435 1194 address sp = current_stack_pointer();
duke@435 1195 // Check if we have StackShadowPages above the yellow zone. This parameter
twisti@1040 1196 // is dependent on the depth of the maximum VM call stack possible from
duke@435 1197 // the handler for stack overflow. 'instanceof' in the stack overflow
duke@435 1198 // handler or a println uses at least 8k stack of VM and native code
duke@435 1199 // respectively.
duke@435 1200 const int framesize_in_bytes =
duke@435 1201 Interpreter::size_top_interpreter_activation(method()) * wordSize;
duke@435 1202 int reserved_area = ((StackShadowPages + StackRedPages + StackYellowPages)
duke@435 1203 * vm_page_size()) + framesize_in_bytes;
duke@435 1204 // The very lower end of the stack
duke@435 1205 address stack_limit = thread->stack_base() - thread->stack_size();
duke@435 1206 return (sp > (stack_limit + reserved_area));
duke@435 1207 }
duke@435 1208
duke@435 1209 size_t os::page_size_for_region(size_t region_min_size, size_t region_max_size,
duke@435 1210 uint min_pages)
duke@435 1211 {
duke@435 1212 assert(min_pages > 0, "sanity");
duke@435 1213 if (UseLargePages) {
duke@435 1214 const size_t max_page_size = region_max_size / min_pages;
duke@435 1215
duke@435 1216 for (unsigned int i = 0; _page_sizes[i] != 0; ++i) {
duke@435 1217 const size_t sz = _page_sizes[i];
duke@435 1218 const size_t mask = sz - 1;
duke@435 1219 if ((region_min_size & mask) == 0 && (region_max_size & mask) == 0) {
duke@435 1220 // The largest page size with no fragmentation.
duke@435 1221 return sz;
duke@435 1222 }
duke@435 1223
duke@435 1224 if (sz <= max_page_size) {
duke@435 1225 // The largest page size that satisfies the min_pages requirement.
duke@435 1226 return sz;
duke@435 1227 }
duke@435 1228 }
duke@435 1229 }
duke@435 1230
duke@435 1231 return vm_page_size();
duke@435 1232 }
duke@435 1233
duke@435 1234 #ifndef PRODUCT
duke@435 1235 void os::trace_page_sizes(const char* str, const size_t region_min_size,
duke@435 1236 const size_t region_max_size, const size_t page_size,
duke@435 1237 const char* base, const size_t size)
duke@435 1238 {
duke@435 1239 if (TracePageSizes) {
duke@435 1240 tty->print_cr("%s: min=" SIZE_FORMAT " max=" SIZE_FORMAT
duke@435 1241 " pg_sz=" SIZE_FORMAT " base=" PTR_FORMAT
duke@435 1242 " size=" SIZE_FORMAT,
duke@435 1243 str, region_min_size, region_max_size,
duke@435 1244 page_size, base, size);
duke@435 1245 }
duke@435 1246 }
duke@435 1247 #endif // #ifndef PRODUCT
duke@435 1248
duke@435 1249 // This is the working definition of a server class machine:
duke@435 1250 // >= 2 physical CPU's and >=2GB of memory, with some fuzz
duke@435 1251 // because the graphics memory (?) sometimes masks physical memory.
duke@435 1252 // If you want to change the definition of a server class machine
duke@435 1253 // on some OS or platform, e.g., >=4GB on Windohs platforms,
duke@435 1254 // then you'll have to parameterize this method based on that state,
duke@435 1255 // as was done for logical processors here, or replicate and
duke@435 1256 // specialize this method for each platform. (Or fix os to have
duke@435 1257 // some inheritance structure and use subclassing. Sigh.)
duke@435 1258 // If you want some platform to always or never behave as a server
duke@435 1259 // class machine, change the setting of AlwaysActAsServerClassMachine
duke@435 1260 // and NeverActAsServerClassMachine in globals*.hpp.
duke@435 1261 bool os::is_server_class_machine() {
duke@435 1262 // First check for the early returns
duke@435 1263 if (NeverActAsServerClassMachine) {
duke@435 1264 return false;
duke@435 1265 }
duke@435 1266 if (AlwaysActAsServerClassMachine) {
duke@435 1267 return true;
duke@435 1268 }
duke@435 1269 // Then actually look at the machine
duke@435 1270 bool result = false;
duke@435 1271 const unsigned int server_processors = 2;
duke@435 1272 const julong server_memory = 2UL * G;
duke@435 1273 // We seem not to get our full complement of memory.
duke@435 1274 // We allow some part (1/8?) of the memory to be "missing",
duke@435 1275 // based on the sizes of DIMMs, and maybe graphics cards.
duke@435 1276 const julong missing_memory = 256UL * M;
duke@435 1277
duke@435 1278 /* Is this a server class machine? */
duke@435 1279 if ((os::active_processor_count() >= (int)server_processors) &&
duke@435 1280 (os::physical_memory() >= (server_memory - missing_memory))) {
duke@435 1281 const unsigned int logical_processors =
duke@435 1282 VM_Version::logical_processors_per_package();
duke@435 1283 if (logical_processors > 1) {
duke@435 1284 const unsigned int physical_packages =
duke@435 1285 os::active_processor_count() / logical_processors;
duke@435 1286 if (physical_packages > server_processors) {
duke@435 1287 result = true;
duke@435 1288 }
duke@435 1289 } else {
duke@435 1290 result = true;
duke@435 1291 }
duke@435 1292 }
duke@435 1293 return result;
duke@435 1294 }
dsamersoff@2751 1295
dsamersoff@2751 1296 // Read file line by line, if line is longer than bsize,
dsamersoff@2751 1297 // skip rest of line.
dsamersoff@2751 1298 int os::get_line_chars(int fd, char* buf, const size_t bsize){
dsamersoff@2751 1299 size_t sz, i = 0;
dsamersoff@2751 1300
dsamersoff@2751 1301 // read until EOF, EOL or buf is full
dsamersoff@3030 1302 while ((sz = (int) read(fd, &buf[i], 1)) == 1 && i < (bsize-2) && buf[i] != '\n') {
dsamersoff@2751 1303 ++i;
dsamersoff@2751 1304 }
dsamersoff@2751 1305
dsamersoff@2751 1306 if (buf[i] == '\n') {
dsamersoff@2751 1307 // EOL reached so ignore EOL character and return
dsamersoff@2751 1308
dsamersoff@2751 1309 buf[i] = 0;
dsamersoff@2751 1310 return (int) i;
dsamersoff@2751 1311 }
dsamersoff@2751 1312
dsamersoff@2751 1313 buf[i+1] = 0;
dsamersoff@2751 1314
dsamersoff@2751 1315 if (sz != 1) {
dsamersoff@2751 1316 // EOF reached. if we read chars before EOF return them and
dsamersoff@2751 1317 // return EOF on next call otherwise return EOF
dsamersoff@2751 1318
dsamersoff@2751 1319 return (i == 0) ? -1 : (int) i;
dsamersoff@2751 1320 }
dsamersoff@2751 1321
dsamersoff@2751 1322 // line is longer than size of buf, skip to EOL
dsamersoff@3030 1323 char ch;
dsamersoff@2751 1324 while (read(fd, &ch, 1) == 1 && ch != '\n') {
dsamersoff@2751 1325 // Do nothing
dsamersoff@2751 1326 }
dsamersoff@2751 1327
dsamersoff@2751 1328 // return initial part of line that fits in buf.
dsamersoff@2751 1329 // If we reached EOF, it will be returned on next call.
dsamersoff@2751 1330
dsamersoff@2751 1331 return (int) i;
dsamersoff@2751 1332 }

mercurial