/*

 * Copyright 2003-2006 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 *

 */

# include "incls/_precompiled.incl"

# include "incls/_jvmtiThreadState.cpp.incl"

// marker for when the stack depth has been reset and is now unknown.

// any negative number would work but small ones might obscure an

// underrun error.

static const int UNKNOWN_STACK_DEPTH = -99;

///////////////////////////////////////////////////////////////

//

// class JvmtiThreadState

//

// Instances of JvmtiThreadState hang off of each thread.

// Thread local storage for JVMTI.

//

JvmtiThreadState *JvmtiThreadState::_head = NULL;

JvmtiThreadState::JvmtiThreadState(JavaThread* thread)

  : _thread_event_enable() {

  assert(JvmtiThreadState_lock->is_locked(), "sanity check");

  _thread               = thread;

  _exception_detected   = false;

  _exception_caught     = false;

  _debuggable           = true;

  _hide_single_stepping = false;

  _hide_level           = 0;

  _pending_step_for_popframe = false;

  _class_being_redefined = NULL;

  _class_load_kind = jvmti_class_load_kind_load;

  _head_env_thread_state = NULL;

  _dynamic_code_event_collector = NULL;

  _vm_object_alloc_event_collector = NULL;

  _the_class_for_redefinition_verification = NULL;

  _scratch_class_for_redefinition_verification = NULL;

  // JVMTI ForceEarlyReturn support

  _pending_step_for_earlyret = false;

  _earlyret_state = earlyret_inactive;

  _earlyret_tos = ilgl;

  _earlyret_value.j = 0L;

  _earlyret_oop = NULL;

  // add all the JvmtiEnvThreadState to the new JvmtiThreadState

  {

    JvmtiEnvIterator it;

    for (JvmtiEnvBase* env = it.first(); env != NULL; env = it.next(env)) {

      if (env->is_valid()) {

        add_env(env);

      }

    }

  }

  // link us into the list

  {

    // The thread state list manipulation code must not have safepoints.

    // See periodic_clean_up().

    debug_only(No_Safepoint_Verifier nosafepoint;)

    _prev = NULL;

    _next = _head;

    if (_head != NULL) {

      _head->_prev = this;

    }

    _head = this;

  }

  // set this as the state for the thread

  thread->set_jvmti_thread_state(this);

}

JvmtiThreadState::~JvmtiThreadState()   {

  assert(JvmtiThreadState_lock->is_locked(), "sanity check");

  // clear this as the state for the thread

  get_thread()->set_jvmti_thread_state(NULL);

  // zap our env thread states

  {

    JvmtiEnvBase::entering_dying_thread_env_iteration();

    JvmtiEnvThreadStateIterator it(this);

    for (JvmtiEnvThreadState* ets = it.first(); ets != NULL; ) {

      JvmtiEnvThreadState* zap = ets;

      ets = it.next(ets);

      delete zap;

    }

    JvmtiEnvBase::leaving_dying_thread_env_iteration();

  }

  // remove us from the list

  {

    // The thread state list manipulation code must not have safepoints.

    // See periodic_clean_up().

    debug_only(No_Safepoint_Verifier nosafepoint;)

    if (_prev == NULL) {

      assert(_head == this, "sanity check");

      _head = _next;

    } else {

      assert(_head != this, "sanity check");

      _prev->_next = _next;

    }

    if (_next != NULL) {

      _next->_prev = _prev;

    }

    _next = NULL;

    _prev = NULL;

  }

}

void

JvmtiThreadState::periodic_clean_up() {

  assert(SafepointSynchronize::is_at_safepoint(), "at safepoint");

  // This iteration is initialized with "_head" instead of "JvmtiThreadState::first()"

  // because the latter requires the JvmtiThreadState_lock.

  // This iteration is safe at a safepoint as well, see the No_Safepoint_Verifier

  // asserts at all list manipulation sites.

  for (JvmtiThreadState *state = _head; state != NULL; state = state->next()) {

    // For each environment thread state corresponding to an invalid environment

    // unlink it from the list and deallocate it.

    JvmtiEnvThreadStateIterator it(state);

    JvmtiEnvThreadState* previous_ets = NULL;

    JvmtiEnvThreadState* ets = it.first();

    while (ets != NULL) {

      if (ets->get_env()->is_valid()) {

        previous_ets = ets;

        ets = it.next(ets);

      } else {

        // This one isn't valid, remove it from the list and deallocate it

        JvmtiEnvThreadState* defunct_ets = ets;

        ets = ets->next();

        if (previous_ets == NULL) {

          assert(state->head_env_thread_state() == defunct_ets, "sanity check");

          state->set_head_env_thread_state(ets);

        } else {

          previous_ets->set_next(ets);

        }

        delete defunct_ets;

      }

    }

  }

}

void JvmtiThreadState::add_env(JvmtiEnvBase *env) {

  assert(JvmtiThreadState_lock->is_locked(), "sanity check");

  JvmtiEnvThreadState *new_ets = new JvmtiEnvThreadState(_thread, env);

  // add this environment thread state to the end of the list (order is important)

  {

    // list deallocation (which occurs at a safepoint) cannot occur simultaneously

    debug_only(No_Safepoint_Verifier nosafepoint;)

    JvmtiEnvThreadStateIterator it(this);

    JvmtiEnvThreadState* previous_ets = NULL;

    for (JvmtiEnvThreadState* ets = it.first(); ets != NULL; ets = it.next(ets)) {

      previous_ets = ets;

    }

    if (previous_ets == NULL) {

      set_head_env_thread_state(new_ets);

    } else {

      previous_ets->set_next(new_ets);

    }

  }

}

void JvmtiThreadState::enter_interp_only_mode() {

  assert(_thread->get_interp_only_mode() == 0, "entering interp only when mode not zero");

  _thread->increment_interp_only_mode();

}

void JvmtiThreadState::leave_interp_only_mode() {

  assert(_thread->get_interp_only_mode() == 1, "leaving interp only when mode not one");

  _thread->decrement_interp_only_mode();

}

// Helper routine used in several places

int JvmtiThreadState::count_frames() {

#ifdef ASSERT

  uint32_t debug_bits = 0;

#endif

  assert(SafepointSynchronize::is_at_safepoint() ||

         JvmtiEnv::is_thread_fully_suspended(get_thread(), false, &debug_bits),

         "at safepoint or must be suspended");

  if (!get_thread()->has_last_Java_frame()) return 0;  // no Java frames

  ResourceMark rm;

  RegisterMap reg_map(get_thread());

  javaVFrame *jvf = get_thread()->last_java_vframe(&reg_map);

  int n = 0;

  // tty->print_cr("CSD: counting frames on %s ...",

  //               JvmtiTrace::safe_get_thread_name(get_thread()));

  while (jvf != NULL) {

    methodOop method = jvf->method();

    // tty->print_cr("CSD: frame - method %s.%s - loc %d",

    //               method->klass_name()->as_C_string(),

    //               method->name()->as_C_string(),

    //               jvf->bci() );

    jvf = jvf->java_sender();

    n++;

  }

  // tty->print_cr("CSD: frame count: %d", n);

  return n;

}

void JvmtiThreadState::invalidate_cur_stack_depth() {

  Thread *cur = Thread::current();

  uint32_t debug_bits = 0;

  // The caller can be the VMThread at a safepoint, the current thread

  // or the target thread must be suspended.

  guarantee((cur->is_VM_thread() && SafepointSynchronize::is_at_safepoint()) ||

    (JavaThread *)cur == get_thread() ||

    JvmtiEnv::is_thread_fully_suspended(get_thread(), false, &debug_bits),

    "sanity check");

  _cur_stack_depth = UNKNOWN_STACK_DEPTH;

}

void JvmtiThreadState::incr_cur_stack_depth() {

  guarantee(JavaThread::current() == get_thread(), "must be current thread");

  if (!is_interp_only_mode()) {

    _cur_stack_depth = UNKNOWN_STACK_DEPTH;

  }

  if (_cur_stack_depth != UNKNOWN_STACK_DEPTH) {

    ++_cur_stack_depth;

  }

}

void JvmtiThreadState::decr_cur_stack_depth() {

  guarantee(JavaThread::current() == get_thread(), "must be current thread");

  if (!is_interp_only_mode()) {

    _cur_stack_depth = UNKNOWN_STACK_DEPTH;

  }

  if (_cur_stack_depth != UNKNOWN_STACK_DEPTH) {

    --_cur_stack_depth;

    assert(_cur_stack_depth >= 0, "incr/decr_cur_stack_depth mismatch");

  }

}

int JvmtiThreadState::cur_stack_depth() {

  uint32_t debug_bits = 0;

  guarantee(JavaThread::current() == get_thread() ||

    JvmtiEnv::is_thread_fully_suspended(get_thread(), false, &debug_bits),

    "must be current thread or suspended");

  if (!is_interp_only_mode() || _cur_stack_depth == UNKNOWN_STACK_DEPTH) {

    _cur_stack_depth = count_frames();

  } else {

    // heavy weight assert

    assert(_cur_stack_depth == count_frames(),

           "cur_stack_depth out of sync");

  }

  return _cur_stack_depth;

}

bool JvmtiThreadState::may_be_walked() {

  return (get_thread()->is_being_ext_suspended() || (JavaThread::current() == get_thread()));

}

void JvmtiThreadState::process_pending_step_for_popframe() {

  // We are single stepping as the last part of the PopFrame() dance

  // so we have some house keeping to do.

  JavaThread *thr = get_thread();

  if (thr->popframe_condition() != JavaThread::popframe_inactive) {

    // If the popframe_condition field is not popframe_inactive, then

    // we missed all of the popframe_field cleanup points:

    //

    // - unpack_frames() was not called (nothing to deopt)

    // - remove_activation_preserving_args_entry() was not called

    //   (did not get suspended in a call_vm() family call and did

    //   not complete a call_vm() family call on the way here)

    thr->clear_popframe_condition();

  }

  // clearing the flag indicates we are done with the PopFrame() dance

  clr_pending_step_for_popframe();

  // If step is pending for popframe then it may not be

  // a repeat step. The new_bci and method_id is same as current_bci

  // and current method_id after pop and step for recursive calls.

  // Force the step by clearing the last location.

  JvmtiEnvThreadStateIterator it(this);

  for (JvmtiEnvThreadState* ets = it.first(); ets != NULL; ets = it.next(ets)) {

    ets->clear_current_location();

  }

}

// Class:     JvmtiThreadState

// Function:  update_for_pop_top_frame

// Description:

//   This function removes any frame pop notification request for

//   the top frame and invalidates both the current stack depth and

//   all cached frameIDs.

//

// Called by: PopFrame

//

void JvmtiThreadState::update_for_pop_top_frame() {

  if (is_interp_only_mode()) {

    // remove any frame pop notification request for the top frame

    // in any environment

    int popframe_number = cur_stack_depth();

    {

      JvmtiEnvThreadStateIterator it(this);

      for (JvmtiEnvThreadState* ets = it.first(); ets != NULL; ets = it.next(ets)) {

        if (ets->is_frame_pop(popframe_number)) {

          ets->clear_frame_pop(popframe_number);

        }

      }

    }

    // force stack depth to be recalculated

    invalidate_cur_stack_depth();

  } else {

    assert(!is_enabled(JVMTI_EVENT_FRAME_POP), "Must have no framepops set");

  }

}

void JvmtiThreadState::process_pending_step_for_earlyret() {

  // We are single stepping as the last part of the ForceEarlyReturn

  // dance so we have some house keeping to do.

  if (is_earlyret_pending()) {

    // If the earlyret_state field is not earlyret_inactive, then

    // we missed all of the earlyret_field cleanup points:

    //

    // - remove_activation() was not called

    //   (did not get suspended in a call_vm() family call and did

    //   not complete a call_vm() family call on the way here)

    //

    // One legitimate way for us to miss all the cleanup points is

    // if we got here right after handling a compiled return. If that

    // is the case, then we consider our return from compiled code to

    // complete the ForceEarlyReturn request and we clear the condition.

    clr_earlyret_pending();

    set_earlyret_oop(NULL);

    clr_earlyret_value();

  }

  // clearing the flag indicates we are done with

  // the ForceEarlyReturn() dance

  clr_pending_step_for_earlyret();

  // If step is pending for earlyret then it may not be a repeat step.

  // The new_bci and method_id is same as current_bci and current

  // method_id after earlyret and step for recursive calls.

  // Force the step by clearing the last location.

  JvmtiEnvThreadStateIterator it(this);

  for (JvmtiEnvThreadState* ets = it.first(); ets != NULL; ets = it.next(ets)) {

    ets->clear_current_location();

  }

}

void JvmtiThreadState::oops_do(OopClosure* f) {

  f->do_oop((oop*) &_earlyret_oop);

}