Mercurial > hg > truffle
annotate src/share/vm/services/dtraceAttacher.cpp @ 12322:72b7e96c1922
8024545: make develop and notproduct flag values available in product builds
Reviewed-by: dholmes, kvn
| author | twisti |
|---|---|
| date | Thu, 26 Sep 2013 12:07:53 -0700 |
| parents | f95d63e2154a |
| children | de6a9e811145 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 1972 | 2 * Copyright (c) 2006, 2010, Oracle and/or its affiliates. All rights reserved. |
| 0 | 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 * | |
|
1552
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1324
diff
changeset
|
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
|
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1324
diff
changeset
|
20 * or visit www.oracle.com if you need additional information or have any |
|
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1324
diff
changeset
|
21 * questions. |
| 0 | 22 * |
| 23 */ | |
| 24 | |
| 1972 | 25 #include "precompiled.hpp" |
| 26 #include "code/codeCache.hpp" | |
| 27 #include "memory/resourceArea.hpp" | |
| 28 #include "runtime/deoptimization.hpp" | |
| 29 #include "runtime/vmThread.hpp" | |
| 30 #include "runtime/vm_operations.hpp" | |
| 31 #include "services/dtraceAttacher.hpp" | |
| 0 | 32 |
| 33 #ifdef SOLARIS | |
| 34 | |
| 35 class VM_DeoptimizeTheWorld : public VM_Operation { | |
| 36 public: | |
| 37 VMOp_Type type() const { | |
| 38 return VMOp_DeoptimizeTheWorld; | |
| 39 } | |
| 40 void doit() { | |
| 41 CodeCache::mark_all_nmethods_for_deoptimization(); | |
| 42 ResourceMark rm; | |
| 43 DeoptimizationMarker dm; | |
| 44 // Deoptimize all activations depending on marked methods | |
| 45 Deoptimization::deoptimize_dependents(); | |
| 46 | |
| 47 // Mark the dependent methods non entrant | |
| 48 CodeCache::make_marked_nmethods_not_entrant(); | |
| 49 } | |
| 50 }; | |
| 51 | |
| 52 static void set_bool_flag(const char* flag, bool value) { | |
| 53 CommandLineFlags::boolAtPut((char*)flag, strlen(flag), &value, | |
|
12322
72b7e96c1922
8024545: make develop and notproduct flag values available in product builds
twisti
parents:
1972
diff
changeset
|
54 Flag::ATTACH_ON_DEMAND); |
| 0 | 55 } |
| 56 | |
| 57 // Enable only the "fine grained" flags. Do *not* touch | |
| 58 // the overall "ExtendedDTraceProbes" flag. | |
| 59 void DTrace::enable_dprobes(int probes) { | |
| 60 bool changed = false; | |
| 61 if (!DTraceAllocProbes && (probes & DTRACE_ALLOC_PROBES)) { | |
| 62 set_bool_flag("DTraceAllocProbes", true); | |
| 63 changed = true; | |
| 64 } | |
| 65 if (!DTraceMethodProbes && (probes & DTRACE_METHOD_PROBES)) { | |
| 66 set_bool_flag("DTraceMethodProbes", true); | |
| 67 changed = true; | |
| 68 } | |
| 69 if (!DTraceMonitorProbes && (probes & DTRACE_MONITOR_PROBES)) { | |
| 70 set_bool_flag("DTraceMonitorProbes", true); | |
| 71 changed = true; | |
| 72 } | |
| 73 | |
| 74 if (changed) { | |
| 75 // one or more flags changed, need to deoptimize | |
| 76 VM_DeoptimizeTheWorld op; | |
| 77 VMThread::execute(&op); | |
| 78 } | |
| 79 } | |
| 80 | |
| 81 // Disable only the "fine grained" flags. Do *not* touch | |
| 82 // the overall "ExtendedDTraceProbes" flag. | |
| 83 void DTrace::disable_dprobes(int probes) { | |
| 84 bool changed = false; | |
| 85 if (DTraceAllocProbes && (probes & DTRACE_ALLOC_PROBES)) { | |
| 86 set_bool_flag("DTraceAllocProbes", false); | |
| 87 changed = true; | |
| 88 } | |
| 89 if (DTraceMethodProbes && (probes & DTRACE_METHOD_PROBES)) { | |
| 90 set_bool_flag("DTraceMethodProbes", false); | |
| 91 changed = true; | |
| 92 } | |
| 93 if (DTraceMonitorProbes && (probes & DTRACE_MONITOR_PROBES)) { | |
| 94 set_bool_flag("DTraceMonitorProbes", false); | |
| 95 changed = true; | |
| 96 } | |
| 97 if (changed) { | |
| 98 // one or more flags changed, need to deoptimize | |
| 99 VM_DeoptimizeTheWorld op; | |
| 100 VMThread::execute(&op); | |
| 101 } | |
| 102 } | |
| 103 | |
| 104 // Do clean-up on "all door clients detached" event. | |
| 105 void DTrace::detach_all_clients() { | |
| 106 /* | |
| 107 * We restore the state of the fine grained flags | |
| 108 * to be consistent with overall ExtendedDTraceProbes. | |
| 109 * This way, we will honour command line setting or the | |
| 110 * last explicit modification of ExtendedDTraceProbes by | |
| 111 * a call to set_extended_dprobes. | |
| 112 */ | |
| 113 if (ExtendedDTraceProbes) { | |
| 114 enable_dprobes(DTRACE_ALL_PROBES); | |
| 115 } else { | |
| 116 disable_dprobes(DTRACE_ALL_PROBES); | |
| 117 } | |
| 118 } | |
| 119 | |
| 120 void DTrace::set_extended_dprobes(bool flag) { | |
| 121 // explicit setting of ExtendedDTraceProbes flag | |
| 122 set_bool_flag("ExtendedDTraceProbes", flag); | |
| 123 | |
| 124 // make sure that the fine grained flags reflect the change. | |
| 125 if (flag) { | |
| 126 enable_dprobes(DTRACE_ALL_PROBES); | |
| 127 } else { | |
| 128 /* | |
| 129 * FIXME: Revisit this: currently all-client-detach detection | |
| 130 * does not work and hence disabled. The following scheme does | |
| 131 * not work. So, we have to disable fine-grained flags here. | |
| 132 * | |
| 133 * disable_dprobes call has to be delayed till next "detach all "event. | |
| 134 * This is to be done so that concurrent DTrace clients that may | |
| 135 * have enabled one or more fine grained dprobes and may be running | |
| 136 * still. On "detach all" clients event, we would sync ExtendedDTraceProbes | |
| 137 * with fine grained flags which would take care of disabling fine grained flags. | |
| 138 */ | |
| 139 disable_dprobes(DTRACE_ALL_PROBES); | |
| 140 } | |
| 141 } | |
| 142 | |
|
1324
e392695de029
6935224: Adding new DTrace probes to work with Palantir
fparain
parents:
0
diff
changeset
|
143 void DTrace::set_monitor_dprobes(bool flag) { |
|
e392695de029
6935224: Adding new DTrace probes to work with Palantir
fparain
parents:
0
diff
changeset
|
144 // explicit setting of DTraceMonitorProbes flag |
|
e392695de029
6935224: Adding new DTrace probes to work with Palantir
fparain
parents:
0
diff
changeset
|
145 set_bool_flag("DTraceMonitorProbes", flag); |
|
e392695de029
6935224: Adding new DTrace probes to work with Palantir
fparain
parents:
0
diff
changeset
|
146 } |
|
e392695de029
6935224: Adding new DTrace probes to work with Palantir
fparain
parents:
0
diff
changeset
|
147 |
| 0 | 148 #endif /* SOLARIS */ |