1 /*
   2  * Copyright (c) 2003, 2014, 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 #ifndef SHARE_VM_PRIMS_JVMTIENVBASE_HPP
  26 #define SHARE_VM_PRIMS_JVMTIENVBASE_HPP
  27 
  28 #include "classfile/classLoader.hpp"
  29 #include "prims/jvmtiEnvThreadState.hpp"
  30 #include "prims/jvmtiEventController.hpp"
  31 #include "prims/jvmtiThreadState.hpp"
  32 #include "runtime/fieldDescriptor.hpp"
  33 #include "runtime/frame.hpp"
  34 #include "runtime/handles.inline.hpp"
  35 #include "runtime/thread.hpp"
  36 #include "runtime/vm_operations.hpp"
  37 #include "utilities/growableArray.hpp"
  38 #include "utilities/macros.hpp"
  39 
  40 //
  41 // Forward Declarations
  42 //
  43 
  44 class JvmtiEnv;
  45 class JvmtiThreadState;
  46 class JvmtiRawMonitor; // for jvmtiEnv.hpp
  47 class JvmtiEventControllerPrivate;
  48 class JvmtiTagMap;
  49 
  50 
  51 
  52 // One JvmtiEnv object is created per jvmti attachment;
  53 // done via JNI GetEnv() call. Multiple attachments are
  54 // allowed in jvmti.
  55 
  56 class JvmtiEnvBase : public CHeapObj<mtInternal> {
  57 
  58  private:
  59 
  60 #if INCLUDE_JVMTI
  61   static JvmtiEnvBase*     _head_environment;  // head of environment list
  62 #endif // INCLUDE_JVMTI
  63 
  64   static bool              _globally_initialized;
  65   static jvmtiPhase        _phase;
  66   static volatile int      _dying_thread_env_iteration_count;
  67 
  68  public:
  69 
  70   enum {
  71     JDK15_JVMTI_VERSION = JVMTI_VERSION_1_0 +  33,  /* version: 1.0.33  */
  72     JDK16_JVMTI_VERSION = JVMTI_VERSION_1_1 + 102,  /* version: 1.1.102 */
  73     JDK17_JVMTI_VERSION = JVMTI_VERSION_1_2 +   2   /* version: 1.2.2   */
  74   };
  75 
  76   static jvmtiPhase  get_phase()                    { return _phase; }
  77   static void  set_phase(jvmtiPhase phase)          { _phase = phase; }
  78   static bool is_vm_live()                          { return _phase == JVMTI_PHASE_LIVE; }
  79 
  80   static void entering_dying_thread_env_iteration() { ++_dying_thread_env_iteration_count; }
  81   static void leaving_dying_thread_env_iteration()  { --_dying_thread_env_iteration_count; }
  82   static bool is_inside_dying_thread_env_iteration(){ return _dying_thread_env_iteration_count > 0; }
  83 
  84  private:
  85 
  86   enum {
  87       JVMTI_MAGIC    = 0x71EE,
  88       DISPOSED_MAGIC = 0xDEFC,
  89       BAD_MAGIC      = 0xDEAD
  90   };
  91 
  92   jvmtiEnv _jvmti_external;
  93   jint _magic;
  94   jint _version;  // version value passed to JNI GetEnv()
  95   JvmtiEnvBase* _next;
  96   bool _is_retransformable;
  97   const void *_env_local_storage;     // per env agent allocated data.
  98   jvmtiEventCallbacks _event_callbacks;
  99   jvmtiExtEventCallbacks _ext_event_callbacks;
 100   JvmtiTagMap* _tag_map;
 101   JvmtiEnvEventEnable _env_event_enable;
 102   jvmtiCapabilities _current_capabilities;
 103   jvmtiCapabilities _prohibited_capabilities;
 104   volatile bool _class_file_load_hook_ever_enabled;
 105   static volatile bool _needs_clean_up;
 106   char** _native_method_prefixes;
 107   int    _native_method_prefix_count;
 108 
 109  protected:
 110   JvmtiEnvBase(jint version);
 111   ~JvmtiEnvBase();
 112   void dispose();
 113   void env_dispose();
 114 
 115   void set_env_local_storage(const void* data)     { _env_local_storage = data; }
 116   const void* get_env_local_storage()              { return _env_local_storage; }
 117 
 118   void record_class_file_load_hook_enabled();
 119   void record_first_time_class_file_load_hook_enabled();
 120 
 121   char** get_native_method_prefixes()              { return _native_method_prefixes; }
 122   int    get_native_method_prefix_count()          { return _native_method_prefix_count; }
 123   jvmtiError set_native_method_prefixes(jint prefix_count, char** prefixes);
 124 
 125  private:
 126   friend class JvmtiEventControllerPrivate;
 127   void initialize();
 128   void set_event_callbacks(const jvmtiEventCallbacks* callbacks, jint size_of_callbacks);
 129   static void globally_initialize();
 130   static void periodic_clean_up();
 131 
 132   friend class JvmtiEnvIterator;
 133   JvmtiEnv* next_environment()                     { return (JvmtiEnv*)_next; }
 134   void set_next_environment(JvmtiEnvBase* env)     { _next = env; }
 135   static JvmtiEnv* head_environment()              {
 136     JVMTI_ONLY(return (JvmtiEnv*)_head_environment);
 137     NOT_JVMTI(return NULL);
 138   }
 139 
 140  public:
 141 
 142   bool is_valid();
 143 
 144   bool use_version_1_0_semantics();  // agent asked for version 1.0
 145   bool use_version_1_1_semantics();  // agent asked for version 1.1
 146   bool use_version_1_2_semantics();  // agent asked for version 1.2
 147 
 148   bool is_retransformable()                        { return _is_retransformable; }
 149 
 150   static ByteSize jvmti_external_offset() {
 151     return byte_offset_of(JvmtiEnvBase, _jvmti_external);
 152   };
 153 
 154   static JvmtiEnv* JvmtiEnv_from_jvmti_env(jvmtiEnv *env) {
 155     return (JvmtiEnv*)((intptr_t)env - in_bytes(jvmti_external_offset()));
 156   };
 157 
 158   jvmtiCapabilities *get_capabilities()             { return &_current_capabilities; }
 159 
 160   jvmtiCapabilities *get_prohibited_capabilities()  { return &_prohibited_capabilities; }
 161 
 162   static char** get_all_native_method_prefixes(int* count_ptr);
 163 
 164   // This test will answer true when all environments have been disposed and some have
 165   // not yet been deallocated.  As a result, this test should only be used as an
 166   // optimization for the no environment case.
 167   static bool environments_might_exist() {
 168     return head_environment() != NULL;
 169   }
 170 
 171   static void check_for_periodic_clean_up();
 172 
 173   JvmtiEnvEventEnable *env_event_enable() {
 174     return &_env_event_enable;
 175   }
 176 
 177   jvmtiError allocate(jlong size, unsigned char** mem_ptr) {
 178     if (size < 0) {
 179       return JVMTI_ERROR_ILLEGAL_ARGUMENT;
 180     }
 181     if (size == 0) {
 182       *mem_ptr = NULL;
 183     } else {
 184       *mem_ptr = (unsigned char *)os::malloc((size_t)size, mtInternal);
 185       if (*mem_ptr == NULL) {
 186         return JVMTI_ERROR_OUT_OF_MEMORY;
 187       }
 188     }
 189     return JVMTI_ERROR_NONE;
 190   }
 191 
 192   jvmtiError deallocate(unsigned char* mem) {
 193     if (mem != NULL) {
 194       os::free(mem, mtInternal);
 195     }
 196     return JVMTI_ERROR_NONE;
 197   }
 198 
 199 
 200   // Memory functions
 201   unsigned char* jvmtiMalloc(jlong size);  // don't use this - call allocate
 202 
 203   // method to create a local handle
 204   jobject jni_reference(Handle hndl) {
 205     return JNIHandles::make_local(hndl());
 206   }
 207 
 208   // method to create a local handle.
 209   // This function allows caller to specify which
 210   // threads local handle table to use.
 211   jobject jni_reference(JavaThread *thread, Handle hndl) {
 212     return JNIHandles::make_local(thread, hndl());
 213   }
 214 
 215   // method to destroy a local handle
 216   void destroy_jni_reference(jobject jobj) {
 217     JNIHandles::destroy_local(jobj);
 218   }
 219 
 220   // method to destroy a local handle.
 221   // This function allows caller to specify which
 222   // threads local handle table to use although currently it is
 223   // not used.
 224   void destroy_jni_reference(JavaThread *thread, jobject jobj) {
 225     destroy_jni_reference(jobj);
 226   }
 227 
 228   jvmtiEnv* jvmti_external() { return &_jvmti_external; };
 229 
 230 // Event Dispatch
 231 
 232   bool has_callback(jvmtiEvent event_type) {
 233     assert(event_type >= JVMTI_MIN_EVENT_TYPE_VAL &&
 234            event_type <= JVMTI_MAX_EVENT_TYPE_VAL, "checking");
 235     return ((void**)&_event_callbacks)[event_type-JVMTI_MIN_EVENT_TYPE_VAL] != NULL;
 236   }
 237 
 238   jvmtiEventCallbacks* callbacks() {
 239     return &_event_callbacks;
 240   }
 241 
 242   jvmtiExtEventCallbacks* ext_callbacks() {
 243     return &_ext_event_callbacks;
 244   }
 245 
 246   void set_tag_map(JvmtiTagMap* tag_map) {
 247     _tag_map = tag_map;
 248   }
 249 
 250   JvmtiTagMap* tag_map() {
 251     return _tag_map;
 252   }
 253 
 254 
 255   // return true if event is enabled globally or for any thread
 256   // True only if there is a callback for it.
 257   bool is_enabled(jvmtiEvent event_type) {
 258     return _env_event_enable.is_enabled(event_type);
 259   }
 260 
 261 // Random Utilities
 262 
 263  protected:
 264   // helper methods for creating arrays of global JNI Handles from local Handles
 265   // allocated into environment specific storage
 266   jobject * new_jobjectArray(int length, Handle *handles);
 267   jthread * new_jthreadArray(int length, Handle *handles);
 268   jthreadGroup * new_jthreadGroupArray(int length, Handle *handles);
 269 
 270   // convert from JNIHandle to JavaThread *
 271   JavaThread  * get_JavaThread(jthread jni_thread);
 272 
 273   // convert to a jni jclass from a non-null Klass*
 274   jclass get_jni_class_non_null(Klass* k);
 275 
 276   jint count_locked_objects(JavaThread *java_thread, Handle hobj);
 277   jvmtiError get_locked_objects_in_frame(JavaThread *calling_thread,
 278                                    JavaThread* java_thread,
 279                                    javaVFrame *jvf,
 280                                    GrowableArray<jvmtiMonitorStackDepthInfo*>* owned_monitors_list,
 281                                    jint depth);
 282   vframe* vframeFor(JavaThread* java_thread, jint depth);
 283 
 284  public:
 285   // get a field descriptor for the specified class and field
 286   static bool get_field_descriptor(Klass* k, jfieldID field, fieldDescriptor* fd);
 287   // test for suspend - most (all?) of these should go away
 288   static bool is_thread_fully_suspended(JavaThread *thread,
 289                                         bool wait_for_suspend,
 290                                         uint32_t *bits);
 291 
 292 
 293   // JVMTI API helper functions which are called at safepoint or thread is suspended.
 294   jvmtiError get_frame_count(JvmtiThreadState *state, jint *count_ptr);
 295   jvmtiError get_frame_location(JavaThread* java_thread, jint depth,
 296                                               jmethodID* method_ptr, jlocation* location_ptr);
 297   jvmtiError get_object_monitor_usage(JavaThread *calling_thread,
 298                                                     jobject object, jvmtiMonitorUsage* info_ptr);
 299   jvmtiError get_stack_trace(JavaThread *java_thread,
 300                                            jint stack_depth, jint max_count,
 301                                            jvmtiFrameInfo* frame_buffer, jint* count_ptr);
 302   jvmtiError get_current_contended_monitor(JavaThread *calling_thread,
 303                                                          JavaThread *java_thread,
 304                                                          jobject *monitor_ptr);
 305   jvmtiError get_owned_monitors(JavaThread *calling_thread, JavaThread* java_thread,
 306                           GrowableArray<jvmtiMonitorStackDepthInfo*> *owned_monitors_list);
 307   jvmtiError check_top_frame(JavaThread* current_thread, JavaThread* java_thread,
 308                              jvalue value, TosState tos, Handle* ret_ob_h);
 309   jvmtiError force_early_return(JavaThread* java_thread, jvalue value, TosState tos);
 310 };
 311 
 312 // This class is the only safe means of iterating through environments.
 313 // Note that this iteratation includes invalid environments pending
 314 // deallocation -- in fact, some uses depend on this behavior.
 315 
 316 class JvmtiEnvIterator : public StackObj {
 317  private:
 318   bool _entry_was_marked;
 319  public:
 320   JvmtiEnvIterator() {
 321     if (Threads::number_of_threads() == 0) {
 322       _entry_was_marked = false; // we are single-threaded, no need
 323     } else {
 324       Thread::current()->entering_jvmti_env_iteration();
 325       _entry_was_marked = true;
 326     }
 327   }
 328   ~JvmtiEnvIterator() {
 329     if (_entry_was_marked) {
 330       Thread::current()->leaving_jvmti_env_iteration();
 331     }
 332   }
 333   JvmtiEnv* first()                 { return JvmtiEnvBase::head_environment(); }
 334   JvmtiEnv* next(JvmtiEnvBase* env) { return env->next_environment(); }
 335 };
 336 
 337 // VM operation to update for pop top frame.
 338 class VM_UpdateForPopTopFrame : public VM_Operation {
 339 private:
 340   JvmtiThreadState* _state;
 341   jvmtiError _result;
 342 
 343 public:
 344   VM_UpdateForPopTopFrame(JvmtiThreadState* state) {
 345     _state = state;
 346     _result = JVMTI_ERROR_NONE;
 347   }
 348   VMOp_Type type() const { return VMOp_UpdateForPopTopFrame; }
 349   jvmtiError result() { return _result; }
 350   void doit() {
 351     JavaThread* jt = _state->get_thread();
 352     if (Threads::includes(jt) && !jt->is_exiting() && jt->threadObj() != NULL) {
 353       _state->update_for_pop_top_frame();
 354     } else {
 355       _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 356     }
 357   }
 358 };
 359 
 360 
 361 // VM operation to get monitor information with stack depth.
 362 class VM_GetOwnedMonitorInfo : public VM_Operation {
 363 private:
 364   JvmtiEnv *_env;
 365   JavaThread* _calling_thread;
 366   JavaThread *_java_thread;
 367   jvmtiError _result;
 368   GrowableArray<jvmtiMonitorStackDepthInfo*> *_owned_monitors_list;
 369 
 370 public:
 371   VM_GetOwnedMonitorInfo(JvmtiEnv* env, JavaThread* calling_thread,
 372                                    JavaThread* java_thread,
 373                                    GrowableArray<jvmtiMonitorStackDepthInfo*>* owned_monitor_list) {
 374     _env = env;
 375     _calling_thread = calling_thread;
 376     _java_thread = java_thread;
 377     _owned_monitors_list = owned_monitor_list;
 378     _result = JVMTI_ERROR_NONE;
 379   }
 380   VMOp_Type type() const { return VMOp_GetOwnedMonitorInfo; }
 381   void doit() {
 382     _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 383     if (Threads::includes(_java_thread) && !_java_thread->is_exiting()
 384                                         && _java_thread->threadObj() != NULL) {
 385       _result = ((JvmtiEnvBase *)_env)->get_owned_monitors(_calling_thread, _java_thread,
 386                                                             _owned_monitors_list);
 387     }
 388   }
 389   jvmtiError result() { return _result; }
 390 };
 391 
 392 
 393 // VM operation to get object monitor usage.
 394 class VM_GetObjectMonitorUsage : public VM_Operation {
 395 private:
 396   JvmtiEnv *_env;
 397   jobject _object;
 398   JavaThread* _calling_thread;
 399   jvmtiMonitorUsage* _info_ptr;
 400   jvmtiError _result;
 401 
 402 public:
 403   VM_GetObjectMonitorUsage(JvmtiEnv *env, JavaThread* calling_thread, jobject object, jvmtiMonitorUsage* info_ptr) {
 404     _env = env;
 405     _object = object;
 406     _calling_thread = calling_thread;
 407     _info_ptr = info_ptr;
 408   }
 409   VMOp_Type type() const { return VMOp_GetObjectMonitorUsage; }
 410   jvmtiError result() { return _result; }
 411   void doit() {
 412     _result = ((JvmtiEnvBase*) _env)->get_object_monitor_usage(_calling_thread, _object, _info_ptr);
 413   }
 414 
 415 };
 416 
 417 // VM operation to get current contended monitor.
 418 class VM_GetCurrentContendedMonitor : public VM_Operation {
 419 private:
 420   JvmtiEnv *_env;
 421   JavaThread *_calling_thread;
 422   JavaThread *_java_thread;
 423   jobject *_owned_monitor_ptr;
 424   jvmtiError _result;
 425 
 426 public:
 427   VM_GetCurrentContendedMonitor(JvmtiEnv *env, JavaThread *calling_thread, JavaThread *java_thread, jobject *mon_ptr) {
 428     _env = env;
 429     _calling_thread = calling_thread;
 430     _java_thread = java_thread;
 431     _owned_monitor_ptr = mon_ptr;
 432   }
 433   VMOp_Type type() const { return VMOp_GetCurrentContendedMonitor; }
 434   jvmtiError result() { return _result; }
 435   void doit() {
 436     _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 437     if (Threads::includes(_java_thread) && !_java_thread->is_exiting() &&
 438         _java_thread->threadObj() != NULL) {
 439       _result = ((JvmtiEnvBase *)_env)->get_current_contended_monitor(_calling_thread,_java_thread,_owned_monitor_ptr);
 440     }
 441   }
 442 };
 443 
 444 // VM operation to get stack trace at safepoint.
 445 class VM_GetStackTrace : public VM_Operation {
 446 private:
 447   JvmtiEnv *_env;
 448   JavaThread *_java_thread;
 449   jint _start_depth;
 450   jint _max_count;
 451   jvmtiFrameInfo *_frame_buffer;
 452   jint *_count_ptr;
 453   jvmtiError _result;
 454 
 455 public:
 456   VM_GetStackTrace(JvmtiEnv *env, JavaThread *java_thread,
 457                    jint start_depth, jint max_count,
 458                    jvmtiFrameInfo* frame_buffer, jint* count_ptr) {
 459     _env = env;
 460     _java_thread = java_thread;
 461     _start_depth = start_depth;
 462     _max_count = max_count;
 463     _frame_buffer = frame_buffer;
 464     _count_ptr = count_ptr;
 465   }
 466   jvmtiError result() { return _result; }
 467   VMOp_Type type() const { return VMOp_GetStackTrace; }
 468   void doit() {
 469     _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 470     if (Threads::includes(_java_thread) && !_java_thread->is_exiting()
 471                                         && _java_thread->threadObj() != NULL) {
 472       _result = ((JvmtiEnvBase *)_env)->get_stack_trace(_java_thread,
 473                                                         _start_depth, _max_count,
 474                                                         _frame_buffer, _count_ptr);
 475     }
 476   }
 477 };
 478 
 479 // forward declaration
 480 struct StackInfoNode;
 481 
 482 // VM operation to get stack trace at safepoint.
 483 class VM_GetMultipleStackTraces : public VM_Operation {
 484 private:
 485   JvmtiEnv *_env;
 486   jint _max_frame_count;
 487   jvmtiStackInfo *_stack_info;
 488   jvmtiError _result;
 489   int _frame_count_total;
 490   struct StackInfoNode *_head;
 491 
 492   JvmtiEnvBase *env()                 { return (JvmtiEnvBase *)_env; }
 493   jint max_frame_count()              { return _max_frame_count; }
 494   struct StackInfoNode *head()        { return _head; }
 495   void set_head(StackInfoNode *head)  { _head = head; }
 496 
 497 protected:
 498   void set_result(jvmtiError result)  { _result = result; }
 499   void fill_frames(jthread jt, JavaThread *thr, oop thread_oop);
 500   void allocate_and_fill_stacks(jint thread_count);
 501 
 502 public:
 503   VM_GetMultipleStackTraces(JvmtiEnv *env, jint max_frame_count) {
 504     _env = env;
 505     _max_frame_count = max_frame_count;
 506     _frame_count_total = 0;
 507     _head = NULL;
 508     _result = JVMTI_ERROR_NONE;
 509   }
 510   VMOp_Type type() const             { return VMOp_GetMultipleStackTraces; }
 511   jvmtiStackInfo *stack_info()       { return _stack_info; }
 512   jvmtiError result()                { return _result; }
 513 };
 514 
 515 
 516 // VM operation to get stack trace at safepoint.
 517 class VM_GetAllStackTraces : public VM_GetMultipleStackTraces {
 518 private:
 519   JavaThread *_calling_thread;
 520   jint _final_thread_count;
 521 
 522 public:
 523   VM_GetAllStackTraces(JvmtiEnv *env, JavaThread *calling_thread,
 524                        jint max_frame_count)
 525       : VM_GetMultipleStackTraces(env, max_frame_count) {
 526     _calling_thread = calling_thread;
 527   }
 528   VMOp_Type type() const          { return VMOp_GetAllStackTraces; }
 529   void doit();
 530   jint final_thread_count()       { return _final_thread_count; }
 531 };
 532 
 533 // VM operation to get stack trace at safepoint.
 534 class VM_GetThreadListStackTraces : public VM_GetMultipleStackTraces {
 535 private:
 536   jint _thread_count;
 537   const jthread* _thread_list;
 538 
 539 public:
 540   VM_GetThreadListStackTraces(JvmtiEnv *env, jint thread_count, const jthread* thread_list, jint max_frame_count)
 541       : VM_GetMultipleStackTraces(env, max_frame_count) {
 542     _thread_count = thread_count;
 543     _thread_list = thread_list;
 544   }
 545   VMOp_Type type() const { return VMOp_GetThreadListStackTraces; }
 546   void doit();
 547 };
 548 
 549 
 550 // VM operation to count stack frames at safepoint.
 551 class VM_GetFrameCount : public VM_Operation {
 552 private:
 553   JvmtiEnv *_env;
 554   JvmtiThreadState *_state;
 555   jint *_count_ptr;
 556   jvmtiError _result;
 557 
 558 public:
 559   VM_GetFrameCount(JvmtiEnv *env, JvmtiThreadState *state, jint *count_ptr) {
 560     _env = env;
 561     _state = state;
 562     _count_ptr = count_ptr;
 563   }
 564   VMOp_Type type() const { return VMOp_GetFrameCount; }
 565   jvmtiError result()    { return _result; }
 566   void doit() {
 567     _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 568     JavaThread* jt = _state->get_thread();
 569     if (Threads::includes(jt) && !jt->is_exiting() && jt->threadObj() != NULL) {
 570       _result = ((JvmtiEnvBase*)_env)->get_frame_count(_state, _count_ptr);
 571     }
 572   }
 573 };
 574 
 575 // VM operation to frame location at safepoint.
 576 class VM_GetFrameLocation : public VM_Operation {
 577 private:
 578   JvmtiEnv *_env;
 579   JavaThread* _java_thread;
 580   jint _depth;
 581   jmethodID* _method_ptr;
 582   jlocation* _location_ptr;
 583   jvmtiError _result;
 584 
 585 public:
 586   VM_GetFrameLocation(JvmtiEnv *env, JavaThread* java_thread, jint depth,
 587                       jmethodID* method_ptr, jlocation* location_ptr) {
 588     _env = env;
 589     _java_thread = java_thread;
 590     _depth = depth;
 591     _method_ptr = method_ptr;
 592     _location_ptr = location_ptr;
 593   }
 594   VMOp_Type type() const { return VMOp_GetFrameLocation; }
 595   jvmtiError result()    { return _result; }
 596   void doit() {
 597     _result = JVMTI_ERROR_THREAD_NOT_ALIVE;
 598     if (Threads::includes(_java_thread) && !_java_thread->is_exiting() &&
 599         _java_thread->threadObj() != NULL) {
 600       _result = ((JvmtiEnvBase*)_env)->get_frame_location(_java_thread, _depth,
 601                                                           _method_ptr, _location_ptr);
 602     }
 603   }
 604 };
 605 
 606 
 607 // ResourceTracker
 608 //
 609 // ResourceTracker works a little like a ResourceMark. All allocates
 610 // using the resource tracker are recorded. If an allocate using the
 611 // resource tracker fails the destructor will free any resources
 612 // that were allocated using the tracker.
 613 // The motive for this class is to avoid messy error recovery code
 614 // in situations where multiple allocations are done in sequence. If
 615 // the second or subsequent allocation fails it avoids any code to
 616 // release memory allocated in the previous calls.
 617 //
 618 // Usage :-
 619 //   ResourceTracker rt(env);
 620 //   :
 621 //   err = rt.allocate(1024, &ptr);
 622 
 623 class ResourceTracker : public StackObj {
 624  private:
 625   JvmtiEnv* _env;
 626   GrowableArray<unsigned char*> *_allocations;
 627   bool _failed;
 628  public:
 629   ResourceTracker(JvmtiEnv* env);
 630   ~ResourceTracker();
 631   jvmtiError allocate(jlong size, unsigned char** mem_ptr);
 632   unsigned char* allocate(jlong size);
 633   char* strdup(const char* str);
 634 };
 635 
 636 
 637 // Jvmti monitor closure to collect off stack monitors.
 638 class JvmtiMonitorClosure: public MonitorClosure {
 639  private:
 640   JavaThread *_java_thread;
 641   JavaThread *_calling_thread;
 642   GrowableArray<jvmtiMonitorStackDepthInfo*> *_owned_monitors_list;
 643   jvmtiError _error;
 644   JvmtiEnvBase *_env;
 645 
 646  public:
 647   JvmtiMonitorClosure(JavaThread* thread, JavaThread *calling_thread,
 648                       GrowableArray<jvmtiMonitorStackDepthInfo*> *owned_monitors,
 649                       JvmtiEnvBase *env) {
 650     _java_thread = thread;
 651     _calling_thread = calling_thread;
 652     _owned_monitors_list = owned_monitors;
 653     _error = JVMTI_ERROR_NONE;
 654     _env = env;
 655   }
 656   void do_monitor(ObjectMonitor* mon);
 657   jvmtiError error() { return _error;}
 658 };
 659 
 660 #endif // SHARE_VM_PRIMS_JVMTIENVBASE_HPP