src/share/vm/utilities/debug.cpp

Tue, 12 Oct 2010 10:57:33 -0400

author
kamg
date
Tue, 12 Oct 2010 10:57:33 -0400
changeset 2225
c77b5c592eab
parent 2130
30f67acf635d
child 2314
f95d63e2154a
permissions
-rw-r--r--

6392697: Additional flag needed to supress Hotspot warning messages
Summary: Apply PrintJvmWarnings flag to all warnings
Reviewed-by: coleenp, phh

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

mercurial