67 #define BI_PROFILE_UPDATE_CALL() |
52 #define BI_PROFILE_UPDATE_CALL() |
68 #define BI_PROFILE_UPDATE_FINALCALL() |
53 #define BI_PROFILE_UPDATE_FINALCALL() |
69 #define BI_PROFILE_UPDATE_VIRTUALCALL(receiver) |
54 #define BI_PROFILE_UPDATE_VIRTUALCALL(receiver) |
70 #define BI_PROFILE_UPDATE_SWITCH(switch_index) |
55 #define BI_PROFILE_UPDATE_SWITCH(switch_index) |
71 |
56 |
72 |
|
73 #else |
|
74 |
|
75 |
|
76 // Non-dummy implementations /////////////////////////////////////////////////// |
|
77 |
|
78 // Accessors for the current method data pointer 'mdx'. |
|
79 #define MDX() (istate->mdx()) |
|
80 #define SET_MDX(mdx) \ |
|
81 if (TraceProfileInterpreter) { \ |
|
82 /* Let it look like TraceBytecodes' format. */ \ |
|
83 tty->print_cr("[%d] %4d " \ |
|
84 "mdx " PTR_FORMAT "(%d)" \ |
|
85 " " \ |
|
86 " \t-> " PTR_FORMAT "(%d)", \ |
|
87 (int) THREAD->osthread()->thread_id(), \ |
|
88 BCI(), \ |
|
89 p2i(MDX()), \ |
|
90 (MDX() == NULL \ |
|
91 ? 0 \ |
|
92 : istate->method()->method_data()->dp_to_di((address)MDX())), \ |
|
93 p2i(mdx), \ |
|
94 istate->method()->method_data()->dp_to_di((address)mdx) \ |
|
95 ); \ |
|
96 }; \ |
|
97 istate->set_mdx(mdx); |
|
98 |
|
99 |
|
100 // Dumps the profiling method data for the current method. |
|
101 #ifdef PRODUCT |
|
102 #define BI_PROFILE_PRINT_METHOD_DATA() |
|
103 #else // PRODUCT |
|
104 #define BI_PROFILE_PRINT_METHOD_DATA() \ |
|
105 { \ |
|
106 ttyLocker ttyl; \ |
|
107 MethodData *md = istate->method()->method_data(); \ |
|
108 tty->cr(); \ |
|
109 tty->print("method data at mdx " PTR_FORMAT "(0) for", \ |
|
110 p2i(md->data_layout_at(md->bci_to_di(0)))); \ |
|
111 istate->method()->print_short_name(tty); \ |
|
112 tty->cr(); \ |
|
113 if (md != NULL) { \ |
|
114 md->print_data_on(tty); \ |
|
115 address mdx = (address) MDX(); \ |
|
116 if (mdx != NULL) { \ |
|
117 tty->print_cr("current mdx " PTR_FORMAT "(%d)", \ |
|
118 p2i(mdx), \ |
|
119 istate->method()->method_data()->dp_to_di(mdx)); \ |
|
120 } \ |
|
121 } else { \ |
|
122 tty->print_cr("no method data"); \ |
|
123 } \ |
|
124 } |
|
125 #endif // PRODUCT |
|
126 |
|
127 |
|
128 // Gets or creates the profiling method data and initializes mdx. |
|
129 #define BI_PROFILE_GET_OR_CREATE_METHOD_DATA(exception_handler) \ |
|
130 if (ProfileInterpreter && MDX() == NULL) { \ |
|
131 /* Mdx is not yet initialized for this activation. */ \ |
|
132 MethodData *md = istate->method()->method_data(); \ |
|
133 if (md == NULL) { \ |
|
134 MethodCounters* mcs; \ |
|
135 GET_METHOD_COUNTERS(mcs); \ |
|
136 /* The profiling method data doesn't exist for this method, */ \ |
|
137 /* create it if the counters have overflowed. */ \ |
|
138 if (mcs->invocation_counter() \ |
|
139 ->reached_ProfileLimit(mcs->backedge_counter())) { \ |
|
140 /* Must use CALL_VM, because an async exception may be pending. */ \ |
|
141 CALL_VM((InterpreterRuntime::profile_method(THREAD)), \ |
|
142 exception_handler); \ |
|
143 md = istate->method()->method_data(); \ |
|
144 if (md != NULL) { \ |
|
145 if (TraceProfileInterpreter) { \ |
|
146 BI_PROFILE_PRINT_METHOD_DATA(); \ |
|
147 } \ |
|
148 Method *m = istate->method(); \ |
|
149 int bci = m->bci_from(pc); \ |
|
150 jint di = md->bci_to_di(bci); \ |
|
151 SET_MDX(md->data_layout_at(di)); \ |
|
152 } \ |
|
153 } \ |
|
154 } else { \ |
|
155 /* The profiling method data exists, align the method data pointer */ \ |
|
156 /* mdx to the current bytecode index. */ \ |
|
157 if (TraceProfileInterpreter) { \ |
|
158 BI_PROFILE_PRINT_METHOD_DATA(); \ |
|
159 } \ |
|
160 SET_MDX(md->data_layout_at(md->bci_to_di(BCI()))); \ |
|
161 } \ |
|
162 } |
|
163 |
|
164 |
|
165 // Asserts that the current method data pointer mdx corresponds |
|
166 // to the current bytecode. |
|
167 #if defined(CC_INTERP_PROFILE_WITH_ASSERTIONS) |
|
168 #define BI_PROFILE_CHECK_MDX() \ |
|
169 { \ |
|
170 MethodData *md = istate->method()->method_data(); \ |
|
171 address mdx = (address) MDX(); \ |
|
172 address mdx2 = (address) md->data_layout_at(md->bci_to_di(BCI())); \ |
|
173 guarantee(md != NULL, "1"); \ |
|
174 guarantee(mdx != NULL, "2"); \ |
|
175 guarantee(mdx2 != NULL, "3"); \ |
|
176 if (mdx != mdx2) { \ |
|
177 BI_PROFILE_PRINT_METHOD_DATA(); \ |
|
178 fatal3("invalid mdx at bci %d:" \ |
|
179 " was " PTR_FORMAT \ |
|
180 " but expected " PTR_FORMAT, \ |
|
181 BCI(), \ |
|
182 mdx, \ |
|
183 mdx2); \ |
|
184 } \ |
|
185 } |
|
186 #else |
|
187 #define BI_PROFILE_CHECK_MDX() |
|
188 #endif |
|
189 |
|
190 |
|
191 // Aligns the method data pointer mdx to the current bytecode index. |
|
192 #define BI_PROFILE_ALIGN_TO_CURRENT_BCI() \ |
|
193 if (ProfileInterpreter && MDX() != NULL) { \ |
|
194 MethodData *md = istate->method()->method_data(); \ |
|
195 SET_MDX(md->data_layout_at(md->bci_to_di(BCI()))); \ |
|
196 } |
|
197 |
|
198 |
|
199 // Updates profiling data for a jump. |
|
200 #define BI_PROFILE_UPDATE_JUMP() \ |
|
201 if (ProfileInterpreter && MDX() != NULL) { \ |
|
202 BI_PROFILE_CHECK_MDX(); \ |
|
203 JumpData::increment_taken_count_no_overflow(MDX()); \ |
|
204 /* Remember last branch taken count. */ \ |
|
205 mdo_last_branch_taken_count = JumpData::taken_count(MDX()); \ |
|
206 SET_MDX(JumpData::advance_taken(MDX())); \ |
|
207 } |
|
208 |
|
209 |
|
210 // Updates profiling data for a taken/not taken branch. |
|
211 #define BI_PROFILE_UPDATE_BRANCH(is_taken) \ |
|
212 if (ProfileInterpreter && MDX() != NULL) { \ |
|
213 BI_PROFILE_CHECK_MDX(); \ |
|
214 if (is_taken) { \ |
|
215 BranchData::increment_taken_count_no_overflow(MDX()); \ |
|
216 /* Remember last branch taken count. */ \ |
|
217 mdo_last_branch_taken_count = BranchData::taken_count(MDX()); \ |
|
218 SET_MDX(BranchData::advance_taken(MDX())); \ |
|
219 } else { \ |
|
220 BranchData::increment_not_taken_count_no_overflow(MDX()); \ |
|
221 SET_MDX(BranchData::advance_not_taken(MDX())); \ |
|
222 } \ |
|
223 } |
|
224 |
|
225 |
|
226 // Updates profiling data for a ret with given bci. |
|
227 #define BI_PROFILE_UPDATE_RET(bci) \ |
|
228 if (ProfileInterpreter && MDX() != NULL) { \ |
|
229 BI_PROFILE_CHECK_MDX(); \ |
|
230 MethodData *md = istate->method()->method_data(); \ |
|
231 /* FIXME: there is more to do here than increment and advance(mdx)! */ \ |
|
232 CounterData::increment_count_no_overflow(MDX()); \ |
|
233 SET_MDX(RetData::advance(md, bci)); \ |
|
234 } |
|
235 |
|
236 // Decrement counter at checkcast if the subtype check fails (as template |
|
237 // interpreter does!). |
|
238 #define BI_PROFILE_SUBTYPECHECK_FAILED(receiver) \ |
|
239 if (ProfileInterpreter && MDX() != NULL) { \ |
|
240 BI_PROFILE_CHECK_MDX(); \ |
|
241 ReceiverTypeData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
|
242 ReceiverTypeData::decrement_count(MDX()); \ |
|
243 } |
|
244 |
|
245 // Updates profiling data for a checkcast (was a null seen? which receiver?). |
|
246 #define BI_PROFILE_UPDATE_CHECKCAST(null_seen, receiver) \ |
|
247 if (ProfileInterpreter && MDX() != NULL) { \ |
|
248 BI_PROFILE_CHECK_MDX(); \ |
|
249 if (null_seen) { \ |
|
250 ReceiverTypeData::set_null_seen(MDX()); \ |
|
251 } else { \ |
|
252 /* Template interpreter doesn't increment count. */ \ |
|
253 /* ReceiverTypeData::increment_count_no_overflow(MDX()); */ \ |
|
254 ReceiverTypeData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
|
255 } \ |
|
256 SET_MDX(ReceiverTypeData::advance(MDX())); \ |
|
257 } |
|
258 |
|
259 |
|
260 // Updates profiling data for an instanceof (was a null seen? which receiver?). |
|
261 #define BI_PROFILE_UPDATE_INSTANCEOF(null_seen, receiver) \ |
|
262 BI_PROFILE_UPDATE_CHECKCAST(null_seen, receiver) |
|
263 |
|
264 |
|
265 // Updates profiling data for a call. |
|
266 #define BI_PROFILE_UPDATE_CALL() \ |
|
267 if (ProfileInterpreter && MDX() != NULL) { \ |
|
268 BI_PROFILE_CHECK_MDX(); \ |
|
269 CounterData::increment_count_no_overflow(MDX()); \ |
|
270 SET_MDX(CounterData::advance(MDX())); \ |
|
271 } |
|
272 |
|
273 |
|
274 // Updates profiling data for a final call. |
|
275 #define BI_PROFILE_UPDATE_FINALCALL() \ |
|
276 if (ProfileInterpreter && MDX() != NULL) { \ |
|
277 BI_PROFILE_CHECK_MDX(); \ |
|
278 VirtualCallData::increment_count_no_overflow(MDX()); \ |
|
279 SET_MDX(VirtualCallData::advance(MDX())); \ |
|
280 } |
|
281 |
|
282 |
|
283 // Updates profiling data for a virtual call with given receiver Klass. |
|
284 #define BI_PROFILE_UPDATE_VIRTUALCALL(receiver) \ |
|
285 if (ProfileInterpreter && MDX() != NULL) { \ |
|
286 BI_PROFILE_CHECK_MDX(); \ |
|
287 VirtualCallData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
|
288 SET_MDX(VirtualCallData::advance(MDX())); \ |
|
289 } |
|
290 |
|
291 |
|
292 // Updates profiling data for a switch (tabelswitch or lookupswitch) with |
|
293 // given taken index (-1 means default case was taken). |
|
294 #define BI_PROFILE_UPDATE_SWITCH(switch_index) \ |
|
295 if (ProfileInterpreter && MDX() != NULL) { \ |
|
296 BI_PROFILE_CHECK_MDX(); \ |
|
297 MultiBranchData::increment_count_no_overflow(MDX(), switch_index); \ |
|
298 SET_MDX(MultiBranchData::advance(MDX(), switch_index)); \ |
|
299 } |
|
300 |
|
301 |
|
302 // The end ///////////////////////////////////////////////////////////////////// |
|
303 |
|
304 #endif // CC_INTERP_PROFILE |
|
305 |
|
306 #endif // CC_INTERP |
57 #endif // CC_INTERP |
307 |
58 |
308 #endif // SHARE_VM_INTERPRETER_BYTECODECINTERPRETERPROFILING_HPP |
59 #endif // SHARE_VM_INTERPRETER_BYTECODECINTERPRETERPROFILING_HPP |