src/share/vm/utilities/debug.cpp

Thu, 16 May 2013 13:47:55 -0700

author
twisti
date
Thu, 16 May 2013 13:47:55 -0700
changeset 5115
e484fe2abebd
parent 4993
746b070f5022
child 5140
6ce351ac7339
permissions
-rw-r--r--

Merge

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

mercurial