1 /*
   2  * Copyright (c) 1999, 2010, 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  */
  24 
  25 #include "precompiled.hpp"
  26 #include "code/codeCache.hpp"
  27 #include "code/nmethod.hpp"
  28 #include "runtime/frame.hpp"
  29 #include "runtime/init.hpp"
  30 #include "runtime/os.hpp"
  31 #include "utilities/debug.hpp"
  32 #include "utilities/top.hpp"
  33 
  34 #ifndef PRODUCT
  35 
  36 extern "C" void findpc(int x);
  37 
  38 
  39 void pd_ps(frame f) {
  40   intptr_t* sp = f.sp();
  41   intptr_t* prev_sp = sp - 1;
  42   intptr_t *pc = NULL;
  43   intptr_t *next_pc = NULL;
  44   int count = 0;
  45   tty->print("register window backtrace from %#x:\n", sp);
  46   while (sp != NULL && ((intptr_t)sp & 7) == 0 && sp > prev_sp && sp < prev_sp+1000) {
  47     pc      = next_pc;
  48     next_pc = (intptr_t*) sp[I7->sp_offset_in_saved_window()];
  49     tty->print("[%d] sp=%#x pc=", count, sp);
  50     findpc((intptr_t)pc);
  51     if (WizardMode && Verbose) {
  52       // print register window contents also
  53       tty->print_cr("    L0..L7: {%#x %#x %#x %#x %#x %#x %#x %#x}",
  54                     sp[0+0],sp[0+1],sp[0+2],sp[0+3],
  55                     sp[0+4],sp[0+5],sp[0+6],sp[0+7]);
  56       tty->print_cr("    I0..I7: {%#x %#x %#x %#x %#x %#x %#x %#x}",
  57                     sp[8+0],sp[8+1],sp[8+2],sp[8+3],
  58                     sp[8+4],sp[8+5],sp[8+6],sp[8+7]);
  59       // (and print stack frame contents too??)
  60 
  61       CodeBlob *b = CodeCache::find_blob((address) pc);
  62       if (b != NULL) {
  63         if (b->is_nmethod()) {
  64           methodOop m = ((nmethod*)b)->method();
  65           int nlocals = m->max_locals();
  66           int nparams  = m->size_of_parameters();
  67           tty->print_cr("compiled java method (locals = %d, params = %d)", nlocals, nparams);
  68         }
  69       }
  70     }
  71     prev_sp = sp;
  72     sp = (intptr_t *)sp[FP->sp_offset_in_saved_window()];
  73     sp = (intptr_t *)((intptr_t)sp + STACK_BIAS);
  74     count += 1;
  75   }
  76   if (sp != NULL)
  77     tty->print("[%d] sp=%#x [bogus sp!]", count, sp);
  78 }
  79 
  80 #endif // PRODUCT