1 /*
2 * Copyright (c) 1998, 2014, 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 "precompiled.hpp"
26 #include "compiler/compileTask.hpp"
27 #include "compiler/compileLog.hpp"
28 #include "compiler/compileBroker.hpp"
29
30 CompileTask* CompileTask::_task_free_list = NULL;
31 #ifdef ASSERT
32 int CompileTask::_num_allocated_tasks = 0;
33 #endif
34
35 /**
36 * Allocate a CompileTask, from the free list if possible.
37 */
38 CompileTask* CompileTask::allocate() {
39 MutexLocker locker(CompileTaskAlloc_lock);
40 CompileTask* task = NULL;
41
42 if (_task_free_list != NULL) {
43 task = _task_free_list;
44 _task_free_list = task->next();
45 task->set_next(NULL);
46 } else {
47 task = new CompileTask();
48 DEBUG_ONLY(_num_allocated_tasks++;)
49 assert (WhiteBoxAPI || _num_allocated_tasks < 10000, "Leaking compilation tasks?");
50 task->set_next(NULL);
51 task->set_is_free(true);
52 }
53 assert(task->is_free(), "Task must be free.");
54 task->set_is_free(false);
55 return task;
56 }
57
58 /**
59 * Add a task to the free list.
60 */
61
62 void CompileTask::free(CompileTask* task) {
63 MutexLocker locker(CompileTaskAlloc_lock);
64 if (!task->is_free()) {
65 task->set_code(NULL);
66 assert(!task->lock()->is_locked(), "Should not be locked when freed");
67 JNIHandles::destroy_global(task->_method_holder);
68 JNIHandles::destroy_global(task->_hot_method_holder);
69
70 task->set_is_free(true);
71 task->set_next(_task_free_list);
72 _task_free_list = task;
73 }
74 }
75
76
77 void CompileTask::initialize(int compile_id,
78 methodHandle method,
79 int osr_bci,
80 int comp_level,
81 methodHandle hot_method,
82 int hot_count,
83 const char* comment,
84 bool is_blocking) {
85 assert(!_lock->is_locked(), "bad locking");
86
87 _compile_id = compile_id;
88 _method = method();
89 _method_holder = JNIHandles::make_global(method->method_holder()->klass_holder());
90 _osr_bci = osr_bci;
91 _is_blocking = is_blocking;
92 _comp_level = comp_level;
93 _num_inlined_bytecodes = 0;
94
95 _is_complete = false;
96 _is_success = false;
97 _code_handle = NULL;
98
99 _hot_method = NULL;
100 _hot_method_holder = NULL;
101 _hot_count = hot_count;
102 _time_queued = 0; // tidy
103 _comment = comment;
104 _failure_reason = NULL;
105
106 if (LogCompilation) {
107 _time_queued = os::elapsed_counter();
108 if (hot_method.not_null()) {
109 if (hot_method == method) {
110 _hot_method = _method;
111 } else {
112 _hot_method = hot_method();
113 // only add loader or mirror if different from _method_holder
114 _hot_method_holder = JNIHandles::make_global(hot_method->method_holder()->klass_holder());
115 }
116 }
117 }
118
119 _next = NULL;
120 }
121
122 // ------------------------------------------------------------------
123 // CompileTask::code/set_code
124 //
125 nmethod* CompileTask::code() const {
126 if (_code_handle == NULL) return NULL;
127 return _code_handle->code();
128 }
129
130 void CompileTask::set_code(nmethod* nm) {
131 if (_code_handle == NULL && nm == NULL) return;
132 guarantee(_code_handle != NULL, "");
133 _code_handle->set_code(nm);
134 if (nm == NULL) _code_handle = NULL; // drop the handle also
135 }
136
137 void CompileTask::mark_on_stack() {
138 // Mark these methods as something redefine classes cannot remove.
139 _method->set_on_stack(true);
140 if (_hot_method != NULL) {
141 _hot_method->set_on_stack(true);
142 }
143 }
144
145 // RedefineClasses support
146 void CompileTask::metadata_do(void f(Metadata*)) {
147 f(method());
148 if (hot_method() != NULL && hot_method() != method()) {
149 f(hot_method());
150 }
151 }
152
153 // ------------------------------------------------------------------
154 // CompileTask::print_line_on_error
155 //
156 // This function is called by fatal error handler when the thread
157 // causing troubles is a compiler thread.
158 //
159 // Do not grab any lock, do not allocate memory.
160 //
161 // Otherwise it's the same as CompileTask::print_line()
162 //
163 void CompileTask::print_line_on_error(outputStream* st, char* buf, int buflen) {
164 // print compiler name
165 st->print("%s:", CompileBroker::compiler_name(comp_level()));
166 print(st);
167 }
168
169 // ------------------------------------------------------------------
170 // CompileTask::print_tty
171 void CompileTask::print_tty() {
172 ttyLocker ttyl; // keep the following output all in one block
173 // print compiler name if requested
174 if (CIPrintCompilerName) tty->print("%s:", CompileBroker::compiler_name(comp_level()));
175 print(tty);
176 }
177
178 // ------------------------------------------------------------------
179 // CompileTask::print_impl
180 void CompileTask::print_impl(outputStream* st, Method* method, int compile_id, int comp_level,
181 bool is_osr_method, int osr_bci, bool is_blocking,
182 const char* msg, bool short_form, bool cr) {
183 if (!short_form) {
184 st->print("%7d ", (int) st->time_stamp().milliseconds()); // print timestamp
185 }
186 st->print("%4d ", compile_id); // print compilation number
187
188 // For unloaded methods the transition to zombie occurs after the
189 // method is cleared so it's impossible to report accurate
190 // information for that case.
191 bool is_synchronized = false;
192 bool has_exception_handler = false;
193 bool is_native = false;
194 if (method != NULL) {
195 is_synchronized = method->is_synchronized();
196 has_exception_handler = method->has_exception_handler();
197 is_native = method->is_native();
198 }
199 // method attributes
200 const char compile_type = is_osr_method ? '%' : ' ';
201 const char sync_char = is_synchronized ? 's' : ' ';
202 const char exception_char = has_exception_handler ? '!' : ' ';
203 const char blocking_char = is_blocking ? 'b' : ' ';
204 const char native_char = is_native ? 'n' : ' ';
205
206 // print method attributes
207 st->print("%c%c%c%c%c ", compile_type, sync_char, exception_char, blocking_char, native_char);
208
209 if (TieredCompilation) {
210 if (comp_level != -1) st->print("%d ", comp_level);
211 else st->print("- ");
212 }
213 st->print(" "); // more indent
214
215 if (method == NULL) {
216 st->print("(method)");
217 } else {
218 method->print_short_name(st);
219 if (is_osr_method) {
220 st->print(" @ %d", osr_bci);
221 }
222 if (method->is_native())
223 st->print(" (native)");
224 else
225 st->print(" (%d bytes)", method->code_size());
226 }
227
228 if (msg != NULL) {
229 st->print(" %s", msg);
230 }
231 if (cr) {
232 st->cr();
233 }
234 }
235
236 void CompileTask::print_inline_indent(int inline_level, outputStream* st) {
237 // 1234567
238 st->print(" "); // print timestamp
239 // 1234
240 st->print(" "); // print compilation number
241 // %s!bn
242 st->print(" "); // print method attributes
243 if (TieredCompilation) {
244 st->print(" ");
245 }
246 st->print(" "); // more indent
247 st->print(" "); // initial inlining indent
248 for (int i = 0; i < inline_level; i++) st->print(" ");
249 }
250
251 // ------------------------------------------------------------------
252 // CompileTask::print_compilation
253 void CompileTask::print(outputStream* st, const char* msg, bool short_form, bool cr) {
254 bool is_osr_method = osr_bci() != InvocationEntryBci;
255 print_impl(st, method(), compile_id(), comp_level(), is_osr_method, osr_bci(), is_blocking(), msg, short_form, cr);
256 }
257
258 // ------------------------------------------------------------------
259 // CompileTask::log_task
260 void CompileTask::log_task(xmlStream* log) {
261 Thread* thread = Thread::current();
262 methodHandle method(thread, this->method());
263 ResourceMark rm(thread);
264
265 // <task id='9' method='M' osr_bci='X' level='1' blocking='1' stamp='1.234'>
266 log->print(" compile_id='%d'", _compile_id);
267 if (_osr_bci != CompileBroker::standard_entry_bci) {
268 log->print(" compile_kind='osr'"); // same as nmethod::compile_kind
269 } // else compile_kind='c2c'
270 if (!method.is_null()) log->method(method);
271 if (_osr_bci != CompileBroker::standard_entry_bci) {
272 log->print(" osr_bci='%d'", _osr_bci);
273 }
274 if (_comp_level != CompLevel_highest_tier) {
275 log->print(" level='%d'", _comp_level);
276 }
277 if (_is_blocking) {
278 log->print(" blocking='1'");
279 }
280 log->stamp();
281 }
282
283 // ------------------------------------------------------------------
284 // CompileTask::log_task_queued
285 void CompileTask::log_task_queued() {
286 Thread* thread = Thread::current();
287 ttyLocker ttyl;
288 ResourceMark rm(thread);
289
290 xtty->begin_elem("task_queued");
291 log_task(xtty);
292 if (_comment != NULL) {
293 xtty->print(" comment='%s'", _comment);
294 }
295 if (_hot_method != NULL) {
296 methodHandle hot(thread, _hot_method);
297 methodHandle method(thread, _method);
298 if (hot() != method()) {
299 xtty->method(hot);
300 }
301 }
302 if (_hot_count != 0) {
303 xtty->print(" hot_count='%d'", _hot_count);
304 }
305 xtty->end_elem();
306 }
307
308
309 // ------------------------------------------------------------------
310 // CompileTask::log_task_start
311 void CompileTask::log_task_start(CompileLog* log) {
312 log->begin_head("task");
313 log_task(log);
314 log->end_head();
315 }
316
317
318 // ------------------------------------------------------------------
319 // CompileTask::log_task_done
320 void CompileTask::log_task_done(CompileLog* log) {
321 Thread* thread = Thread::current();
322 methodHandle method(thread, this->method());
323 ResourceMark rm(thread);
324
325 if (!_is_success) {
326 const char* reason = _failure_reason != NULL ? _failure_reason : "unknown";
327 log->elem("failure reason='%s'", reason);
328 }
329
330 // <task_done ... stamp='1.234'> </task>
331 nmethod* nm = code();
332 log->begin_elem("task_done success='%d' nmsize='%d' count='%d'",
333 _is_success, nm == NULL ? 0 : nm->content_size(),
334 method->invocation_count());
335 int bec = method->backedge_count();
336 if (bec != 0) log->print(" backedge_count='%d'", bec);
337 // Note: "_is_complete" is about to be set, but is not.
338 if (_num_inlined_bytecodes != 0) {
339 log->print(" inlined_bytes='%d'", _num_inlined_bytecodes);
340 }
341 log->stamp();
342 log->end_elem();
343 log->clear_identities(); // next task will have different CI
344 log->tail("task");
345 if (log->unflushed_count() > 2000) {
346 log->flush();
347 }
348 log->mark_file_end();
349 }
350
351 // ------------------------------------------------------------------
352 // CompileTask::print_inlining
353 void CompileTask::print_inlining_inner(outputStream* st, ciMethod* method, int inline_level, int bci, const char* msg) {
354 // 1234567
355 st->print(" "); // print timestamp
356 // 1234
357 st->print(" "); // print compilation number
358
359 // method attributes
360 if (method->is_loaded()) {
361 const char sync_char = method->is_synchronized() ? 's' : ' ';
362 const char exception_char = method->has_exception_handlers() ? '!' : ' ';
363 const char monitors_char = method->has_monitor_bytecodes() ? 'm' : ' ';
364
365 // print method attributes
366 st->print(" %c%c%c ", sync_char, exception_char, monitors_char);
367 } else {
368 // %s!bn
369 st->print(" "); // print method attributes
370 }
371
372 if (TieredCompilation) {
373 st->print(" ");
374 }
375 st->print(" "); // more indent
376 st->print(" "); // initial inlining indent
377
378 for (int i = 0; i < inline_level; i++) st->print(" ");
379
380 st->print("@ %d ", bci); // print bci
381 method->print_short_name(st);
382 if (method->is_loaded())
383 st->print(" (%d bytes)", method->code_size());
384 else
385 st->print(" (not loaded)");
386
387 if (msg != NULL) {
388 st->print(" %s", msg);
389 }
390 st->cr();
391 }