src/share/vm/prims/perf.cpp

Sat, 01 Dec 2007 00:00:00 +0000

author
duke
date
Sat, 01 Dec 2007 00:00:00 +0000
changeset 435
a61af66fc99e
child 1907
c18cbe5936b8
permissions
-rw-r--r--

Initial load

duke@435 1 /*
duke@435 2 * Copyright 2001-2005 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 /*
duke@435 26 * Implementation of class sun.misc.Perf
duke@435 27 */
duke@435 28
duke@435 29 #include "incls/_precompiled.incl"
duke@435 30 #include "incls/_perf.cpp.incl"
duke@435 31
duke@435 32
duke@435 33 #define PERF_ENTRY(result_type, header) \
duke@435 34 JVM_ENTRY(result_type, header)
duke@435 35
duke@435 36 #define PERF_END JVM_END
duke@435 37
duke@435 38 #define PerfWrapper(arg) /* Unimplemented at this time */
duke@435 39
duke@435 40 static char* jstr_to_utf(JNIEnv *env, jstring str, TRAPS) {
duke@435 41
duke@435 42 char* utfstr = NULL;
duke@435 43
duke@435 44 if (str == NULL) {
duke@435 45 THROW_0(vmSymbols::java_lang_NullPointerException());
duke@435 46 //throw_new(env,"NullPointerException");
duke@435 47 }
duke@435 48
duke@435 49 int len = env->GetStringUTFLength(str);
duke@435 50 int unicode_len = env->GetStringLength(str);
duke@435 51
duke@435 52 utfstr = NEW_RESOURCE_ARRAY(char, len + 1);
duke@435 53
duke@435 54 env->GetStringUTFRegion(str, 0, unicode_len, utfstr);
duke@435 55
duke@435 56 return utfstr;
duke@435 57 }
duke@435 58
duke@435 59 PERF_ENTRY(jobject, Perf_Attach(JNIEnv *env, jobject unused, jstring user, int vmid, int mode))
duke@435 60
duke@435 61 PerfWrapper("Perf_Attach");
duke@435 62
duke@435 63 char* address = 0;
duke@435 64 size_t capacity = 0;
duke@435 65 const char* user_utf = NULL;
duke@435 66
duke@435 67 ResourceMark rm;
duke@435 68
duke@435 69 {
duke@435 70 ThreadToNativeFromVM ttnfv(thread);
duke@435 71
duke@435 72 user_utf = user == NULL ? NULL : jstr_to_utf(env, user, CHECK_NULL);
duke@435 73 }
duke@435 74
duke@435 75 if (mode != PerfMemory::PERF_MODE_RO &&
duke@435 76 mode != PerfMemory::PERF_MODE_RW) {
duke@435 77 THROW_0(vmSymbols::java_lang_IllegalArgumentException());
duke@435 78 }
duke@435 79
duke@435 80 // attach to the PerfData memory region for the specified VM
duke@435 81 PerfMemory::attach(user_utf, vmid, (PerfMemory::PerfMemoryMode) mode,
duke@435 82 &address, &capacity, CHECK_NULL);
duke@435 83
duke@435 84 {
duke@435 85 ThreadToNativeFromVM ttnfv(thread);
duke@435 86 return env->NewDirectByteBuffer(address, (jlong)capacity);
duke@435 87 }
duke@435 88
duke@435 89 PERF_END
duke@435 90
duke@435 91 PERF_ENTRY(void, Perf_Detach(JNIEnv *env, jobject unused, jobject buffer))
duke@435 92
duke@435 93 PerfWrapper("Perf_Detach");
duke@435 94
duke@435 95 void* address = 0;
duke@435 96 jlong capacity = 0;
duke@435 97
duke@435 98 // get buffer address and capacity
duke@435 99 {
duke@435 100 ThreadToNativeFromVM ttnfv(thread);
duke@435 101 address = env->GetDirectBufferAddress(buffer);
duke@435 102 capacity = env->GetDirectBufferCapacity(buffer);
duke@435 103 }
duke@435 104
duke@435 105 PerfMemory::detach((char*)address, capacity, CHECK);
duke@435 106
duke@435 107 PERF_END
duke@435 108
duke@435 109 PERF_ENTRY(jobject, Perf_CreateLong(JNIEnv *env, jobject perf, jstring name,
duke@435 110 int variability, int units, jlong value))
duke@435 111
duke@435 112 PerfWrapper("Perf_CreateLong");
duke@435 113
duke@435 114 char* name_utf = NULL;
duke@435 115
duke@435 116 if (units <= 0 || units > PerfData::U_Last) {
duke@435 117 debug_only(warning("unexpected units argument, units = %d", units));
duke@435 118 THROW_0(vmSymbols::java_lang_IllegalArgumentException());
duke@435 119 }
duke@435 120
duke@435 121 ResourceMark rm;
duke@435 122
duke@435 123 {
duke@435 124 ThreadToNativeFromVM ttnfv(thread);
duke@435 125
duke@435 126 name_utf = jstr_to_utf(env, name, CHECK_NULL);
duke@435 127 }
duke@435 128
duke@435 129 PerfLong* pl = NULL;
duke@435 130
duke@435 131 // check that the PerfData name doesn't already exist
duke@435 132 if (PerfDataManager::exists(name_utf)) {
duke@435 133 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "PerfLong name already exists");
duke@435 134 }
duke@435 135
duke@435 136 switch(variability) {
duke@435 137 case 1: /* V_Constant */
duke@435 138 pl = PerfDataManager::create_long_constant(NULL_NS, (char *)name_utf,
duke@435 139 (PerfData::Units)units, value,
duke@435 140 CHECK_NULL);
duke@435 141 break;
duke@435 142
duke@435 143 case 2: /* V_Variable */
duke@435 144 pl = PerfDataManager::create_long_variable(NULL_NS, (char *)name_utf,
duke@435 145 (PerfData::Units)units, value,
duke@435 146 CHECK_NULL);
duke@435 147 break;
duke@435 148
duke@435 149 case 3: /* V_Monotonic Counter */
duke@435 150 pl = PerfDataManager::create_long_counter(NULL_NS, (char *)name_utf,
duke@435 151 (PerfData::Units)units, value,
duke@435 152 CHECK_NULL);
duke@435 153 break;
duke@435 154
duke@435 155 default: /* Illegal Argument */
duke@435 156 debug_only(warning("unexpected variability value: %d", variability));
duke@435 157 THROW_0(vmSymbols::java_lang_IllegalArgumentException());
duke@435 158 break;
duke@435 159 }
duke@435 160
duke@435 161 long* lp = (long*)pl->get_address();
duke@435 162
duke@435 163 {
duke@435 164 ThreadToNativeFromVM ttnfv(thread);
duke@435 165 return env->NewDirectByteBuffer(lp, sizeof(jlong));
duke@435 166 }
duke@435 167
duke@435 168 PERF_END
duke@435 169
duke@435 170 PERF_ENTRY(jobject, Perf_CreateByteArray(JNIEnv *env, jobject perf,
duke@435 171 jstring name, jint variability,
duke@435 172 jint units, jbyteArray value,
duke@435 173 jint maxlength))
duke@435 174
duke@435 175 PerfWrapper("Perf_CreateByteArray");
duke@435 176
duke@435 177 // check for valid byte array objects
duke@435 178 if (name == NULL || value == NULL) {
duke@435 179 THROW_0(vmSymbols::java_lang_NullPointerException());
duke@435 180 }
duke@435 181
duke@435 182 // check for valid variability classification
duke@435 183 if (variability != PerfData::V_Constant &&
duke@435 184 variability != PerfData::V_Variable) {
duke@435 185 debug_only(warning("unexpected variability value: %d", variability));
duke@435 186 THROW_0(vmSymbols::java_lang_IllegalArgumentException());
duke@435 187 }
duke@435 188
duke@435 189 // check for valid units
duke@435 190 if (units != PerfData::U_String) {
duke@435 191 // only String based ByteArray objects are currently supported
duke@435 192 debug_only(warning("unexpected units value: %d", variability));
duke@435 193 THROW_0(vmSymbols::java_lang_IllegalArgumentException());
duke@435 194 }
duke@435 195
duke@435 196 int value_length;
duke@435 197 char* name_utf = NULL;
duke@435 198 jbyte* value_local = NULL;
duke@435 199
duke@435 200 ResourceMark rm;
duke@435 201
duke@435 202 {
duke@435 203 ThreadToNativeFromVM ttnfv(thread);
duke@435 204
duke@435 205 name_utf = jstr_to_utf(env, name, CHECK_NULL);
duke@435 206
duke@435 207 value_length = env->GetArrayLength(value);
duke@435 208
duke@435 209 value_local = NEW_RESOURCE_ARRAY(jbyte, value_length + 1);
duke@435 210
duke@435 211 env->GetByteArrayRegion(value, 0, value_length, value_local);
duke@435 212 }
duke@435 213
duke@435 214 // check that the counter name doesn't already exist
duke@435 215 if (PerfDataManager::exists((char*)name_utf)) {
duke@435 216 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "PerfByteArray name already exists");
duke@435 217 }
duke@435 218
duke@435 219 PerfByteArray* pbv = NULL;
duke@435 220
duke@435 221 if (units == PerfData::U_String) {
duke@435 222
duke@435 223 if (variability == PerfData::V_Constant) {
duke@435 224 // create the string constant
duke@435 225 pbv = PerfDataManager::create_string_constant(NULL_NS, (char*)name_utf,
duke@435 226 (char*)value_local,
duke@435 227 CHECK_NULL);
duke@435 228
duke@435 229 assert(maxlength == value_length, "string constant length should be == maxlength");
duke@435 230 maxlength = value_length;
duke@435 231 }
duke@435 232 else {
duke@435 233
duke@435 234 // create the string variable
duke@435 235 pbv = PerfDataManager::create_string_variable(NULL_NS, (char*)name_utf,
duke@435 236 maxlength,
duke@435 237 (char*)value_local,
duke@435 238 CHECK_NULL);
duke@435 239
duke@435 240 assert(maxlength >= value_length,"string variable length should be <= maxlength");
duke@435 241 }
duke@435 242 }
duke@435 243
duke@435 244 char* cp = (char*)pbv->get_address();
duke@435 245
duke@435 246 {
duke@435 247 ThreadToNativeFromVM ttnfv(thread);
duke@435 248 return env->NewDirectByteBuffer(cp, maxlength+1);
duke@435 249 }
duke@435 250
duke@435 251 PERF_END
duke@435 252
duke@435 253 PERF_ENTRY(jlong, Perf_HighResCounter(JNIEnv *env, jobject perf))
duke@435 254
duke@435 255 PerfWrapper("Perf_HighResCounter");
duke@435 256
duke@435 257 // this should be a method in java.lang.System. This value could
duke@435 258 // be acquired through access to a PerfData performance counter, but
duke@435 259 // doing so would require that the PerfData monitoring overhead be
duke@435 260 // incurred by all Java applications, which is unacceptable.
duke@435 261
duke@435 262 return os::elapsed_counter();
duke@435 263
duke@435 264 PERF_END
duke@435 265
duke@435 266 PERF_ENTRY(jlong, Perf_HighResFrequency(JNIEnv *env, jobject perf))
duke@435 267
duke@435 268 PerfWrapper("Perf_HighResFrequency");
duke@435 269
duke@435 270 // this should be a method in java.lang.System. This value could
duke@435 271 // be acquired through access to a PerfData performance counter, but
duke@435 272 // doing so would require that the PerfData monitoring overhead be
duke@435 273 // incurred by all Java applications, which is unacceptable.
duke@435 274
duke@435 275 return os::elapsed_frequency();
duke@435 276
duke@435 277 PERF_END
duke@435 278
duke@435 279 /// JVM_RegisterPerfMethods
duke@435 280
duke@435 281 #define CC (char*) /*cast a literal from (const char*)*/
duke@435 282 #define FN_PTR(f) CAST_FROM_FN_PTR(void*, &f)
duke@435 283 #define BB "Ljava/nio/ByteBuffer;"
duke@435 284 #define JLS "Ljava/lang/String;"
duke@435 285 #define CL_ARGS CC"("JLS"IIJ)"BB
duke@435 286 #define CBA_ARGS CC"("JLS"II[BI)"BB
duke@435 287
duke@435 288 static JNINativeMethod perfmethods[] = {
duke@435 289
duke@435 290 {CC"attach", CC"("JLS"II)"BB, FN_PTR(Perf_Attach)},
duke@435 291 {CC"detach", CC"("BB")V", FN_PTR(Perf_Detach)},
duke@435 292 {CC"createLong", CL_ARGS, FN_PTR(Perf_CreateLong)},
duke@435 293 {CC"createByteArray", CBA_ARGS, FN_PTR(Perf_CreateByteArray)},
duke@435 294 {CC"highResCounter", CC"()J", FN_PTR(Perf_HighResCounter)},
duke@435 295 {CC"highResFrequency", CC"()J", FN_PTR(Perf_HighResFrequency)}
duke@435 296 };
duke@435 297
duke@435 298 #undef CBA_ARGS
duke@435 299 #undef CL_ARGS
duke@435 300 #undef JLS
duke@435 301 #undef BB
duke@435 302 #undef FN_PTR
duke@435 303 #undef CC
duke@435 304
duke@435 305 // This one function is exported, used by NativeLookup.
duke@435 306 JVM_ENTRY(void, JVM_RegisterPerfMethods(JNIEnv *env, jclass perfclass))
duke@435 307 PerfWrapper("JVM_RegisterPerfMethods");
duke@435 308 {
duke@435 309 ThreadToNativeFromVM ttnfv(thread);
duke@435 310 int ok = env->RegisterNatives(perfclass, perfmethods, sizeof(perfmethods)/sizeof(JNINativeMethod));
duke@435 311 guarantee(ok == 0, "register perf natives");
duke@435 312 }
duke@435 313 JVM_END

mercurial