Mercurial > hg > truffle
annotate src/share/vm/utilities/debug.cpp @ 196:d1605aabd0a1 jdk7-b30
6719955: Update copyright year
Summary: Update copyright year for files that have been modified in 2008
Reviewed-by: ohair, tbell
| author | xdono |
|---|---|
| date | Wed, 02 Jul 2008 12:55:16 -0700 |
| parents | ba764ed4b6f2 |
| children | 9c2ecc2ffb12 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 196 | 2 * Copyright 1997-2008 Sun Microsystems, Inc. All Rights Reserved. |
| 0 | 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
| 4 * | |
| 5 * This code is free software; you can redistribute it and/or modify it | |
| 6 * under the terms of the GNU General Public License version 2 only, as | |
| 7 * published by the Free Software Foundation. | |
| 8 * | |
| 9 * This code is distributed in the hope that it will be useful, but WITHOUT | |
| 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 12 * version 2 for more details (a copy is included in the LICENSE file that | |
| 13 * accompanied this code). | |
| 14 * | |
| 15 * You should have received a copy of the GNU General Public License version | |
| 16 * 2 along with this work; if not, write to the Free Software Foundation, | |
| 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. | |
| 18 * | |
| 19 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara, | |
| 20 * CA 95054 USA or visit www.sun.com if you need additional information or | |
| 21 * have any questions. | |
| 22 * | |
| 23 */ | |
| 24 | |
| 25 # include "incls/_precompiled.incl" | |
| 26 # include "incls/_debug.cpp.incl" | |
| 27 | |
| 28 #ifndef ASSERT | |
| 29 # ifdef _DEBUG | |
| 30 // NOTE: don't turn the lines below into a comment -- if you're getting | |
| 31 // a compile error here, change the settings to define ASSERT | |
| 32 ASSERT should be defined when _DEBUG is defined. It is not intended to be used for debugging | |
| 33 functions that do not slow down the system too much and thus can be left in optimized code. | |
| 34 On the other hand, the code should not be included in a production version. | |
| 35 # endif // _DEBUG | |
| 36 #endif // ASSERT | |
| 37 | |
| 38 | |
| 39 #ifdef _DEBUG | |
| 40 # ifndef ASSERT | |
| 41 configuration error: ASSERT must be defined in debug version | |
| 42 # endif // ASSERT | |
| 43 #endif // _DEBUG | |
| 44 | |
| 45 | |
| 46 #ifdef PRODUCT | |
| 47 # if -defined _DEBUG || -defined ASSERT | |
| 48 configuration error: ASSERT et al. must not be defined in PRODUCT version | |
| 49 # endif | |
| 50 #endif // PRODUCT | |
| 51 | |
| 52 | |
| 53 void warning(const char* format, ...) { | |
| 54 // In case error happens before init or during shutdown | |
| 55 if (tty == NULL) ostream_init(); | |
| 56 | |
| 57 tty->print("%s warning: ", VM_Version::vm_name()); | |
| 58 va_list ap; | |
| 59 va_start(ap, format); | |
| 60 tty->vprint_cr(format, ap); | |
| 61 va_end(ap); | |
| 62 if (BreakAtWarning) BREAKPOINT; | |
| 63 } | |
| 64 | |
| 65 #ifndef PRODUCT | |
| 66 | |
| 67 #define is_token_break(ch) (isspace(ch) || (ch) == ',') | |
| 68 | |
| 69 static const char* last_file_name = NULL; | |
| 70 static int last_line_no = -1; | |
| 71 | |
| 72 // assert/guarantee/... may happen very early during VM initialization. | |
| 73 // Don't rely on anything that is initialized by Threads::create_vm(). For | |
| 74 // example, don't use tty. | |
| 75 bool assert_is_suppressed(const char* file_name, int line_no) { | |
| 76 // The following 1-element cache requires that passed-in | |
| 77 // file names are always only constant literals. | |
| 78 if (file_name == last_file_name && line_no == last_line_no) return true; | |
| 79 | |
| 80 int file_name_len = (int)strlen(file_name); | |
| 81 char separator = os::file_separator()[0]; | |
| 82 const char* base_name = strrchr(file_name, separator); | |
| 83 if (base_name == NULL) | |
| 84 base_name = file_name; | |
| 85 | |
| 86 // scan the SuppressErrorAt option | |
| 87 const char* cp = SuppressErrorAt; | |
| 88 for (;;) { | |
| 89 const char* sfile; | |
| 90 int sfile_len; | |
| 91 int sline; | |
| 92 bool noisy; | |
| 93 while ((*cp) != '\0' && is_token_break(*cp)) cp++; | |
| 94 if ((*cp) == '\0') break; | |
| 95 sfile = cp; | |
| 96 while ((*cp) != '\0' && !is_token_break(*cp) && (*cp) != ':') cp++; | |
| 97 sfile_len = cp - sfile; | |
| 98 if ((*cp) == ':') cp++; | |
| 99 sline = 0; | |
| 100 while ((*cp) != '\0' && isdigit(*cp)) { | |
| 101 sline *= 10; | |
| 102 sline += (*cp) - '0'; | |
| 103 cp++; | |
| 104 } | |
| 105 // "file:line!" means the assert suppression is not silent | |
| 106 noisy = ((*cp) == '!'); | |
| 107 while ((*cp) != '\0' && !is_token_break(*cp)) cp++; | |
| 108 // match the line | |
| 109 if (sline != 0) { | |
| 110 if (sline != line_no) continue; | |
| 111 } | |
| 112 // match the file | |
| 113 if (sfile_len > 0) { | |
| 114 const char* look = file_name; | |
| 115 const char* look_max = file_name + file_name_len - sfile_len; | |
| 116 const char* foundp; | |
| 117 bool match = false; | |
| 118 while (!match | |
| 119 && (foundp = strchr(look, sfile[0])) != NULL | |
| 120 && foundp <= look_max) { | |
| 121 match = true; | |
| 122 for (int i = 1; i < sfile_len; i++) { | |
| 123 if (sfile[i] != foundp[i]) { | |
| 124 match = false; | |
| 125 break; | |
| 126 } | |
| 127 } | |
| 128 look = foundp + 1; | |
| 129 } | |
| 130 if (!match) continue; | |
| 131 } | |
| 132 // got a match! | |
| 133 if (noisy) { | |
| 134 fdStream out(defaultStream::output_fd()); | |
| 135 out.print_raw("[error suppressed at "); | |
| 136 out.print_raw(base_name); | |
| 137 char buf[16]; | |
| 138 jio_snprintf(buf, sizeof(buf), ":%d]", line_no); | |
| 139 out.print_raw_cr(buf); | |
| 140 } else { | |
| 141 // update 1-element cache for fast silent matches | |
| 142 last_file_name = file_name; | |
| 143 last_line_no = line_no; | |
| 144 } | |
| 145 return true; | |
| 146 } | |
| 147 | |
| 148 if (!is_error_reported()) { | |
| 149 // print a friendly hint: | |
| 150 fdStream out(defaultStream::output_fd()); | |
| 151 out.print_raw_cr("# To suppress the following error report, specify this argument"); | |
| 152 out.print_raw ("# after -XX: or in .hotspotrc: SuppressErrorAt="); | |
| 153 out.print_raw (base_name); | |
| 154 char buf[16]; | |
| 155 jio_snprintf(buf, sizeof(buf), ":%d", line_no); | |
| 156 out.print_raw_cr(buf); | |
| 157 } | |
| 158 return false; | |
| 159 } | |
| 160 | |
| 161 #undef is_token_break | |
| 162 | |
| 163 #else | |
| 164 | |
| 165 // Place-holder for non-existent suppression check: | |
| 166 #define assert_is_suppressed(file_name, line_no) (false) | |
| 167 | |
| 168 #endif //PRODUCT | |
| 169 | |
| 170 void report_assertion_failure(const char* file_name, int line_no, const char* message) { | |
| 171 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 172 VMError err(ThreadLocalStorage::get_thread_slow(), message, file_name, line_no); | |
| 173 err.report_and_die(); | |
| 174 } | |
| 175 | |
| 176 void report_fatal(const char* file_name, int line_no, const char* message) { | |
| 177 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 178 VMError err(ThreadLocalStorage::get_thread_slow(), message, file_name, line_no); | |
| 179 err.report_and_die(); | |
| 180 } | |
| 181 | |
| 182 void report_fatal_vararg(const char* file_name, int line_no, const char* format, ...) { | |
| 183 char buffer[256]; | |
| 184 va_list ap; | |
| 185 va_start(ap, format); | |
| 186 jio_vsnprintf(buffer, sizeof(buffer), format, ap); | |
| 187 va_end(ap); | |
| 188 report_fatal(file_name, line_no, buffer); | |
| 189 } | |
| 190 | |
| 191 | |
| 192 // Used by report_vm_out_of_memory to detect recursion. | |
| 193 static jint _exiting_out_of_mem = 0; | |
| 194 | |
| 195 // Just passing the flow to VMError to handle error | |
| 196 void report_vm_out_of_memory(const char* file_name, int line_no, size_t size, const char* message) { | |
| 197 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 198 | |
| 199 // We try to gather additional information for the first out of memory | |
| 200 // error only; gathering additional data might cause an allocation and a | |
| 201 // recursive out_of_memory condition. | |
| 202 | |
| 203 const jint exiting = 1; | |
| 204 // If we succeed in changing the value, we're the first one in. | |
| 205 bool first_time_here = Atomic::xchg(exiting, &_exiting_out_of_mem) != exiting; | |
| 206 | |
| 207 if (first_time_here) { | |
| 208 Thread* thread = ThreadLocalStorage::get_thread_slow(); | |
| 209 VMError(thread, size, message, file_name, line_no).report_and_die(); | |
| 210 } | |
| 211 vm_abort(); | |
| 212 } | |
| 213 | |
| 214 void report_vm_out_of_memory_vararg(const char* file_name, int line_no, size_t size, const char* format, ...) { | |
| 215 char buffer[256]; | |
| 216 va_list ap; | |
| 217 va_start(ap, format); | |
| 218 jio_vsnprintf(buffer, sizeof(buffer), format, ap); | |
| 219 va_end(ap); | |
| 220 report_vm_out_of_memory(file_name, line_no, size, buffer); | |
| 221 } | |
| 222 | |
| 223 void report_should_not_call(const char* file_name, int line_no) { | |
| 224 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 225 VMError err(ThreadLocalStorage::get_thread_slow(), "ShouldNotCall()", file_name, line_no); | |
| 226 err.report_and_die(); | |
| 227 } | |
| 228 | |
| 229 | |
| 230 void report_should_not_reach_here(const char* file_name, int line_no) { | |
| 231 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 232 VMError err(ThreadLocalStorage::get_thread_slow(), "ShouldNotReachHere()", file_name, line_no); | |
| 233 err.report_and_die(); | |
| 234 } | |
| 235 | |
| 236 | |
| 237 void report_unimplemented(const char* file_name, int line_no) { | |
| 238 if (Debugging || assert_is_suppressed(file_name, line_no)) return; | |
| 239 VMError err(ThreadLocalStorage::get_thread_slow(), "Unimplemented()", file_name, line_no); | |
| 240 err.report_and_die(); | |
| 241 } | |
| 242 | |
| 243 | |
| 244 void report_untested(const char* file_name, int line_no, const char* msg) { | |
| 245 #ifndef PRODUCT | |
| 246 warning("Untested: %s in %s: %d\n", msg, file_name, line_no); | |
| 247 #endif // PRODUCT | |
| 248 } | |
| 249 | |
| 250 void report_java_out_of_memory(const char* message) { | |
| 251 static jint out_of_memory_reported = 0; | |
| 252 | |
| 253 // A number of threads may attempt to report OutOfMemoryError at around the | |
| 254 // same time. To avoid dumping the heap or executing the data collection | |
| 255 // commands multiple times we just do it once when the first threads reports | |
| 256 // the error. | |
| 257 if (Atomic::cmpxchg(1, &out_of_memory_reported, 0) == 0) { | |
| 258 // create heap dump before OnOutOfMemoryError commands are executed | |
| 259 if (HeapDumpOnOutOfMemoryError) { | |
| 260 tty->print_cr("java.lang.OutOfMemoryError: %s", message); | |
| 261 HeapDumper::dump_heap(); | |
| 262 } | |
| 263 | |
| 264 if (OnOutOfMemoryError && OnOutOfMemoryError[0]) { | |
| 265 VMError err(message); | |
| 266 err.report_java_out_of_memory(); | |
| 267 } | |
| 268 } | |
| 269 } | |
| 270 | |
| 271 | |
| 272 extern "C" void ps(); | |
| 273 | |
| 274 static bool error_reported = false; | |
| 275 | |
| 276 // call this when the VM is dying--it might loosen some asserts | |
| 277 void set_error_reported() { | |
| 278 error_reported = true; | |
| 279 } | |
| 280 | |
| 281 bool is_error_reported() { | |
| 282 return error_reported; | |
| 283 } | |
| 284 | |
| 285 // ------ helper functions for debugging go here ------------ | |
| 286 | |
| 287 #ifndef PRODUCT | |
| 288 // All debug entries should be wrapped with a stack allocated | |
| 289 // Command object. It makes sure a resource mark is set and | |
| 290 // flushes the logfile to prevent file sharing problems. | |
| 291 | |
| 292 class Command : public StackObj { | |
| 293 private: | |
| 294 ResourceMark rm; | |
| 295 ResetNoHandleMark rnhm; | |
| 296 HandleMark hm; | |
| 297 bool debug_save; | |
| 298 public: | |
| 299 static int level; | |
| 300 Command(const char* str) { | |
| 301 debug_save = Debugging; | |
| 302 Debugging = true; | |
| 303 if (level++ > 0) return; | |
| 304 tty->cr(); | |
| 305 tty->print_cr("\"Executing %s\"", str); | |
| 306 } | |
| 307 | |
| 308 ~Command() { tty->flush(); Debugging = debug_save; level--; } | |
| 309 }; | |
| 310 | |
| 311 int Command::level = 0; | |
| 312 | |
| 313 extern "C" void blob(CodeBlob* cb) { | |
| 314 Command c("blob"); | |
| 315 cb->print(); | |
| 316 } | |
| 317 | |
| 318 | |
| 319 extern "C" void dump_vtable(address p) { | |
| 320 Command c("dump_vtable"); | |
| 321 klassOop k = (klassOop)p; | |
| 322 instanceKlass::cast(k)->vtable()->print(); | |
| 323 } | |
| 324 | |
| 325 | |
| 326 extern "C" void nm(intptr_t p) { | |
| 327 // Actually we look through all CodeBlobs (the nm name has been kept for backwards compatability) | |
| 328 Command c("nm"); | |
| 329 CodeBlob* cb = CodeCache::find_blob((address)p); | |
| 330 if (cb == NULL) { | |
| 331 tty->print_cr("NULL"); | |
| 332 } else { | |
| 333 cb->print(); | |
| 334 } | |
| 335 } | |
| 336 | |
| 337 | |
| 338 extern "C" void disnm(intptr_t p) { | |
| 339 Command c("disnm"); | |
| 340 CodeBlob* cb = CodeCache::find_blob((address) p); | |
| 341 cb->print(); | |
| 342 Disassembler::decode(cb); | |
| 343 } | |
| 344 | |
| 345 | |
| 346 extern "C" void printnm(intptr_t p) { | |
| 347 char buffer[256]; | |
| 348 sprintf(buffer, "printnm: " INTPTR_FORMAT, p); | |
| 349 Command c(buffer); | |
| 350 CodeBlob* cb = CodeCache::find_blob((address) p); | |
| 351 if (cb->is_nmethod()) { | |
| 352 nmethod* nm = (nmethod*)cb; | |
| 353 nm->print_nmethod(true); | |
| 354 } | |
| 355 } | |
| 356 | |
| 357 | |
| 358 extern "C" void universe() { | |
| 359 Command c("universe"); | |
| 360 Universe::print(); | |
| 361 } | |
| 362 | |
| 363 | |
| 364 extern "C" void verify() { | |
| 365 // try to run a verify on the entire system | |
| 366 // note: this may not be safe if we're not at a safepoint; for debugging, | |
| 367 // this manipulates the safepoint settings to avoid assertion failures | |
| 368 Command c("universe verify"); | |
| 369 bool safe = SafepointSynchronize::is_at_safepoint(); | |
| 370 if (!safe) { | |
| 371 tty->print_cr("warning: not at safepoint -- verify may fail"); | |
| 372 SafepointSynchronize::set_is_at_safepoint(); | |
| 373 } | |
| 374 // Ensure Eden top is correct before verification | |
| 375 Universe::heap()->prepare_for_verify(); | |
| 376 Universe::verify(true); | |
| 377 if (!safe) SafepointSynchronize::set_is_not_at_safepoint(); | |
| 378 } | |
| 379 | |
| 380 | |
| 381 extern "C" void pp(void* p) { | |
| 382 Command c("pp"); | |
| 383 FlagSetting fl(PrintVMMessages, true); | |
| 384 if (Universe::heap()->is_in(p)) { | |
| 385 oop obj = oop(p); | |
| 386 obj->print(); | |
| 387 } else { | |
| 388 tty->print("%#p", p); | |
| 389 } | |
| 390 } | |
| 391 | |
| 392 | |
| 393 // pv: print vm-printable object | |
| 394 extern "C" void pa(intptr_t p) { ((AllocatedObj*) p)->print(); } | |
| 395 extern "C" void findpc(intptr_t x); | |
| 396 | |
| 397 extern "C" void ps() { // print stack | |
| 398 Command c("ps"); | |
| 399 | |
| 400 | |
| 401 // Prints the stack of the current Java thread | |
| 402 JavaThread* p = JavaThread::active(); | |
| 403 tty->print(" for thread: "); | |
| 404 p->print(); | |
| 405 tty->cr(); | |
| 406 | |
| 407 if (p->has_last_Java_frame()) { | |
| 408 // If the last_Java_fp is set we are in C land and | |
| 409 // can call the standard stack_trace function. | |
| 410 p->trace_stack(); | |
| 411 } else { | |
| 412 frame f = os::current_frame(); | |
| 413 RegisterMap reg_map(p); | |
| 414 f = f.sender(®_map); | |
| 415 tty->print("(guessing starting frame id=%#p based on current fp)\n", f.id()); | |
| 416 p->trace_stack_from(vframe::new_vframe(&f, ®_map, p)); | |
| 417 pd_ps(f); | |
| 418 } | |
| 419 | |
| 420 } | |
| 421 | |
| 422 | |
| 423 extern "C" void psf() { // print stack frames | |
| 424 { | |
| 425 Command c("psf"); | |
| 426 JavaThread* p = JavaThread::active(); | |
| 427 tty->print(" for thread: "); | |
| 428 p->print(); | |
| 429 tty->cr(); | |
| 430 if (p->has_last_Java_frame()) { | |
| 431 p->trace_frames(); | |
| 432 } | |
| 433 } | |
| 434 } | |
| 435 | |
| 436 | |
| 437 extern "C" void threads() { | |
| 438 Command c("threads"); | |
| 439 Threads::print(false, true); | |
| 440 } | |
| 441 | |
| 442 | |
| 443 extern "C" void psd() { | |
| 444 Command c("psd"); | |
| 445 SystemDictionary::print(); | |
| 446 } | |
| 447 | |
| 448 | |
| 449 extern "C" void safepoints() { | |
| 450 Command c("safepoints"); | |
| 451 SafepointSynchronize::print_state(); | |
| 452 } | |
| 453 | |
| 454 | |
| 455 extern "C" void pss() { // print all stacks | |
| 456 Command c("pss"); | |
| 457 Threads::print(true, true); | |
| 458 } | |
| 459 | |
| 460 | |
| 461 extern "C" void debug() { // to set things up for compiler debugging | |
| 462 Command c("debug"); | |
| 463 WizardMode = true; | |
| 464 PrintVMMessages = PrintCompilation = true; | |
| 465 PrintInlining = PrintAssembly = true; | |
| 466 tty->flush(); | |
| 467 } | |
| 468 | |
| 469 | |
| 470 extern "C" void ndebug() { // undo debug() | |
| 471 Command c("ndebug"); | |
| 472 PrintCompilation = false; | |
| 473 PrintInlining = PrintAssembly = false; | |
| 474 tty->flush(); | |
| 475 } | |
| 476 | |
| 477 | |
| 478 extern "C" void flush() { | |
| 479 Command c("flush"); | |
| 480 tty->flush(); | |
| 481 } | |
| 482 | |
| 483 | |
| 484 extern "C" void events() { | |
| 485 Command c("events"); | |
| 486 Events::print_last(tty, 50); | |
| 487 } | |
| 488 | |
| 489 | |
| 490 extern "C" void nevents(int n) { | |
| 491 Command c("events"); | |
| 492 Events::print_last(tty, n); | |
| 493 } | |
| 494 | |
| 495 | |
| 496 // Given a heap address that was valid before the most recent GC, if | |
| 497 // the oop that used to contain it is still live, prints the new | |
| 498 // location of the oop and the address. Useful for tracking down | |
| 499 // certain kinds of naked oop and oop map bugs. | |
| 500 extern "C" void pnl(intptr_t old_heap_addr) { | |
| 501 // Print New Location of old heap address | |
| 502 Command c("pnl"); | |
| 503 #ifndef VALIDATE_MARK_SWEEP | |
| 504 tty->print_cr("Requires build with VALIDATE_MARK_SWEEP defined (debug build) and RecordMarkSweepCompaction enabled"); | |
| 505 #else | |
| 506 MarkSweep::print_new_location_of_heap_address((HeapWord*) old_heap_addr); | |
| 507 #endif | |
| 508 } | |
| 509 | |
| 510 | |
| 511 extern "C" methodOop findm(intptr_t pc) { | |
| 512 Command c("findm"); | |
| 513 nmethod* nm = CodeCache::find_nmethod((address)pc); | |
| 514 return (nm == NULL) ? (methodOop)NULL : nm->method(); | |
| 515 } | |
| 516 | |
| 517 | |
| 518 extern "C" nmethod* findnm(intptr_t addr) { | |
| 519 Command c("findnm"); | |
| 520 return CodeCache::find_nmethod((address)addr); | |
| 521 } | |
| 522 | |
| 523 static address same_page(address x, address y) { | |
| 524 intptr_t page_bits = -os::vm_page_size(); | |
| 525 if ((intptr_t(x) & page_bits) == (intptr_t(y) & page_bits)) { | |
| 526 return x; | |
| 527 } else if (x > y) { | |
| 528 return (address)(intptr_t(y) | ~page_bits) + 1; | |
| 529 } else { | |
| 530 return (address)(intptr_t(y) & page_bits); | |
| 531 } | |
| 532 } | |
| 533 | |
| 534 | |
| 535 static void find(intptr_t x, bool print_pc) { | |
| 536 address addr = (address)x; | |
| 537 | |
| 538 CodeBlob* b = CodeCache::find_blob_unsafe(addr); | |
| 539 if (b != NULL) { | |
| 540 if (b->is_buffer_blob()) { | |
| 541 // the interpreter is generated into a buffer blob | |
| 542 InterpreterCodelet* i = Interpreter::codelet_containing(addr); | |
| 543 if (i != NULL) { | |
| 544 i->print(); | |
| 545 return; | |
| 546 } | |
| 547 if (Interpreter::contains(addr)) { | |
| 548 tty->print_cr(INTPTR_FORMAT " is pointing into interpreter code (not bytecode specific)", addr); | |
| 549 return; | |
| 550 } | |
| 551 // | |
| 552 if (AdapterHandlerLibrary::contains(b)) { | |
| 553 AdapterHandlerLibrary::print_handler(b); | |
| 554 } | |
| 555 // the stubroutines are generated into a buffer blob | |
| 556 StubCodeDesc* d = StubCodeDesc::desc_for(addr); | |
| 557 if (d != NULL) { | |
| 558 d->print(); | |
| 559 if (print_pc) tty->cr(); | |
| 560 return; | |
| 561 } | |
| 562 if (StubRoutines::contains(addr)) { | |
| 563 tty->print_cr(INTPTR_FORMAT " is pointing to an (unnamed) stub routine", addr); | |
| 564 return; | |
| 565 } | |
| 566 // the InlineCacheBuffer is using stubs generated into a buffer blob | |
| 567 if (InlineCacheBuffer::contains(addr)) { | |
| 568 tty->print_cr(INTPTR_FORMAT "is pointing into InlineCacheBuffer", addr); | |
| 569 return; | |
| 570 } | |
| 571 VtableStub* v = VtableStubs::stub_containing(addr); | |
| 572 if (v != NULL) { | |
| 573 v->print(); | |
| 574 return; | |
| 575 } | |
| 576 } | |
| 577 if (print_pc && b->is_nmethod()) { | |
| 578 ResourceMark rm; | |
| 579 tty->print("%#p: Compiled ", addr); | |
| 580 ((nmethod*)b)->method()->print_value_on(tty); | |
| 581 tty->print(" = (CodeBlob*)" INTPTR_FORMAT, b); | |
| 582 tty->cr(); | |
| 583 return; | |
| 584 } | |
| 585 if ( b->is_nmethod()) { | |
| 586 if (b->is_zombie()) { | |
| 587 tty->print_cr(INTPTR_FORMAT " is zombie nmethod", b); | |
| 588 } else if (b->is_not_entrant()) { | |
| 589 tty->print_cr(INTPTR_FORMAT " is non-entrant nmethod", b); | |
| 590 } | |
| 591 } | |
| 592 b->print(); | |
| 593 return; | |
| 594 } | |
| 595 | |
| 596 if (Universe::heap()->is_in_reserved(addr)) { | |
| 597 HeapWord* p = Universe::heap()->block_start(addr); | |
| 598 bool print = false; | |
| 599 // If we couldn't find it it just may mean that heap wasn't parseable | |
| 600 // See if we were just given an oop directly | |
| 601 if (p != NULL && Universe::heap()->block_is_obj(p)) { | |
| 602 print = true; | |
| 603 } else if (p == NULL && ((oopDesc*)addr)->is_oop()) { | |
| 604 p = (HeapWord*) addr; | |
| 605 print = true; | |
| 606 } | |
| 607 if (print) { | |
| 608 oop(p)->print(); | |
| 609 if (p != (HeapWord*)x && oop(p)->is_constMethod() && | |
| 610 constMethodOop(p)->contains(addr)) { | |
| 611 Thread *thread = Thread::current(); | |
| 612 HandleMark hm(thread); | |
| 613 methodHandle mh (thread, constMethodOop(p)->method()); | |
| 614 if (!mh->is_native()) { | |
| 615 tty->print_cr("bci_from(%p) = %d; print_codes():", | |
| 616 addr, mh->bci_from(address(x))); | |
| 617 mh->print_codes(); | |
| 618 } | |
| 619 } | |
| 620 return; | |
| 621 } | |
| 622 } | |
| 623 if (JNIHandles::is_global_handle((jobject) addr)) { | |
| 624 tty->print_cr(INTPTR_FORMAT "is a global jni handle", addr); | |
| 625 return; | |
| 626 } | |
| 627 if (JNIHandles::is_weak_global_handle((jobject) addr)) { | |
| 628 tty->print_cr(INTPTR_FORMAT "is a weak global jni handle", addr); | |
| 629 return; | |
| 630 } | |
| 631 if (JNIHandleBlock::any_contains((jobject) addr)) { | |
| 632 tty->print_cr(INTPTR_FORMAT "is a local jni handle", addr); | |
| 633 return; | |
| 634 } | |
| 635 | |
| 636 for(JavaThread *thread = Threads::first(); thread; thread = thread->next()) { | |
| 637 // Check for priviledge stack | |
| 638 if (thread->privileged_stack_top() != NULL && thread->privileged_stack_top()->contains(addr)) { | |
| 639 tty->print_cr(INTPTR_FORMAT "is pointing into the priviledge stack for thread: " INTPTR_FORMAT, addr, thread); | |
| 640 return; | |
| 641 } | |
| 642 // If the addr is a java thread print information about that. | |
| 643 if (addr == (address)thread) { | |
| 644 thread->print(); | |
| 645 return; | |
| 646 } | |
| 647 } | |
| 648 | |
| 649 // Try an OS specific find | |
| 650 if (os::find(addr)) { | |
| 651 return; | |
| 652 } | |
| 653 | |
| 654 if (print_pc) { | |
| 655 tty->print_cr(INTPTR_FORMAT ": probably in C++ code; check debugger", addr); | |
| 656 Disassembler::decode(same_page(addr-40,addr),same_page(addr+40,addr)); | |
| 657 return; | |
| 658 } | |
| 659 | |
| 660 tty->print_cr(INTPTR_FORMAT "is pointing to unknown location", addr); | |
| 661 } | |
| 662 | |
| 663 | |
| 664 class LookForRefInGenClosure : public OopsInGenClosure { | |
| 665 public: | |
| 666 oop target; | |
| 667 void do_oop(oop* o) { | |
| 668 if (o != NULL && *o == target) { | |
| 669 tty->print_cr("0x%08x", o); | |
| 670 } | |
| 671 } | |
|
113
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
0
diff
changeset
|
672 void do_oop(narrowOop* o) { ShouldNotReachHere(); } |
| 0 | 673 }; |
| 674 | |
| 675 | |
| 676 class LookForRefInObjectClosure : public ObjectClosure { | |
| 677 private: | |
| 678 LookForRefInGenClosure look_in_object; | |
| 679 public: | |
| 680 LookForRefInObjectClosure(oop target) { look_in_object.target = target; } | |
| 681 void do_object(oop obj) { | |
| 682 obj->oop_iterate(&look_in_object); | |
| 683 } | |
| 684 }; | |
| 685 | |
| 686 | |
| 687 static void findref(intptr_t x) { | |
| 688 GenCollectedHeap *gch = GenCollectedHeap::heap(); | |
| 689 LookForRefInGenClosure lookFor; | |
| 690 lookFor.target = (oop) x; | |
| 691 LookForRefInObjectClosure look_in_object((oop) x); | |
| 692 | |
| 693 tty->print_cr("Searching heap:"); | |
| 694 gch->object_iterate(&look_in_object); | |
| 695 | |
| 696 tty->print_cr("Searching strong roots:"); | |
| 697 Universe::oops_do(&lookFor, false); | |
| 698 JNIHandles::oops_do(&lookFor); // Global (strong) JNI handles | |
| 699 Threads::oops_do(&lookFor); | |
| 700 ObjectSynchronizer::oops_do(&lookFor); | |
| 701 //FlatProfiler::oops_do(&lookFor); | |
| 702 SystemDictionary::oops_do(&lookFor); | |
| 703 | |
| 704 tty->print_cr("Done."); | |
| 705 } | |
| 706 | |
| 707 class FindClassObjectClosure: public ObjectClosure { | |
| 708 private: | |
| 709 const char* _target; | |
| 710 public: | |
| 711 FindClassObjectClosure(const char name[]) { _target = name; } | |
| 712 | |
| 713 virtual void do_object(oop obj) { | |
| 714 if (obj->is_klass()) { | |
| 715 Klass* k = klassOop(obj)->klass_part(); | |
| 716 if (k->name() != NULL) { | |
| 717 ResourceMark rm; | |
| 718 const char* ext = k->external_name(); | |
| 719 if ( strcmp(_target, ext) == 0 ) { | |
| 720 tty->print_cr("Found " INTPTR_FORMAT, obj); | |
| 721 obj->print(); | |
| 722 } | |
| 723 } | |
| 724 } | |
| 725 } | |
| 726 }; | |
| 727 | |
| 728 // | |
| 729 extern "C" void findclass(const char name[]) { | |
| 730 Command c("findclass"); | |
| 731 if (name != NULL) { | |
| 732 tty->print_cr("Finding class %s -> ", name); | |
| 733 FindClassObjectClosure srch(name); | |
| 734 Universe::heap()->permanent_object_iterate(&srch); | |
| 735 } | |
| 736 } | |
| 737 | |
| 738 // Another interface that isn't ambiguous in dbx. | |
| 739 // Can we someday rename the other find to hsfind? | |
| 740 extern "C" void hsfind(intptr_t x) { | |
| 741 Command c("hsfind"); | |
| 742 find(x, false); | |
| 743 } | |
| 744 | |
| 745 | |
| 746 extern "C" void hsfindref(intptr_t x) { | |
| 747 Command c("hsfindref"); | |
| 748 findref(x); | |
| 749 } | |
| 750 | |
| 751 extern "C" void find(intptr_t x) { | |
| 752 Command c("find"); | |
| 753 find(x, false); | |
| 754 } | |
| 755 | |
| 756 | |
| 757 extern "C" void findpc(intptr_t x) { | |
| 758 Command c("findpc"); | |
| 759 find(x, true); | |
| 760 } | |
| 761 | |
| 762 | |
| 763 // int versions of all methods to avoid having to type type casts in the debugger | |
| 764 | |
| 765 void pp(intptr_t p) { pp((void*)p); } | |
| 766 void pp(oop p) { pp((void*)p); } | |
| 767 | |
| 768 void help() { | |
| 769 Command c("help"); | |
| 770 tty->print_cr("basic"); | |
| 771 tty->print_cr(" pp(void* p) - try to make sense of p"); | |
| 772 tty->print_cr(" pv(intptr_t p)- ((PrintableResourceObj*) p)->print()"); | |
| 773 tty->print_cr(" ps() - print current thread stack"); | |
| 774 tty->print_cr(" pss() - print all thread stacks"); | |
| 775 tty->print_cr(" pm(int pc) - print methodOop given compiled PC"); | |
| 776 tty->print_cr(" findm(intptr_t pc) - finds methodOop"); | |
| 777 tty->print_cr(" find(intptr_t x) - finds & prints nmethod/stub/bytecode/oop based on pointer into it"); | |
| 778 | |
| 779 tty->print_cr("misc."); | |
| 780 tty->print_cr(" flush() - flushes the log file"); | |
| 781 tty->print_cr(" events() - dump last 50 events"); | |
| 782 | |
| 783 | |
| 784 tty->print_cr("compiler debugging"); | |
| 785 tty->print_cr(" debug() - to set things up for compiler debugging"); | |
| 786 tty->print_cr(" ndebug() - undo debug"); | |
| 787 } | |
| 788 | |
| 789 #if 0 | |
| 790 | |
| 791 // BobV's command parser for debugging on windows when nothing else works. | |
| 792 | |
| 793 enum CommandID { | |
| 794 CMDID_HELP, | |
| 795 CMDID_QUIT, | |
| 796 CMDID_HSFIND, | |
| 797 CMDID_PSS, | |
| 798 CMDID_PS, | |
| 799 CMDID_PSF, | |
| 800 CMDID_FINDM, | |
| 801 CMDID_FINDNM, | |
| 802 CMDID_PP, | |
| 803 CMDID_BPT, | |
| 804 CMDID_EXIT, | |
| 805 CMDID_VERIFY, | |
| 806 CMDID_THREADS, | |
| 807 CMDID_ILLEGAL = 99 | |
| 808 }; | |
| 809 | |
| 810 struct CommandParser { | |
| 811 char *name; | |
| 812 CommandID code; | |
| 813 char *description; | |
| 814 }; | |
| 815 | |
| 816 struct CommandParser CommandList[] = { | |
| 817 (char *)"help", CMDID_HELP, " Dump this list", | |
| 818 (char *)"quit", CMDID_QUIT, " Return from this routine", | |
| 819 (char *)"hsfind", CMDID_HSFIND, "Perform an hsfind on an address", | |
| 820 (char *)"ps", CMDID_PS, " Print Current Thread Stack Trace", | |
| 821 (char *)"pss", CMDID_PSS, " Print All Thread Stack Trace", | |
| 822 (char *)"psf", CMDID_PSF, " Print All Stack Frames", | |
| 823 (char *)"findm", CMDID_FINDM, " Find a methodOop from a PC", | |
| 824 (char *)"findnm", CMDID_FINDNM, "Find an nmethod from a PC", | |
| 825 (char *)"pp", CMDID_PP, " Find out something about a pointer", | |
| 826 (char *)"break", CMDID_BPT, " Execute a breakpoint", | |
| 827 (char *)"exitvm", CMDID_EXIT, "Exit the VM", | |
| 828 (char *)"verify", CMDID_VERIFY, "Perform a Heap Verify", | |
| 829 (char *)"thread", CMDID_THREADS, "Dump Info on all Threads", | |
| 830 (char *)0, CMDID_ILLEGAL | |
| 831 }; | |
| 832 | |
| 833 | |
| 834 // get_debug_command() | |
| 835 // | |
| 836 // Read a command from standard input. | |
| 837 // This is useful when you have a debugger | |
| 838 // which doesn't support calling into functions. | |
| 839 // | |
| 840 void get_debug_command() | |
| 841 { | |
| 842 ssize_t count; | |
| 843 int i,j; | |
| 844 bool gotcommand; | |
| 845 intptr_t addr; | |
| 846 char buffer[256]; | |
| 847 nmethod *nm; | |
| 848 methodOop m; | |
| 849 | |
| 850 tty->print_cr("You have entered the diagnostic command interpreter"); | |
| 851 tty->print("The supported commands are:\n"); | |
| 852 for ( i=0; ; i++ ) { | |
| 853 if ( CommandList[i].code == CMDID_ILLEGAL ) | |
| 854 break; | |
| 855 tty->print_cr(" %s \n", CommandList[i].name ); | |
| 856 } | |
| 857 | |
| 858 while ( 1 ) { | |
| 859 gotcommand = false; | |
| 860 tty->print("Please enter a command: "); | |
| 861 count = scanf("%s", buffer) ; | |
| 862 if ( count >=0 ) { | |
| 863 for ( i=0; ; i++ ) { | |
| 864 if ( CommandList[i].code == CMDID_ILLEGAL ) { | |
| 865 if (!gotcommand) tty->print("Invalid command, please try again\n"); | |
| 866 break; | |
| 867 } | |
| 868 if ( strcmp(buffer, CommandList[i].name) == 0 ) { | |
| 869 gotcommand = true; | |
| 870 switch ( CommandList[i].code ) { | |
| 871 case CMDID_PS: | |
| 872 ps(); | |
| 873 break; | |
| 874 case CMDID_PSS: | |
| 875 pss(); | |
| 876 break; | |
| 877 case CMDID_PSF: | |
| 878 psf(); | |
| 879 break; | |
| 880 case CMDID_FINDM: | |
| 881 tty->print("Please enter the hex addr to pass to findm: "); | |
| 882 scanf("%I64X", &addr); | |
| 883 m = (methodOop)findm(addr); | |
| 884 tty->print("findm(0x%I64X) returned 0x%I64X\n", addr, m); | |
| 885 break; | |
| 886 case CMDID_FINDNM: | |
| 887 tty->print("Please enter the hex addr to pass to findnm: "); | |
| 888 scanf("%I64X", &addr); | |
| 889 nm = (nmethod*)findnm(addr); | |
| 890 tty->print("findnm(0x%I64X) returned 0x%I64X\n", addr, nm); | |
| 891 break; | |
| 892 case CMDID_PP: | |
| 893 tty->print("Please enter the hex addr to pass to pp: "); | |
| 894 scanf("%I64X", &addr); | |
| 895 pp((void*)addr); | |
| 896 break; | |
| 897 case CMDID_EXIT: | |
| 898 exit(0); | |
| 899 case CMDID_HELP: | |
| 900 tty->print("Here are the supported commands: "); | |
| 901 for ( j=0; ; j++ ) { | |
| 902 if ( CommandList[j].code == CMDID_ILLEGAL ) | |
| 903 break; | |
| 904 tty->print_cr(" %s -- %s\n", CommandList[j].name, | |
| 905 CommandList[j].description ); | |
| 906 } | |
| 907 break; | |
| 908 case CMDID_QUIT: | |
| 909 return; | |
| 910 break; | |
| 911 case CMDID_BPT: | |
| 912 BREAKPOINT; | |
| 913 break; | |
| 914 case CMDID_VERIFY: | |
| 915 verify();; | |
| 916 break; | |
| 917 case CMDID_THREADS: | |
| 918 threads();; | |
| 919 break; | |
| 920 case CMDID_HSFIND: | |
| 921 tty->print("Please enter the hex addr to pass to hsfind: "); | |
| 922 scanf("%I64X", &addr); | |
| 923 tty->print("Calling hsfind(0x%I64X)\n", addr); | |
| 924 hsfind(addr); | |
| 925 break; | |
| 926 default: | |
| 927 case CMDID_ILLEGAL: | |
| 928 break; | |
| 929 } | |
| 930 } | |
| 931 } | |
| 932 } | |
| 933 } | |
| 934 } | |
| 935 #endif | |
| 936 | |
| 937 #endif // PRODUCT |