1 // jvmti.cc - JVMTI implementation
3 /* Copyright (C) 2006, 2007 Free Software Foundation
5 This file is part of libgcj.
7 This software is copyrighted work licensed under the terms of the
8 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
15 #include <java-threads.h>
17 #include <java-interp.h>
19 #include "jvmti-int.h"
21 #include <gcj/method.h>
23 #include <gnu/classpath/SystemProperties.h>
24 #include <gnu/gcj/runtime/BootClassLoader.h>
25 #include <gnu/gcj/jvmti/Breakpoint.h>
26 #include <gnu/gcj/jvmti/BreakpointManager.h>
28 #include <java/lang/Class.h>
29 #include <java/lang/ClassLoader.h>
30 #include <java/lang/OutOfMemoryError.h>
31 #include <java/lang/Thread.h>
32 #include <java/lang/ThreadGroup.h>
33 #include <java/lang/Throwable.h>
34 #include <java/lang/VMClassLoader.h>
35 #include <java/lang/reflect/Field.h>
36 #include <java/lang/reflect/Modifier.h>
37 #include <java/util/Collection.h>
38 #include <java/util/HashMap.h>
39 #include <java/util/concurrent/locks/Lock.h>
40 #include <java/util/concurrent/locks/ReentrantReadWriteLock.h>
41 #include <java/net/URL.h>
43 static void check_enabled_events (void);
44 static void check_enabled_event (jvmtiEvent
);
48 // Is JVMTI enabled? (i.e., any jvmtiEnv created?)
51 // Event notifications
54 bool ThreadStart
= false;
55 bool ThreadEnd
= false;
56 bool ClassFileLoadHook
= false;
57 bool ClassLoad
= false;
58 bool ClassPrepare
= false;
60 bool Exception
= false;
61 bool ExceptionCatch
= false;
62 bool SingleStep
= false;
63 bool FramePop
= false;
64 bool Breakpoint
= false;
65 bool FieldAccess
= false;
66 bool FieldModification
= false;
67 bool MethodEntry
= false;
68 bool MethodExit
= false;
69 bool NativeMethodBind
= false;
70 bool CompiledMethodLoad
= false;
71 bool CompiledMethodUnload
= false;
72 bool DynamicCodeGenerated
= false;
73 bool DataDumpRequest
= false;
74 bool reserved72
= false;
75 bool MonitorWait
= false;
76 bool MonitorWaited
= false;
77 bool MonitorContendedEnter
= false;
78 bool MonitorContendedEntered
= false;
79 bool reserved77
= false;
80 bool reserved78
= false;
81 bool reserved79
= false;
82 bool reserved80
= false;
83 bool GarbageCollectionStart
= false;
84 bool GarbageCollectionFinish
= false;
85 bool ObjectFree
= false;
86 bool VMObjectAlloc
= false;
89 extern struct JNINativeInterface _Jv_JNIFunctions
;
91 struct _Jv_rawMonitorID
94 _Jv_ConditionVariable_t condition
;
97 /* A simple linked list of all JVMTI environments. Since
98 events must be delivered to environments in the order
99 in which the environments were created, new environments
100 are added to the end of the list. */
101 struct jvmti_env_list
104 struct jvmti_env_list
*next
;
106 static struct jvmti_env_list
*_jvmtiEnvironments
= NULL
;
107 static java::util::concurrent::locks::
108 ReentrantReadWriteLock
*_envListLock
= NULL
;
109 #define FOREACH_ENVIRONMENT(Ele) \
110 for (Ele = _jvmtiEnvironments; Ele != NULL; Ele = Ele->next)
112 // Some commonly-used checks
114 #define THREAD_DEFAULT_TO_CURRENT(Ajthread) \
117 if (Ajthread == NULL) \
118 Ajthread = java::lang::Thread::currentThread (); \
122 #define THREAD_CHECK_VALID(Athread) \
125 if (!java::lang::Thread::class$.isAssignableFrom (&(Athread->class$))) \
126 return JVMTI_ERROR_INVALID_THREAD; \
130 #define THREAD_CHECK_IS_ALIVE(Athread) \
133 if (!Athread->isAlive ()) \
134 return JVMTI_ERROR_THREAD_NOT_ALIVE; \
138 // FIXME: if current phase is not set in Phases,
139 // return JVMTI_ERROR_WRONG_PHASE
140 #define REQUIRE_PHASE(Env, Phases)
142 #define NULL_CHECK(Ptr) \
146 return JVMTI_ERROR_NULL_POINTER; \
150 #define ILLEGAL_ARGUMENT(Cond) \
154 return JVMTI_ERROR_ILLEGAL_ARGUMENT; \
158 #define CHECK_FOR_NATIVE_METHOD(AjmethodID) \
161 jboolean is_native; \
162 jvmtiError jerr = env->IsMethodNative (AjmethodID, &is_native); \
163 if (jerr != JVMTI_ERROR_NONE) \
166 return JVMTI_ERROR_NATIVE_METHOD; \
170 static jvmtiError JNICALL
171 _Jv_JVMTI_SuspendThread (MAYBE_UNUSED jvmtiEnv
*env
, jthread thread
)
173 using namespace java::lang
;
175 THREAD_DEFAULT_TO_CURRENT (thread
);
176 THREAD_CHECK_VALID (thread
);
177 THREAD_CHECK_IS_ALIVE (thread
);
179 _Jv_Thread_t
*data
= _Jv_ThreadGetData (thread
);
180 _Jv_SuspendThread (data
);
181 return JVMTI_ERROR_NONE
;
184 static jvmtiError JNICALL
185 _Jv_JVMTI_ResumeThread (MAYBE_UNUSED jvmtiEnv
*env
, jthread thread
)
187 using namespace java::lang
;
189 THREAD_DEFAULT_TO_CURRENT (thread
);
190 THREAD_CHECK_VALID (thread
);
191 THREAD_CHECK_IS_ALIVE (thread
);
193 _Jv_Thread_t
*data
= _Jv_ThreadGetData (thread
);
194 _Jv_ResumeThread (data
);
195 return JVMTI_ERROR_NONE
;
198 static jvmtiError JNICALL
199 _Jv_JVMTI_InterruptThread (MAYBE_UNUSED jvmtiEnv
*env
, jthread thread
)
201 using namespace java::lang
;
203 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
204 // FIXME: capability handling? 'can_signal_thread'
206 return JVMTI_ERROR_INVALID_THREAD
;
208 THREAD_CHECK_VALID (thread
);
209 THREAD_CHECK_IS_ALIVE (thread
);
211 return JVMTI_ERROR_NONE
;
214 static jvmtiError JNICALL
215 _Jv_JVMTI_GetAllThreads(MAYBE_UNUSED jvmtiEnv
*env
, jint
*thread_cnt
,
218 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
219 NULL_CHECK (thread_cnt
);
220 NULL_CHECK (threads
);
222 using namespace java::lang
;
224 ThreadGroup
*root_grp
= ThreadGroup::root
;
225 jint estimate
= root_grp
->activeCount ();
227 JArray
<Thread
*> *thr_arr
;
229 // Allocate some extra space since threads can be created between calls
232 thr_arr
= reinterpret_cast<JArray
<Thread
*> *> (JvNewObjectArray
234 &Thread::class$
, NULL
));
236 catch (java::lang::OutOfMemoryError
*err
)
238 return JVMTI_ERROR_OUT_OF_MEMORY
;
241 *thread_cnt
= root_grp
->enumerate (thr_arr
);
243 jvmtiError jerr
= env
->Allocate ((jlong
) ((*thread_cnt
) * sizeof (jthread
)),
244 (unsigned char **) threads
);
246 if (jerr
!= JVMTI_ERROR_NONE
)
249 // Transfer the threads to the result array
250 jthread
*tmp_arr
= reinterpret_cast<jthread
*> (elements (thr_arr
));
252 memcpy ((*threads
), tmp_arr
, (*thread_cnt
));
254 return JVMTI_ERROR_NONE
;
257 static jvmtiError JNICALL
258 _Jv_JVMTI_GetFrameCount (MAYBE_UNUSED jvmtiEnv
*env
, jthread thread
,
261 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
263 NULL_CHECK (frame_count
);
265 using namespace java::lang
;
267 THREAD_DEFAULT_TO_CURRENT (thread
);
268 THREAD_CHECK_VALID (thread
);
269 THREAD_CHECK_IS_ALIVE (thread
);
271 _Jv_Frame
*frame
= reinterpret_cast<_Jv_Frame
*> (thread
->frame
);
272 (*frame_count
) = frame
->depth ();
273 return JVMTI_ERROR_NONE
;
276 static jvmtiError JNICALL
277 _Jv_JVMTI_CreateRawMonitor (MAYBE_UNUSED jvmtiEnv
*env
, const char *name
,
278 jrawMonitorID
*result
)
280 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
| JVMTI_PHASE_LIVE
);
283 *result
= (jrawMonitorID
) _Jv_MallocUnchecked (sizeof (_Jv_rawMonitorID
));
285 return JVMTI_ERROR_OUT_OF_MEMORY
;
286 _Jv_MutexInit (&(*result
)->mutex
);
287 _Jv_CondInit (&(*result
)->condition
);
288 return JVMTI_ERROR_NONE
;
291 static jvmtiError JNICALL
292 _Jv_JVMTI_DestroyRawMonitor (MAYBE_UNUSED jvmtiEnv
*env
, jrawMonitorID monitor
)
294 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
| JVMTI_PHASE_LIVE
);
295 // Note we have no better way of knowing whether this object is
296 // really a raw monitor.
298 return JVMTI_ERROR_INVALID_MONITOR
;
299 // FIXME: perform checks on monitor, release it if this thread owns
301 #ifdef _Jv_HaveMutexDestroy
302 _Jv_MutexDestroy (&monitor
->mutex
);
305 return JVMTI_ERROR_NONE
;
308 static jvmtiError JNICALL
309 _Jv_JVMTI_RawMonitorEnter (MAYBE_UNUSED jvmtiEnv
*env
, jrawMonitorID monitor
)
312 return JVMTI_ERROR_INVALID_MONITOR
;
313 _Jv_MutexLock (&monitor
->mutex
);
314 return JVMTI_ERROR_NONE
;
317 static jvmtiError JNICALL
318 _Jv_JVMTI_RawMonitorExit (MAYBE_UNUSED jvmtiEnv
*env
, jrawMonitorID monitor
)
321 return JVMTI_ERROR_INVALID_MONITOR
;
322 if (_Jv_MutexUnlock (&monitor
->mutex
))
323 return JVMTI_ERROR_NOT_MONITOR_OWNER
;
324 return JVMTI_ERROR_NONE
;
327 static jvmtiError JNICALL
328 _Jv_JVMTI_RawMonitorWait (MAYBE_UNUSED jvmtiEnv
*env
, jrawMonitorID monitor
,
332 return JVMTI_ERROR_INVALID_MONITOR
;
333 int r
= _Jv_CondWait (&monitor
->condition
, &monitor
->mutex
, millis
, 0);
334 if (r
== _JV_NOT_OWNER
)
335 return JVMTI_ERROR_NOT_MONITOR_OWNER
;
336 if (r
== _JV_INTERRUPTED
)
337 return JVMTI_ERROR_INTERRUPT
;
338 return JVMTI_ERROR_NONE
;
341 static jvmtiError JNICALL
342 _Jv_JVMTI_RawMonitorNotify (MAYBE_UNUSED jvmtiEnv
*env
, jrawMonitorID monitor
)
345 return JVMTI_ERROR_INVALID_MONITOR
;
346 if (_Jv_CondNotify (&monitor
->condition
, &monitor
->mutex
) == _JV_NOT_OWNER
)
347 return JVMTI_ERROR_NOT_MONITOR_OWNER
;
348 return JVMTI_ERROR_NONE
;
351 static jvmtiError JNICALL
352 _Jv_JVMTI_RawMonitorNotifyAll (MAYBE_UNUSED jvmtiEnv
*env
,
353 jrawMonitorID monitor
)
356 return JVMTI_ERROR_INVALID_MONITOR
;
357 if (_Jv_CondNotifyAll (&monitor
->condition
, &monitor
->mutex
)
359 return JVMTI_ERROR_NOT_MONITOR_OWNER
;
360 return JVMTI_ERROR_NONE
;
363 static jvmtiError JNICALL
364 _Jv_JVMTI_SetBreakpoint (jvmtiEnv
*env
, jmethodID method
, jlocation location
)
366 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
368 using namespace gnu::gcj::jvmti
;
370 = BreakpointManager::getBreakpoint (reinterpret_cast<jlong
> (method
),
375 jvmtiError err
= env
->GetMethodDeclaringClass (method
, &klass
);
376 if (err
!= JVMTI_ERROR_NONE
)
379 if (!_Jv_IsInterpretedClass (klass
))
380 return JVMTI_ERROR_INVALID_CLASS
;
382 _Jv_MethodBase
*base
= _Jv_FindInterpreterMethod (klass
, method
);
384 return JVMTI_ERROR_INVALID_METHODID
;
387 err
= env
->GetMethodModifiers (method
, &flags
);
388 if (err
!= JVMTI_ERROR_NONE
)
391 if (flags
& java::lang::reflect::Modifier::NATIVE
)
392 return JVMTI_ERROR_NATIVE_METHOD
;
394 _Jv_InterpMethod
*imeth
= reinterpret_cast<_Jv_InterpMethod
*> (base
);
395 if (imeth
->get_insn (location
) == NULL
)
396 return JVMTI_ERROR_INVALID_LOCATION
;
398 // Now the breakpoint can be safely installed
399 bp
= BreakpointManager::newBreakpoint (reinterpret_cast<jlong
> (method
),
404 // Duplicate breakpoints are not permitted by JVMTI
405 return JVMTI_ERROR_DUPLICATE
;
408 return JVMTI_ERROR_NONE
;
411 static jvmtiError JNICALL
412 _Jv_JVMTI_ClearBreakpoint (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
415 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
417 using namespace gnu::gcj::jvmti
;
420 = BreakpointManager::getBreakpoint (reinterpret_cast<jlong
> (method
),
423 return JVMTI_ERROR_NOT_FOUND
;
425 BreakpointManager::deleteBreakpoint (reinterpret_cast<jlong
> (method
), location
);
426 return JVMTI_ERROR_NONE
;
429 static jvmtiError JNICALL
430 _Jv_JVMTI_Allocate (MAYBE_UNUSED jvmtiEnv
*env
, jlong size
,
431 unsigned char **result
)
433 ILLEGAL_ARGUMENT (size
< 0);
439 *result
= (unsigned char *) _Jv_MallocUnchecked (size
);
441 return JVMTI_ERROR_OUT_OF_MEMORY
;
443 return JVMTI_ERROR_NONE
;
446 static jvmtiError JNICALL
447 _Jv_JVMTI_Deallocate (MAYBE_UNUSED jvmtiEnv
*env
, unsigned char *mem
)
451 return JVMTI_ERROR_NONE
;
454 static jvmtiError JNICALL
455 _Jv_JVMTI_GetClassStatus (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
458 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
459 NULL_CHECK (status_ptr
);
461 return JVMTI_ERROR_INVALID_CLASS
;
463 if (klass
->isArray ())
464 *status_ptr
= JVMTI_CLASS_STATUS_ARRAY
;
465 else if (klass
->isPrimitive ())
466 *status_ptr
= JVMTI_CLASS_STATUS_PRIMITIVE
;
469 jbyte state
= _Jv_GetClassState (klass
);
471 if (state
>= JV_STATE_LINKED
)
472 (*status_ptr
) |= JVMTI_CLASS_STATUS_VERIFIED
;
473 if (state
>= JV_STATE_PREPARED
)
474 (*status_ptr
) |= JVMTI_CLASS_STATUS_PREPARED
;
475 if (state
== JV_STATE_ERROR
|| state
== JV_STATE_PHANTOM
)
476 (*status_ptr
) |= JVMTI_CLASS_STATUS_ERROR
;
477 else if (state
== JV_STATE_DONE
)
478 (*status_ptr
) |= JVMTI_CLASS_STATUS_INITIALIZED
;
481 return JVMTI_ERROR_NONE
;
484 static jvmtiError JNICALL
485 _Jv_JVMTI_GetClassModifiers (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
488 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
489 // Don't bother checking KLASS' type.
491 return JVMTI_ERROR_INVALID_CLASS
;
493 *mods
= klass
->getModifiers();
494 return JVMTI_ERROR_NONE
;
497 static jvmtiError JNICALL
498 _Jv_JVMTI_GetClassMethods (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
499 jint
*count_ptr
, jmethodID
**methods_ptr
)
501 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
502 // FIXME: capability can_maintain_original_method_order
503 // Don't bother checking KLASS' type.
505 return JVMTI_ERROR_INVALID_CLASS
;
506 NULL_CHECK (count_ptr
);
507 NULL_CHECK (methods_ptr
);
508 *count_ptr
= JvNumMethods(klass
);
511 = (jmethodID
*) _Jv_MallocUnchecked (*count_ptr
* sizeof (jmethodID
));
512 if (*methods_ptr
== NULL
)
513 return JVMTI_ERROR_OUT_OF_MEMORY
;
515 jmethodID start
= JvGetFirstMethod (klass
);
516 for (jint i
= 0; i
< *count_ptr
; ++i
)
518 (*methods_ptr
)[i
] = start
+ i
;
520 return JVMTI_ERROR_NONE
;
523 static jvmtiError JNICALL
524 _Jv_JVMTI_IsInterface (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
527 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
529 return JVMTI_ERROR_INVALID_CLASS
;
531 *result
= klass
->isInterface();
532 return JVMTI_ERROR_NONE
;
535 static jvmtiError JNICALL
536 _Jv_JVMTI_IsArrayClass (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
539 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
541 return JVMTI_ERROR_INVALID_CLASS
;
543 *result
= klass
->isArray();
544 return JVMTI_ERROR_NONE
;
547 static jvmtiError JNICALL
548 _Jv_JVMTI_GetClassLoader (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
551 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
553 return JVMTI_ERROR_INVALID_CLASS
;
555 *result
= klass
->getClassLoaderInternal();
556 return JVMTI_ERROR_NONE
;
559 static jvmtiError JNICALL
560 _Jv_JVMTI_GetObjectHashCode (MAYBE_UNUSED jvmtiEnv
*env
, jobject obj
,
563 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
565 return JVMTI_ERROR_INVALID_OBJECT
;
567 *result
= _Jv_HashCode (obj
);
568 return JVMTI_ERROR_NONE
;
571 static jvmtiError JNICALL
572 _Jv_JVMTI_GetFieldModifiers (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
573 jfieldID field
, jint
*result
)
575 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
577 return JVMTI_ERROR_INVALID_CLASS
;
579 return JVMTI_ERROR_INVALID_FIELDID
;
581 *result
= field
->getModifiers();
582 return JVMTI_ERROR_NONE
;
585 static jvmtiError JNICALL
586 _Jv_JVMTI_IsFieldSynthetic (MAYBE_UNUSED jvmtiEnv
*env
, jclass klass
,
587 jfieldID field
, jboolean
*result
)
589 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
591 return JVMTI_ERROR_INVALID_CLASS
;
593 return JVMTI_ERROR_INVALID_FIELDID
;
596 // FIXME: capability can_get_synthetic_attribute
597 *result
= ((field
->getModifiers() & java::lang::reflect::Modifier::SYNTHETIC
)
599 return JVMTI_ERROR_NONE
;
602 static jvmtiError JNICALL
603 _Jv_JVMTI_GetMethodName (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
604 char **name_ptr
, char **signature_ptr
,
607 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
610 return JVMTI_ERROR_INVALID_METHODID
;
612 if (name_ptr
!= NULL
)
614 int len
= static_cast<int> (method
->name
->len ());
615 *name_ptr
= (char *) _Jv_MallocUnchecked (len
+ 1);
616 if (*name_ptr
== NULL
)
617 return JVMTI_ERROR_OUT_OF_MEMORY
;
618 strncpy (*name_ptr
, method
->name
->chars (), len
);
619 (*name_ptr
)[len
] = '\0';
622 if (signature_ptr
!= NULL
)
624 int len
= static_cast<int> (method
->signature
->len ());
625 *signature_ptr
= (char *) _Jv_MallocUnchecked (len
+ 1);
626 if (*signature_ptr
== NULL
)
628 if (name_ptr
!= NULL
)
629 _Jv_Free (*name_ptr
);
630 return JVMTI_ERROR_OUT_OF_MEMORY
;
632 strncpy (*signature_ptr
, method
->signature
->chars (), len
);
633 (*signature_ptr
)[len
] = '\0';
636 if (generic_ptr
!= NULL
)
641 return JVMTI_ERROR_NONE
;
644 static jvmtiError JNICALL
645 _Jv_JVMTI_GetMethodModifiers (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
648 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
650 return JVMTI_ERROR_INVALID_METHODID
;
653 // FIXME: mask off some internal bits...
654 *result
= method
->accflags
;
655 return JVMTI_ERROR_NONE
;
658 static jvmtiError JNICALL
659 _Jv_JVMTI_GetLineNumberTable (jvmtiEnv
*env
, jmethodID method
,
660 jint
*entry_count_ptr
,
661 jvmtiLineNumberEntry
**table_ptr
)
663 NULL_CHECK (entry_count_ptr
);
664 NULL_CHECK (table_ptr
);
667 jvmtiError jerr
= env
->GetMethodDeclaringClass (method
, &klass
);
668 if (jerr
!= JVMTI_ERROR_NONE
)
671 _Jv_MethodBase
*base
= _Jv_FindInterpreterMethod (klass
, method
);
673 return JVMTI_ERROR_INVALID_METHODID
;
675 if (java::lang::reflect::Modifier::isNative (method
->accflags
)
676 || !_Jv_IsInterpretedClass (klass
))
677 return JVMTI_ERROR_NATIVE_METHOD
;
679 _Jv_InterpMethod
*imeth
= reinterpret_cast<_Jv_InterpMethod
*> (base
);
681 jintArray lines
= NULL
;
682 jlongArray indices
= NULL
;
683 imeth
->get_line_table (start
, end
, lines
, indices
);
685 return JVMTI_ERROR_ABSENT_INFORMATION
;
687 jvmtiLineNumberEntry
*table
;
688 jsize len
= lines
->length
* sizeof (jvmtiLineNumberEntry
);
689 table
= (jvmtiLineNumberEntry
*) _Jv_MallocUnchecked (len
);
691 return JVMTI_ERROR_OUT_OF_MEMORY
;
693 jint
*line
= elements (lines
);
694 jlong
*index
= elements (indices
);
695 for (int i
= 0; i
< lines
->length
; ++i
)
697 table
[i
].start_location
= index
[i
];
698 table
[i
].line_number
= line
[i
];
702 *entry_count_ptr
= lines
->length
;
703 return JVMTI_ERROR_NONE
;
706 static jvmtiError JNICALL
707 _Jv_JVMTI_IsMethodNative (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
710 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
712 return JVMTI_ERROR_INVALID_METHODID
;
715 *result
= ((method
->accflags
& java::lang::reflect::Modifier::NATIVE
) != 0);
716 return JVMTI_ERROR_NONE
;
719 static jvmtiError JNICALL
720 _Jv_JVMTI_IsMethodSynthetic (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
723 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
725 return JVMTI_ERROR_INVALID_METHODID
;
728 // FIXME capability can_get_synthetic_attribute
730 *result
= ((method
->accflags
& java::lang::reflect::Modifier::SYNTHETIC
)
732 return JVMTI_ERROR_NONE
;
735 static jvmtiError JNICALL
736 _Jv_JVMTI_GetMaxLocals (MAYBE_UNUSED jvmtiEnv
*env
, jmethodID method
,
739 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
740 NULL_CHECK (max_locals
);
742 CHECK_FOR_NATIVE_METHOD (method
);
745 jvmtiError jerr
= env
->GetMethodDeclaringClass (method
, &klass
);
746 if (jerr
!= JVMTI_ERROR_NONE
)
749 _Jv_InterpMethod
*imeth
= reinterpret_cast<_Jv_InterpMethod
*>
750 (_Jv_FindInterpreterMethod (klass
, method
));
753 return JVMTI_ERROR_INVALID_METHODID
;
755 *max_locals
= imeth
->get_max_locals ();
757 return JVMTI_ERROR_NONE
;
760 static jvmtiError JNICALL
761 _Jv_JVMTI_GetMethodDeclaringClass (MAYBE_UNUSED jvmtiEnv
*env
,
763 jclass
*declaring_class_ptr
)
765 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
766 NULL_CHECK (declaring_class_ptr
);
768 jclass klass
= _Jv_GetMethodDeclaringClass (method
);
771 *declaring_class_ptr
= klass
;
772 return JVMTI_ERROR_NONE
;
775 return JVMTI_ERROR_INVALID_METHODID
;
778 static jvmtiError JNICALL
779 _Jv_JVMTI_GetClassLoaderClasses (MAYBE_UNUSED jvmtiEnv
*env
,
784 using namespace java::lang
;
785 using namespace java::util
;
787 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
788 NULL_CHECK (count_ptr
);
789 NULL_CHECK (result_ptr
);
791 ClassLoader
*loader
= (ClassLoader
*) init_loader
;
793 loader
= VMClassLoader::bootLoader
;
795 Collection
*values
= loader
->loadedClasses
->values();
796 jobjectArray array
= values
->toArray();
797 *count_ptr
= array
->length
;
798 jobject
*elts
= elements (array
);
800 = (jclass
*) _Jv_MallocUnchecked (*count_ptr
* sizeof (jclass
));
802 return JVMTI_ERROR_OUT_OF_MEMORY
;
804 // FIXME: JNI references...
805 memcpy (result
, elts
, *count_ptr
* sizeof (jclass
));
807 *result_ptr
= result
;
809 return JVMTI_ERROR_NONE
;
812 static jvmtiError JNICALL
813 _Jv_JVMTI_GetStackTrace (MAYBE_UNUSED jvmtiEnv
*env
, jthread thread
,
814 jint start_depth
, jint max_frames
,
815 jvmtiFrameInfo
*frames
, jint
*frame_count
)
817 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
819 ILLEGAL_ARGUMENT (max_frames
< 0);
822 NULL_CHECK (frame_count
);
824 using namespace java::lang
;
826 THREAD_DEFAULT_TO_CURRENT (thread
);
827 THREAD_CHECK_VALID (thread
);
828 THREAD_CHECK_IS_ALIVE (thread
);
830 jvmtiError jerr
= env
->GetFrameCount (thread
, frame_count
);
831 if (jerr
!= JVMTI_ERROR_NONE
)
834 // start_depth can be either a positive number, indicating the depth of the
835 // stack at which to begin the trace, or a negative number indicating the
836 // number of frames at the bottom of the stack to exclude. These checks
837 // ensure that it is a valid value in either case
839 ILLEGAL_ARGUMENT (start_depth
>= (*frame_count
));
840 ILLEGAL_ARGUMENT (start_depth
< (-(*frame_count
)));
842 _Jv_Frame
*frame
= reinterpret_cast<_Jv_Frame
*> (thread
->frame
);
844 // If start_depth is negative use this to determine at what depth to start
845 // the trace by adding it to the length of the call stack. This allows the
846 // use of the same frame "discarding" mechanism as for a positive start_depth
848 start_depth
= *frame_count
+ start_depth
;
850 // If start_depth > 0 "remove" start_depth frames from the beginning
851 // of the stack before beginning the trace by moving along the frame list.
852 while (start_depth
> 0)
859 // Now check to see if the array supplied by the agent is large enough to
860 // hold frame_count frames, after adjustment for start_depth.
861 if ((*frame_count
) > max_frames
)
862 (*frame_count
) = max_frames
;
864 for (int i
= 0; i
< (*frame_count
); i
++)
866 frames
[i
].method
= frame
->self
->get_method ();
868 // Set the location in the frame, native frames have location = -1
869 if (frame
->frame_type
== frame_interpreter
)
871 _Jv_InterpMethod
*imeth
872 = static_cast<_Jv_InterpMethod
*> (frame
->self
);
873 _Jv_InterpFrame
*interp_frame
874 = static_cast<_Jv_InterpFrame
*> (frame
);
875 frames
[i
].location
= imeth
->insn_index (interp_frame
->pc
);
878 frames
[i
].location
= -1;
883 return JVMTI_ERROR_NONE
;
886 static jvmtiError JNICALL
887 _Jv_JVMTI_ForceGarbageCollection (MAYBE_UNUSED jvmtiEnv
*env
)
889 REQUIRE_PHASE (env
, JVMTI_PHASE_LIVE
);
891 return JVMTI_ERROR_NONE
;
894 static jvmtiError JNICALL
895 _Jv_JVMTI_SetJNIFunctionTable (MAYBE_UNUSED jvmtiEnv
*env
,
896 const jniNativeInterface
*function_table
)
898 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
899 NULL_CHECK (function_table
);
900 memcpy (&_Jv_JNIFunctions
, function_table
, sizeof (jniNativeInterface
));
901 return JVMTI_ERROR_NONE
;
904 static jvmtiError JNICALL
905 _Jv_JVMTI_GetJNIFunctionTable (MAYBE_UNUSED jvmtiEnv
*env
,
906 jniNativeInterface
**function_table
)
908 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
909 NULL_CHECK (function_table
);
911 = (jniNativeInterface
*) _Jv_MallocUnchecked (sizeof (jniNativeInterface
));
912 if (*function_table
== NULL
)
913 return JVMTI_ERROR_OUT_OF_MEMORY
;
914 memcpy (*function_table
, &_Jv_JNIFunctions
, sizeof (jniNativeInterface
));
915 return JVMTI_ERROR_NONE
;
918 static jvmtiError JNICALL
919 _Jv_JVMTI_DisposeEnvironment (jvmtiEnv
*env
)
923 if (_jvmtiEnvironments
== NULL
)
924 return JVMTI_ERROR_INVALID_ENVIRONMENT
;
927 _envListLock
->writeLock ()->lock ();
928 if (_jvmtiEnvironments
->env
== env
)
930 struct jvmti_env_list
*next
= _jvmtiEnvironments
->next
;
931 _Jv_Free (_jvmtiEnvironments
);
932 _jvmtiEnvironments
= next
;
936 struct jvmti_env_list
*e
= _jvmtiEnvironments
;
937 while (e
->next
!= NULL
&& e
->next
->env
!= env
)
941 _envListLock
->writeLock ()->unlock ();
942 return JVMTI_ERROR_INVALID_ENVIRONMENT
;
945 struct jvmti_env_list
*next
= e
->next
->next
;
949 _envListLock
->writeLock ()->unlock ();
954 check_enabled_events ();
956 return JVMTI_ERROR_NONE
;
959 static jvmtiError JNICALL
960 _Jv_JVMTI_GetSystemProperty (MAYBE_UNUSED jvmtiEnv
*env
, const char *property
,
963 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
| JVMTI_PHASE_LIVE
);
964 NULL_CHECK (property
);
967 jstring name
= JvNewStringUTF(property
);
968 jstring result_str
= gnu::classpath::SystemProperties::getProperty(name
);
970 if (result_str
== NULL
)
971 return JVMTI_ERROR_NOT_AVAILABLE
;
973 int len
= JvGetStringUTFLength (result_str
);
974 *result
= (char *) _Jv_MallocUnchecked (len
+ 1);
976 return JVMTI_ERROR_OUT_OF_MEMORY
;
977 JvGetStringUTFRegion (result_str
, 0, result_str
->length(), *result
);
978 (*result
)[len
] = '\0';
980 return JVMTI_ERROR_NONE
;
983 static jvmtiError JNICALL
984 _Jv_JVMTI_SetSystemProperty (MAYBE_UNUSED jvmtiEnv
*env
, const char *property
,
987 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
);
989 NULL_CHECK (property
);
992 // FIXME: When would a property not be writeable?
993 return JVMTI_ERROR_NONE
;
996 jstring prop_str
= JvNewStringUTF(property
);
997 jstring value_str
= JvNewStringUTF(value
);
998 gnu::classpath::SystemProperties::setProperty(prop_str
, value_str
);
999 return JVMTI_ERROR_NONE
;
1002 static jvmtiError JNICALL
1003 _Jv_JVMTI_GetTime (MAYBE_UNUSED jvmtiEnv
*env
, jlong
*nanos_ptr
)
1005 NULL_CHECK (nanos_ptr
);
1006 *nanos_ptr
= _Jv_platform_nanotime();
1007 return JVMTI_ERROR_NONE
;
1010 static jvmtiError JNICALL
1011 _Jv_JVMTI_GetAvailableProcessors (MAYBE_UNUSED jvmtiEnv
*env
,
1012 jint
*nprocessors_ptr
)
1014 NULL_CHECK (nprocessors_ptr
);
1015 #ifdef _SC_NPROCESSORS_ONLN
1016 *nprocessors_ptr
= sysconf(_SC_NPROCESSORS_ONLN
);
1018 *nprocessors_ptr
= 1;
1020 return JVMTI_ERROR_NONE
;
1023 static jvmtiError JNICALL
1024 _Jv_JVMTI_AddToBootstrapClassLoaderSearch (MAYBE_UNUSED jvmtiEnv
*env
,
1025 const char *segment
)
1027 using namespace java::lang
;
1028 using namespace java::net
;
1029 using namespace gnu::gcj::runtime
;
1031 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
);
1032 NULL_CHECK (segment
);
1034 jstring str_segment
= JvNewStringUTF(segment
);
1038 url
= new URL(JvNewStringUTF("file"), NULL
, str_segment
);
1040 catch (jthrowable ignore
)
1042 return JVMTI_ERROR_ILLEGAL_ARGUMENT
;
1045 BootClassLoader
*loader
= VMClassLoader::bootLoader
;
1046 // Don't call this too early.
1047 // assert (loader != NULL);
1048 loader
->addURL(url
);
1049 return JVMTI_ERROR_NONE
;
1052 static jvmtiError JNICALL
1053 _Jv_JVMTI_SetVerboseFlag (MAYBE_UNUSED jvmtiEnv
*env
, jvmtiVerboseFlag flag
,
1058 case JVMTI_VERBOSE_OTHER
:
1059 case JVMTI_VERBOSE_GC
:
1060 case JVMTI_VERBOSE_JNI
:
1063 case JVMTI_VERBOSE_CLASS
:
1064 gcj::verbose_class_flag
= value
;
1067 return JVMTI_ERROR_ILLEGAL_ARGUMENT
;
1069 return JVMTI_ERROR_NONE
;
1072 static jvmtiError JNICALL
1073 _Jv_JVMTI_GetObjectSize (MAYBE_UNUSED jvmtiEnv
*env
, jobject object
,
1076 REQUIRE_PHASE (env
, JVMTI_PHASE_START
| JVMTI_PHASE_LIVE
);
1078 return JVMTI_ERROR_INVALID_OBJECT
;
1079 NULL_CHECK (result
);
1081 jclass klass
= object
->getClass();
1082 if (klass
->isArray())
1084 jclass comp
= klass
->getComponentType();
1086 = (jint
) (_Jv_uintptr_t
) _Jv_GetArrayElementFromElementType(NULL
,
1087 klass
->getComponentType());
1088 // FIXME: correct for primitive types?
1089 jint compSize
= comp
->size();
1090 __JArray
*array
= (__JArray
*) object
;
1091 *result
= base
+ array
->length
* compSize
;
1095 // Note that if OBJECT is a String then it may (if
1096 // str->data==str) take more space. Do we care?
1097 *result
= klass
->size();
1099 return JVMTI_ERROR_NONE
;
1102 /* An event is enabled only if it has both an event handler
1103 and it is enabled in the environment. */
1105 check_enabled_event (jvmtiEvent type
)
1110 #define GET_OFFSET(Event) \
1113 enabled = &JVMTI::Event; \
1114 offset = offsetof (jvmtiEventCallbacks, Event); \
1120 case JVMTI_EVENT_VM_INIT
:
1121 GET_OFFSET (VMInit
);
1124 case JVMTI_EVENT_VM_DEATH
:
1125 GET_OFFSET (VMDeath
);
1128 case JVMTI_EVENT_THREAD_START
:
1129 GET_OFFSET (ThreadStart
);
1132 case JVMTI_EVENT_THREAD_END
:
1133 GET_OFFSET (ThreadEnd
);
1136 case JVMTI_EVENT_CLASS_FILE_LOAD_HOOK
:
1137 GET_OFFSET (ClassFileLoadHook
);
1140 case JVMTI_EVENT_CLASS_LOAD
:
1141 GET_OFFSET (ClassLoad
);
1144 case JVMTI_EVENT_CLASS_PREPARE
:
1145 GET_OFFSET (ClassPrepare
);
1148 case JVMTI_EVENT_VM_START
:
1149 GET_OFFSET (VMStart
);
1152 case JVMTI_EVENT_EXCEPTION
:
1153 GET_OFFSET (Exception
);
1156 case JVMTI_EVENT_EXCEPTION_CATCH
:
1157 GET_OFFSET (ExceptionCatch
);
1160 case JVMTI_EVENT_SINGLE_STEP
:
1161 GET_OFFSET (SingleStep
);
1164 case JVMTI_EVENT_FRAME_POP
:
1165 GET_OFFSET (FramePop
);
1168 case JVMTI_EVENT_BREAKPOINT
:
1169 GET_OFFSET (Breakpoint
);
1172 case JVMTI_EVENT_FIELD_ACCESS
:
1173 GET_OFFSET (FieldAccess
);
1176 case JVMTI_EVENT_FIELD_MODIFICATION
:
1177 GET_OFFSET (FieldModification
);
1180 case JVMTI_EVENT_METHOD_ENTRY
:
1181 GET_OFFSET (MethodEntry
);
1184 case JVMTI_EVENT_METHOD_EXIT
:
1185 GET_OFFSET (MethodExit
);
1188 case JVMTI_EVENT_NATIVE_METHOD_BIND
:
1189 GET_OFFSET (NativeMethodBind
);
1192 case JVMTI_EVENT_COMPILED_METHOD_LOAD
:
1193 GET_OFFSET (CompiledMethodLoad
);
1196 case JVMTI_EVENT_COMPILED_METHOD_UNLOAD
:
1197 GET_OFFSET (CompiledMethodUnload
);
1200 case JVMTI_EVENT_DYNAMIC_CODE_GENERATED
:
1201 GET_OFFSET (DynamicCodeGenerated
);
1204 case JVMTI_EVENT_DATA_DUMP_REQUEST
:
1205 GET_OFFSET (DataDumpRequest
);
1208 case JVMTI_EVENT_MONITOR_WAIT
:
1209 GET_OFFSET (MonitorWait
);
1212 case JVMTI_EVENT_MONITOR_WAITED
:
1213 GET_OFFSET (MonitorWaited
);
1216 case JVMTI_EVENT_MONITOR_CONTENDED_ENTER
:
1217 GET_OFFSET (MonitorContendedEnter
);
1220 case JVMTI_EVENT_MONITOR_CONTENDED_ENTERED
:
1221 GET_OFFSET (MonitorContendedEntered
);
1224 case JVMTI_EVENT_GARBAGE_COLLECTION_START
:
1225 GET_OFFSET (GarbageCollectionStart
);
1228 case JVMTI_EVENT_GARBAGE_COLLECTION_FINISH
:
1229 GET_OFFSET (GarbageCollectionFinish
);
1232 case JVMTI_EVENT_OBJECT_FREE
:
1233 GET_OFFSET (ObjectFree
);
1236 case JVMTI_EVENT_VM_OBJECT_ALLOC
:
1237 GET_OFFSET (VMObjectAlloc
);
1242 "libgcj: check_enabled_event for unknown JVMTI event (%d)\n",
1248 int index
= EVENT_INDEX (type
); // safe since caller checks this
1250 if (_jvmtiEnvironments
!= NULL
)
1252 _envListLock
->readLock ()->lock ();
1253 struct jvmti_env_list
*e
;
1254 FOREACH_ENVIRONMENT (e
)
1257 = reinterpret_cast<char *> (&e
->env
->callbacks
) + offset
;
1258 void **callback
= reinterpret_cast<void **> (addr
);
1259 if (e
->env
->enabled
[index
] && *callback
!= NULL
)
1262 _envListLock
->readLock ()->unlock ();
1267 _envListLock
->readLock ()->unlock ();
1274 check_enabled_events ()
1276 check_enabled_event (JVMTI_EVENT_VM_INIT
);
1277 check_enabled_event (JVMTI_EVENT_VM_DEATH
);
1278 check_enabled_event (JVMTI_EVENT_THREAD_START
);
1279 check_enabled_event (JVMTI_EVENT_THREAD_END
);
1280 check_enabled_event (JVMTI_EVENT_CLASS_FILE_LOAD_HOOK
);
1281 check_enabled_event (JVMTI_EVENT_CLASS_LOAD
);
1282 check_enabled_event (JVMTI_EVENT_CLASS_PREPARE
);
1283 check_enabled_event (JVMTI_EVENT_VM_START
);
1284 check_enabled_event (JVMTI_EVENT_EXCEPTION
);
1285 check_enabled_event (JVMTI_EVENT_EXCEPTION_CATCH
);
1286 check_enabled_event (JVMTI_EVENT_SINGLE_STEP
);
1287 check_enabled_event (JVMTI_EVENT_FRAME_POP
);
1288 check_enabled_event (JVMTI_EVENT_BREAKPOINT
);
1289 check_enabled_event (JVMTI_EVENT_FIELD_ACCESS
);
1290 check_enabled_event (JVMTI_EVENT_FIELD_MODIFICATION
);
1291 check_enabled_event (JVMTI_EVENT_METHOD_ENTRY
);
1292 check_enabled_event (JVMTI_EVENT_METHOD_EXIT
);
1293 check_enabled_event (JVMTI_EVENT_NATIVE_METHOD_BIND
);
1294 check_enabled_event (JVMTI_EVENT_COMPILED_METHOD_LOAD
);
1295 check_enabled_event (JVMTI_EVENT_COMPILED_METHOD_UNLOAD
);
1296 check_enabled_event (JVMTI_EVENT_DYNAMIC_CODE_GENERATED
);
1297 check_enabled_event (JVMTI_EVENT_DATA_DUMP_REQUEST
);
1298 check_enabled_event (JVMTI_EVENT_MONITOR_WAIT
);
1299 check_enabled_event (JVMTI_EVENT_MONITOR_WAITED
);
1300 check_enabled_event (JVMTI_EVENT_MONITOR_CONTENDED_ENTER
);
1301 check_enabled_event (JVMTI_EVENT_MONITOR_CONTENDED_ENTERED
);
1302 check_enabled_event (JVMTI_EVENT_GARBAGE_COLLECTION_START
);
1303 check_enabled_event (JVMTI_EVENT_GARBAGE_COLLECTION_FINISH
);
1304 check_enabled_event (JVMTI_EVENT_OBJECT_FREE
);
1305 check_enabled_event (JVMTI_EVENT_VM_OBJECT_ALLOC
);
1308 static jvmtiError JNICALL
1309 _Jv_JVMTI_SetEventNotificationMode (jvmtiEnv
*env
, jvmtiEventMode mode
,
1310 jvmtiEvent type
, jthread event_thread
, ...)
1312 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
| JVMTI_PHASE_LIVE
);
1314 if (event_thread
!= NULL
)
1316 THREAD_CHECK_VALID (event_thread
);
1317 THREAD_CHECK_IS_ALIVE (event_thread
);
1331 return JVMTI_ERROR_ILLEGAL_ARGUMENT
;
1336 case JVMTI_EVENT_VM_INIT
:
1337 case JVMTI_EVENT_VM_DEATH
:
1338 case JVMTI_EVENT_THREAD_START
:
1339 case JVMTI_EVENT_VM_START
:
1340 case JVMTI_EVENT_COMPILED_METHOD_LOAD
:
1341 case JVMTI_EVENT_COMPILED_METHOD_UNLOAD
:
1342 case JVMTI_EVENT_DYNAMIC_CODE_GENERATED
:
1343 case JVMTI_EVENT_DATA_DUMP_REQUEST
:
1344 ILLEGAL_ARGUMENT (event_thread
!= NULL
);
1347 case JVMTI_EVENT_THREAD_END
:
1348 case JVMTI_EVENT_CLASS_FILE_LOAD_HOOK
:
1349 case JVMTI_EVENT_CLASS_LOAD
:
1350 case JVMTI_EVENT_CLASS_PREPARE
:
1351 case JVMTI_EVENT_EXCEPTION
:
1352 case JVMTI_EVENT_EXCEPTION_CATCH
:
1353 case JVMTI_EVENT_SINGLE_STEP
:
1354 case JVMTI_EVENT_FRAME_POP
:
1355 case JVMTI_EVENT_BREAKPOINT
:
1356 case JVMTI_EVENT_FIELD_ACCESS
:
1357 case JVMTI_EVENT_FIELD_MODIFICATION
:
1358 case JVMTI_EVENT_METHOD_ENTRY
:
1359 case JVMTI_EVENT_METHOD_EXIT
:
1360 case JVMTI_EVENT_NATIVE_METHOD_BIND
:
1361 case JVMTI_EVENT_MONITOR_WAIT
:
1362 case JVMTI_EVENT_MONITOR_WAITED
:
1363 case JVMTI_EVENT_MONITOR_CONTENDED_ENTER
:
1364 case JVMTI_EVENT_MONITOR_CONTENDED_ENTERED
:
1365 case JVMTI_EVENT_GARBAGE_COLLECTION_START
:
1366 case JVMTI_EVENT_GARBAGE_COLLECTION_FINISH
:
1367 case JVMTI_EVENT_OBJECT_FREE
:
1368 case JVMTI_EVENT_VM_OBJECT_ALLOC
:
1372 return JVMTI_ERROR_INVALID_EVENT_TYPE
;
1375 env
->thread
[EVENT_INDEX(type
)] = event_thread
;
1376 env
->enabled
[EVENT_INDEX(type
)] = enabled
;
1377 check_enabled_event (type
);
1378 return JVMTI_ERROR_NONE
;
1381 static jvmtiError JNICALL
1382 _Jv_JVMTI_SetEventCallbacks (jvmtiEnv
*env
,
1383 const jvmtiEventCallbacks
*callbacks
,
1384 jint size_of_callbacks
)
1386 REQUIRE_PHASE (env
, JVMTI_PHASE_ONLOAD
| JVMTI_PHASE_LIVE
);
1387 ILLEGAL_ARGUMENT (size_of_callbacks
< 0);
1389 // Copy the list of callbacks into the environment
1390 memcpy (&env
->callbacks
, callbacks
, sizeof (jvmtiEventCallbacks
));
1392 /* Check which events are now enabeld (JVMTI makes no requirements
1393 about the order in which SetEventCallbacks and SetEventNotifications
1394 are called. So we must check all events here. */
1395 check_enabled_events ();
1397 return JVMTI_ERROR_NONE
;
1400 static jvmtiError JNICALL
1401 _Jv_JVMTI_GetErrorName (MAYBE_UNUSED jvmtiEnv
*env
, jvmtiError error
,
1404 NULL_CHECK (name_ptr
);
1409 case JVMTI_ERROR_NONE
:
1413 case JVMTI_ERROR_NULL_POINTER
:
1414 name
= "null pointer";
1417 case JVMTI_ERROR_OUT_OF_MEMORY
:
1418 name
= "out of memory";
1421 case JVMTI_ERROR_ACCESS_DENIED
:
1422 name
= "access denied";
1425 case JVMTI_ERROR_WRONG_PHASE
:
1426 name
= "wrong phase";
1429 case JVMTI_ERROR_INTERNAL
:
1430 name
= "internal error";
1433 case JVMTI_ERROR_UNATTACHED_THREAD
:
1434 name
= "unattached thread";
1437 case JVMTI_ERROR_INVALID_ENVIRONMENT
:
1438 name
= "invalid environment";
1441 case JVMTI_ERROR_INVALID_PRIORITY
:
1442 name
= "invalid priority";
1445 case JVMTI_ERROR_THREAD_NOT_SUSPENDED
:
1446 name
= "thread not suspended";
1449 case JVMTI_ERROR_THREAD_SUSPENDED
:
1450 name
= "thread suspended";
1453 case JVMTI_ERROR_THREAD_NOT_ALIVE
:
1454 name
= "thread not alive";
1457 case JVMTI_ERROR_CLASS_NOT_PREPARED
:
1458 name
= "class not prepared";
1461 case JVMTI_ERROR_NO_MORE_FRAMES
:
1462 name
= "no more frames";
1465 case JVMTI_ERROR_OPAQUE_FRAME
:
1466 name
= "opaque frame";
1469 case JVMTI_ERROR_DUPLICATE
:
1473 case JVMTI_ERROR_NOT_FOUND
:
1477 case JVMTI_ERROR_NOT_MONITOR_OWNER
:
1478 name
= "not monitor owner";
1481 case JVMTI_ERROR_INTERRUPT
:
1482 name
= "interrupted";
1485 case JVMTI_ERROR_UNMODIFIABLE_CLASS
:
1486 name
= "unmodifiable class";
1489 case JVMTI_ERROR_NOT_AVAILABLE
:
1490 name
= "not available";
1493 case JVMTI_ERROR_ABSENT_INFORMATION
:
1494 name
= "absent information";
1497 case JVMTI_ERROR_INVALID_EVENT_TYPE
:
1498 name
= "invalid event type";
1501 case JVMTI_ERROR_NATIVE_METHOD
:
1502 name
= "native method";
1505 case JVMTI_ERROR_INVALID_THREAD
:
1506 name
= "invalid thread";
1509 case JVMTI_ERROR_INVALID_THREAD_GROUP
:
1510 name
= "invalid thread group";
1513 case JVMTI_ERROR_INVALID_OBJECT
:
1514 name
= "invalid object";
1517 case JVMTI_ERROR_INVALID_CLASS
:
1518 name
= "invalid class";
1521 case JVMTI_ERROR_INVALID_METHODID
:
1522 name
= "invalid method ID";
1525 case JVMTI_ERROR_INVALID_LOCATION
:
1526 name
= "invalid location";
1529 case JVMTI_ERROR_INVALID_FIELDID
:
1530 name
= "invalid field ID";
1533 case JVMTI_ERROR_TYPE_MISMATCH
:
1534 name
= "type mismatch";
1537 case JVMTI_ERROR_INVALID_SLOT
:
1538 name
= "invalid slot";
1541 case JVMTI_ERROR_INVALID_MONITOR
:
1542 name
= "invalid monitor";
1545 case JVMTI_ERROR_INVALID_CLASS_FORMAT
:
1546 name
= "invalid class format";
1549 case JVMTI_ERROR_CIRCULAR_CLASS_DEFINITION
:
1550 name
= "circular class definition";
1553 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_METHOD_ADDED
:
1554 name
= "unsupported redefinition: method added";
1557 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_SCHEMA_CHANGED
:
1558 name
= "unsupported redefinition: schema changed";
1561 case JVMTI_ERROR_INVALID_TYPESTATE
:
1562 name
= "invalid type state";
1565 case JVMTI_ERROR_FAILS_VERIFICATION
:
1566 name
= "fails verification";
1569 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_HIERARCHY_CHANGED
:
1570 name
= "unsupported redefinition: hierarchy changed";
1573 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_METHOD_DELETED
:
1574 name
= "unsupported redefinition: method deleted";
1577 case JVMTI_ERROR_UNSUPPORTED_VERSION
:
1578 name
= "unsupported version";
1581 case JVMTI_ERROR_NAMES_DONT_MATCH
:
1582 name
= "names do not match";
1585 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_CLASS_MODIFIERS_CHANGED
:
1586 name
= "unsupported redefinition: class modifiers changed";
1589 case JVMTI_ERROR_UNSUPPORTED_REDEFINITION_METHOD_MODIFIERS_CHANGED
:
1590 name
= "unsupported redefinition: method modifiers changed";
1593 case JVMTI_ERROR_MUST_POSSESS_CAPABILITY
:
1594 name
= "must possess capability";
1597 case JVMTI_ERROR_ILLEGAL_ARGUMENT
:
1598 name
= "illegal argument";
1602 return JVMTI_ERROR_ILLEGAL_ARGUMENT
;
1605 *name_ptr
= (char *) _Jv_MallocUnchecked (strlen (name
) + 1);
1606 if (*name_ptr
== NULL
)
1607 return JVMTI_ERROR_OUT_OF_MEMORY
;
1609 strcpy (*name_ptr
, name
);
1610 return JVMTI_ERROR_NONE
;
1613 #define RESERVED NULL
1614 #define UNIMPLEMENTED NULL
1616 struct _Jv_jvmtiEnv _Jv_JVMTI_Interface
=
1618 RESERVED
, // reserved1
1619 _Jv_JVMTI_SetEventNotificationMode
, // SetEventNotificationMode
1620 RESERVED
, // reserved3
1621 _Jv_JVMTI_GetAllThreads
, // GetAllThreads
1622 _Jv_JVMTI_SuspendThread
, // SuspendThread
1623 _Jv_JVMTI_ResumeThread
, // ResumeThread
1624 UNIMPLEMENTED
, // StopThread
1625 _Jv_JVMTI_InterruptThread
, // InterruptThread
1626 UNIMPLEMENTED
, // GetThreadInfo
1627 UNIMPLEMENTED
, // GetOwnedMonitorInfo
1628 UNIMPLEMENTED
, // GetCurrentContendedMonitor
1629 UNIMPLEMENTED
, // RunAgentThread
1630 UNIMPLEMENTED
, // GetTopThreadGroups
1631 UNIMPLEMENTED
, // GetThreadGroupInfo
1632 UNIMPLEMENTED
, // GetThreadGroupChildren
1633 _Jv_JVMTI_GetFrameCount
, // GetFrameCount
1634 UNIMPLEMENTED
, // GetThreadState
1635 RESERVED
, // reserved18
1636 UNIMPLEMENTED
, // GetFrameLocation
1637 UNIMPLEMENTED
, // NotifyPopFrame
1638 UNIMPLEMENTED
, // GetLocalObject
1639 UNIMPLEMENTED
, // GetLocalInt
1640 UNIMPLEMENTED
, // GetLocalLong
1641 UNIMPLEMENTED
, // GetLocalFloat
1642 UNIMPLEMENTED
, // GetLocalDouble
1643 UNIMPLEMENTED
, // SetLocalObject
1644 UNIMPLEMENTED
, // SetLocalInt
1645 UNIMPLEMENTED
, // SetLocalLong
1646 UNIMPLEMENTED
, // SetLocalFloat
1647 UNIMPLEMENTED
, // SetLocalDouble
1648 _Jv_JVMTI_CreateRawMonitor
, // CreateRawMonitor
1649 _Jv_JVMTI_DestroyRawMonitor
, // DestroyRawMonitor
1650 _Jv_JVMTI_RawMonitorEnter
, // RawMonitorEnter
1651 _Jv_JVMTI_RawMonitorExit
, // RawMonitorExit
1652 _Jv_JVMTI_RawMonitorWait
, // RawMonitorWait
1653 _Jv_JVMTI_RawMonitorNotify
, // RawMonitorNotify
1654 _Jv_JVMTI_RawMonitorNotifyAll
, // RawMonitorNotifyAll
1655 _Jv_JVMTI_SetBreakpoint
, // SetBreakpoint
1656 _Jv_JVMTI_ClearBreakpoint
, // ClearBreakpoint
1657 RESERVED
, // reserved40
1658 UNIMPLEMENTED
, // SetFieldAccessWatch
1659 UNIMPLEMENTED
, // ClearFieldAccessWatch
1660 UNIMPLEMENTED
, // SetFieldModificationWatch
1661 UNIMPLEMENTED
, // ClearFieldModificationWatch
1662 RESERVED
, // reserved45
1663 _Jv_JVMTI_Allocate
, // Allocate
1664 _Jv_JVMTI_Deallocate
, // Deallocate
1665 UNIMPLEMENTED
, // GetClassSignature
1666 _Jv_JVMTI_GetClassStatus
, // GetClassStatus
1667 UNIMPLEMENTED
, // GetSourceFileName
1668 _Jv_JVMTI_GetClassModifiers
, // GetClassModifiers
1669 _Jv_JVMTI_GetClassMethods
, // GetClassMethods
1670 UNIMPLEMENTED
, // GetClassFields
1671 UNIMPLEMENTED
, // GetImplementedInterfaces
1672 _Jv_JVMTI_IsInterface
, // IsInterface
1673 _Jv_JVMTI_IsArrayClass
, // IsArrayClass
1674 _Jv_JVMTI_GetClassLoader
, // GetClassLoader
1675 _Jv_JVMTI_GetObjectHashCode
, // GetObjectHashCode
1676 UNIMPLEMENTED
, // GetObjectMonitorUsage
1677 UNIMPLEMENTED
, // GetFieldName
1678 UNIMPLEMENTED
, // GetFieldDeclaringClass
1679 _Jv_JVMTI_GetFieldModifiers
, // GetFieldModifiers
1680 _Jv_JVMTI_IsFieldSynthetic
, // IsFieldSynthetic
1681 _Jv_JVMTI_GetMethodName
, // GetMethodName
1682 _Jv_JVMTI_GetMethodDeclaringClass
, // GetMethodDeclaringClass
1683 _Jv_JVMTI_GetMethodModifiers
, // GetMethodModifers
1684 RESERVED
, // reserved67
1685 _Jv_JVMTI_GetMaxLocals
, // GetMaxLocals
1686 UNIMPLEMENTED
, // GetArgumentsSize
1687 _Jv_JVMTI_GetLineNumberTable
, // GetLineNumberTable
1688 UNIMPLEMENTED
, // GetMethodLocation
1689 UNIMPLEMENTED
, // GetLocalVariableTable
1690 RESERVED
, // reserved73
1691 RESERVED
, // reserved74
1692 UNIMPLEMENTED
, // GetBytecodes
1693 _Jv_JVMTI_IsMethodNative
, // IsMethodNative
1694 _Jv_JVMTI_IsMethodSynthetic
, // IsMethodSynthetic
1695 UNIMPLEMENTED
, // GetLoadedClasses
1696 _Jv_JVMTI_GetClassLoaderClasses
, // GetClassLoaderClasses
1697 UNIMPLEMENTED
, // PopFrame
1698 RESERVED
, // reserved81
1699 RESERVED
, // reserved82
1700 RESERVED
, // reserved83
1701 RESERVED
, // reserved84
1702 RESERVED
, // reserved85
1703 RESERVED
, // reserved86
1704 UNIMPLEMENTED
, // RedefineClasses
1705 UNIMPLEMENTED
, // GetVersionNumber
1706 UNIMPLEMENTED
, // GetCapabilities
1707 UNIMPLEMENTED
, // GetSourceDebugExtension
1708 UNIMPLEMENTED
, // IsMethodObsolete
1709 UNIMPLEMENTED
, // SuspendThreadList
1710 UNIMPLEMENTED
, // ResumeThreadList
1711 RESERVED
, // reserved94
1712 RESERVED
, // reserved95
1713 RESERVED
, // reserved96
1714 RESERVED
, // reserved97
1715 RESERVED
, // reserved98
1716 RESERVED
, // reserved99
1717 UNIMPLEMENTED
, // GetAllStackTraces
1718 UNIMPLEMENTED
, // GetThreadListStackTraces
1719 UNIMPLEMENTED
, // GetThreadLocalStorage
1720 UNIMPLEMENTED
, // SetThreadLocalStorage
1721 _Jv_JVMTI_GetStackTrace
, // GetStackTrace
1722 RESERVED
, // reserved105
1723 UNIMPLEMENTED
, // GetTag
1724 UNIMPLEMENTED
, // SetTag
1725 _Jv_JVMTI_ForceGarbageCollection
, // ForceGarbageCollection
1726 UNIMPLEMENTED
, // IterateOverObjectsReachable
1727 UNIMPLEMENTED
, // IterateOverReachableObjects
1728 UNIMPLEMENTED
, // IterateOverHeap
1729 UNIMPLEMENTED
, // IterateOverInstanceOfClass
1730 RESERVED
, // reserved113
1731 UNIMPLEMENTED
, // GetObjectsWithTags
1732 RESERVED
, // reserved115
1733 RESERVED
, // reserved116
1734 RESERVED
, // reserved117
1735 RESERVED
, // reserved118
1736 RESERVED
, // reserved119
1737 _Jv_JVMTI_SetJNIFunctionTable
, // SetJNIFunctionTable
1738 _Jv_JVMTI_GetJNIFunctionTable
, // GetJNIFunctionTable
1739 _Jv_JVMTI_SetEventCallbacks
, // SetEventCallbacks
1740 UNIMPLEMENTED
, // GenerateEvents
1741 UNIMPLEMENTED
, // GetExtensionFunctions
1742 UNIMPLEMENTED
, // GetExtensionEvents
1743 UNIMPLEMENTED
, // SetExtensionEventCallback
1744 _Jv_JVMTI_DisposeEnvironment
, // DisposeEnvironment
1745 _Jv_JVMTI_GetErrorName
, // GetErrorName
1746 UNIMPLEMENTED
, // GetJLocationFormat
1747 UNIMPLEMENTED
, // GetSystemProperties
1748 _Jv_JVMTI_GetSystemProperty
, // GetSystemProperty
1749 _Jv_JVMTI_SetSystemProperty
, // SetSystemProperty
1750 UNIMPLEMENTED
, // GetPhase
1751 UNIMPLEMENTED
, // GetCurrentThreadCpuTimerInfo
1752 UNIMPLEMENTED
, // GetCurrentThreadCpuTime
1753 UNIMPLEMENTED
, // GetThreadCpuTimerInfo
1754 UNIMPLEMENTED
, // GetThreadCpuTime
1755 UNIMPLEMENTED
, // GetTimerInfo
1756 _Jv_JVMTI_GetTime
, // GetTime
1757 UNIMPLEMENTED
, // GetPotentialCapabilities
1758 RESERVED
, // reserved141
1759 UNIMPLEMENTED
, // AddCapabilities
1760 UNIMPLEMENTED
, // RelinquishCapabilities
1761 _Jv_JVMTI_GetAvailableProcessors
, // GetAvailableProcessors
1762 RESERVED
, // reserved145
1763 RESERVED
, // reserved146
1764 UNIMPLEMENTED
, // GetEnvironmentLocalStorage
1765 UNIMPLEMENTED
, // SetEnvironmentLocalStorage
1766 _Jv_JVMTI_AddToBootstrapClassLoaderSearch
, // AddToBootstrapClassLoaderSearch
1767 _Jv_JVMTI_SetVerboseFlag
, // SetVerboseFlag
1768 RESERVED
, // reserved151
1769 RESERVED
, // reserved152
1770 RESERVED
, // reserved153
1771 _Jv_JVMTI_GetObjectSize
// GetObjectSize
1775 _Jv_GetJVMTIEnv (void)
1778 = (_Jv_JVMTIEnv
*) _Jv_MallocUnchecked (sizeof (_Jv_JVMTIEnv
));
1779 env
->p
= &_Jv_JVMTI_Interface
;
1780 struct jvmti_env_list
*element
1781 = (struct jvmti_env_list
*) _Jv_MallocUnchecked (sizeof (struct jvmti_env_list
));
1783 element
->next
= NULL
;
1785 _envListLock
->writeLock ()->lock ();
1786 if (_jvmtiEnvironments
== NULL
)
1787 _jvmtiEnvironments
= element
;
1790 struct jvmti_env_list
*e
;
1791 for (e
= _jvmtiEnvironments
; e
->next
!= NULL
; e
= e
->next
)
1795 _envListLock
->writeLock ()->unlock ();
1797 /* Mark JVMTI active. This is used to force the interpreter
1798 to use either debugging or non-debugging code. Once JVMTI
1799 has been enabled, the non-debug interpreter cannot be used. */
1800 JVMTI::enabled
= true;
1807 _jvmtiEnvironments
= NULL
;
1809 = new java::util::concurrent::locks::ReentrantReadWriteLock ();
1811 // No environments, so this should set all JVMTI:: members to false
1812 check_enabled_events ();
1816 post_event (jvmtiEnv
*env
, jvmtiEvent type
, jthread event_thread
, va_list args
)
1818 #define ARG(Type,Name) Type Name = (Type) va_arg (args, Type)
1820 #define GET_BOOLEAN_ARG(Name) \
1822 jboolean Name = (b == 0) ? false : true
1824 #define GET_CHAR_ARG(Name) \
1826 char Name = static_cast<char> (c)
1830 case JVMTI_EVENT_VM_INIT
:
1831 if (env
->callbacks
.VMInit
!= NULL
)
1833 ARG (JNIEnv
*, jni_env
);
1834 env
->callbacks
.VMInit (env
, jni_env
, event_thread
);
1838 case JVMTI_EVENT_VM_DEATH
:
1839 if (env
->callbacks
.VMDeath
!= NULL
)
1841 ARG (JNIEnv
*, jni_env
);
1842 env
->callbacks
.VMDeath (env
, jni_env
);
1846 case JVMTI_EVENT_THREAD_START
:
1847 if (env
->callbacks
.ThreadStart
!= NULL
)
1849 ARG (JNIEnv
*, jni_env
);
1850 env
->callbacks
.ThreadStart (env
, jni_env
, event_thread
);
1854 case JVMTI_EVENT_THREAD_END
:
1855 if (env
->callbacks
.ThreadEnd
!= NULL
)
1857 ARG (JNIEnv
*, jni_env
);
1858 env
->callbacks
.ThreadEnd (env
, jni_env
, event_thread
);
1862 case JVMTI_EVENT_CLASS_FILE_LOAD_HOOK
:
1863 if (env
->callbacks
.ClassFileLoadHook
!= NULL
)
1865 ARG (JNIEnv
*, jni_env
);
1866 ARG (jclass
, class_being_redefined
);
1867 ARG (jobject
, loader
);
1868 ARG (const char *, name
);
1869 ARG (jobject
, protection_domain
);
1870 ARG (jint
, class_data_len
);
1871 ARG (const unsigned char *, class_data
);
1872 ARG (jint
*, new_class_data_len
);
1873 ARG (unsigned char **, new_class_data
);
1874 env
->callbacks
.ClassFileLoadHook (env
, jni_env
,
1875 class_being_redefined
, loader
,
1876 name
, protection_domain
,
1877 class_data_len
, class_data
,
1883 case JVMTI_EVENT_CLASS_LOAD
:
1884 if (env
->callbacks
.ClassLoad
!= NULL
)
1886 ARG (JNIEnv
*, jni_env
);
1887 ARG (jclass
, klass
);
1888 env
->callbacks
.ClassLoad (env
, jni_env
, event_thread
, klass
);
1892 case JVMTI_EVENT_CLASS_PREPARE
:
1893 if (env
->callbacks
.ClassPrepare
!= NULL
)
1895 ARG (JNIEnv
*, jni_env
);
1896 ARG (jclass
, klass
);
1897 env
->callbacks
.ClassPrepare (env
, jni_env
, event_thread
, klass
);
1901 case JVMTI_EVENT_VM_START
:
1902 if (env
->callbacks
.VMStart
!= NULL
)
1904 ARG (JNIEnv
*, jni_env
);
1905 env
->callbacks
.VMStart (env
, jni_env
);
1909 case JVMTI_EVENT_EXCEPTION
:
1910 if (env
->callbacks
.Exception
!= NULL
)
1912 ARG (JNIEnv
*, jni_env
);
1913 ARG (jmethodID
, method
);
1914 ARG (jlocation
, location
);
1915 ARG (jobject
, exception
);
1916 ARG (jmethodID
, catch_method
);
1917 ARG (jlocation
, catch_location
);
1918 env
->callbacks
.Exception (env
, jni_env
, event_thread
, method
,
1919 location
, exception
, catch_method
,
1924 case JVMTI_EVENT_EXCEPTION_CATCH
:
1925 if (env
->callbacks
.ExceptionCatch
!= NULL
)
1927 ARG (JNIEnv
*, jni_env
);
1928 ARG (jmethodID
, method
);
1929 ARG (jlocation
, location
);
1930 ARG (jobject
, exception
);
1931 env
->callbacks
.ExceptionCatch (env
, jni_env
, event_thread
, method
,
1932 location
, exception
);
1936 case JVMTI_EVENT_SINGLE_STEP
:
1937 if (env
->callbacks
.SingleStep
!= NULL
)
1939 ARG (JNIEnv
*, jni_env
);
1940 ARG (jmethodID
, method
);
1941 ARG (jlocation
, location
);
1942 env
->callbacks
.SingleStep (env
, jni_env
, event_thread
, method
,
1947 case JVMTI_EVENT_FRAME_POP
:
1948 if (env
->callbacks
.FramePop
!= NULL
)
1950 ARG (JNIEnv
*, jni_env
);
1951 ARG (jmethodID
, method
);
1952 GET_BOOLEAN_ARG (was_popped_by_exception
);
1953 env
->callbacks
.FramePop (env
, jni_env
, event_thread
, method
,
1954 was_popped_by_exception
);
1958 case JVMTI_EVENT_BREAKPOINT
:
1959 if (env
->callbacks
.Breakpoint
!= NULL
)
1961 ARG (JNIEnv
*, jni_env
);
1962 ARG (jmethodID
, method
);
1963 ARG (jlocation
, location
);
1964 env
->callbacks
.Breakpoint (env
, jni_env
, event_thread
, method
,
1969 case JVMTI_EVENT_FIELD_ACCESS
:
1970 if (env
->callbacks
.FieldAccess
!= NULL
)
1972 ARG (JNIEnv
*, jni_env
);
1973 ARG (jmethodID
, method
);
1974 ARG (jlocation
, location
);
1975 ARG (jclass
, field_class
);
1976 ARG (jobject
, object
);
1977 ARG (jfieldID
, field
);
1978 env
->callbacks
.FieldAccess (env
, jni_env
, event_thread
, method
,
1979 location
, field_class
, object
, field
);
1983 case JVMTI_EVENT_FIELD_MODIFICATION
:
1984 if (env
->callbacks
.FieldModification
!= NULL
)
1986 ARG (JNIEnv
*, jni_env
);
1987 ARG (jmethodID
, method
);
1988 ARG (jlocation
, location
);
1989 ARG (jclass
, field_class
);
1990 ARG (jobject
, object
);
1991 ARG (jfieldID
, field
);
1992 GET_CHAR_ARG (signature_type
);
1993 ARG (jvalue
, new_value
);
1994 env
->callbacks
.FieldModification (env
, jni_env
, event_thread
, method
,
1995 location
, field_class
, object
,
1996 field
, signature_type
, new_value
);
2000 case JVMTI_EVENT_METHOD_ENTRY
:
2001 if (env
->callbacks
.MethodEntry
!= NULL
)
2003 ARG (JNIEnv
*, jni_env
);
2004 ARG (jmethodID
, method
);
2005 env
->callbacks
.MethodEntry (env
, jni_env
, event_thread
, method
);
2009 case JVMTI_EVENT_METHOD_EXIT
:
2010 if (env
->callbacks
.MethodExit
!= NULL
)
2012 ARG (JNIEnv
*, jni_env
);
2013 ARG (jmethodID
, method
);
2014 GET_BOOLEAN_ARG (was_popped_by_exception
);
2015 ARG (jvalue
, return_value
);
2016 env
->callbacks
.MethodExit (env
, jni_env
, event_thread
, method
,
2017 was_popped_by_exception
, return_value
);
2021 case JVMTI_EVENT_NATIVE_METHOD_BIND
:
2022 if (env
->callbacks
.NativeMethodBind
!= NULL
)
2024 ARG (JNIEnv
*, jni_env
);
2025 ARG (jmethodID
, method
);
2026 ARG (void *, address
);
2027 ARG (void **, new_address_ptr
);
2028 env
->callbacks
.NativeMethodBind (env
, jni_env
, event_thread
, method
,
2029 address
, new_address_ptr
);
2033 case JVMTI_EVENT_COMPILED_METHOD_LOAD
:
2034 if (env
->callbacks
.CompiledMethodLoad
!= NULL
)
2036 ARG (jmethodID
, method
);
2037 ARG (jint
, code_size
);
2038 ARG (const void *, code_addr
);
2039 ARG (jint
, map_length
);
2040 ARG (const jvmtiAddrLocationMap
*, map
);
2041 ARG (const void *, compile_info
);
2042 env
->callbacks
.CompiledMethodLoad (env
, method
, code_size
, code_addr
,
2043 map_length
, map
, compile_info
);
2047 case JVMTI_EVENT_COMPILED_METHOD_UNLOAD
:
2048 if (env
->callbacks
.CompiledMethodUnload
!= NULL
)
2050 ARG (jmethodID
, method
);
2051 ARG (const void *, code_addr
);
2052 env
->callbacks
.CompiledMethodUnload (env
, method
, code_addr
);
2056 case JVMTI_EVENT_DYNAMIC_CODE_GENERATED
:
2057 if (env
->callbacks
.DynamicCodeGenerated
!= NULL
)
2059 ARG (const char *, name
);
2060 ARG (const void *, address
);
2062 env
->callbacks
.DynamicCodeGenerated (env
, name
, address
, length
);
2066 case JVMTI_EVENT_DATA_DUMP_REQUEST
:
2067 if (env
->callbacks
.DataDumpRequest
!= NULL
)
2069 env
->callbacks
.DataDumpRequest (env
);
2073 case JVMTI_EVENT_MONITOR_WAIT
:
2074 if (env
->callbacks
.MonitorWait
!= NULL
)
2076 ARG (JNIEnv
*, jni_env
);
2077 ARG (jobject
, object
);
2078 ARG (jlong
, timeout
);
2079 env
->callbacks
.MonitorWait (env
, jni_env
, event_thread
, object
,
2084 case JVMTI_EVENT_MONITOR_WAITED
:
2085 if (env
->callbacks
.MonitorWaited
!= NULL
)
2087 ARG (JNIEnv
*, jni_env
);
2088 ARG (jobject
, object
);
2089 GET_BOOLEAN_ARG (timed_out
);
2090 env
->callbacks
.MonitorWaited (env
, jni_env
, event_thread
, object
,
2095 case JVMTI_EVENT_MONITOR_CONTENDED_ENTER
:
2096 if (env
->callbacks
.MonitorContendedEnter
!= NULL
)
2098 ARG (JNIEnv
*, jni_env
);
2099 ARG (jobject
, object
);
2100 env
->callbacks
.MonitorContendedEnter (env
, jni_env
, event_thread
,
2105 case JVMTI_EVENT_MONITOR_CONTENDED_ENTERED
:
2106 if (env
->callbacks
.MonitorContendedEntered
!= NULL
)
2108 ARG (JNIEnv
*, jni_env
);
2109 ARG (jobject
, object
);
2110 env
->callbacks
.MonitorContendedEntered (env
, jni_env
, event_thread
,
2115 case JVMTI_EVENT_GARBAGE_COLLECTION_START
:
2116 if (env
->callbacks
.GarbageCollectionStart
!= NULL
)
2118 env
->callbacks
.GarbageCollectionStart (env
);
2122 case JVMTI_EVENT_GARBAGE_COLLECTION_FINISH
:
2123 if (env
->callbacks
.GarbageCollectionFinish
!= NULL
)
2125 env
->callbacks
.GarbageCollectionFinish (env
);
2129 case JVMTI_EVENT_OBJECT_FREE
:
2130 if (env
->callbacks
.ObjectFree
!= NULL
)
2133 env
->callbacks
.ObjectFree (env
, tag
);
2137 case JVMTI_EVENT_VM_OBJECT_ALLOC
:
2138 if (env
->callbacks
.VMObjectAlloc
!= NULL
)
2140 ARG (JNIEnv
*, jni_env
);
2141 ARG (jobject
, object
);
2142 ARG (jclass
, object_class
);
2144 env
->callbacks
.VMObjectAlloc (env
, jni_env
, event_thread
,
2145 object
, object_class
, size
);
2150 fprintf (stderr
, "libgcj: post of unknown JVMTI event (%d)\n",
2156 #undef GET_BOOLEAN_ARG
2160 /* Post an event to requesting JVMTI environments
2162 * This function should not be called without consulting the
2163 * JVMTI_REQUESTED_EVENT macro first (for speed). It does no real
2164 * harm (other than kill speed), since this function will still
2165 * only send the event if it was properly requested by an environment.
2168 _Jv_JVMTI_PostEvent (jvmtiEvent type
, jthread event_thread
, ...)
2171 va_start (args
, event_thread
);
2173 _envListLock
->readLock ()->lock ();
2174 struct jvmti_env_list
*e
;
2175 FOREACH_ENVIRONMENT (e
)
2177 /* Events are only posted if the event was explicitly enabled,
2178 it has a registered event handler, and the event thread
2179 matches (either globally or restricted to a specific thread).
2180 Here we check all but the event handler, which will be handled
2182 if (e
->env
->enabled
[EVENT_INDEX(type
)]
2183 && (e
->env
->thread
[EVENT_INDEX(type
)] == NULL
2184 || e
->env
->thread
[EVENT_INDEX(type
)] == event_thread
))
2186 post_event (e
->env
, type
, event_thread
, args
);
2189 _envListLock
->readLock ()->unlock ();