src/share/vm/utilities/debug.cpp

Wed, 02 Jan 2013 11:32:41 -0800

author
johnc
date
Wed, 02 Jan 2013 11:32:41 -0800
changeset 4384
b735136e0d82
parent 4299
f34d701e952e
child 4640
b6d5b3e50379
permissions
-rw-r--r--

8004132: SerialGC: ValidateMarkSweep broken when running GCOld
Summary: Remove bit-rotten ValidateMarkSweep functionality and flag.
Reviewed-by: johnc, jmasa
Contributed-by: tamao <tao.mao@oracle.com>

duke@435 1 /*
never@3499 2 * Copyright (c) 1997, 2012, 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/systemDictionary.hpp"
stefank@2314 27 #include "code/codeCache.hpp"
stefank@2314 28 #include "code/icBuffer.hpp"
stefank@2314 29 #include "code/nmethod.hpp"
stefank@2314 30 #include "code/vtableStubs.hpp"
stefank@2314 31 #include "compiler/compileBroker.hpp"
stefank@2314 32 #include "compiler/disassembler.hpp"
stefank@2314 33 #include "gc_implementation/shared/markSweep.hpp"
stefank@2314 34 #include "gc_interface/collectedHeap.hpp"
stefank@2314 35 #include "interpreter/bytecodeHistogram.hpp"
stefank@2314 36 #include "interpreter/interpreter.hpp"
stefank@2314 37 #include "memory/resourceArea.hpp"
stefank@2314 38 #include "memory/universe.hpp"
stefank@2314 39 #include "oops/oop.inline.hpp"
stefank@2314 40 #include "prims/privilegedStack.hpp"
stefank@2314 41 #include "runtime/arguments.hpp"
stefank@2314 42 #include "runtime/frame.hpp"
stefank@2314 43 #include "runtime/java.hpp"
stefank@2314 44 #include "runtime/sharedRuntime.hpp"
stefank@2314 45 #include "runtime/stubCodeGenerator.hpp"
stefank@2314 46 #include "runtime/stubRoutines.hpp"
stefank@4299 47 #include "runtime/thread.inline.hpp"
stefank@2314 48 #include "runtime/vframe.hpp"
stefank@2314 49 #include "services/heapDumper.hpp"
stefank@2314 50 #include "utilities/defaultStream.hpp"
stefank@2314 51 #include "utilities/events.hpp"
stefank@2314 52 #include "utilities/top.hpp"
stefank@2314 53 #include "utilities/vmError.hpp"
stefank@2314 54 #ifdef TARGET_OS_FAMILY_linux
stefank@2314 55 # include "os_linux.inline.hpp"
stefank@2314 56 #endif
stefank@2314 57 #ifdef TARGET_OS_FAMILY_solaris
stefank@2314 58 # include "os_solaris.inline.hpp"
stefank@2314 59 #endif
stefank@2314 60 #ifdef TARGET_OS_FAMILY_windows
stefank@2314 61 # include "os_windows.inline.hpp"
stefank@2314 62 #endif
never@3156 63 #ifdef TARGET_OS_FAMILY_bsd
never@3156 64 # include "os_bsd.inline.hpp"
never@3156 65 #endif
duke@435 66
duke@435 67 #ifndef ASSERT
duke@435 68 # ifdef _DEBUG
duke@435 69 // NOTE: don't turn the lines below into a comment -- if you're getting
duke@435 70 // a compile error here, change the settings to define ASSERT
duke@435 71 ASSERT should be defined when _DEBUG is defined. It is not intended to be used for debugging
duke@435 72 functions that do not slow down the system too much and thus can be left in optimized code.
duke@435 73 On the other hand, the code should not be included in a production version.
duke@435 74 # endif // _DEBUG
duke@435 75 #endif // ASSERT
duke@435 76
duke@435 77
duke@435 78 #ifdef _DEBUG
duke@435 79 # ifndef ASSERT
duke@435 80 configuration error: ASSERT must be defined in debug version
duke@435 81 # endif // ASSERT
duke@435 82 #endif // _DEBUG
duke@435 83
duke@435 84
duke@435 85 #ifdef PRODUCT
duke@435 86 # if -defined _DEBUG || -defined ASSERT
duke@435 87 configuration error: ASSERT et al. must not be defined in PRODUCT version
duke@435 88 # endif
duke@435 89 #endif // PRODUCT
duke@435 90
kvn@3971 91 FormatBufferResource::FormatBufferResource(const char * format, ...)
kvn@3971 92 : FormatBufferBase((char*)resource_allocate_bytes(RES_BUFSZ)) {
kvn@3971 93 va_list argp;
kvn@3971 94 va_start(argp, format);
kvn@3971 95 jio_vsnprintf(_buf, RES_BUFSZ, format, argp);
kvn@3971 96 va_end(argp);
kvn@3971 97 }
duke@435 98
duke@435 99 void warning(const char* format, ...) {
kamg@2225 100 if (PrintWarnings) {
jcoomes@4070 101 FILE* const err = defaultStream::error_stream();
jcoomes@4070 102 jio_fprintf(err, "%s warning: ", VM_Version::vm_name());
kamg@2225 103 va_list ap;
kamg@2225 104 va_start(ap, format);
jcoomes@4070 105 vfprintf(err, format, ap);
kamg@2225 106 va_end(ap);
jcoomes@4070 107 fputc('\n', err);
kamg@2225 108 }
duke@435 109 if (BreakAtWarning) BREAKPOINT;
duke@435 110 }
duke@435 111
duke@435 112 #ifndef PRODUCT
duke@435 113
duke@435 114 #define is_token_break(ch) (isspace(ch) || (ch) == ',')
duke@435 115
duke@435 116 static const char* last_file_name = NULL;
duke@435 117 static int last_line_no = -1;
duke@435 118
duke@435 119 // assert/guarantee/... may happen very early during VM initialization.
duke@435 120 // Don't rely on anything that is initialized by Threads::create_vm(). For
duke@435 121 // example, don't use tty.
jcoomes@1845 122 bool error_is_suppressed(const char* file_name, int line_no) {
duke@435 123 // The following 1-element cache requires that passed-in
duke@435 124 // file names are always only constant literals.
duke@435 125 if (file_name == last_file_name && line_no == last_line_no) return true;
duke@435 126
duke@435 127 int file_name_len = (int)strlen(file_name);
duke@435 128 char separator = os::file_separator()[0];
duke@435 129 const char* base_name = strrchr(file_name, separator);
duke@435 130 if (base_name == NULL)
duke@435 131 base_name = file_name;
duke@435 132
duke@435 133 // scan the SuppressErrorAt option
duke@435 134 const char* cp = SuppressErrorAt;
duke@435 135 for (;;) {
duke@435 136 const char* sfile;
duke@435 137 int sfile_len;
duke@435 138 int sline;
duke@435 139 bool noisy;
duke@435 140 while ((*cp) != '\0' && is_token_break(*cp)) cp++;
duke@435 141 if ((*cp) == '\0') break;
duke@435 142 sfile = cp;
duke@435 143 while ((*cp) != '\0' && !is_token_break(*cp) && (*cp) != ':') cp++;
duke@435 144 sfile_len = cp - sfile;
duke@435 145 if ((*cp) == ':') cp++;
duke@435 146 sline = 0;
duke@435 147 while ((*cp) != '\0' && isdigit(*cp)) {
duke@435 148 sline *= 10;
duke@435 149 sline += (*cp) - '0';
duke@435 150 cp++;
duke@435 151 }
duke@435 152 // "file:line!" means the assert suppression is not silent
duke@435 153 noisy = ((*cp) == '!');
duke@435 154 while ((*cp) != '\0' && !is_token_break(*cp)) cp++;
duke@435 155 // match the line
duke@435 156 if (sline != 0) {
duke@435 157 if (sline != line_no) continue;
duke@435 158 }
duke@435 159 // match the file
duke@435 160 if (sfile_len > 0) {
duke@435 161 const char* look = file_name;
duke@435 162 const char* look_max = file_name + file_name_len - sfile_len;
duke@435 163 const char* foundp;
duke@435 164 bool match = false;
duke@435 165 while (!match
duke@435 166 && (foundp = strchr(look, sfile[0])) != NULL
duke@435 167 && foundp <= look_max) {
duke@435 168 match = true;
duke@435 169 for (int i = 1; i < sfile_len; i++) {
duke@435 170 if (sfile[i] != foundp[i]) {
duke@435 171 match = false;
duke@435 172 break;
duke@435 173 }
duke@435 174 }
duke@435 175 look = foundp + 1;
duke@435 176 }
duke@435 177 if (!match) continue;
duke@435 178 }
duke@435 179 // got a match!
duke@435 180 if (noisy) {
duke@435 181 fdStream out(defaultStream::output_fd());
duke@435 182 out.print_raw("[error suppressed at ");
duke@435 183 out.print_raw(base_name);
duke@435 184 char buf[16];
duke@435 185 jio_snprintf(buf, sizeof(buf), ":%d]", line_no);
duke@435 186 out.print_raw_cr(buf);
duke@435 187 } else {
duke@435 188 // update 1-element cache for fast silent matches
duke@435 189 last_file_name = file_name;
duke@435 190 last_line_no = line_no;
duke@435 191 }
duke@435 192 return true;
duke@435 193 }
duke@435 194
duke@435 195 if (!is_error_reported()) {
duke@435 196 // print a friendly hint:
duke@435 197 fdStream out(defaultStream::output_fd());
duke@435 198 out.print_raw_cr("# To suppress the following error report, specify this argument");
duke@435 199 out.print_raw ("# after -XX: or in .hotspotrc: SuppressErrorAt=");
duke@435 200 out.print_raw (base_name);
duke@435 201 char buf[16];
duke@435 202 jio_snprintf(buf, sizeof(buf), ":%d", line_no);
duke@435 203 out.print_raw_cr(buf);
duke@435 204 }
duke@435 205 return false;
duke@435 206 }
duke@435 207
duke@435 208 #undef is_token_break
duke@435 209
duke@435 210 #else
duke@435 211
duke@435 212 // Place-holder for non-existent suppression check:
jcoomes@1845 213 #define error_is_suppressed(file_name, line_no) (false)
duke@435 214
dcubed@3202 215 #endif // !PRODUCT
duke@435 216
jcoomes@1845 217 void report_vm_error(const char* file, int line, const char* error_msg,
jcoomes@1845 218 const char* detail_msg)
jcoomes@1845 219 {
jcoomes@1845 220 if (Debugging || error_is_suppressed(file, line)) return;
jcoomes@1845 221 Thread* const thread = ThreadLocalStorage::get_thread_slow();
jcoomes@1845 222 VMError err(thread, file, line, error_msg, detail_msg);
duke@435 223 err.report_and_die();
duke@435 224 }
duke@435 225
jcoomes@1845 226 void report_fatal(const char* file, int line, const char* message)
jcoomes@1845 227 {
jcoomes@1845 228 report_vm_error(file, line, "fatal error", message);
duke@435 229 }
duke@435 230
duke@435 231 // Used by report_vm_out_of_memory to detect recursion.
duke@435 232 static jint _exiting_out_of_mem = 0;
duke@435 233
jcoomes@1845 234 void report_vm_out_of_memory(const char* file, int line, size_t size,
jcoomes@1845 235 const char* message) {
coleenp@2418 236 if (Debugging) return;
duke@435 237
duke@435 238 // We try to gather additional information for the first out of memory
duke@435 239 // error only; gathering additional data might cause an allocation and a
duke@435 240 // recursive out_of_memory condition.
duke@435 241
duke@435 242 const jint exiting = 1;
duke@435 243 // If we succeed in changing the value, we're the first one in.
duke@435 244 bool first_time_here = Atomic::xchg(exiting, &_exiting_out_of_mem) != exiting;
duke@435 245
duke@435 246 if (first_time_here) {
duke@435 247 Thread* thread = ThreadLocalStorage::get_thread_slow();
jcoomes@1845 248 VMError(thread, file, line, size, message).report_and_die();
duke@435 249 }
poonam@662 250
poonam@662 251 // Dump core and abort
poonam@662 252 vm_abort(true);
duke@435 253 }
duke@435 254
jcoomes@1845 255 void report_should_not_call(const char* file, int line) {
jcoomes@1845 256 report_vm_error(file, line, "ShouldNotCall()");
duke@435 257 }
duke@435 258
jcoomes@1845 259 void report_should_not_reach_here(const char* file, int line) {
jcoomes@1845 260 report_vm_error(file, line, "ShouldNotReachHere()");
duke@435 261 }
duke@435 262
coleenp@4037 263 void report_should_not_reach_here2(const char* file, int line, const char* message) {
coleenp@4037 264 report_vm_error(file, line, "ShouldNotReachHere()", message);
coleenp@4037 265 }
coleenp@4037 266
jcoomes@1845 267 void report_unimplemented(const char* file, int line) {
jcoomes@1845 268 report_vm_error(file, line, "Unimplemented()");
duke@435 269 }
duke@435 270
jcoomes@1845 271 void report_untested(const char* file, int line, const char* message) {
duke@435 272 #ifndef PRODUCT
jcoomes@1845 273 warning("Untested: %s in %s: %d\n", message, file, line);
dcubed@3202 274 #endif // !PRODUCT
duke@435 275 }
duke@435 276
coleenp@2497 277 void report_out_of_shared_space(SharedSpaceType shared_space) {
coleenp@2497 278 static const char* name[] = {
coleenp@4037 279 "native memory for metadata",
coleenp@2497 280 "shared read only space",
coleenp@2497 281 "shared read write space",
coleenp@2497 282 "shared miscellaneous data space"
coleenp@2497 283 };
coleenp@2497 284 static const char* flag[] = {
coleenp@4037 285 "Metaspace",
coleenp@2497 286 "SharedReadOnlySize",
coleenp@2497 287 "SharedReadWriteSize",
coleenp@2497 288 "SharedMiscDataSize"
coleenp@2497 289 };
coleenp@2497 290
coleenp@2497 291 warning("\nThe %s is not large enough\n"
coleenp@2497 292 "to preload requested classes. Use -XX:%s=\n"
coleenp@2497 293 "to increase the initial size of %s.\n",
coleenp@2497 294 name[shared_space], flag[shared_space], name[shared_space]);
coleenp@2497 295 exit(2);
coleenp@2497 296 }
coleenp@2497 297
duke@435 298 void report_java_out_of_memory(const char* message) {
duke@435 299 static jint out_of_memory_reported = 0;
duke@435 300
duke@435 301 // A number of threads may attempt to report OutOfMemoryError at around the
duke@435 302 // same time. To avoid dumping the heap or executing the data collection
duke@435 303 // commands multiple times we just do it once when the first threads reports
duke@435 304 // the error.
duke@435 305 if (Atomic::cmpxchg(1, &out_of_memory_reported, 0) == 0) {
duke@435 306 // create heap dump before OnOutOfMemoryError commands are executed
duke@435 307 if (HeapDumpOnOutOfMemoryError) {
duke@435 308 tty->print_cr("java.lang.OutOfMemoryError: %s", message);
thurka@2130 309 HeapDumper::dump_heap_from_oome();
duke@435 310 }
duke@435 311
duke@435 312 if (OnOutOfMemoryError && OnOutOfMemoryError[0]) {
duke@435 313 VMError err(message);
duke@435 314 err.report_java_out_of_memory();
duke@435 315 }
duke@435 316 }
duke@435 317 }
duke@435 318
duke@435 319 static bool error_reported = false;
duke@435 320
duke@435 321 // call this when the VM is dying--it might loosen some asserts
duke@435 322 void set_error_reported() {
duke@435 323 error_reported = true;
duke@435 324 }
duke@435 325
duke@435 326 bool is_error_reported() {
duke@435 327 return error_reported;
duke@435 328 }
duke@435 329
jcoomes@1845 330 #ifndef PRODUCT
jcoomes@1845 331 #include <signal.h>
jcoomes@1845 332
jcoomes@1845 333 void test_error_handler(size_t test_num)
jcoomes@1845 334 {
jcoomes@1845 335 if (test_num == 0) return;
jcoomes@1845 336
jcoomes@1845 337 // If asserts are disabled, use the corresponding guarantee instead.
jcoomes@1845 338 size_t n = test_num;
jcoomes@1845 339 NOT_DEBUG(if (n <= 2) n += 2);
jcoomes@1845 340
jcoomes@1845 341 const char* const str = "hello";
jcoomes@1845 342 const size_t num = (size_t)os::vm_page_size();
jcoomes@1845 343
jcoomes@1845 344 const char* const eol = os::line_separator();
jcoomes@1845 345 const char* const msg = "this message should be truncated during formatting";
jcoomes@1845 346
jcoomes@1845 347 // Keep this in sync with test/runtime/6888954/vmerrors.sh.
jcoomes@1845 348 switch (n) {
jcoomes@1845 349 case 1: assert(str == NULL, "expected null");
jcoomes@1845 350 case 2: assert(num == 1023 && *str == 'X',
jcoomes@1845 351 err_msg("num=" SIZE_FORMAT " str=\"%s\"", num, str));
jcoomes@1845 352 case 3: guarantee(str == NULL, "expected null");
jcoomes@1845 353 case 4: guarantee(num == 1023 && *str == 'X',
jcoomes@1845 354 err_msg("num=" SIZE_FORMAT " str=\"%s\"", num, str));
jcoomes@1845 355 case 5: fatal("expected null");
jcoomes@1845 356 case 6: fatal(err_msg("num=" SIZE_FORMAT " str=\"%s\"", num, str));
jcoomes@1845 357 case 7: fatal(err_msg("%s%s# %s%s# %s%s# %s%s# %s%s# "
jcoomes@1845 358 "%s%s# %s%s# %s%s# %s%s# %s%s# "
jcoomes@1845 359 "%s%s# %s%s# %s%s# %s%s# %s",
jcoomes@1845 360 msg, eol, msg, eol, msg, eol, msg, eol, msg, eol,
jcoomes@1845 361 msg, eol, msg, eol, msg, eol, msg, eol, msg, eol,
jcoomes@1845 362 msg, eol, msg, eol, msg, eol, msg, eol, msg));
jcoomes@1845 363 case 8: vm_exit_out_of_memory(num, "ChunkPool::allocate");
jcoomes@1845 364 case 9: ShouldNotCallThis();
jcoomes@1845 365 case 10: ShouldNotReachHere();
jcoomes@1845 366 case 11: Unimplemented();
jcoomes@1845 367 // This is last because it does not generate an hs_err* file on Windows.
jcoomes@1845 368 case 12: os::signal_raise(SIGSEGV);
jcoomes@1845 369
jcoomes@1845 370 default: ShouldNotReachHere();
jcoomes@1845 371 }
jcoomes@1845 372 }
dcubed@3202 373 #endif // !PRODUCT
jcoomes@1845 374
duke@435 375 // ------ helper functions for debugging go here ------------
duke@435 376
duke@435 377 // All debug entries should be wrapped with a stack allocated
duke@435 378 // Command object. It makes sure a resource mark is set and
duke@435 379 // flushes the logfile to prevent file sharing problems.
duke@435 380
duke@435 381 class Command : public StackObj {
duke@435 382 private:
duke@435 383 ResourceMark rm;
duke@435 384 ResetNoHandleMark rnhm;
duke@435 385 HandleMark hm;
duke@435 386 bool debug_save;
duke@435 387 public:
duke@435 388 static int level;
duke@435 389 Command(const char* str) {
duke@435 390 debug_save = Debugging;
duke@435 391 Debugging = true;
duke@435 392 if (level++ > 0) return;
duke@435 393 tty->cr();
duke@435 394 tty->print_cr("\"Executing %s\"", str);
duke@435 395 }
duke@435 396
dcubed@3202 397 ~Command() {
dcubed@3202 398 tty->flush();
dcubed@3202 399 Debugging = debug_save;
dcubed@3202 400 level--;
dcubed@3202 401 }
duke@435 402 };
duke@435 403
duke@435 404 int Command::level = 0;
duke@435 405
dcubed@3202 406 #ifndef PRODUCT
dcubed@3202 407
duke@435 408 extern "C" void blob(CodeBlob* cb) {
duke@435 409 Command c("blob");
duke@435 410 cb->print();
duke@435 411 }
duke@435 412
duke@435 413
duke@435 414 extern "C" void dump_vtable(address p) {
duke@435 415 Command c("dump_vtable");
coleenp@4037 416 Klass* k = (Klass*)p;
coleenp@4037 417 InstanceKlass::cast(k)->vtable()->print();
duke@435 418 }
duke@435 419
duke@435 420
duke@435 421 extern "C" void nm(intptr_t p) {
duke@435 422 // Actually we look through all CodeBlobs (the nm name has been kept for backwards compatability)
duke@435 423 Command c("nm");
duke@435 424 CodeBlob* cb = CodeCache::find_blob((address)p);
duke@435 425 if (cb == NULL) {
duke@435 426 tty->print_cr("NULL");
duke@435 427 } else {
duke@435 428 cb->print();
duke@435 429 }
duke@435 430 }
duke@435 431
duke@435 432
duke@435 433 extern "C" void disnm(intptr_t p) {
duke@435 434 Command c("disnm");
duke@435 435 CodeBlob* cb = CodeCache::find_blob((address) p);
twisti@2350 436 nmethod* nm = cb->as_nmethod_or_null();
twisti@2350 437 if (nm) {
twisti@2350 438 nm->print();
twisti@2350 439 Disassembler::decode(nm);
twisti@2350 440 } else {
twisti@2350 441 cb->print();
twisti@2350 442 Disassembler::decode(cb);
twisti@2350 443 }
duke@435 444 }
duke@435 445
duke@435 446
duke@435 447 extern "C" void printnm(intptr_t p) {
duke@435 448 char buffer[256];
duke@435 449 sprintf(buffer, "printnm: " INTPTR_FORMAT, p);
duke@435 450 Command c(buffer);
duke@435 451 CodeBlob* cb = CodeCache::find_blob((address) p);
duke@435 452 if (cb->is_nmethod()) {
duke@435 453 nmethod* nm = (nmethod*)cb;
duke@435 454 nm->print_nmethod(true);
duke@435 455 }
duke@435 456 }
duke@435 457
duke@435 458
duke@435 459 extern "C" void universe() {
duke@435 460 Command c("universe");
duke@435 461 Universe::print();
duke@435 462 }
duke@435 463
duke@435 464
duke@435 465 extern "C" void verify() {
duke@435 466 // try to run a verify on the entire system
duke@435 467 // note: this may not be safe if we're not at a safepoint; for debugging,
duke@435 468 // this manipulates the safepoint settings to avoid assertion failures
duke@435 469 Command c("universe verify");
duke@435 470 bool safe = SafepointSynchronize::is_at_safepoint();
duke@435 471 if (!safe) {
duke@435 472 tty->print_cr("warning: not at safepoint -- verify may fail");
duke@435 473 SafepointSynchronize::set_is_at_safepoint();
duke@435 474 }
duke@435 475 // Ensure Eden top is correct before verification
duke@435 476 Universe::heap()->prepare_for_verify();
johnc@4176 477 Universe::verify();
duke@435 478 if (!safe) SafepointSynchronize::set_is_not_at_safepoint();
duke@435 479 }
duke@435 480
duke@435 481
duke@435 482 extern "C" void pp(void* p) {
duke@435 483 Command c("pp");
duke@435 484 FlagSetting fl(PrintVMMessages, true);
never@2868 485 FlagSetting f2(DisplayVMOutput, true);
duke@435 486 if (Universe::heap()->is_in(p)) {
duke@435 487 oop obj = oop(p);
duke@435 488 obj->print();
duke@435 489 } else {
dcubed@3202 490 tty->print(PTR_FORMAT, p);
duke@435 491 }
duke@435 492 }
duke@435 493
duke@435 494
duke@435 495 // pv: print vm-printable object
duke@435 496 extern "C" void pa(intptr_t p) { ((AllocatedObj*) p)->print(); }
duke@435 497 extern "C" void findpc(intptr_t x);
duke@435 498
dcubed@3202 499 #endif // !PRODUCT
dcubed@3202 500
duke@435 501 extern "C" void ps() { // print stack
dcubed@3202 502 if (Thread::current() == NULL) return;
duke@435 503 Command c("ps");
duke@435 504
duke@435 505
duke@435 506 // Prints the stack of the current Java thread
duke@435 507 JavaThread* p = JavaThread::active();
duke@435 508 tty->print(" for thread: ");
duke@435 509 p->print();
duke@435 510 tty->cr();
duke@435 511
duke@435 512 if (p->has_last_Java_frame()) {
duke@435 513 // If the last_Java_fp is set we are in C land and
duke@435 514 // can call the standard stack_trace function.
dcubed@3202 515 #ifdef PRODUCT
dcubed@3202 516 p->print_stack();
dcubed@3202 517 } else {
dcubed@3202 518 tty->print_cr("Cannot find the last Java frame, printing stack disabled.");
dcubed@3202 519 #else // !PRODUCT
duke@435 520 p->trace_stack();
duke@435 521 } else {
duke@435 522 frame f = os::current_frame();
duke@435 523 RegisterMap reg_map(p);
duke@435 524 f = f.sender(&reg_map);
duke@435 525 tty->print("(guessing starting frame id=%#p based on current fp)\n", f.id());
duke@435 526 p->trace_stack_from(vframe::new_vframe(&f, &reg_map, p));
duke@435 527 pd_ps(f);
dcubed@3202 528 #endif // PRODUCT
duke@435 529 }
duke@435 530
duke@435 531 }
duke@435 532
never@2868 533 extern "C" void pfl() {
never@2868 534 // print frame layout
never@2868 535 Command c("pfl");
never@2868 536 JavaThread* p = JavaThread::active();
never@2868 537 tty->print(" for thread: ");
never@2868 538 p->print();
never@2868 539 tty->cr();
never@2868 540 if (p->has_last_Java_frame()) {
never@2868 541 p->print_frame_layout();
never@2868 542 }
never@2868 543 }
duke@435 544
dcubed@3202 545 #ifndef PRODUCT
dcubed@3202 546
duke@435 547 extern "C" void psf() { // print stack frames
duke@435 548 {
duke@435 549 Command c("psf");
duke@435 550 JavaThread* p = JavaThread::active();
duke@435 551 tty->print(" for thread: ");
duke@435 552 p->print();
duke@435 553 tty->cr();
duke@435 554 if (p->has_last_Java_frame()) {
duke@435 555 p->trace_frames();
duke@435 556 }
duke@435 557 }
duke@435 558 }
duke@435 559
duke@435 560
duke@435 561 extern "C" void threads() {
duke@435 562 Command c("threads");
duke@435 563 Threads::print(false, true);
duke@435 564 }
duke@435 565
duke@435 566
duke@435 567 extern "C" void psd() {
duke@435 568 Command c("psd");
duke@435 569 SystemDictionary::print();
duke@435 570 }
duke@435 571
duke@435 572
duke@435 573 extern "C" void safepoints() {
duke@435 574 Command c("safepoints");
duke@435 575 SafepointSynchronize::print_state();
duke@435 576 }
duke@435 577
dcubed@3202 578 #endif // !PRODUCT
duke@435 579
duke@435 580 extern "C" void pss() { // print all stacks
dcubed@3202 581 if (Thread::current() == NULL) return;
duke@435 582 Command c("pss");
dcubed@3202 583 Threads::print(true, PRODUCT_ONLY(false) NOT_PRODUCT(true));
duke@435 584 }
duke@435 585
dcubed@3202 586 #ifndef PRODUCT
duke@435 587
duke@435 588 extern "C" void debug() { // to set things up for compiler debugging
duke@435 589 Command c("debug");
duke@435 590 WizardMode = true;
duke@435 591 PrintVMMessages = PrintCompilation = true;
duke@435 592 PrintInlining = PrintAssembly = true;
duke@435 593 tty->flush();
duke@435 594 }
duke@435 595
duke@435 596
duke@435 597 extern "C" void ndebug() { // undo debug()
duke@435 598 Command c("ndebug");
duke@435 599 PrintCompilation = false;
duke@435 600 PrintInlining = PrintAssembly = false;
duke@435 601 tty->flush();
duke@435 602 }
duke@435 603
duke@435 604
duke@435 605 extern "C" void flush() {
duke@435 606 Command c("flush");
duke@435 607 tty->flush();
duke@435 608 }
duke@435 609
never@3571 610 extern "C" void events() {
never@3571 611 Command c("events");
never@3571 612 Events::print();
never@3571 613 }
duke@435 614
coleenp@4037 615 extern "C" Method* findm(intptr_t pc) {
duke@435 616 Command c("findm");
duke@435 617 nmethod* nm = CodeCache::find_nmethod((address)pc);
coleenp@4037 618 return (nm == NULL) ? (Method*)NULL : nm->method();
duke@435 619 }
duke@435 620
duke@435 621
duke@435 622 extern "C" nmethod* findnm(intptr_t addr) {
duke@435 623 Command c("findnm");
duke@435 624 return CodeCache::find_nmethod((address)addr);
duke@435 625 }
duke@435 626
duke@435 627 static address same_page(address x, address y) {
duke@435 628 intptr_t page_bits = -os::vm_page_size();
duke@435 629 if ((intptr_t(x) & page_bits) == (intptr_t(y) & page_bits)) {
duke@435 630 return x;
duke@435 631 } else if (x > y) {
duke@435 632 return (address)(intptr_t(y) | ~page_bits) + 1;
duke@435 633 } else {
duke@435 634 return (address)(intptr_t(y) & page_bits);
duke@435 635 }
duke@435 636 }
duke@435 637
duke@435 638
duke@435 639 // Another interface that isn't ambiguous in dbx.
duke@435 640 // Can we someday rename the other find to hsfind?
duke@435 641 extern "C" void hsfind(intptr_t x) {
duke@435 642 Command c("hsfind");
bobv@2036 643 os::print_location(tty, x, false);
duke@435 644 }
duke@435 645
duke@435 646
duke@435 647 extern "C" void find(intptr_t x) {
duke@435 648 Command c("find");
bobv@2036 649 os::print_location(tty, x, false);
duke@435 650 }
duke@435 651
duke@435 652
duke@435 653 extern "C" void findpc(intptr_t x) {
duke@435 654 Command c("findpc");
bobv@2036 655 os::print_location(tty, x, true);
duke@435 656 }
duke@435 657
duke@435 658
coleenp@4037 659 // Need method pointer to find bcp, when not in permgen.
coleenp@4037 660 extern "C" void findbcp(intptr_t method, intptr_t bcp) {
coleenp@4037 661 Command c("findbcp");
coleenp@4037 662 Method* mh = (Method*)method;
coleenp@4037 663 if (!mh->is_native()) {
coleenp@4037 664 tty->print_cr("bci_from(%p) = %d; print_codes():",
coleenp@4037 665 mh, mh->bci_from(address(bcp)));
coleenp@4037 666 mh->print_codes_on(tty);
coleenp@4037 667 }
coleenp@4037 668 }
coleenp@4037 669
duke@435 670 // int versions of all methods to avoid having to type type casts in the debugger
duke@435 671
duke@435 672 void pp(intptr_t p) { pp((void*)p); }
duke@435 673 void pp(oop p) { pp((void*)p); }
duke@435 674
duke@435 675 void help() {
duke@435 676 Command c("help");
duke@435 677 tty->print_cr("basic");
duke@435 678 tty->print_cr(" pp(void* p) - try to make sense of p");
duke@435 679 tty->print_cr(" pv(intptr_t p)- ((PrintableResourceObj*) p)->print()");
duke@435 680 tty->print_cr(" ps() - print current thread stack");
duke@435 681 tty->print_cr(" pss() - print all thread stacks");
coleenp@4037 682 tty->print_cr(" pm(int pc) - print Method* given compiled PC");
coleenp@4037 683 tty->print_cr(" findm(intptr_t pc) - finds Method*");
duke@435 684 tty->print_cr(" find(intptr_t x) - finds & prints nmethod/stub/bytecode/oop based on pointer into it");
duke@435 685
duke@435 686 tty->print_cr("misc.");
duke@435 687 tty->print_cr(" flush() - flushes the log file");
never@3571 688 tty->print_cr(" events() - dump events from ring buffers");
duke@435 689
duke@435 690
duke@435 691 tty->print_cr("compiler debugging");
duke@435 692 tty->print_cr(" debug() - to set things up for compiler debugging");
duke@435 693 tty->print_cr(" ndebug() - undo debug");
duke@435 694 }
duke@435 695
duke@435 696 #if 0
duke@435 697
duke@435 698 // BobV's command parser for debugging on windows when nothing else works.
duke@435 699
duke@435 700 enum CommandID {
duke@435 701 CMDID_HELP,
duke@435 702 CMDID_QUIT,
duke@435 703 CMDID_HSFIND,
duke@435 704 CMDID_PSS,
duke@435 705 CMDID_PS,
duke@435 706 CMDID_PSF,
duke@435 707 CMDID_FINDM,
duke@435 708 CMDID_FINDNM,
duke@435 709 CMDID_PP,
duke@435 710 CMDID_BPT,
duke@435 711 CMDID_EXIT,
duke@435 712 CMDID_VERIFY,
duke@435 713 CMDID_THREADS,
duke@435 714 CMDID_ILLEGAL = 99
duke@435 715 };
duke@435 716
duke@435 717 struct CommandParser {
duke@435 718 char *name;
duke@435 719 CommandID code;
duke@435 720 char *description;
duke@435 721 };
duke@435 722
duke@435 723 struct CommandParser CommandList[] = {
duke@435 724 (char *)"help", CMDID_HELP, " Dump this list",
duke@435 725 (char *)"quit", CMDID_QUIT, " Return from this routine",
duke@435 726 (char *)"hsfind", CMDID_HSFIND, "Perform an hsfind on an address",
duke@435 727 (char *)"ps", CMDID_PS, " Print Current Thread Stack Trace",
duke@435 728 (char *)"pss", CMDID_PSS, " Print All Thread Stack Trace",
duke@435 729 (char *)"psf", CMDID_PSF, " Print All Stack Frames",
coleenp@4037 730 (char *)"findm", CMDID_FINDM, " Find a Method* from a PC",
duke@435 731 (char *)"findnm", CMDID_FINDNM, "Find an nmethod from a PC",
duke@435 732 (char *)"pp", CMDID_PP, " Find out something about a pointer",
duke@435 733 (char *)"break", CMDID_BPT, " Execute a breakpoint",
duke@435 734 (char *)"exitvm", CMDID_EXIT, "Exit the VM",
duke@435 735 (char *)"verify", CMDID_VERIFY, "Perform a Heap Verify",
duke@435 736 (char *)"thread", CMDID_THREADS, "Dump Info on all Threads",
duke@435 737 (char *)0, CMDID_ILLEGAL
duke@435 738 };
duke@435 739
duke@435 740
duke@435 741 // get_debug_command()
duke@435 742 //
duke@435 743 // Read a command from standard input.
duke@435 744 // This is useful when you have a debugger
duke@435 745 // which doesn't support calling into functions.
duke@435 746 //
duke@435 747 void get_debug_command()
duke@435 748 {
duke@435 749 ssize_t count;
duke@435 750 int i,j;
duke@435 751 bool gotcommand;
duke@435 752 intptr_t addr;
duke@435 753 char buffer[256];
duke@435 754 nmethod *nm;
coleenp@4037 755 Method* m;
duke@435 756
duke@435 757 tty->print_cr("You have entered the diagnostic command interpreter");
duke@435 758 tty->print("The supported commands are:\n");
duke@435 759 for ( i=0; ; i++ ) {
duke@435 760 if ( CommandList[i].code == CMDID_ILLEGAL )
duke@435 761 break;
duke@435 762 tty->print_cr(" %s \n", CommandList[i].name );
duke@435 763 }
duke@435 764
duke@435 765 while ( 1 ) {
duke@435 766 gotcommand = false;
duke@435 767 tty->print("Please enter a command: ");
duke@435 768 count = scanf("%s", buffer) ;
duke@435 769 if ( count >=0 ) {
duke@435 770 for ( i=0; ; i++ ) {
duke@435 771 if ( CommandList[i].code == CMDID_ILLEGAL ) {
duke@435 772 if (!gotcommand) tty->print("Invalid command, please try again\n");
duke@435 773 break;
duke@435 774 }
duke@435 775 if ( strcmp(buffer, CommandList[i].name) == 0 ) {
duke@435 776 gotcommand = true;
duke@435 777 switch ( CommandList[i].code ) {
duke@435 778 case CMDID_PS:
duke@435 779 ps();
duke@435 780 break;
duke@435 781 case CMDID_PSS:
duke@435 782 pss();
duke@435 783 break;
duke@435 784 case CMDID_PSF:
duke@435 785 psf();
duke@435 786 break;
duke@435 787 case CMDID_FINDM:
duke@435 788 tty->print("Please enter the hex addr to pass to findm: ");
duke@435 789 scanf("%I64X", &addr);
coleenp@4037 790 m = (Method*)findm(addr);
duke@435 791 tty->print("findm(0x%I64X) returned 0x%I64X\n", addr, m);
duke@435 792 break;
duke@435 793 case CMDID_FINDNM:
duke@435 794 tty->print("Please enter the hex addr to pass to findnm: ");
duke@435 795 scanf("%I64X", &addr);
duke@435 796 nm = (nmethod*)findnm(addr);
duke@435 797 tty->print("findnm(0x%I64X) returned 0x%I64X\n", addr, nm);
duke@435 798 break;
duke@435 799 case CMDID_PP:
duke@435 800 tty->print("Please enter the hex addr to pass to pp: ");
duke@435 801 scanf("%I64X", &addr);
duke@435 802 pp((void*)addr);
duke@435 803 break;
duke@435 804 case CMDID_EXIT:
duke@435 805 exit(0);
duke@435 806 case CMDID_HELP:
duke@435 807 tty->print("Here are the supported commands: ");
duke@435 808 for ( j=0; ; j++ ) {
duke@435 809 if ( CommandList[j].code == CMDID_ILLEGAL )
duke@435 810 break;
duke@435 811 tty->print_cr(" %s -- %s\n", CommandList[j].name,
duke@435 812 CommandList[j].description );
duke@435 813 }
duke@435 814 break;
duke@435 815 case CMDID_QUIT:
duke@435 816 return;
duke@435 817 break;
duke@435 818 case CMDID_BPT:
duke@435 819 BREAKPOINT;
duke@435 820 break;
duke@435 821 case CMDID_VERIFY:
duke@435 822 verify();;
duke@435 823 break;
duke@435 824 case CMDID_THREADS:
duke@435 825 threads();;
duke@435 826 break;
duke@435 827 case CMDID_HSFIND:
duke@435 828 tty->print("Please enter the hex addr to pass to hsfind: ");
duke@435 829 scanf("%I64X", &addr);
duke@435 830 tty->print("Calling hsfind(0x%I64X)\n", addr);
duke@435 831 hsfind(addr);
duke@435 832 break;
duke@435 833 default:
duke@435 834 case CMDID_ILLEGAL:
duke@435 835 break;
duke@435 836 }
duke@435 837 }
duke@435 838 }
duke@435 839 }
duke@435 840 }
duke@435 841 }
duke@435 842 #endif
duke@435 843
dcubed@3202 844 #endif // !PRODUCT

mercurial