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