Mon, 27 Feb 2012 09:17:44 +0100
7147740: add assertions to check stack alignment on VM entry from generated code (x64)
Summary: check stack alignment on VM entry on x64.
Reviewed-by: kvn, never
kamg@551 | 1 | /* |
trims@2708 | 2 | * Copyright (c) 2005, 2011, Oracle and/or its affiliates. All rights reserved. |
kamg@551 | 3 | * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
kamg@551 | 4 | * |
kamg@551 | 5 | * This code is free software; you can redistribute it and/or modify it |
kamg@551 | 6 | * under the terms of the GNU General Public License version 2 only, as |
kamg@551 | 7 | * published by the Free Software Foundation. |
kamg@551 | 8 | * |
kamg@551 | 9 | * This code is distributed in the hope that it will be useful, but WITHOUT |
kamg@551 | 10 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
kamg@551 | 11 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
kamg@551 | 12 | * version 2 for more details (a copy is included in the LICENSE file that |
kamg@551 | 13 | * accompanied this code). |
kamg@551 | 14 | * |
kamg@551 | 15 | * You should have received a copy of the GNU General Public License version |
kamg@551 | 16 | * 2 along with this work; if not, write to the Free Software Foundation, |
kamg@551 | 17 | * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
kamg@551 | 18 | * |
trims@1907 | 19 | * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
trims@1907 | 20 | * or visit www.oracle.com if you need additional information or have any |
trims@1907 | 21 | * questions. |
kamg@551 | 22 | * |
kamg@551 | 23 | */ |
kamg@551 | 24 | |
stefank@2314 | 25 | #include "precompiled.hpp" |
stefank@2314 | 26 | #include "classfile/javaClasses.hpp" |
stefank@2314 | 27 | #include "code/codeBlob.hpp" |
stefank@2314 | 28 | #include "memory/allocation.hpp" |
stefank@2314 | 29 | #include "prims/jvm.h" |
stefank@2314 | 30 | #include "runtime/dtraceJSDT.hpp" |
stefank@2314 | 31 | #include "runtime/jniHandles.hpp" |
stefank@2314 | 32 | #include "runtime/os.hpp" |
stefank@2314 | 33 | #include "runtime/signature.hpp" |
stefank@2314 | 34 | #include "utilities/globalDefinitions.hpp" |
kamg@551 | 35 | |
kamg@551 | 36 | #ifdef HAVE_DTRACE_H |
kamg@551 | 37 | |
kamg@551 | 38 | #include <sys/types.h> |
kamg@551 | 39 | #include <sys/stat.h> |
kamg@551 | 40 | #include <fcntl.h> |
kamg@551 | 41 | #include <unistd.h> |
kamg@551 | 42 | #include <dtrace.h> |
kamg@551 | 43 | |
kamg@551 | 44 | static const char* devname = "/dev/dtrace/helper"; |
kamg@551 | 45 | static const char* olddevname = "/devices/pseudo/dtrace@0:helper"; |
kamg@551 | 46 | |
kamg@551 | 47 | static const char* string_sig = "uintptr_t"; |
kamg@551 | 48 | static const char* int_sig = "long"; |
kamg@551 | 49 | static const char* long_sig = "long long"; |
kamg@551 | 50 | |
kamg@551 | 51 | static void printDOFHelper(dof_helper_t* helper); |
kamg@551 | 52 | |
kamg@551 | 53 | static int dofhelper_open() { |
kamg@551 | 54 | int fd; |
kamg@551 | 55 | if ((fd = open64(devname, O_RDWR)) < 0) { |
kamg@551 | 56 | // Optimize next calls |
kamg@551 | 57 | devname = olddevname; |
kamg@551 | 58 | if ((fd = open64(devname, O_RDWR)) < 0) { |
kamg@551 | 59 | return -1; |
kamg@551 | 60 | } |
kamg@551 | 61 | } |
kamg@551 | 62 | return fd; |
kamg@551 | 63 | } |
kamg@551 | 64 | |
kamg@551 | 65 | static jint dof_register(jstring module, uint8_t* dof, void* modaddr) { |
kamg@551 | 66 | int probe; |
kamg@551 | 67 | dof_helper_t dh; |
kamg@551 | 68 | int fd; |
kamg@551 | 69 | |
kamg@551 | 70 | memset(&dh, 0, sizeof(dh)); |
kamg@551 | 71 | |
kamg@551 | 72 | char* module_name = java_lang_String::as_utf8_string( |
kamg@551 | 73 | JNIHandles::resolve_non_null(module)); |
kamg@551 | 74 | jio_snprintf(dh.dofhp_mod, sizeof(dh.dofhp_mod), "%s", module_name); |
kamg@551 | 75 | dh.dofhp_dof = (uint64_t)dof; |
kamg@551 | 76 | dh.dofhp_addr = (uint64_t)modaddr; |
kamg@551 | 77 | |
kamg@551 | 78 | fd = dofhelper_open(); |
kamg@551 | 79 | if (fd < 0) |
kamg@551 | 80 | return -1; |
kamg@551 | 81 | probe = ioctl(fd, DTRACEHIOC_ADDDOF, &dh); |
kamg@551 | 82 | close(fd); |
kamg@551 | 83 | if (PrintDTraceDOF) { |
kamg@551 | 84 | printDOFHelper(&dh); |
kamg@551 | 85 | tty->print_cr("DOF helper id = %d", probe); |
kamg@551 | 86 | } |
kamg@551 | 87 | return probe; |
kamg@551 | 88 | } |
kamg@551 | 89 | |
kamg@551 | 90 | int DTraceJSDT::pd_activate( |
kamg@551 | 91 | void* moduleBaseAddress, jstring module, |
kamg@551 | 92 | jint providers_count, JVM_DTraceProvider* providers) { |
kamg@551 | 93 | |
kamg@551 | 94 | // We need sections: |
kamg@551 | 95 | // (1) STRTAB |
kamg@551 | 96 | // ( |
kamg@551 | 97 | // (2) PROVIDER |
kamg@551 | 98 | // (3) PROBES |
kamg@551 | 99 | // (4) PROBOFFS |
kamg@551 | 100 | // (5) PROBARGS |
kamg@551 | 101 | // ) * Number of Providers |
kamg@551 | 102 | |
kamg@551 | 103 | // Type of sections we create |
kamg@551 | 104 | enum { |
kamg@551 | 105 | STRTAB = 0, |
kamg@551 | 106 | PROVIDERS = 1, |
kamg@551 | 107 | PROBES = 2, |
kamg@551 | 108 | PROBE_OFFSETS = 3, |
kamg@551 | 109 | ARG_OFFSETS = 4, |
kamg@551 | 110 | NUM_SECTIONS = 5 |
kamg@551 | 111 | }; |
kamg@551 | 112 | |
kamg@551 | 113 | static int alignment_for[NUM_SECTIONS] = { 1, 4, 8, 4, 1 }; |
kamg@551 | 114 | |
kamg@551 | 115 | ResourceMark rm; |
kamg@551 | 116 | |
kamg@551 | 117 | uint32_t num_sections = 1 + 4 * providers_count; |
kamg@551 | 118 | uint32_t offset = sizeof(dof_hdr_t) + (num_sections * sizeof(dof_sec_t)); |
kamg@551 | 119 | uint32_t* secoffs = NEW_RESOURCE_ARRAY(uint32_t, num_sections); |
kamg@551 | 120 | uint32_t* secsize = NEW_RESOURCE_ARRAY(uint32_t, num_sections); |
kamg@551 | 121 | |
kamg@551 | 122 | // Store offsets of all strings here in such order: |
kamg@551 | 123 | // zero-string (always 0) |
kamg@551 | 124 | // provider1-name |
kamg@551 | 125 | // probe1-function |
kamg@551 | 126 | // probe1-name |
kamg@551 | 127 | // arg-1 |
kamg@551 | 128 | // arg-2 |
kamg@551 | 129 | // ... |
kamg@551 | 130 | // probe2-function |
kamg@551 | 131 | // probe2-name |
kamg@551 | 132 | // arg-1 |
kamg@551 | 133 | // arg-2 |
kamg@551 | 134 | // provider2-name |
kamg@551 | 135 | // ... |
kamg@551 | 136 | |
kamg@551 | 137 | uint32_t strcount = 0; |
kamg@551 | 138 | // Count the number of strings we'll need |
kamg@551 | 139 | for(int prvc = 0; prvc < providers_count; ++prvc) { |
kamg@551 | 140 | JVM_DTraceProvider* provider = &providers[prvc]; |
kamg@551 | 141 | // Provider name |
kamg@551 | 142 | ++strcount; |
kamg@551 | 143 | for(int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 144 | JVM_DTraceProbe* p = &(provider->probes[prbc]); |
coleenp@2497 | 145 | Symbol* sig = JNIHandles::resolve_jmethod_id(p->method)->signature(); |
kamg@551 | 146 | // function + name + one per argument |
kamg@551 | 147 | strcount += 2 + ArgumentCount(sig).size(); |
kamg@551 | 148 | } |
kamg@551 | 149 | } |
kamg@551 | 150 | |
kamg@551 | 151 | // Create place for string offsets |
kamg@551 | 152 | uint32_t* stroffs = NEW_RESOURCE_ARRAY(uint32_t, strcount + 1); |
kamg@551 | 153 | uint32_t string_index = 0; |
kamg@551 | 154 | uint32_t curstr = 0; |
kamg@551 | 155 | |
kamg@551 | 156 | // First we need an empty string: "" |
kamg@551 | 157 | stroffs[curstr++] = string_index; |
kamg@551 | 158 | string_index += strlen("") + 1; |
kamg@551 | 159 | |
kamg@551 | 160 | for(int prvc = 0; prvc < providers_count; ++prvc) { |
kamg@551 | 161 | JVM_DTraceProvider* provider = &providers[prvc]; |
kamg@551 | 162 | char* provider_name = java_lang_String::as_utf8_string( |
kamg@551 | 163 | JNIHandles::resolve_non_null(provider->name)); |
kamg@551 | 164 | stroffs[curstr++] = string_index; |
kamg@551 | 165 | string_index += strlen(provider_name) + 1; |
kamg@551 | 166 | |
kamg@551 | 167 | // All probes |
kamg@551 | 168 | for(int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 169 | JVM_DTraceProbe* p = &(provider->probes[prbc]); |
kamg@551 | 170 | |
kamg@551 | 171 | char* function = java_lang_String::as_utf8_string( |
kamg@551 | 172 | JNIHandles::resolve_non_null(p->function)); |
kamg@551 | 173 | stroffs[curstr++] = string_index; |
kamg@551 | 174 | string_index += strlen(function) + 1; |
kamg@551 | 175 | |
kamg@551 | 176 | char* name = java_lang_String::as_utf8_string( |
kamg@551 | 177 | JNIHandles::resolve_non_null(p->name)); |
kamg@551 | 178 | stroffs[curstr++] = string_index; |
kamg@551 | 179 | string_index += strlen(name) + 1; |
kamg@551 | 180 | |
coleenp@2497 | 181 | Symbol* sig = JNIHandles::resolve_jmethod_id(p->method)->signature(); |
kamg@551 | 182 | SignatureStream ss(sig); |
kamg@551 | 183 | for ( ; !ss.at_return_type(); ss.next()) { |
kamg@551 | 184 | BasicType bt = ss.type(); |
kamg@551 | 185 | const char* t = NULL; |
kamg@551 | 186 | if (bt == T_OBJECT && |
kamg@551 | 187 | ss.as_symbol_or_null() == vmSymbols::java_lang_String()) { |
kamg@551 | 188 | t = string_sig; |
kamg@551 | 189 | } else if (bt == T_LONG) { |
kamg@551 | 190 | t = long_sig; |
kamg@551 | 191 | } else { |
kamg@551 | 192 | t = int_sig; |
kamg@551 | 193 | } |
kamg@551 | 194 | stroffs[curstr++] = string_index; |
kamg@551 | 195 | string_index += strlen(t) + 1; |
kamg@551 | 196 | } |
kamg@551 | 197 | } |
kamg@551 | 198 | } |
kamg@551 | 199 | secoffs[STRTAB] = offset; |
kamg@551 | 200 | secsize[STRTAB] = string_index; |
kamg@551 | 201 | offset += string_index; |
kamg@551 | 202 | |
kamg@551 | 203 | // Calculate the size of the rest |
kamg@551 | 204 | for(int prvc = 0; prvc < providers_count; ++prvc) { |
kamg@551 | 205 | JVM_DTraceProvider* provider = &providers[prvc]; |
kamg@551 | 206 | size_t provider_sec = PROVIDERS + prvc * 4; |
kamg@551 | 207 | size_t probe_sec = PROBES + prvc * 4; |
kamg@551 | 208 | size_t probeoffs_sec = PROBE_OFFSETS + prvc * 4; |
kamg@551 | 209 | size_t argoffs_sec = ARG_OFFSETS + prvc * 4; |
kamg@551 | 210 | |
kamg@551 | 211 | // Allocate space for the provider data struction |
kamg@551 | 212 | secoffs[provider_sec] = align_size_up(offset, alignment_for[PROVIDERS]); |
kamg@551 | 213 | secsize[provider_sec] = sizeof(dof_provider_t); |
kamg@551 | 214 | offset = secoffs[provider_sec] + secsize[provider_sec]; |
kamg@551 | 215 | |
kamg@551 | 216 | // Allocate space for all the probes |
kamg@551 | 217 | secoffs[probe_sec] = align_size_up(offset, alignment_for[PROBES]); |
kamg@551 | 218 | secsize[probe_sec] = sizeof(dof_probe_t) * provider->probe_count; |
kamg@551 | 219 | offset = secoffs[probe_sec] + secsize[probe_sec]; |
kamg@551 | 220 | |
kamg@551 | 221 | // Allocate space for the probe offsets |
kamg@551 | 222 | secoffs[probeoffs_sec] = align_size_up(offset, alignment_for[PROBE_OFFSETS]); |
kamg@551 | 223 | secsize[probeoffs_sec] = sizeof(uint32_t) * provider->probe_count; |
kamg@551 | 224 | offset = secoffs[probeoffs_sec] + secsize[probeoffs_sec]; |
kamg@551 | 225 | |
kamg@551 | 226 | // We need number of arguments argoffs |
kamg@551 | 227 | uint32_t argscount = 0; |
kamg@551 | 228 | for(int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 229 | JVM_DTraceProbe* p = &(provider->probes[prbc]); |
coleenp@2497 | 230 | Symbol* sig = JNIHandles::resolve_jmethod_id(p->method)->signature(); |
kamg@551 | 231 | argscount += ArgumentCount(sig).size(); |
kamg@551 | 232 | } |
kamg@551 | 233 | secoffs[argoffs_sec] = align_size_up(offset, alignment_for[ARG_OFFSETS]); |
kamg@551 | 234 | secsize[argoffs_sec] = sizeof(uint8_t) * argscount; |
kamg@551 | 235 | offset = secoffs[argoffs_sec] + secsize[argoffs_sec]; |
kamg@551 | 236 | } |
kamg@551 | 237 | |
kamg@551 | 238 | uint32_t size = offset; |
kamg@551 | 239 | |
kamg@551 | 240 | uint8_t* dof = NEW_RESOURCE_ARRAY(uint8_t, size); |
kamg@551 | 241 | if (!dof) { |
kamg@551 | 242 | return -1; |
kamg@551 | 243 | } |
kamg@551 | 244 | memset((void*)dof, 0, size); |
kamg@551 | 245 | |
kamg@551 | 246 | // Fill memory with proper values |
kamg@551 | 247 | dof_hdr_t* hdr = (dof_hdr_t*)dof; |
kamg@551 | 248 | hdr->dofh_ident[DOF_ID_MAG0] = DOF_MAG_MAG0; |
kamg@551 | 249 | hdr->dofh_ident[DOF_ID_MAG1] = DOF_MAG_MAG1; |
kamg@551 | 250 | hdr->dofh_ident[DOF_ID_MAG2] = DOF_MAG_MAG2; |
kamg@551 | 251 | hdr->dofh_ident[DOF_ID_MAG3] = DOF_MAG_MAG3; |
kamg@551 | 252 | hdr->dofh_ident[DOF_ID_MODEL] = DOF_MODEL_NATIVE; // No variants |
kamg@551 | 253 | hdr->dofh_ident[DOF_ID_ENCODING] = DOF_ENCODE_NATIVE; // No variants |
kamg@551 | 254 | hdr->dofh_ident[DOF_ID_VERSION] = DOF_VERSION_1; // No variants |
kamg@551 | 255 | hdr->dofh_ident[DOF_ID_DIFVERS] = DIF_VERSION_2; // No variants |
kamg@551 | 256 | // all other fields of ident to zero |
kamg@551 | 257 | |
kamg@551 | 258 | hdr->dofh_flags = 0; |
kamg@551 | 259 | hdr->dofh_hdrsize = sizeof(dof_hdr_t); |
kamg@551 | 260 | hdr->dofh_secsize = sizeof(dof_sec_t); |
kamg@551 | 261 | hdr->dofh_secnum = num_sections; |
kamg@551 | 262 | hdr->dofh_secoff = sizeof(dof_hdr_t); |
kamg@551 | 263 | hdr->dofh_loadsz = size; |
kamg@551 | 264 | hdr->dofh_filesz = size; |
kamg@551 | 265 | |
kamg@551 | 266 | // First section: STRTAB |
kamg@551 | 267 | dof_sec_t* sec = (dof_sec_t*)(dof + sizeof(dof_hdr_t)); |
kamg@551 | 268 | sec->dofs_type = DOF_SECT_STRTAB; |
kamg@551 | 269 | sec->dofs_align = alignment_for[STRTAB]; |
kamg@551 | 270 | sec->dofs_flags = DOF_SECF_LOAD; |
kamg@551 | 271 | sec->dofs_entsize = 0; |
kamg@551 | 272 | sec->dofs_offset = secoffs[STRTAB]; |
kamg@551 | 273 | sec->dofs_size = secsize[STRTAB]; |
kamg@551 | 274 | // Make data for this section |
kamg@551 | 275 | char* str = (char*)(dof + sec->dofs_offset); |
kamg@551 | 276 | |
kamg@551 | 277 | *str = 0; str += 1; // "" |
kamg@551 | 278 | |
kamg@551 | 279 | // Run through all strings again |
kamg@551 | 280 | for(int prvc = 0; prvc < providers_count; ++prvc) { |
kamg@551 | 281 | JVM_DTraceProvider* provider = &providers[prvc]; |
kamg@551 | 282 | char* provider_name = java_lang_String::as_utf8_string( |
kamg@551 | 283 | JNIHandles::resolve_non_null(provider->name)); |
kamg@551 | 284 | strcpy(str, provider_name); |
kamg@551 | 285 | str += strlen(provider_name) + 1; |
kamg@551 | 286 | |
kamg@551 | 287 | // All probes |
kamg@551 | 288 | for(int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 289 | JVM_DTraceProbe* p = &(provider->probes[prbc]); |
kamg@551 | 290 | |
kamg@551 | 291 | char* function = java_lang_String::as_utf8_string( |
kamg@551 | 292 | JNIHandles::resolve_non_null(p->function)); |
kamg@551 | 293 | strcpy(str, function); |
kamg@551 | 294 | str += strlen(str) + 1; |
kamg@551 | 295 | |
kamg@551 | 296 | char* name = java_lang_String::as_utf8_string( |
kamg@551 | 297 | JNIHandles::resolve_non_null(p->name)); |
kamg@551 | 298 | strcpy(str, name); |
kamg@551 | 299 | str += strlen(name) + 1; |
kamg@551 | 300 | |
coleenp@2497 | 301 | Symbol* sig = JNIHandles::resolve_jmethod_id(p->method)->signature(); |
kamg@551 | 302 | SignatureStream ss(sig); |
kamg@551 | 303 | for ( ; !ss.at_return_type(); ss.next()) { |
kamg@551 | 304 | BasicType bt = ss.type(); |
kamg@551 | 305 | const char* t; |
kamg@551 | 306 | if (bt == T_OBJECT && |
kamg@551 | 307 | ss.as_symbol_or_null() == vmSymbols::java_lang_String()) { |
kamg@551 | 308 | t = string_sig; |
kamg@551 | 309 | } else if (bt == T_LONG) { |
kamg@551 | 310 | t = long_sig; |
kamg@551 | 311 | } else { |
kamg@551 | 312 | t = int_sig; |
kamg@551 | 313 | } |
kamg@551 | 314 | strcpy(str, t); |
kamg@551 | 315 | str += strlen(t) + 1; |
kamg@551 | 316 | } |
kamg@551 | 317 | } |
kamg@551 | 318 | } |
kamg@551 | 319 | |
kamg@551 | 320 | curstr = 1; |
kamg@551 | 321 | for(int prvc = 0; prvc < providers_count; ++prvc) { |
kamg@551 | 322 | JVM_DTraceProvider* provider = &providers[prvc]; |
kamg@551 | 323 | size_t provider_sec = PROVIDERS + prvc * 4; |
kamg@551 | 324 | size_t probe_sec = PROBES + prvc * 4; |
kamg@551 | 325 | size_t probeoffs_sec = PROBE_OFFSETS + prvc * 4; |
kamg@551 | 326 | size_t argoffs_sec = ARG_OFFSETS + prvc * 4; |
kamg@551 | 327 | |
kamg@551 | 328 | // PROVIDER /////////////////////////////////////////////////////////////// |
kamg@551 | 329 | // Section header |
kamg@551 | 330 | sec = (dof_sec_t*) |
kamg@551 | 331 | (dof + sizeof(dof_hdr_t) + sizeof(dof_sec_t) * provider_sec); |
kamg@551 | 332 | sec->dofs_type = DOF_SECT_PROVIDER; |
kamg@551 | 333 | sec->dofs_align = alignment_for[PROVIDERS]; |
kamg@551 | 334 | sec->dofs_flags = DOF_SECF_LOAD; |
kamg@551 | 335 | sec->dofs_entsize = 0; |
kamg@551 | 336 | sec->dofs_offset = secoffs[provider_sec]; |
kamg@551 | 337 | sec->dofs_size = secsize[provider_sec]; |
kamg@551 | 338 | // Make provider decriiption |
kamg@551 | 339 | dof_provider_t* prv = (dof_provider_t*)(dof + sec->dofs_offset); |
kamg@551 | 340 | prv->dofpv_strtab = STRTAB; |
kamg@551 | 341 | prv->dofpv_probes = probe_sec; |
kamg@551 | 342 | prv->dofpv_prargs = argoffs_sec; |
kamg@551 | 343 | prv->dofpv_proffs = probeoffs_sec; |
kamg@551 | 344 | prv->dofpv_name = stroffs[curstr++]; // Index in string table |
kamg@551 | 345 | prv->dofpv_provattr = DOF_ATTR( |
kamg@551 | 346 | provider->providerAttributes.nameStability, |
kamg@551 | 347 | provider->providerAttributes.dataStability, |
kamg@551 | 348 | provider->providerAttributes.dependencyClass); |
kamg@551 | 349 | prv->dofpv_modattr = DOF_ATTR( |
kamg@551 | 350 | provider->moduleAttributes.nameStability, |
kamg@551 | 351 | provider->moduleAttributes.dataStability, |
kamg@551 | 352 | provider->moduleAttributes.dependencyClass); |
kamg@551 | 353 | prv->dofpv_funcattr = DOF_ATTR( |
kamg@551 | 354 | provider->functionAttributes.nameStability, |
kamg@551 | 355 | provider->functionAttributes.dataStability, |
kamg@551 | 356 | provider->functionAttributes.dependencyClass); |
kamg@551 | 357 | prv->dofpv_nameattr = DOF_ATTR( |
kamg@551 | 358 | provider->nameAttributes.nameStability, |
kamg@551 | 359 | provider->nameAttributes.dataStability, |
kamg@551 | 360 | provider->nameAttributes.dependencyClass); |
kamg@551 | 361 | prv->dofpv_argsattr = DOF_ATTR( |
kamg@551 | 362 | provider->argsAttributes.nameStability, |
kamg@551 | 363 | provider->argsAttributes.dataStability, |
kamg@551 | 364 | provider->argsAttributes.dependencyClass); |
kamg@551 | 365 | |
kamg@551 | 366 | // PROBES ///////////////////////////////////////////////////////////////// |
kamg@551 | 367 | // Section header |
kamg@551 | 368 | sec = (dof_sec_t*) |
kamg@551 | 369 | (dof + sizeof(dof_hdr_t) + sizeof(dof_sec_t) * probe_sec); |
kamg@551 | 370 | sec->dofs_type = DOF_SECT_PROBES; |
kamg@551 | 371 | sec->dofs_align = alignment_for[PROBES]; |
kamg@551 | 372 | sec->dofs_flags = DOF_SECF_LOAD; |
kamg@551 | 373 | sec->dofs_entsize = sizeof(dof_probe_t); |
kamg@551 | 374 | sec->dofs_offset = secoffs[probe_sec]; |
kamg@551 | 375 | sec->dofs_size = secsize[probe_sec]; |
kamg@551 | 376 | // Make probes descriptions |
kamg@551 | 377 | uint32_t argsoffs = 0; |
kamg@551 | 378 | for(int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 379 | JVM_DTraceProbe* probe = &(provider->probes[prbc]); |
kamg@551 | 380 | methodOop m = JNIHandles::resolve_jmethod_id(probe->method); |
kamg@551 | 381 | int arg_count = ArgumentCount(m->signature()).size(); |
kamg@551 | 382 | assert(m->code() != NULL, "must have an nmethod"); |
kamg@551 | 383 | |
kamg@551 | 384 | dof_probe_t* prb = |
kamg@551 | 385 | (dof_probe_t*)(dof + sec->dofs_offset + prbc * sizeof(dof_probe_t)); |
kamg@551 | 386 | |
kamg@551 | 387 | prb->dofpr_addr = (uint64_t)m->code()->entry_point(); |
kamg@551 | 388 | prb->dofpr_func = stroffs[curstr++]; // Index in string table |
kamg@551 | 389 | prb->dofpr_name = stroffs[curstr++]; // Index in string table |
kamg@551 | 390 | prb->dofpr_nargv = stroffs[curstr ]; // Index in string table |
kamg@551 | 391 | // We spent siglen strings here |
kamg@551 | 392 | curstr += arg_count; |
kamg@551 | 393 | prb->dofpr_xargv = prb->dofpr_nargv; // Same bunch of strings |
kamg@551 | 394 | prb->dofpr_argidx = argsoffs; |
kamg@551 | 395 | prb->dofpr_offidx = prbc; |
kamg@551 | 396 | prb->dofpr_nargc = arg_count; |
kamg@551 | 397 | prb->dofpr_xargc = arg_count; |
kamg@551 | 398 | prb->dofpr_noffs = 1; // Number of offsets |
kamg@551 | 399 | // Next bunch of offsets |
kamg@551 | 400 | argsoffs += arg_count; |
kamg@551 | 401 | } |
kamg@551 | 402 | |
kamg@551 | 403 | // PROFFS ///////////////////////////////////////////////////////////////// |
kamg@551 | 404 | // Section header |
kamg@551 | 405 | sec = (dof_sec_t*) |
kamg@551 | 406 | (dof + sizeof(dof_hdr_t) + sizeof(dof_sec_t) * probeoffs_sec); |
kamg@551 | 407 | sec->dofs_type = DOF_SECT_PROFFS; |
kamg@551 | 408 | sec->dofs_align = alignment_for[PROBE_OFFSETS]; |
kamg@551 | 409 | sec->dofs_flags = DOF_SECF_LOAD; |
kamg@551 | 410 | sec->dofs_entsize = sizeof(uint32_t); |
kamg@551 | 411 | sec->dofs_offset = secoffs[probeoffs_sec]; |
kamg@551 | 412 | sec->dofs_size = secsize[probeoffs_sec]; |
kamg@551 | 413 | // Make offsets |
kamg@551 | 414 | for (int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 415 | uint32_t* pof = |
kamg@551 | 416 | (uint32_t*)(dof + sec->dofs_offset + sizeof(uint32_t) * prbc); |
kamg@551 | 417 | JVM_DTraceProbe* probe = &(provider->probes[prbc]); |
kamg@551 | 418 | methodOop m = JNIHandles::resolve_jmethod_id(probe->method); |
kamg@551 | 419 | *pof = m->code()->trap_offset(); |
kamg@551 | 420 | } |
kamg@551 | 421 | |
kamg@551 | 422 | // PRARGS ///////////////////////////////////////////////////////////////// |
kamg@551 | 423 | // Section header |
kamg@551 | 424 | sec = (dof_sec_t*) |
kamg@551 | 425 | (dof + sizeof(dof_hdr_t) + sizeof(dof_sec_t) * argoffs_sec); |
kamg@551 | 426 | sec->dofs_type = DOF_SECT_PRARGS; |
kamg@551 | 427 | sec->dofs_align = alignment_for[ARG_OFFSETS]; |
kamg@551 | 428 | sec->dofs_flags = DOF_SECF_LOAD; |
kamg@551 | 429 | sec->dofs_entsize = sizeof(uint8_t); |
kamg@551 | 430 | sec->dofs_offset = secoffs[argoffs_sec]; |
kamg@551 | 431 | sec->dofs_size = secsize[argoffs_sec]; |
kamg@551 | 432 | // Make arguments |
kamg@551 | 433 | uint8_t* par = (uint8_t*)(dof + sec->dofs_offset); |
kamg@551 | 434 | for (int prbc = 0; prbc < provider->probe_count; ++prbc) { |
kamg@551 | 435 | JVM_DTraceProbe* p = &(provider->probes[prbc]); |
coleenp@2497 | 436 | Symbol* sig = JNIHandles::resolve_jmethod_id(p->method)->signature(); |
kamg@551 | 437 | uint8_t count = (uint8_t)ArgumentCount(sig).size(); |
kamg@551 | 438 | for (uint8_t i = 0; i < count; ++i) { |
kamg@551 | 439 | *par++ = i; |
kamg@551 | 440 | } |
kamg@551 | 441 | } |
kamg@551 | 442 | } |
kamg@551 | 443 | |
kamg@551 | 444 | // Register module |
kamg@551 | 445 | return dof_register(module, dof, moduleBaseAddress); |
kamg@551 | 446 | } |
kamg@551 | 447 | |
kamg@551 | 448 | |
kamg@551 | 449 | void DTraceJSDT::pd_dispose(int handle) { |
kamg@551 | 450 | int fd; |
kamg@551 | 451 | if (handle == -1) { |
kamg@551 | 452 | return; |
kamg@551 | 453 | } |
kamg@551 | 454 | fd = dofhelper_open(); |
kamg@551 | 455 | if (fd < 0) |
kamg@551 | 456 | return; |
kamg@551 | 457 | ioctl(fd, DTRACEHIOC_REMOVE, handle); |
kamg@551 | 458 | close(fd); |
kamg@551 | 459 | } |
kamg@551 | 460 | |
kamg@551 | 461 | jboolean DTraceJSDT::pd_is_supported() { |
kamg@551 | 462 | int fd = dofhelper_open(); |
kamg@551 | 463 | if (fd < 0) { |
kamg@551 | 464 | return false; |
kamg@551 | 465 | } |
kamg@551 | 466 | close(fd); |
kamg@551 | 467 | return true; |
kamg@551 | 468 | } |
kamg@551 | 469 | |
kamg@551 | 470 | static const char* dofSecTypeFor(uint32_t type) { |
kamg@551 | 471 | switch (type) { |
kamg@551 | 472 | case 0: return "DOF_SECT_NONE"; |
kamg@551 | 473 | case 1: return "DOF_SECT_COMMENTS"; |
kamg@551 | 474 | case 2: return "DOF_SECT_SOURCE"; |
kamg@551 | 475 | case 3: return "DOF_SECT_ECBDESC"; |
kamg@551 | 476 | case 4: return "DOF_SECT_PROBEDESC"; |
kamg@551 | 477 | case 5: return "DOF_SECT_ACTDESC"; |
kamg@551 | 478 | case 6: return "DOF_SECT_DIFOHDR"; |
kamg@551 | 479 | case 7: return "DOF_SECT_DIF"; |
kamg@551 | 480 | case 8: return "DOF_SECT_STRTAB"; |
kamg@551 | 481 | case 9: return "DOF_SECT_VARTAB"; |
kamg@551 | 482 | case 10: return "DOF_SECT_RELTAB"; |
kamg@551 | 483 | case 11: return "DOF_SECT_TYPETAB"; |
kamg@551 | 484 | case 12: return "DOF_SECT_URELHDR"; |
kamg@551 | 485 | case 13: return "DOF_SECT_KRELHDR"; |
kamg@551 | 486 | case 14: return "DOF_SECT_OPTDESC"; |
kamg@551 | 487 | case 15: return "DOF_SECT_PROVIDER"; |
kamg@551 | 488 | case 16: return "DOF_SECT_PROBES"; |
kamg@551 | 489 | case 17: return "DOF_SECT_PRARGS"; |
kamg@551 | 490 | case 18: return "DOF_SECT_PROFFS"; |
kamg@551 | 491 | case 19: return "DOF_SECT_INTTAB"; |
kamg@551 | 492 | case 20: return "DOF_SECT_UTSNAME"; |
kamg@551 | 493 | case 21: return "DOF_SECT_XLTAB"; |
kamg@551 | 494 | case 22: return "DOF_SECT_XLMEMBERS"; |
kamg@551 | 495 | case 23: return "DOF_SECT_XLIMPORT"; |
kamg@551 | 496 | case 24: return "DOF_SECT_XLEXPORT"; |
kamg@551 | 497 | case 25: return "DOF_SECT_PREXPORT"; |
kamg@551 | 498 | case 26: return "DOF_SECT_PRENOFFS"; |
kamg@551 | 499 | default: return "<unknown>"; |
kamg@551 | 500 | } |
kamg@551 | 501 | } |
kamg@551 | 502 | |
kamg@551 | 503 | static void printDOFStringTabSec(void* dof, dof_sec_t* sec) { |
kamg@551 | 504 | size_t tab = sec->dofs_offset; |
kamg@551 | 505 | size_t limit = sec->dofs_size; |
kamg@551 | 506 | tty->print_cr("// String Table:"); |
kamg@551 | 507 | for (size_t idx = 0; idx < limit; /*empty*/) { |
kamg@551 | 508 | char* str = ((char*)dof) + tab + idx; |
kamg@551 | 509 | tty->print_cr("// [0x%x + 0x%x] '%s'", tab, idx, str); |
kamg@551 | 510 | idx += strlen(str) + 1; |
kamg@551 | 511 | } |
kamg@551 | 512 | } |
kamg@551 | 513 | |
kamg@551 | 514 | static void printDOFProviderSec(void* dof, dof_sec_t* sec) { |
kamg@551 | 515 | dof_provider_t* prov = (dof_provider_t*)((char*)dof + sec->dofs_offset); |
kamg@551 | 516 | tty->print_cr("// dof_provider_t {"); |
kamg@551 | 517 | tty->print_cr("// dofpv_strtab = %d", prov->dofpv_strtab); |
kamg@551 | 518 | tty->print_cr("// dofpv_probes = %d", prov->dofpv_probes); |
kamg@551 | 519 | tty->print_cr("// dofpv_prargs = %d", prov->dofpv_prargs); |
kamg@551 | 520 | tty->print_cr("// dofpv_proffs = %d", prov->dofpv_proffs); |
kamg@551 | 521 | tty->print_cr("// dofpv_name = 0x%x", prov->dofpv_name); |
kamg@551 | 522 | tty->print_cr("// dofpv_provattr = 0x%08x", prov->dofpv_provattr); |
kamg@551 | 523 | tty->print_cr("// dofpv_modattr = 0x%08x", prov->dofpv_modattr); |
kamg@551 | 524 | tty->print_cr("// dofpv_funcattr = 0x%08x", prov->dofpv_funcattr); |
kamg@551 | 525 | tty->print_cr("// dofpv_nameattr = 0x%08x", prov->dofpv_nameattr); |
kamg@551 | 526 | tty->print_cr("// dofpv_argsattr = 0x%08x", prov->dofpv_argsattr); |
kamg@551 | 527 | tty->print_cr("// }"); |
kamg@551 | 528 | } |
kamg@551 | 529 | |
kamg@551 | 530 | static void printDOFProbesSec(void* dof, dof_sec_t* sec) { |
kamg@551 | 531 | size_t idx = sec->dofs_offset; |
kamg@551 | 532 | size_t limit = idx + sec->dofs_size; |
kamg@551 | 533 | for (size_t idx = sec->dofs_offset; idx < limit; idx += sec->dofs_entsize) { |
kamg@551 | 534 | dof_probe_t* prb = (dof_probe_t*)((char*)dof + idx); |
kamg@551 | 535 | tty->print_cr("// dof_probe_t {"); |
kamg@551 | 536 | tty->print_cr("// dofpr_addr = 0x%016llx", prb->dofpr_addr); |
kamg@551 | 537 | tty->print_cr("// dofpr_func = 0x%x", prb->dofpr_func); |
kamg@551 | 538 | tty->print_cr("// dofpr_name = 0x%x", prb->dofpr_name); |
kamg@551 | 539 | tty->print_cr("// dofpr_nargv = 0x%x", prb->dofpr_nargv); |
kamg@551 | 540 | tty->print_cr("// dofpr_xargv = 0x%x", prb->dofpr_xargv); |
kamg@551 | 541 | tty->print_cr("// dofpr_argidx = 0x%x", prb->dofpr_argidx); |
kamg@551 | 542 | tty->print_cr("// dofpr_offidx = 0x%x", prb->dofpr_offidx); |
kamg@551 | 543 | tty->print_cr("// dofpr_nargc = %d", prb->dofpr_nargc); |
kamg@551 | 544 | tty->print_cr("// dofpr_xargc = %d", prb->dofpr_xargc); |
kamg@551 | 545 | tty->print_cr("// dofpr_noffs = %d", prb->dofpr_noffs); |
kamg@551 | 546 | tty->print_cr("// }"); |
kamg@551 | 547 | } |
kamg@551 | 548 | } |
kamg@551 | 549 | |
kamg@551 | 550 | static void printDOFOffsetsSec(void* dof, dof_sec_t* sec) { |
kamg@551 | 551 | size_t tab = sec->dofs_offset; |
kamg@551 | 552 | size_t limit = sec->dofs_size; |
kamg@551 | 553 | tty->print_cr("// Offsets:"); |
kamg@551 | 554 | for (size_t idx = 0; idx < limit; idx += sec->dofs_entsize) { |
kamg@551 | 555 | uint32_t* off = (uint32_t*)((char*)dof + tab + idx); |
kamg@551 | 556 | tty->print_cr("// [0x%x + 0x%x]: %d", tab, idx, *off); |
kamg@551 | 557 | } |
kamg@551 | 558 | } |
kamg@551 | 559 | |
kamg@551 | 560 | static void printDOFArgsSec(void* dof, dof_sec_t* sec) { |
kamg@551 | 561 | size_t tab = sec->dofs_offset; |
kamg@551 | 562 | size_t limit = sec->dofs_size; |
kamg@551 | 563 | tty->print_cr("// Arguments:"); |
kamg@551 | 564 | for (size_t idx = 0; idx < limit; idx += sec->dofs_entsize) { |
kamg@551 | 565 | uint8_t* arg = (uint8_t*)((char*)dof + tab + idx); |
kamg@551 | 566 | tty->print_cr("// [0x%x + 0x%x]: %d", tab, idx, *arg); |
kamg@551 | 567 | } |
kamg@551 | 568 | } |
kamg@551 | 569 | |
kamg@551 | 570 | static void printDOFSection(void* dof, dof_sec_t* sec) { |
kamg@551 | 571 | tty->print_cr("// dof_sec_t {"); |
kamg@551 | 572 | tty->print_cr("// dofs_type = 0x%x /* %s */", |
kamg@551 | 573 | sec->dofs_type, dofSecTypeFor(sec->dofs_type)); |
kamg@551 | 574 | tty->print_cr("// dofs_align = %d", sec->dofs_align); |
kamg@551 | 575 | tty->print_cr("// dofs_flags = 0x%x", sec->dofs_flags); |
kamg@551 | 576 | tty->print_cr("// dofs_entsize = %d", sec->dofs_entsize); |
kamg@551 | 577 | tty->print_cr("// dofs_offset = 0x%llx", sec->dofs_offset); |
kamg@551 | 578 | tty->print_cr("// dofs_size = %lld", sec->dofs_size); |
kamg@551 | 579 | tty->print_cr("// }"); |
kamg@551 | 580 | switch (sec->dofs_type) { |
kamg@551 | 581 | case DOF_SECT_STRTAB: printDOFStringTabSec(dof, sec); break; |
kamg@551 | 582 | case DOF_SECT_PROVIDER: printDOFProviderSec(dof, sec); break; |
kamg@551 | 583 | case DOF_SECT_PROBES: printDOFProbesSec(dof, sec); break; |
kamg@551 | 584 | case DOF_SECT_PROFFS: printDOFOffsetsSec(dof, sec); break; |
kamg@551 | 585 | case DOF_SECT_PRARGS: printDOFArgsSec(dof, sec); break; |
kamg@551 | 586 | default: tty->print_cr("// <section type not recognized>"); |
kamg@551 | 587 | } |
kamg@551 | 588 | } |
kamg@551 | 589 | |
kamg@551 | 590 | static void printDOFHeader(dof_hdr_t* hdr) { |
kamg@551 | 591 | tty->print_cr("// dof_hdr_t {"); |
kamg@551 | 592 | tty->print_cr("// dofh_ident[DOF_ID_MAG0] = 0x%x", |
kamg@551 | 593 | hdr->dofh_ident[DOF_ID_MAG0]); |
kamg@551 | 594 | tty->print_cr("// dofh_ident[DOF_ID_MAG1] = 0x%x", |
kamg@551 | 595 | hdr->dofh_ident[DOF_ID_MAG1]); |
kamg@551 | 596 | tty->print_cr("// dofh_ident[DOF_ID_MAG2] = 0x%x", |
kamg@551 | 597 | hdr->dofh_ident[DOF_ID_MAG2]); |
kamg@551 | 598 | tty->print_cr("// dofh_ident[DOF_ID_MAG3] = 0x%x", |
kamg@551 | 599 | hdr->dofh_ident[DOF_ID_MAG3]); |
kamg@551 | 600 | tty->print_cr("// dofh_ident[DOF_ID_MODEL] = 0x%x", |
kamg@551 | 601 | hdr->dofh_ident[DOF_ID_MODEL]); |
kamg@551 | 602 | tty->print_cr("// dofh_ident[DOF_ID_ENCODING] = 0x%x", |
kamg@551 | 603 | hdr->dofh_ident[DOF_ID_ENCODING]); |
kamg@551 | 604 | tty->print_cr("// dofh_ident[DOF_ID_VERSION] = 0x%x", |
kamg@551 | 605 | hdr->dofh_ident[DOF_ID_VERSION]); |
kamg@551 | 606 | tty->print_cr("// dofh_ident[DOF_ID_DIFVERS] = 0x%x", |
kamg@551 | 607 | hdr->dofh_ident[DOF_ID_DIFVERS]); |
kamg@551 | 608 | tty->print_cr("// dofh_flags = 0x%x", hdr->dofh_flags); |
kamg@551 | 609 | tty->print_cr("// dofh_hdrsize = %d", hdr->dofh_hdrsize); |
kamg@551 | 610 | tty->print_cr("// dofh_secsize = %d", hdr->dofh_secsize); |
kamg@551 | 611 | tty->print_cr("// dofh_secnum = %d", hdr->dofh_secnum); |
kamg@551 | 612 | tty->print_cr("// dofh_secoff = %lld", hdr->dofh_secoff); |
kamg@551 | 613 | tty->print_cr("// dofh_loadsz = %lld", hdr->dofh_loadsz); |
kamg@551 | 614 | tty->print_cr("// dofh_filesz = %lld", hdr->dofh_filesz); |
kamg@551 | 615 | tty->print_cr("// }"); |
kamg@551 | 616 | } |
kamg@551 | 617 | |
kamg@551 | 618 | static void printDOF(void* dof) { |
kamg@551 | 619 | dof_hdr_t* hdr = (dof_hdr_t*)dof; |
kamg@551 | 620 | printDOFHeader(hdr); |
kamg@551 | 621 | for (int i = 0; i < hdr->dofh_secnum; ++i) { |
kamg@551 | 622 | dof_sec_t* sec = |
kamg@551 | 623 | (dof_sec_t*)((char*)dof + sizeof(dof_hdr_t) + i * sizeof(dof_sec_t)); |
kamg@551 | 624 | tty->print_cr("// [Section #%d]", i); |
kamg@551 | 625 | printDOFSection(dof, sec); |
kamg@551 | 626 | } |
kamg@551 | 627 | } |
kamg@551 | 628 | |
kamg@551 | 629 | /** |
kamg@551 | 630 | * This prints out hex data in a 'windbg' or 'xxd' form, where each line is: |
kamg@551 | 631 | * <hex-address>: 8 * <hex-halfword> <ascii translation> |
kamg@551 | 632 | * example: |
kamg@551 | 633 | * 0000000: 7f44 4f46 0102 0102 0000 0000 0000 0000 .DOF............ |
kamg@551 | 634 | * 0000010: 0000 0000 0000 0040 0000 0020 0000 0005 .......@... .... |
kamg@551 | 635 | * 0000020: 0000 0000 0000 0040 0000 0000 0000 015d .......@.......] |
kamg@551 | 636 | * ... |
kamg@551 | 637 | */ |
kamg@551 | 638 | static void printDOFRawData(void* dof) { |
kamg@551 | 639 | size_t size = ((dof_hdr_t*)dof)->dofh_loadsz; |
kamg@551 | 640 | size_t limit = (size + 16) / 16 * 16; |
kamg@551 | 641 | for (size_t i = 0; i < limit; ++i) { |
kamg@551 | 642 | if (i % 16 == 0) { |
kamg@551 | 643 | tty->print("%07x:", i); |
kamg@551 | 644 | } |
kamg@551 | 645 | if (i % 2 == 0) { |
kamg@551 | 646 | tty->print(" "); |
kamg@551 | 647 | } |
kamg@551 | 648 | if (i < size) { |
kamg@551 | 649 | tty->print("%02x", ((unsigned char*)dof)[i]); |
kamg@551 | 650 | } else { |
kamg@551 | 651 | tty->print(" "); |
kamg@551 | 652 | } |
kamg@551 | 653 | if ((i + 1) % 16 == 0) { |
kamg@551 | 654 | tty->print(" "); |
kamg@551 | 655 | for (size_t j = 0; j < 16; ++j) { |
kamg@551 | 656 | size_t idx = i + j - 15; |
kamg@551 | 657 | char c = ((char*)dof)[idx]; |
kamg@551 | 658 | if (idx < size) { |
kamg@551 | 659 | tty->print("%c", c >= 32 && c <= 126 ? c : '.'); |
kamg@551 | 660 | } |
kamg@551 | 661 | } |
kamg@551 | 662 | tty->print_cr(""); |
kamg@551 | 663 | } |
kamg@551 | 664 | } |
kamg@551 | 665 | tty->print_cr(""); |
kamg@551 | 666 | } |
kamg@551 | 667 | |
kamg@551 | 668 | static void printDOFHelper(dof_helper_t* helper) { |
kamg@551 | 669 | tty->print_cr("// dof_helper_t {"); |
kamg@551 | 670 | tty->print_cr("// dofhp_mod = \"%s\"", helper->dofhp_mod); |
kamg@551 | 671 | tty->print_cr("// dofhp_addr = 0x%016llx", helper->dofhp_addr); |
kamg@551 | 672 | tty->print_cr("// dofhp_dof = 0x%016llx", helper->dofhp_dof); |
kamg@551 | 673 | printDOF((void*)helper->dofhp_dof); |
kamg@551 | 674 | tty->print_cr("// }"); |
kamg@551 | 675 | printDOFRawData((void*)helper->dofhp_dof); |
kamg@551 | 676 | } |
kamg@551 | 677 | |
kamg@551 | 678 | #else // ndef HAVE_DTRACE_H |
kamg@551 | 679 | |
kamg@551 | 680 | // Get here if we're not building on at least Solaris 10 |
kamg@551 | 681 | int DTraceJSDT::pd_activate( |
kamg@551 | 682 | void* baseAddress, jstring module, |
kamg@551 | 683 | jint provider_count, JVM_DTraceProvider* providers) { |
kamg@551 | 684 | return -1; |
kamg@551 | 685 | } |
kamg@551 | 686 | |
kamg@551 | 687 | void DTraceJSDT::pd_dispose(int handle) { |
kamg@551 | 688 | } |
kamg@551 | 689 | |
kamg@551 | 690 | jboolean DTraceJSDT::pd_is_supported() { |
kamg@551 | 691 | return false; |
kamg@551 | 692 | } |
kamg@551 | 693 | #endif |