1 /*
   2  * Copyright (c) 2016, 2019, Oracle and/or its affiliates. All rights reserved.
   3  * Copyright (c) 2016, 2019 SAP SE. All rights reserved.
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This code is free software; you can redistribute it and/or modify it
   7  * under the terms of the GNU General Public License version 2 only, as
   8  * published by the Free Software Foundation.
   9  *
  10  * This code is distributed in the hope that it will be useful, but WITHOUT
  11  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13  * version 2 for more details (a copy is included in the LICENSE file that
  14  * accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License version
  17  * 2 along with this work; if not, write to the Free Software Foundation,
  18  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  19  *
  20  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  21  * or visit www.oracle.com if you need additional information or have any
  22  * questions.
  23  *
  24  */
  25 
  26 #include "precompiled.hpp"
  27 #include "runtime/frame.inline.hpp"
  28 #include "runtime/thread.hpp"
  29 
  30 frame JavaThread::pd_last_frame() {
  31   assert(has_last_Java_frame(), "must have last_Java_sp() when suspended");
  32 
  33   intptr_t* sp = last_Java_sp();
  34   address pc = _anchor.last_Java_pc();
  35 
  36   // Last_Java_pc ist not set if we come here from compiled code.
  37   if (pc == NULL) {
  38     pc = (address) *(sp + 14);
  39   }
  40 
  41   return frame(sp, pc);
  42 }
  43 
  44 bool JavaThread::pd_get_top_frame_for_profiling(frame* fr_addr, void* ucontext, bool isInJava) {
  45   assert(this->is_Java_thread(), "must be JavaThread");
  46 
  47   // If we have a last_Java_frame, then we should use it even if
  48   // isInJava == true.  It should be more reliable than ucontext info.
  49   if (has_last_Java_frame() && frame_anchor()->walkable()) {
  50     *fr_addr = pd_last_frame();
  51     return true;
  52   }
  53 
  54   if (isInJava) {
  55     ucontext_t* uc = (ucontext_t*) ucontext;
  56     frame ret_frame((intptr_t*)uc->uc_mcontext.gregs[15/*Z_SP*/],
  57                    (address)uc->uc_mcontext.psw.addr);
  58 
  59     if (ret_frame.pc() == NULL) {
  60       // ucontext wasn't useful
  61       return false;
  62     }
  63 
  64     if (ret_frame.is_interpreted_frame()) {
  65       frame::z_ijava_state* istate = ret_frame.ijava_state_unchecked();
  66        if ((stack_base() >= (address)istate && (address)istate > stack_end()) || !((Method*)(istate->method))->is_metaspace_object()) {

  67          return false;
  68        }
  69        uint64_t reg_bcp = uc->uc_mcontext.gregs[13/*Z_BCP*/];
  70        uint64_t istate_bcp = istate->bcp;
  71        uint64_t code_start = (uint64_t)(((Method*)(istate->method))->code_base());
  72        uint64_t code_end = (uint64_t)(((Method*)istate->method)->code_base() + ((Method*)istate->method)->code_size());
  73        if (istate_bcp >= code_start && istate_bcp < code_end) {
  74          // we have a valid bcp, don't touch it, do nothing
  75        } else if (reg_bcp >= code_start && reg_bcp < code_end) {
  76          istate->bcp = reg_bcp;
  77        } else {
  78          return false;
  79        }
  80     }
  81     if (!ret_frame.safe_for_sender(this)) {
  82       // nothing else to try if the frame isn't good
  83       return false;
  84     }
  85     *fr_addr = ret_frame;
  86     return true;
  87   }
  88   // nothing else to try
  89   return false;
  90 }
  91 
  92 // Forte Analyzer AsyncGetCallTrace profiling support is not implemented on Linux/S390x.
  93 bool JavaThread::pd_get_top_frame_for_signal_handler(frame* fr_addr, void* ucontext, bool isInJava) {
  94   Unimplemented();
  95   return false;
  96 }
  97 
  98 void JavaThread::cache_global_variables() { }
--- EOF ---