1 /*
  2  * Copyright (c) 1999, 2022, 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 "c1/c1_CFGPrinter.hpp"
 27 #include "c1/c1_Compilation.hpp"
 28 #include "c1/c1_IR.hpp"
 29 #include "c1/c1_LIRAssembler.hpp"
 30 #include "c1/c1_LinearScan.hpp"
 31 #include "c1/c1_MacroAssembler.hpp"
 32 #include "c1/c1_RangeCheckElimination.hpp"
 33 #include "c1/c1_ValueMap.hpp"
 34 #include "c1/c1_ValueStack.hpp"
 35 #include "code/debugInfoRec.hpp"
 36 #include "compiler/compileLog.hpp"
 37 #include "compiler/compilerDirectives.hpp"
 38 #include "memory/resourceArea.hpp"
 39 #include "runtime/sharedRuntime.hpp"
 40 #include "runtime/timerTrace.hpp"
 41 
 42 typedef enum {
 43   _t_compile,
 44     _t_setup,
 45     _t_buildIR,
 46       _t_hir_parse,
 47       _t_gvn,
 48       _t_optimize_blocks,
 49       _t_optimize_null_checks,
 50       _t_rangeCheckElimination,
 51     _t_emit_lir,
 52       _t_linearScan,
 53       _t_lirGeneration,
 54     _t_codeemit,
 55     _t_codeinstall,
 56   max_phase_timers
 57 } TimerName;
 58 
 59 static const char * timer_name[] = {
 60   "compile",
 61   "setup",
 62   "buildIR",
 63   "parse_hir",
 64   "gvn",
 65   "optimize_blocks",
 66   "optimize_null_checks",
 67   "rangeCheckElimination",
 68   "emit_lir",
 69   "linearScan",
 70   "lirGeneration",
 71   "codeemit",
 72   "codeinstall"
 73 };
 74 
 75 static elapsedTimer timers[max_phase_timers];
 76 static int totalInstructionNodes = 0;
 77 
 78 class PhaseTraceTime: public TraceTime {
 79  private:
 80   CompileLog* _log;
 81   TimerName _timer;
 82 
 83  public:
 84   PhaseTraceTime(TimerName timer)
 85   : TraceTime("", &timers[timer], CITime || CITimeEach, Verbose),
 86     _log(NULL), _timer(timer)
 87   {
 88     if (Compilation::current() != NULL) {
 89       _log = Compilation::current()->log();
 90     }
 91 
 92     if (_log != NULL) {
 93       _log->begin_head("phase name='%s'", timer_name[_timer]);
 94       _log->stamp();
 95       _log->end_head();
 96     }
 97   }
 98 
 99   ~PhaseTraceTime() {
100     if (_log != NULL)
101       _log->done("phase name='%s'", timer_name[_timer]);
102   }
103 };
104 
105 // Implementation of Compilation
106 
107 
108 #ifndef PRODUCT
109 
110 void Compilation::maybe_print_current_instruction() {
111   if (_current_instruction != NULL && _last_instruction_printed != _current_instruction) {
112     _last_instruction_printed = _current_instruction;
113     _current_instruction->print_line();
114   }
115 }
116 #endif // PRODUCT
117 
118 
119 DebugInformationRecorder* Compilation::debug_info_recorder() const {
120   return _env->debug_info();
121 }
122 
123 
124 Dependencies* Compilation::dependency_recorder() const {
125   return _env->dependencies();
126 }
127 
128 
129 void Compilation::initialize() {
130   // Use an oop recorder bound to the CI environment.
131   // (The default oop recorder is ignorant of the CI.)
132   OopRecorder* ooprec = new OopRecorder(_env->arena());
133   _env->set_oop_recorder(ooprec);
134   _env->set_debug_info(new DebugInformationRecorder(ooprec));
135   debug_info_recorder()->set_oopmaps(new OopMapSet());
136   _env->set_dependencies(new Dependencies(_env));
137 }
138 
139 
140 void Compilation::build_hir() {
141   CHECK_BAILOUT();
142 
143   // setup ir
144   CompileLog* log = this->log();
145   if (log != NULL) {
146     log->begin_head("parse method='%d' ",
147                     log->identify(_method));
148     log->stamp();
149     log->end_head();
150   }
151   {
152     PhaseTraceTime timeit(_t_hir_parse);
153     _hir = new IR(this, method(), osr_bci());
154   }
155   if (log)  log->done("parse");
156   if (!_hir->is_valid()) {
157     bailout("invalid parsing");
158     return;
159   }
160 
161 #ifndef PRODUCT
162   if (PrintCFGToFile) {
163     CFGPrinter::print_cfg(_hir, "After Generation of HIR", true, false);
164   }
165 #endif
166 
167 #ifndef PRODUCT
168   if (PrintCFG || PrintCFG0) { tty->print_cr("CFG after parsing"); _hir->print(true); }
169   if (PrintIR  || PrintIR0 ) { tty->print_cr("IR after parsing"); _hir->print(false); }
170 #endif
171 
172   _hir->verify();
173 
174   if (UseC1Optimizations) {
175     NEEDS_CLEANUP
176     // optimization
177     PhaseTraceTime timeit(_t_optimize_blocks);
178 
179     _hir->optimize_blocks();
180   }
181 
182   _hir->verify();
183 
184   _hir->split_critical_edges();
185 
186 #ifndef PRODUCT
187   if (PrintCFG || PrintCFG1) { tty->print_cr("CFG after optimizations"); _hir->print(true); }
188   if (PrintIR  || PrintIR1 ) { tty->print_cr("IR after optimizations"); _hir->print(false); }
189 #endif
190 
191   _hir->verify();
192 
193   // compute block ordering for code generation
194   // the control flow must not be changed from here on
195   _hir->compute_code();
196 
197   if (UseGlobalValueNumbering) {
198     // No resource mark here! LoopInvariantCodeMotion can allocate ValueStack objects.
199     PhaseTraceTime timeit(_t_gvn);
200     int instructions = Instruction::number_of_instructions();
201     GlobalValueNumbering gvn(_hir);
202     assert(instructions == Instruction::number_of_instructions(),
203            "shouldn't have created an instructions");
204   }
205 
206   _hir->verify();
207 
208 #ifndef PRODUCT
209   if (PrintCFGToFile) {
210     CFGPrinter::print_cfg(_hir, "Before RangeCheckElimination", true, false);
211   }
212 #endif
213 
214   if (RangeCheckElimination) {
215     if (_hir->osr_entry() == NULL) {
216       PhaseTraceTime timeit(_t_rangeCheckElimination);
217       RangeCheckElimination::eliminate(_hir);
218     }
219   }
220 
221 #ifndef PRODUCT
222   if (PrintCFGToFile) {
223     CFGPrinter::print_cfg(_hir, "After RangeCheckElimination", true, false);
224   }
225 #endif
226 
227   if (UseC1Optimizations) {
228     // loop invariant code motion reorders instructions and range
229     // check elimination adds new instructions so do null check
230     // elimination after.
231     NEEDS_CLEANUP
232     // optimization
233     PhaseTraceTime timeit(_t_optimize_null_checks);
234 
235     _hir->eliminate_null_checks();
236   }
237 
238   _hir->verify();
239 
240   // compute use counts after global value numbering
241   _hir->compute_use_counts();
242 
243 #ifndef PRODUCT
244   if (PrintCFG || PrintCFG2) { tty->print_cr("CFG before code generation"); _hir->code()->print(true); }
245   if (PrintIR  || PrintIR2 ) { tty->print_cr("IR before code generation"); _hir->code()->print(false, true); }
246 #endif
247 
248   _hir->verify();
249 }
250 
251 
252 void Compilation::emit_lir() {
253   CHECK_BAILOUT();
254 
255   LIRGenerator gen(this, method());
256   {
257     PhaseTraceTime timeit(_t_lirGeneration);
258     hir()->iterate_linear_scan_order(&gen);
259   }
260 
261   CHECK_BAILOUT();
262 
263   {
264     PhaseTraceTime timeit(_t_linearScan);
265 
266     LinearScan* allocator = new LinearScan(hir(), &gen, frame_map());
267     set_allocator(allocator);
268     // Assign physical registers to LIR operands using a linear scan algorithm.
269     allocator->do_linear_scan();
270     CHECK_BAILOUT();
271 
272     _max_spills = allocator->max_spills();
273   }
274 
275   if (BailoutAfterLIR) {
276     if (PrintLIR && !bailed_out()) {
277       print_LIR(hir()->code());
278     }
279     bailout("Bailing out because of -XX:+BailoutAfterLIR");
280   }
281 }
282 
283 
284 void Compilation::emit_code_epilog(LIR_Assembler* assembler) {
285   CHECK_BAILOUT();
286 
287   CodeOffsets* code_offsets = assembler->offsets();
288 
289   // generate code or slow cases
290   assembler->emit_slow_case_stubs();
291   CHECK_BAILOUT();
292 
293   // generate exception adapters
294   assembler->emit_exception_entries(exception_info_list());
295   CHECK_BAILOUT();
296 
297   // Generate code for exception handler.
298   code_offsets->set_value(CodeOffsets::Exceptions, assembler->emit_exception_handler());
299   CHECK_BAILOUT();
300 
301   // Generate code for deopt handler.
302   code_offsets->set_value(CodeOffsets::Deopt, assembler->emit_deopt_handler());
303   CHECK_BAILOUT();
304 
305   // Emit the MethodHandle deopt handler code (if required).
306   if (has_method_handle_invokes()) {
307     // We can use the same code as for the normal deopt handler, we
308     // just need a different entry point address.
309     code_offsets->set_value(CodeOffsets::DeoptMH, assembler->emit_deopt_handler());
310     CHECK_BAILOUT();
311   }
312 
313   // Emit the handler to remove the activation from the stack and
314   // dispatch to the caller.
315   offsets()->set_value(CodeOffsets::UnwindHandler, assembler->emit_unwind_handler());
316 
317   // done
318   masm()->flush();
319 }
320 
321 
322 bool Compilation::setup_code_buffer(CodeBuffer* code, int call_stub_estimate) {
323   // Preinitialize the consts section to some large size:
324   int locs_buffer_size = 20 * (relocInfo::length_limit + sizeof(relocInfo));
325   char* locs_buffer = NEW_RESOURCE_ARRAY(char, locs_buffer_size);
326   code->insts()->initialize_shared_locs((relocInfo*)locs_buffer,
327                                         locs_buffer_size / sizeof(relocInfo));
328   code->initialize_consts_size(Compilation::desired_max_constant_size());
329   // Call stubs + two deopt handlers (regular and MH) + exception handler
330   int stub_size = (call_stub_estimate * LIR_Assembler::call_stub_size()) +
331                    LIR_Assembler::exception_handler_size() +
332                    (2 * LIR_Assembler::deopt_handler_size());
333   if (stub_size >= code->insts_capacity()) return false;
334   code->initialize_stubs_size(stub_size);
335   return true;
336 }
337 
338 
339 int Compilation::emit_code_body() {
340   // emit code
341   if (!setup_code_buffer(code(), allocator()->num_calls())) {
342     BAILOUT_("size requested greater than avail code buffer size", 0);
343   }
344   code()->initialize_oop_recorder(env()->oop_recorder());
345 
346   _masm = new C1_MacroAssembler(code());
347   _masm->set_oop_recorder(env()->oop_recorder());
348 
349   LIR_Assembler lir_asm(this);
350 
351   lir_asm.emit_code(hir()->code());
352   CHECK_BAILOUT_(0);
353 
354   emit_code_epilog(&lir_asm);
355   CHECK_BAILOUT_(0);
356 
357   generate_exception_handler_table();
358 
359 #ifndef PRODUCT
360   if (PrintExceptionHandlers && Verbose) {
361     exception_handler_table()->print();
362   }
363 #endif /* PRODUCT */
364 
365   return frame_map()->framesize();
366 }
367 
368 
369 int Compilation::compile_java_method() {
370   assert(!method()->is_native(), "should not reach here");
371 
372   if (BailoutOnExceptionHandlers) {
373     if (method()->has_exception_handlers()) {
374       bailout("linear scan can't handle exception handlers");
375     }
376   }
377 
378   CHECK_BAILOUT_(no_frame_size);
379 
380   if (is_profiling() && !method()->ensure_method_data()) {
381     BAILOUT_("mdo allocation failed", no_frame_size);
382   }
383 
384   {
385     PhaseTraceTime timeit(_t_buildIR);
386     build_hir();
387   }
388   if (BailoutAfterHIR) {
389     BAILOUT_("Bailing out because of -XX:+BailoutAfterHIR", no_frame_size);
390   }
391 
392 
393   {
394     PhaseTraceTime timeit(_t_emit_lir);
395 
396     _frame_map = new FrameMap(method(), hir()->number_of_locks(), MAX2(4, hir()->max_stack()));
397     emit_lir();
398   }
399   CHECK_BAILOUT_(no_frame_size);
400 
401   // Dump compilation data to replay it.
402   if (_directive->DumpReplayOption) {
403     env()->dump_replay_data(env()->compile_id());
404   }
405 
406   {
407     PhaseTraceTime timeit(_t_codeemit);
408     return emit_code_body();
409   }
410 }
411 
412 void Compilation::install_code(int frame_size) {
413   // frame_size is in 32-bit words so adjust it intptr_t words
414   assert(frame_size == frame_map()->framesize(), "must match");
415   assert(in_bytes(frame_map()->framesize_in_bytes()) % sizeof(intptr_t) == 0, "must be at least pointer aligned");
416   _env->register_method(
417     method(),
418     osr_bci(),
419     &_offsets,
420     in_bytes(_frame_map->sp_offset_for_orig_pc()),
421     code(),
422     in_bytes(frame_map()->framesize_in_bytes()) / sizeof(intptr_t),
423     debug_info_recorder()->_oopmaps,
424     exception_handler_table(),
425     implicit_exception_table(),
426     compiler(),
427     has_unsafe_access(),
428     SharedRuntime::is_wide_vector(max_vector_size())
429   );
430 }
431 
432 
433 void Compilation::compile_method() {
434   {
435     PhaseTraceTime timeit(_t_setup);
436 
437     // setup compilation
438     initialize();
439   }
440 
441   if (!method()->can_be_compiled()) {
442     // Prevent race condition 6328518.
443     // This can happen if the method is obsolete or breakpointed.
444     bailout("Bailing out because method is not compilable");
445     return;
446   }
447 
448   if (_env->jvmti_can_hotswap_or_post_breakpoint()) {
449     // We can assert evol_method because method->can_be_compiled is true.
450     dependency_recorder()->assert_evol_method(method());
451   }
452 
453   if (env()->break_at_compile()) {
454     BREAKPOINT;
455   }
456 
457 #ifndef PRODUCT
458   if (PrintCFGToFile) {
459     CFGPrinter::print_compilation(this);
460   }
461 #endif
462 
463   // compile method
464   int frame_size = compile_java_method();
465 
466   // bailout if method couldn't be compiled
467   // Note: make sure we mark the method as not compilable!
468   CHECK_BAILOUT();
469 
470   if (should_install_code()) {
471     // install code
472     PhaseTraceTime timeit(_t_codeinstall);
473     install_code(frame_size);
474   }
475 
476   if (log() != NULL) // Print code cache state into compiler log
477     log()->code_cache_state();
478 
479   totalInstructionNodes += Instruction::number_of_instructions();
480 }
481 
482 
483 void Compilation::generate_exception_handler_table() {
484   // Generate an ExceptionHandlerTable from the exception handler
485   // information accumulated during the compilation.
486   ExceptionInfoList* info_list = exception_info_list();
487 
488   if (info_list->length() == 0) {
489     return;
490   }
491 
492   // allocate some arrays for use by the collection code.
493   const int num_handlers = 5;
494   GrowableArray<intptr_t>* bcis = new GrowableArray<intptr_t>(num_handlers);
495   GrowableArray<intptr_t>* scope_depths = new GrowableArray<intptr_t>(num_handlers);
496   GrowableArray<intptr_t>* pcos = new GrowableArray<intptr_t>(num_handlers);
497 
498   for (int i = 0; i < info_list->length(); i++) {
499     ExceptionInfo* info = info_list->at(i);
500     XHandlers* handlers = info->exception_handlers();
501 
502     // empty the arrays
503     bcis->trunc_to(0);
504     scope_depths->trunc_to(0);
505     pcos->trunc_to(0);
506 
507     int prev_scope = 0;
508     for (int i = 0; i < handlers->length(); i++) {
509       XHandler* handler = handlers->handler_at(i);
510       assert(handler->entry_pco() != -1, "must have been generated");
511       assert(handler->scope_count() >= prev_scope, "handlers should be sorted by scope");
512 
513       if (handler->scope_count() == prev_scope) {
514         int e = bcis->find_from_end(handler->handler_bci());
515         if (e >= 0 && scope_depths->at(e) == handler->scope_count()) {
516           // two different handlers are declared to dispatch to the same
517           // catch bci.  During parsing we created edges for each
518           // handler but we really only need one.  The exception handler
519           // table will also get unhappy if we try to declare both since
520           // it's nonsensical.  Just skip this handler.
521           continue;
522         }
523       }
524 
525       bcis->append(handler->handler_bci());
526       if (handler->handler_bci() == -1) {
527         // insert a wildcard handler at scope depth 0 so that the
528         // exception lookup logic with find it.
529         scope_depths->append(0);
530       } else {
531         scope_depths->append(handler->scope_count());
532       }
533       pcos->append(handler->entry_pco());
534 
535       // stop processing once we hit a catch any
536       if (handler->is_catch_all()) {
537         assert(i == handlers->length() - 1, "catch all must be last handler");
538       }
539       prev_scope = handler->scope_count();
540     }
541     exception_handler_table()->add_subtable(info->pco(), bcis, scope_depths, pcos);
542   }
543 }
544 
545 Compilation::Compilation(AbstractCompiler* compiler, ciEnv* env, ciMethod* method,
546                          int osr_bci, BufferBlob* buffer_blob, bool install_code, DirectiveSet* directive)
547 : _next_id(0)
548 , _next_block_id(0)
549 , _compiler(compiler)
550 , _directive(directive)
551 , _env(env)
552 , _log(env->log())
553 , _method(method)
554 , _osr_bci(osr_bci)
555 , _hir(NULL)
556 , _max_spills(-1)
557 , _frame_map(NULL)
558 , _masm(NULL)
559 , _has_exception_handlers(false)
560 , _has_fpu_code(true)   // pessimistic assumption
561 , _has_unsafe_access(false)
562 , _has_irreducible_loops(false)
563 , _would_profile(false)
564 , _has_method_handle_invokes(false)
565 , _has_reserved_stack_access(method->has_reserved_stack_access())
566 , _install_code(install_code)
567 , _bailout_msg(NULL)
568 , _exception_info_list(NULL)
569 , _allocator(NULL)
570 , _code(buffer_blob)
571 , _has_access_indexed(false)
572 , _interpreter_frame_size(0)
573 , _compiled_entry_signature(method->get_Method())
574 , _current_instruction(NULL)
575 #ifndef PRODUCT
576 , _last_instruction_printed(NULL)
577 , _cfg_printer_output(NULL)
578 #endif // PRODUCT
579 {
580   PhaseTraceTime timeit(_t_compile);
581   _arena = Thread::current()->resource_area();
582   _env->set_compiler_data(this);
583   _exception_info_list = new ExceptionInfoList();
584   _implicit_exception_table.set_size(0);
585 #ifndef PRODUCT
586   if (PrintCFGToFile) {
587     _cfg_printer_output = new CFGPrinterOutput(this);
588   }
589 #endif
590   {
591     ResetNoHandleMark rnhm; // Huh? Required when doing class lookup of the Q-types
592     _compiled_entry_signature.compute_calling_conventions(false);
593   }
594   compile_method();
595   if (bailed_out()) {
596     _env->record_method_not_compilable(bailout_msg());
597     if (is_profiling()) {
598       // Compilation failed, create MDO, which would signal the interpreter
599       // to start profiling on its own.
600       _method->ensure_method_data();
601     }
602   } else if (is_profiling()) {
603     ciMethodData *md = method->method_data_or_null();
604     if (md != NULL) {
605       md->set_would_profile(_would_profile);
606     }
607   }
608 }
609 
610 Compilation::~Compilation() {
611   // simulate crash during compilation
612   assert(CICrashAt < 0 || (uintx)_env->compile_id() != (uintx)CICrashAt, "just as planned");
613 
614   _env->set_compiler_data(NULL);
615 }
616 
617 void Compilation::add_exception_handlers_for_pco(int pco, XHandlers* exception_handlers) {
618 #ifndef PRODUCT
619   if (PrintExceptionHandlers && Verbose) {
620     tty->print_cr("  added exception scope for pco %d", pco);
621   }
622 #endif
623   // Note: we do not have program counters for these exception handlers yet
624   exception_info_list()->push(new ExceptionInfo(pco, exception_handlers));
625 }
626 
627 
628 void Compilation::notice_inlined_method(ciMethod* method) {
629   _env->notice_inlined_method(method);
630 }
631 
632 
633 void Compilation::bailout(const char* msg) {
634   assert(msg != NULL, "bailout message must exist");
635   if (!bailed_out()) {
636     // keep first bailout message
637     if (PrintCompilation || PrintBailouts) tty->print_cr("compilation bailout: %s", msg);
638     _bailout_msg = msg;
639   }
640 }
641 
642 ciKlass* Compilation::cha_exact_type(ciType* type) {
643   if (type != NULL && type->is_loaded() && type->is_instance_klass()) {
644     ciInstanceKlass* ik = type->as_instance_klass();
645     assert(ik->exact_klass() == NULL, "no cha for final klass");
646     if (DeoptC1 && UseCHA && !(ik->has_subklass() || ik->is_interface())) {
647       dependency_recorder()->assert_leaf_type(ik);
648       return ik;
649     }
650   }
651   return NULL;
652 }
653 
654 void Compilation::print_timers() {
655   tty->print_cr("    C1 Compile Time:      %7.3f s",      timers[_t_compile].seconds());
656   tty->print_cr("       Setup time:          %7.3f s",    timers[_t_setup].seconds());
657 
658   {
659     tty->print_cr("       Build HIR:           %7.3f s",    timers[_t_buildIR].seconds());
660     tty->print_cr("         Parse:               %7.3f s", timers[_t_hir_parse].seconds());
661     tty->print_cr("         Optimize blocks:     %7.3f s", timers[_t_optimize_blocks].seconds());
662     tty->print_cr("         GVN:                 %7.3f s", timers[_t_gvn].seconds());
663     tty->print_cr("         Null checks elim:    %7.3f s", timers[_t_optimize_null_checks].seconds());
664     tty->print_cr("         Range checks elim:   %7.3f s", timers[_t_rangeCheckElimination].seconds());
665 
666     double other = timers[_t_buildIR].seconds() -
667       (timers[_t_hir_parse].seconds() +
668        timers[_t_optimize_blocks].seconds() +
669        timers[_t_gvn].seconds() +
670        timers[_t_optimize_null_checks].seconds() +
671        timers[_t_rangeCheckElimination].seconds());
672     if (other > 0) {
673       tty->print_cr("         Other:               %7.3f s", other);
674     }
675   }
676 
677   {
678     tty->print_cr("       Emit LIR:            %7.3f s",    timers[_t_emit_lir].seconds());
679     tty->print_cr("         LIR Gen:             %7.3f s",   timers[_t_lirGeneration].seconds());
680     tty->print_cr("         Linear Scan:         %7.3f s",   timers[_t_linearScan].seconds());
681     NOT_PRODUCT(LinearScan::print_timers(timers[_t_linearScan].seconds()));
682 
683     double other = timers[_t_emit_lir].seconds() -
684       (timers[_t_lirGeneration].seconds() +
685        timers[_t_linearScan].seconds());
686     if (other > 0) {
687       tty->print_cr("         Other:               %7.3f s", other);
688     }
689   }
690 
691   tty->print_cr("       Code Emission:       %7.3f s",    timers[_t_codeemit].seconds());
692   tty->print_cr("       Code Installation:   %7.3f s",    timers[_t_codeinstall].seconds());
693 
694   double other = timers[_t_compile].seconds() -
695       (timers[_t_setup].seconds() +
696        timers[_t_buildIR].seconds() +
697        timers[_t_emit_lir].seconds() +
698        timers[_t_codeemit].seconds() +
699        timers[_t_codeinstall].seconds());
700   if (other > 0) {
701     tty->print_cr("       Other:               %7.3f s", other);
702   }
703 
704   NOT_PRODUCT(LinearScan::print_statistics());
705 }
706 
707 
708 #ifndef PRODUCT
709 void Compilation::compile_only_this_method() {
710   ResourceMark rm;
711   fileStream stream(os::fopen("c1_compile_only", "wt"));
712   stream.print_cr("# c1 compile only directives");
713   compile_only_this_scope(&stream, hir()->top_scope());
714 }
715 
716 void Compilation::compile_only_this_scope(outputStream* st, IRScope* scope) {
717   st->print("CompileOnly=");
718   scope->method()->holder()->name()->print_symbol_on(st);
719   st->print(".");
720   scope->method()->name()->print_symbol_on(st);
721   st->cr();
722 }
723 
724 void Compilation::exclude_this_method() {
725   fileStream stream(os::fopen(".hotspot_compiler", "at"));
726   stream.print("exclude ");
727   method()->holder()->name()->print_symbol_on(&stream);
728   stream.print(" ");
729   method()->name()->print_symbol_on(&stream);
730   stream.cr();
731   stream.cr();
732 }
733 
734 // Called from debugger to get the interval with 'reg_num' during register allocation.
735 Interval* find_interval(int reg_num) {
736   return Compilation::current()->allocator()->find_interval_at(reg_num);
737 }
738 
739 #endif // NOT PRODUCT