src/share/vm/prims/jvmtiTrace.cpp

Tue, 06 Jan 2009 07:05:05 -0800

author
jmasa
date
Tue, 06 Jan 2009 07:05:05 -0800
changeset 952
e9be0e04635a
parent 805
885fe0f95828
child 905
ad8c8ca4ab0f
permissions
-rw-r--r--

6689653: JMapPerm fails with UseConcMarkSweepIncGC and compressed oops off
Summary: Added safe_object_iterate() for use by JMapPerm.
Reviewed-by: tonyp

duke@435 1 /*
duke@435 2 * Copyright 2003-2007 Sun Microsystems, Inc. All Rights Reserved.
duke@435 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435 4 *
duke@435 5 * This code is free software; you can redistribute it and/or modify it
duke@435 6 * under the terms of the GNU General Public License version 2 only, as
duke@435 7 * published by the Free Software Foundation.
duke@435 8 *
duke@435 9 * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
duke@435 12 * version 2 for more details (a copy is included in the LICENSE file that
duke@435 13 * accompanied this code).
duke@435 14 *
duke@435 15 * You should have received a copy of the GNU General Public License version
duke@435 16 * 2 along with this work; if not, write to the Free Software Foundation,
duke@435 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435 18 *
duke@435 19 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
duke@435 20 * CA 95054 USA or visit www.sun.com if you need additional information or
duke@435 21 * have any questions.
duke@435 22 *
duke@435 23 */
duke@435 24
duke@435 25 # include "incls/_precompiled.incl"
duke@435 26 # include "incls/_jvmtiTrace.cpp.incl"
duke@435 27
duke@435 28 //
duke@435 29 // class JvmtiTrace
duke@435 30 //
duke@435 31 // Support for JVMTI tracing code
duke@435 32 //
duke@435 33 // ------------
duke@435 34 // Usage:
duke@435 35 // -XX:TraceJVMTI=DESC,DESC,DESC
duke@435 36 //
duke@435 37 // DESC is DOMAIN ACTION KIND
duke@435 38 //
duke@435 39 // DOMAIN is function name
duke@435 40 // event name
duke@435 41 // "all" (all functions and events)
duke@435 42 // "func" (all functions except boring)
duke@435 43 // "allfunc" (all functions)
duke@435 44 // "event" (all events)
duke@435 45 // "ec" (event controller)
duke@435 46 //
duke@435 47 // ACTION is "+" (add)
duke@435 48 // "-" (remove)
duke@435 49 //
duke@435 50 // KIND is
duke@435 51 // for func
duke@435 52 // "i" (input params)
duke@435 53 // "e" (error returns)
duke@435 54 // "o" (output)
duke@435 55 // for event
duke@435 56 // "t" (event triggered aka posted)
duke@435 57 // "s" (event sent)
duke@435 58 //
duke@435 59 // Example:
duke@435 60 // -XX:TraceJVMTI=ec+,GetCallerFrame+ie,Breakpoint+s
duke@435 61
duke@435 62 #ifdef JVMTI_TRACE
duke@435 63
duke@435 64 bool JvmtiTrace::_initialized = false;
duke@435 65 bool JvmtiTrace::_on = false;
duke@435 66 bool JvmtiTrace::_trace_event_controller = false;
duke@435 67
duke@435 68 void JvmtiTrace::initialize() {
duke@435 69 if (_initialized) {
duke@435 70 return;
duke@435 71 }
duke@435 72 SafeResourceMark rm;
duke@435 73
duke@435 74 const char *very_end;
duke@435 75 const char *curr;
never@805 76 if (TraceJVMTI != NULL) {
duke@435 77 curr = TraceJVMTI;
duke@435 78 } else {
duke@435 79 curr = ""; // hack in fixed tracing here
duke@435 80 }
duke@435 81 very_end = curr + strlen(curr);
duke@435 82 while (curr < very_end) {
duke@435 83 const char *curr_end = strchr(curr, ',');
duke@435 84 if (curr_end == NULL) {
duke@435 85 curr_end = very_end;
duke@435 86 }
duke@435 87 const char *op_pos = strchr(curr, '+');
duke@435 88 const char *minus_pos = strchr(curr, '-');
duke@435 89 if (minus_pos != NULL && (minus_pos < op_pos || op_pos == NULL)) {
duke@435 90 op_pos = minus_pos;
duke@435 91 }
duke@435 92 char op;
duke@435 93 const char *flags = op_pos + 1;
duke@435 94 const char *flags_end = curr_end;
duke@435 95 if (op_pos == NULL || op_pos > curr_end) {
duke@435 96 flags = "ies";
duke@435 97 flags_end = flags + strlen(flags);
duke@435 98 op_pos = curr_end;
duke@435 99 op = '+';
duke@435 100 } else {
duke@435 101 op = *op_pos;
duke@435 102 }
duke@435 103 jbyte bits = 0;
duke@435 104 for (; flags < flags_end; ++flags) {
duke@435 105 switch (*flags) {
duke@435 106 case 'i':
duke@435 107 bits |= SHOW_IN;
duke@435 108 break;
duke@435 109 case 'I':
duke@435 110 bits |= SHOW_IN_DETAIL;
duke@435 111 break;
duke@435 112 case 'e':
duke@435 113 bits |= SHOW_ERROR;
duke@435 114 break;
duke@435 115 case 'o':
duke@435 116 bits |= SHOW_OUT;
duke@435 117 break;
duke@435 118 case 'O':
duke@435 119 bits |= SHOW_OUT_DETAIL;
duke@435 120 break;
duke@435 121 case 't':
duke@435 122 bits |= SHOW_EVENT_TRIGGER;
duke@435 123 break;
duke@435 124 case 's':
duke@435 125 bits |= SHOW_EVENT_SENT;
duke@435 126 break;
duke@435 127 default:
duke@435 128 tty->print_cr("Invalid trace flag '%c'", *flags);
duke@435 129 break;
duke@435 130 }
duke@435 131 }
duke@435 132 const int FUNC = 1;
duke@435 133 const int EXCLUDE = 2;
duke@435 134 const int ALL_FUNC = 4;
duke@435 135 const int EVENT = 8;
duke@435 136 const int ALL_EVENT = 16;
duke@435 137 int domain = 0;
duke@435 138 size_t len = op_pos - curr;
duke@435 139 if (op_pos == curr) {
duke@435 140 domain = ALL_FUNC | FUNC | ALL_EVENT | EVENT | EXCLUDE;
duke@435 141 } else if (len==3 && strncmp(curr, "all", 3)==0) {
duke@435 142 domain = ALL_FUNC | FUNC | ALL_EVENT | EVENT;
duke@435 143 } else if (len==7 && strncmp(curr, "allfunc", 7)==0) {
duke@435 144 domain = ALL_FUNC | FUNC;
duke@435 145 } else if (len==4 && strncmp(curr, "func", 4)==0) {
duke@435 146 domain = ALL_FUNC | FUNC | EXCLUDE;
duke@435 147 } else if (len==8 && strncmp(curr, "allevent", 8)==0) {
duke@435 148 domain = ALL_EVENT | EVENT;
duke@435 149 } else if (len==5 && strncmp(curr, "event", 5)==0) {
duke@435 150 domain = ALL_EVENT | EVENT;
duke@435 151 } else if (len==2 && strncmp(curr, "ec", 2)==0) {
duke@435 152 _trace_event_controller = true;
duke@435 153 tty->print_cr("JVMTI Tracing the event controller");
duke@435 154 } else {
duke@435 155 domain = FUNC | EVENT; // go searching
duke@435 156 }
duke@435 157
duke@435 158 int exclude_index = 0;
duke@435 159 if (domain & FUNC) {
duke@435 160 if (domain & ALL_FUNC) {
duke@435 161 if (domain & EXCLUDE) {
duke@435 162 tty->print("JVMTI Tracing all significant functions");
duke@435 163 } else {
duke@435 164 tty->print_cr("JVMTI Tracing all functions");
duke@435 165 }
duke@435 166 }
duke@435 167 for (int i = 0; i <= _max_function_index; ++i) {
duke@435 168 if (domain & EXCLUDE && i == _exclude_functions[exclude_index]) {
duke@435 169 ++exclude_index;
duke@435 170 } else {
duke@435 171 bool do_op = false;
duke@435 172 if (domain & ALL_FUNC) {
duke@435 173 do_op = true;
duke@435 174 } else {
duke@435 175 const char *fname = function_name(i);
duke@435 176 if (fname != NULL) {
duke@435 177 size_t fnlen = strlen(fname);
duke@435 178 if (len==fnlen && strncmp(curr, fname, fnlen)==0) {
duke@435 179 tty->print_cr("JVMTI Tracing the function: %s", fname);
duke@435 180 do_op = true;
duke@435 181 }
duke@435 182 }
duke@435 183 }
duke@435 184 if (do_op) {
duke@435 185 if (op == '+') {
duke@435 186 _trace_flags[i] |= bits;
duke@435 187 } else {
duke@435 188 _trace_flags[i] &= ~bits;
duke@435 189 }
duke@435 190 _on = true;
duke@435 191 }
duke@435 192 }
duke@435 193 }
duke@435 194 }
duke@435 195 if (domain & EVENT) {
duke@435 196 if (domain & ALL_EVENT) {
duke@435 197 tty->print_cr("JVMTI Tracing all events");
duke@435 198 }
duke@435 199 for (int i = 0; i <= _max_event_index; ++i) {
duke@435 200 bool do_op = false;
duke@435 201 if (domain & ALL_EVENT) {
duke@435 202 do_op = true;
duke@435 203 } else {
duke@435 204 const char *ename = event_name(i);
duke@435 205 if (ename != NULL) {
duke@435 206 size_t evtlen = strlen(ename);
duke@435 207 if (len==evtlen && strncmp(curr, ename, evtlen)==0) {
duke@435 208 tty->print_cr("JVMTI Tracing the event: %s", ename);
duke@435 209 do_op = true;
duke@435 210 }
duke@435 211 }
duke@435 212 }
duke@435 213 if (do_op) {
duke@435 214 if (op == '+') {
duke@435 215 _event_trace_flags[i] |= bits;
duke@435 216 } else {
duke@435 217 _event_trace_flags[i] &= ~bits;
duke@435 218 }
duke@435 219 _on = true;
duke@435 220 }
duke@435 221 }
duke@435 222 }
duke@435 223 if (!_on && (domain & (FUNC|EVENT))) {
duke@435 224 tty->print_cr("JVMTI Trace domain not found");
duke@435 225 }
duke@435 226 curr = curr_end + 1;
duke@435 227 }
duke@435 228 _initialized = true;
duke@435 229 }
duke@435 230
duke@435 231
duke@435 232 void JvmtiTrace::shutdown() {
duke@435 233 int i;
duke@435 234 _on = false;
duke@435 235 _trace_event_controller = false;
duke@435 236 for (i = 0; i <= _max_function_index; ++i) {
duke@435 237 _trace_flags[i] = 0;
duke@435 238 }
duke@435 239 for (i = 0; i <= _max_event_index; ++i) {
duke@435 240 _event_trace_flags[i] = 0;
duke@435 241 }
duke@435 242 }
duke@435 243
duke@435 244
duke@435 245 const char* JvmtiTrace::enum_name(const char** names, const jint* values, jint value) {
duke@435 246 for (int index = 0; names[index] != 0; ++index) {
duke@435 247 if (values[index] == value) {
duke@435 248 return names[index];
duke@435 249 }
duke@435 250 }
duke@435 251 return "*INVALID-ENUM-VALUE*";
duke@435 252 }
duke@435 253
duke@435 254
duke@435 255 // return a valid string no matter what state the thread is in
duke@435 256 const char *JvmtiTrace::safe_get_thread_name(Thread *thread) {
duke@435 257 if (thread == NULL) {
duke@435 258 return "NULL";
duke@435 259 }
duke@435 260 if (!thread->is_Java_thread()) {
duke@435 261 return thread->name();
duke@435 262 }
duke@435 263 JavaThread *java_thread = (JavaThread *)thread;
duke@435 264 oop threadObj = java_thread->threadObj();
duke@435 265 if (threadObj == NULL) {
duke@435 266 return "NULL";
duke@435 267 }
duke@435 268 typeArrayOop name = java_lang_Thread::name(threadObj);
duke@435 269 if (name == NULL) {
duke@435 270 return "<NOT FILLED IN>";
duke@435 271 }
duke@435 272 return UNICODE::as_utf8((jchar*) name->base(T_CHAR), name->length());
duke@435 273 }
duke@435 274
duke@435 275
duke@435 276 // return the name of the current thread
duke@435 277 const char *JvmtiTrace::safe_get_current_thread_name() {
duke@435 278 if (JvmtiEnv::is_vm_live()) {
duke@435 279 return JvmtiTrace::safe_get_thread_name(Thread::current());
duke@435 280 } else {
duke@435 281 return "VM not live";
duke@435 282 }
duke@435 283 }
duke@435 284
duke@435 285 // return a valid string no matter what the state of k_mirror
duke@435 286 const char * JvmtiTrace::get_class_name(oop k_mirror) {
duke@435 287 if (java_lang_Class::is_primitive(k_mirror)) {
duke@435 288 return "primitive";
duke@435 289 }
duke@435 290 klassOop k_oop = java_lang_Class::as_klassOop(k_mirror);
duke@435 291 if (k_oop == NULL) {
duke@435 292 return "INVALID";
duke@435 293 }
duke@435 294 return Klass::cast(k_oop)->external_name();
duke@435 295 }
duke@435 296
duke@435 297 #endif /*JVMTI_TRACE */

mercurial