annotate src/share/vm/runtime/compilationPolicy.cpp @ 1821:df015ec64052

6987115: Non-tiered compilation policy creates unnecessary C1 threads Summary: Fixed NonTieredCompPolicy::compiler_count() to return correct thread count. Reviewed-by: twisti, kvn
author iveresov
date Mon, 27 Sep 2010 15:04:40 -0700
parents d5d065957597
children f95d63e2154a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
a61af66fc99e Initial load
duke
parents:
diff changeset
1 /*
1552
c18cbe5936b8 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 1202
diff changeset
2 * Copyright (c) 2000, 2010, Oracle and/or its affiliates. All rights reserved.
0
a61af66fc99e Initial load
duke
parents:
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
a61af66fc99e Initial load
duke
parents:
diff changeset
4 *
a61af66fc99e Initial load
duke
parents:
diff changeset
5 * This code is free software; you can redistribute it and/or modify it
a61af66fc99e Initial load
duke
parents:
diff changeset
6 * under the terms of the GNU General Public License version 2 only, as
a61af66fc99e Initial load
duke
parents:
diff changeset
7 * published by the Free Software Foundation.
a61af66fc99e Initial load
duke
parents:
diff changeset
8 *
a61af66fc99e Initial load
duke
parents:
diff changeset
9 * This code is distributed in the hope that it will be useful, but WITHOUT
a61af66fc99e Initial load
duke
parents:
diff changeset
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
a61af66fc99e Initial load
duke
parents:
diff changeset
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
a61af66fc99e Initial load
duke
parents:
diff changeset
12 * version 2 for more details (a copy is included in the LICENSE file that
a61af66fc99e Initial load
duke
parents:
diff changeset
13 * accompanied this code).
a61af66fc99e Initial load
duke
parents:
diff changeset
14 *
a61af66fc99e Initial load
duke
parents:
diff changeset
15 * You should have received a copy of the GNU General Public License version
a61af66fc99e Initial load
duke
parents:
diff changeset
16 * 2 along with this work; if not, write to the Free Software Foundation,
a61af66fc99e Initial load
duke
parents:
diff changeset
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
a61af66fc99e Initial load
duke
parents:
diff changeset
18 *
1552
c18cbe5936b8 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 1202
diff changeset
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
c18cbe5936b8 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 1202
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: 1202
diff changeset
21 * questions.
0
a61af66fc99e Initial load
duke
parents:
diff changeset
22 *
a61af66fc99e Initial load
duke
parents:
diff changeset
23 */
a61af66fc99e Initial load
duke
parents:
diff changeset
24
a61af66fc99e Initial load
duke
parents:
diff changeset
25 # include "incls/_precompiled.incl"
a61af66fc99e Initial load
duke
parents:
diff changeset
26 # include "incls/_compilationPolicy.cpp.incl"
a61af66fc99e Initial load
duke
parents:
diff changeset
27
a61af66fc99e Initial load
duke
parents:
diff changeset
28 CompilationPolicy* CompilationPolicy::_policy;
a61af66fc99e Initial load
duke
parents:
diff changeset
29 elapsedTimer CompilationPolicy::_accumulated_time;
a61af66fc99e Initial load
duke
parents:
diff changeset
30 bool CompilationPolicy::_in_vm_startup;
a61af66fc99e Initial load
duke
parents:
diff changeset
31
a61af66fc99e Initial load
duke
parents:
diff changeset
32 // Determine compilation policy based on command line argument
a61af66fc99e Initial load
duke
parents:
diff changeset
33 void compilationPolicy_init() {
a61af66fc99e Initial load
duke
parents:
diff changeset
34 CompilationPolicy::set_in_vm_startup(DelayCompilationDuringStartup);
a61af66fc99e Initial load
duke
parents:
diff changeset
35
a61af66fc99e Initial load
duke
parents:
diff changeset
36 switch(CompilationPolicyChoice) {
a61af66fc99e Initial load
duke
parents:
diff changeset
37 case 0:
a61af66fc99e Initial load
duke
parents:
diff changeset
38 CompilationPolicy::set_policy(new SimpleCompPolicy());
a61af66fc99e Initial load
duke
parents:
diff changeset
39 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
40
a61af66fc99e Initial load
duke
parents:
diff changeset
41 case 1:
a61af66fc99e Initial load
duke
parents:
diff changeset
42 #ifdef COMPILER2
a61af66fc99e Initial load
duke
parents:
diff changeset
43 CompilationPolicy::set_policy(new StackWalkCompPolicy());
a61af66fc99e Initial load
duke
parents:
diff changeset
44 #else
a61af66fc99e Initial load
duke
parents:
diff changeset
45 Unimplemented();
a61af66fc99e Initial load
duke
parents:
diff changeset
46 #endif
a61af66fc99e Initial load
duke
parents:
diff changeset
47 break;
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
48 case 2:
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
49 #ifdef TIERED
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
50 CompilationPolicy::set_policy(new SimpleThresholdPolicy());
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
51 #else
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
52 Unimplemented();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
53 #endif
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
54 break;
0
a61af66fc99e Initial load
duke
parents:
diff changeset
55 default:
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
56 fatal("CompilationPolicyChoice must be in the range: [0-2]");
0
a61af66fc99e Initial load
duke
parents:
diff changeset
57 }
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
58 CompilationPolicy::policy()->initialize();
0
a61af66fc99e Initial load
duke
parents:
diff changeset
59 }
a61af66fc99e Initial load
duke
parents:
diff changeset
60
a61af66fc99e Initial load
duke
parents:
diff changeset
61 void CompilationPolicy::completed_vm_startup() {
a61af66fc99e Initial load
duke
parents:
diff changeset
62 if (TraceCompilationPolicy) {
a61af66fc99e Initial load
duke
parents:
diff changeset
63 tty->print("CompilationPolicy: completed vm startup.\n");
a61af66fc99e Initial load
duke
parents:
diff changeset
64 }
a61af66fc99e Initial load
duke
parents:
diff changeset
65 _in_vm_startup = false;
a61af66fc99e Initial load
duke
parents:
diff changeset
66 }
a61af66fc99e Initial load
duke
parents:
diff changeset
67
a61af66fc99e Initial load
duke
parents:
diff changeset
68 // Returns true if m must be compiled before executing it
a61af66fc99e Initial load
duke
parents:
diff changeset
69 // This is intended to force compiles for methods (usually for
a61af66fc99e Initial load
duke
parents:
diff changeset
70 // debugging) that would otherwise be interpreted for some reason.
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
71 bool CompilationPolicy::must_be_compiled(methodHandle m, int comp_level) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
72 if (m->has_compiled_code()) return false; // already compiled
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
73 if (!can_be_compiled(m, comp_level)) return false;
0
a61af66fc99e Initial load
duke
parents:
diff changeset
74
a61af66fc99e Initial load
duke
parents:
diff changeset
75 return !UseInterpreter || // must compile all methods
1202
5f24d0319e54 4360113: Evict nmethods when code cache gets full
kvn
parents: 1174
diff changeset
76 (UseCompiler && AlwaysCompileLoopMethods && m->has_loops() && CompileBroker::should_compile_new_jobs()); // eagerly compile loop methods
0
a61af66fc99e Initial load
duke
parents:
diff changeset
77 }
a61af66fc99e Initial load
duke
parents:
diff changeset
78
a61af66fc99e Initial load
duke
parents:
diff changeset
79 // Returns true if m is allowed to be compiled
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
80 bool CompilationPolicy::can_be_compiled(methodHandle m, int comp_level) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
81 if (m->is_abstract()) return false;
a61af66fc99e Initial load
duke
parents:
diff changeset
82 if (DontCompileHugeMethods && m->code_size() > HugeMethodLimit) return false;
a61af66fc99e Initial load
duke
parents:
diff changeset
83
1174
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
84 // Math intrinsics should never be compiled as this can lead to
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
85 // monotonicity problems because the interpreter will prefer the
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
86 // compiled code to the intrinsic version. This can't happen in
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
87 // production because the invocation counter can't be incremented
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
88 // but we shouldn't expose the system to this problem in testing
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
89 // modes.
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
90 if (!AbstractInterpreter::can_be_compiled(m)) {
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
91 return false;
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
92 }
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
93 if (comp_level == CompLevel_all) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
94 return !m->is_not_compilable(CompLevel_simple) && !m->is_not_compilable(CompLevel_full_optimization);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
95 } else {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
96 return !m->is_not_compilable(comp_level);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
97 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
98 }
1174
ddb7834449d0 6849984: Value methods for platform dependent math functions constant fold incorrectly
never
parents: 0
diff changeset
99
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
100 bool CompilationPolicy::is_compilation_enabled() {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
101 // NOTE: CompileBroker::should_compile_new_jobs() checks for UseCompiler
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
102 return !delay_compilation_during_startup() && CompileBroker::should_compile_new_jobs();
0
a61af66fc99e Initial load
duke
parents:
diff changeset
103 }
a61af66fc99e Initial load
duke
parents:
diff changeset
104
a61af66fc99e Initial load
duke
parents:
diff changeset
105 #ifndef PRODUCT
a61af66fc99e Initial load
duke
parents:
diff changeset
106 void CompilationPolicy::print_time() {
a61af66fc99e Initial load
duke
parents:
diff changeset
107 tty->print_cr ("Accumulated compilationPolicy times:");
a61af66fc99e Initial load
duke
parents:
diff changeset
108 tty->print_cr ("---------------------------");
a61af66fc99e Initial load
duke
parents:
diff changeset
109 tty->print_cr (" Total: %3.3f sec.", _accumulated_time.seconds());
a61af66fc99e Initial load
duke
parents:
diff changeset
110 }
a61af66fc99e Initial load
duke
parents:
diff changeset
111
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
112 void NonTieredCompPolicy::trace_osr_completion(nmethod* osr_nm) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
113 if (TraceOnStackReplacement) {
a61af66fc99e Initial load
duke
parents:
diff changeset
114 if (osr_nm == NULL) tty->print_cr("compilation failed");
a61af66fc99e Initial load
duke
parents:
diff changeset
115 else tty->print_cr("nmethod " INTPTR_FORMAT, osr_nm);
a61af66fc99e Initial load
duke
parents:
diff changeset
116 }
a61af66fc99e Initial load
duke
parents:
diff changeset
117 }
a61af66fc99e Initial load
duke
parents:
diff changeset
118 #endif // !PRODUCT
a61af66fc99e Initial load
duke
parents:
diff changeset
119
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
120 void NonTieredCompPolicy::initialize() {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
121 // Setup the compiler thread numbers
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
122 if (CICompilerCountPerCPU) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
123 // Example: if CICompilerCountPerCPU is true, then we get
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
124 // max(log2(8)-1,1) = 2 compiler threads on an 8-way machine.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
125 // May help big-app startup time.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
126 _compiler_count = MAX2(log2_intptr(os::active_processor_count())-1,1);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
127 } else {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
128 _compiler_count = CICompilerCount;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
129 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
130 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
131
1821
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
132 // Note: this policy is used ONLY if TieredCompilation is off.
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
133 // compiler_count() behaves the following way:
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
134 // - with TIERED build (with both COMPILER1 and COMPILER2 defined) it should return
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
135 // zero for the c1 compilation levels, hence the particular ordering of the
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
136 // statements.
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
137 // - the same should happen when COMPILER2 is defined and COMPILER1 is not
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
138 // (server build without TIERED defined).
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
139 // - if only COMPILER1 is defined (client build), zero should be returned for
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
140 // the c2 level.
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
141 // - if neither is defined - always return zero.
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
142 int NonTieredCompPolicy::compiler_count(CompLevel comp_level) {
1821
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
143 assert(!TieredCompilation, "This policy should not be used with TieredCompilation");
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
144 #ifdef COMPILER2
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
145 if (is_c2_compile(comp_level)) {
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
146 return _compiler_count;
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
147 } else {
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
148 return 0;
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
149 }
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
150 #endif
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
151
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
152 #ifdef COMPILER1
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
153 if (is_c1_compile(comp_level)) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
154 return _compiler_count;
1821
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
155 } else {
df015ec64052 6987115: Non-tiered compilation policy creates unnecessary C1 threads
iveresov
parents: 1783
diff changeset
156 return 0;
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
157 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
158 #endif
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
159
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
160 return 0;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
161 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
162
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
163 void NonTieredCompPolicy::reset_counter_for_invocation_event(methodHandle m) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
164 // Make sure invocation and backedge counter doesn't overflow again right away
a61af66fc99e Initial load
duke
parents:
diff changeset
165 // as would be the case for native methods.
a61af66fc99e Initial load
duke
parents:
diff changeset
166
a61af66fc99e Initial load
duke
parents:
diff changeset
167 // BUT also make sure the method doesn't look like it was never executed.
a61af66fc99e Initial load
duke
parents:
diff changeset
168 // Set carry bit and reduce counter's value to min(count, CompileThreshold/2).
a61af66fc99e Initial load
duke
parents:
diff changeset
169 m->invocation_counter()->set_carry();
a61af66fc99e Initial load
duke
parents:
diff changeset
170 m->backedge_counter()->set_carry();
a61af66fc99e Initial load
duke
parents:
diff changeset
171
a61af66fc99e Initial load
duke
parents:
diff changeset
172 assert(!m->was_never_executed(), "don't reset to 0 -- could be mistaken for never-executed");
a61af66fc99e Initial load
duke
parents:
diff changeset
173 }
a61af66fc99e Initial load
duke
parents:
diff changeset
174
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
175 void NonTieredCompPolicy::reset_counter_for_back_branch_event(methodHandle m) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
176 // Delay next back-branch event but pump up invocation counter to triger
a61af66fc99e Initial load
duke
parents:
diff changeset
177 // whole method compilation.
a61af66fc99e Initial load
duke
parents:
diff changeset
178 InvocationCounter* i = m->invocation_counter();
a61af66fc99e Initial load
duke
parents:
diff changeset
179 InvocationCounter* b = m->backedge_counter();
a61af66fc99e Initial load
duke
parents:
diff changeset
180
a61af66fc99e Initial load
duke
parents:
diff changeset
181 // Don't set invocation_counter's value too low otherwise the method will
a61af66fc99e Initial load
duke
parents:
diff changeset
182 // look like immature (ic < ~5300) which prevents the inlining based on
a61af66fc99e Initial load
duke
parents:
diff changeset
183 // the type profiling.
a61af66fc99e Initial load
duke
parents:
diff changeset
184 i->set(i->state(), CompileThreshold);
a61af66fc99e Initial load
duke
parents:
diff changeset
185 // Don't reset counter too low - it is used to check if OSR method is ready.
a61af66fc99e Initial load
duke
parents:
diff changeset
186 b->set(b->state(), CompileThreshold / 2);
a61af66fc99e Initial load
duke
parents:
diff changeset
187 }
a61af66fc99e Initial load
duke
parents:
diff changeset
188
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
189 //
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
190 // CounterDecay
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
191 //
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
192 // Interates through invocation counters and decrements them. This
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
193 // is done at each safepoint.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
194 //
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
195 class CounterDecay : public AllStatic {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
196 static jlong _last_timestamp;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
197 static void do_method(methodOop m) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
198 m->invocation_counter()->decay();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
199 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
200 public:
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
201 static void decay();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
202 static bool is_decay_needed() {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
203 return (os::javaTimeMillis() - _last_timestamp) > CounterDecayMinIntervalLength;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
204 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
205 };
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
206
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
207 jlong CounterDecay::_last_timestamp = 0;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
208
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
209 void CounterDecay::decay() {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
210 _last_timestamp = os::javaTimeMillis();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
211
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
212 // This operation is going to be performed only at the end of a safepoint
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
213 // and hence GC's will not be going on, all Java mutators are suspended
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
214 // at this point and hence SystemDictionary_lock is also not needed.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
215 assert(SafepointSynchronize::is_at_safepoint(), "can only be executed at a safepoint");
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
216 int nclasses = SystemDictionary::number_of_classes();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
217 double classes_per_tick = nclasses * (CounterDecayMinIntervalLength * 1e-3 /
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
218 CounterHalfLifeTime);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
219 for (int i = 0; i < classes_per_tick; i++) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
220 klassOop k = SystemDictionary::try_get_next_class();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
221 if (k != NULL && k->klass_part()->oop_is_instance()) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
222 instanceKlass::cast(k)->methods_do(do_method);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
223 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
224 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
225 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
226
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
227 // Called at the end of the safepoint
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
228 void NonTieredCompPolicy::do_safepoint_work() {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
229 if(UseCounterDecay && CounterDecay::is_decay_needed()) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
230 CounterDecay::decay();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
231 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
232 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
233
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
234 void NonTieredCompPolicy::reprofile(ScopeDesc* trap_scope, bool is_osr) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
235 ScopeDesc* sd = trap_scope;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
236 for (; !sd->is_top(); sd = sd->sender()) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
237 // Reset ICs of inlined methods, since they can trigger compilations also.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
238 sd->method()->invocation_counter()->reset();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
239 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
240 InvocationCounter* c = sd->method()->invocation_counter();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
241 if (is_osr) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
242 // It was an OSR method, so bump the count higher.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
243 c->set(c->state(), CompileThreshold);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
244 } else {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
245 c->reset();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
246 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
247 sd->method()->backedge_counter()->reset();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
248 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
249
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
250 // This method can be called by any component of the runtime to notify the policy
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
251 // that it's recommended to delay the complation of this method.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
252 void NonTieredCompPolicy::delay_compilation(methodOop method) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
253 method->invocation_counter()->decay();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
254 method->backedge_counter()->decay();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
255 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
256
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
257 void NonTieredCompPolicy::disable_compilation(methodOop method) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
258 method->invocation_counter()->set_state(InvocationCounter::wait_for_nothing);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
259 method->backedge_counter()->set_state(InvocationCounter::wait_for_nothing);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
260 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
261
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
262 CompileTask* NonTieredCompPolicy::select_task(CompileQueue* compile_queue) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
263 return compile_queue->first();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
264 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
265
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
266 bool NonTieredCompPolicy::is_mature(methodOop method) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
267 methodDataOop mdo = method->method_data();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
268 assert(mdo != NULL, "Should be");
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
269 uint current = mdo->mileage_of(method);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
270 uint initial = mdo->creation_mileage();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
271 if (current < initial)
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
272 return true; // some sort of overflow
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
273 uint target;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
274 if (ProfileMaturityPercentage <= 0)
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
275 target = (uint) -ProfileMaturityPercentage; // absolute value
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
276 else
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
277 target = (uint)( (ProfileMaturityPercentage * CompileThreshold) / 100 );
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
278 return (current >= initial + target);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
279 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
280
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
281 nmethod* NonTieredCompPolicy::event(methodHandle method, methodHandle inlinee, int branch_bci, int bci, CompLevel comp_level, TRAPS) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
282 assert(comp_level == CompLevel_none, "This should be only called from the interpreter");
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
283 NOT_PRODUCT(trace_frequency_counter_overflow(method, branch_bci, bci));
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
284 if (JvmtiExport::can_post_interpreter_events()) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
285 assert(THREAD->is_Java_thread(), "Wrong type of thread");
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
286 if (((JavaThread*)THREAD)->is_interp_only_mode()) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
287 // If certain JVMTI events (e.g. frame pop event) are requested then the
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
288 // thread is forced to remain in interpreted code. This is
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
289 // implemented partly by a check in the run_compiled_code
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
290 // section of the interpreter whether we should skip running
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
291 // compiled code, and partly by skipping OSR compiles for
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
292 // interpreted-only threads.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
293 if (bci != InvocationEntryBci) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
294 reset_counter_for_back_branch_event(method);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
295 return NULL;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
296 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
297 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
298 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
299 if (bci == InvocationEntryBci) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
300 // when code cache is full, compilation gets switched off, UseCompiler
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
301 // is set to false
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
302 if (!method->has_compiled_code() && UseCompiler) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
303 method_invocation_event(method, CHECK_NULL);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
304 } else {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
305 // Force counter overflow on method entry, even if no compilation
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
306 // happened. (The method_invocation_event call does this also.)
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
307 reset_counter_for_invocation_event(method);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
308 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
309 // compilation at an invocation overflow no longer goes and retries test for
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
310 // compiled method. We always run the loser of the race as interpreted.
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
311 // so return NULL
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
312 return NULL;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
313 } else {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
314 // counter overflow in a loop => try to do on-stack-replacement
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
315 nmethod* osr_nm = method->lookup_osr_nmethod_for(bci, CompLevel_highest_tier, true);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
316 NOT_PRODUCT(trace_osr_request(method, osr_nm, bci));
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
317 // when code cache is full, we should not compile any more...
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
318 if (osr_nm == NULL && UseCompiler) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
319 method_back_branch_event(method, bci, CHECK_NULL);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
320 osr_nm = method->lookup_osr_nmethod_for(bci, CompLevel_highest_tier, true);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
321 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
322 if (osr_nm == NULL) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
323 reset_counter_for_back_branch_event(method);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
324 return NULL;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
325 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
326 return osr_nm;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
327 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
328 return NULL;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
329 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
330
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
331 #ifndef PRODUCT
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
332 void NonTieredCompPolicy::trace_frequency_counter_overflow(methodHandle m, int branch_bci, int bci) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
333 if (TraceInvocationCounterOverflow) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
334 InvocationCounter* ic = m->invocation_counter();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
335 InvocationCounter* bc = m->backedge_counter();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
336 ResourceMark rm;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
337 const char* msg =
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
338 bci == InvocationEntryBci
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
339 ? "comp-policy cntr ovfl @ %d in entry of "
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
340 : "comp-policy cntr ovfl @ %d in loop of ";
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
341 tty->print(msg, bci);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
342 m->print_value();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
343 tty->cr();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
344 ic->print();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
345 bc->print();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
346 if (ProfileInterpreter) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
347 if (bci != InvocationEntryBci) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
348 methodDataOop mdo = m->method_data();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
349 if (mdo != NULL) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
350 int count = mdo->bci_to_data(branch_bci)->as_JumpData()->taken();
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
351 tty->print_cr("back branch count = %d", count);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
352 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
353 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
354 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
355 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
356 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
357
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
358 void NonTieredCompPolicy::trace_osr_request(methodHandle method, nmethod* osr, int bci) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
359 if (TraceOnStackReplacement) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
360 ResourceMark rm;
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
361 tty->print(osr != NULL ? "Reused OSR entry for " : "Requesting OSR entry for ");
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
362 method->print_short_name(tty);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
363 tty->print_cr(" at bci %d", bci);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
364 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
365 }
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
366 #endif // !PRODUCT
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
367
0
a61af66fc99e Initial load
duke
parents:
diff changeset
368 // SimpleCompPolicy - compile current method
a61af66fc99e Initial load
duke
parents:
diff changeset
369
a61af66fc99e Initial load
duke
parents:
diff changeset
370 void SimpleCompPolicy::method_invocation_event( methodHandle m, TRAPS) {
a61af66fc99e Initial load
duke
parents:
diff changeset
371 assert(UseCompiler || CompileTheWorld, "UseCompiler should be set by now.");
a61af66fc99e Initial load
duke
parents:
diff changeset
372
a61af66fc99e Initial load
duke
parents:
diff changeset
373 int hot_count = m->invocation_count();
a61af66fc99e Initial load
duke
parents:
diff changeset
374 reset_counter_for_invocation_event(m);
a61af66fc99e Initial load
duke
parents:
diff changeset
375 const char* comment = "count";
a61af66fc99e Initial load
duke
parents:
diff changeset
376
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
377 if (is_compilation_enabled() && can_be_compiled(m)) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
378 nmethod* nm = m->code();
a61af66fc99e Initial load
duke
parents:
diff changeset
379 if (nm == NULL ) {
a61af66fc99e Initial load
duke
parents:
diff changeset
380 const char* comment = "count";
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
381 CompileBroker::compile_method(m, InvocationEntryBci, CompLevel_highest_tier,
0
a61af66fc99e Initial load
duke
parents:
diff changeset
382 m, hot_count, comment, CHECK);
a61af66fc99e Initial load
duke
parents:
diff changeset
383 }
a61af66fc99e Initial load
duke
parents:
diff changeset
384 }
a61af66fc99e Initial load
duke
parents:
diff changeset
385 }
a61af66fc99e Initial load
duke
parents:
diff changeset
386
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
387 void SimpleCompPolicy::method_back_branch_event(methodHandle m, int bci, TRAPS) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
388 assert(UseCompiler || CompileTheWorld, "UseCompiler should be set by now.");
a61af66fc99e Initial load
duke
parents:
diff changeset
389
a61af66fc99e Initial load
duke
parents:
diff changeset
390 int hot_count = m->backedge_count();
a61af66fc99e Initial load
duke
parents:
diff changeset
391 const char* comment = "backedge_count";
a61af66fc99e Initial load
duke
parents:
diff changeset
392
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
393 if (is_compilation_enabled() && !m->is_not_osr_compilable() && can_be_compiled(m)) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
394 CompileBroker::compile_method(m, bci, CompLevel_highest_tier,
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
395 m, hot_count, comment, CHECK);
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
396 NOT_PRODUCT(trace_osr_completion(m->lookup_osr_nmethod_for(bci, CompLevel_highest_tier, true));)
0
a61af66fc99e Initial load
duke
parents:
diff changeset
397 }
a61af66fc99e Initial load
duke
parents:
diff changeset
398 }
a61af66fc99e Initial load
duke
parents:
diff changeset
399 // StackWalkCompPolicy - walk up stack to find a suitable method to compile
a61af66fc99e Initial load
duke
parents:
diff changeset
400
a61af66fc99e Initial load
duke
parents:
diff changeset
401 #ifdef COMPILER2
a61af66fc99e Initial load
duke
parents:
diff changeset
402 const char* StackWalkCompPolicy::_msg = NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
403
a61af66fc99e Initial load
duke
parents:
diff changeset
404
a61af66fc99e Initial load
duke
parents:
diff changeset
405 // Consider m for compilation
a61af66fc99e Initial load
duke
parents:
diff changeset
406 void StackWalkCompPolicy::method_invocation_event(methodHandle m, TRAPS) {
a61af66fc99e Initial load
duke
parents:
diff changeset
407 assert(UseCompiler || CompileTheWorld, "UseCompiler should be set by now.");
a61af66fc99e Initial load
duke
parents:
diff changeset
408
a61af66fc99e Initial load
duke
parents:
diff changeset
409 int hot_count = m->invocation_count();
a61af66fc99e Initial load
duke
parents:
diff changeset
410 reset_counter_for_invocation_event(m);
a61af66fc99e Initial load
duke
parents:
diff changeset
411 const char* comment = "count";
a61af66fc99e Initial load
duke
parents:
diff changeset
412
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
413 if (is_compilation_enabled() && m->code() == NULL && can_be_compiled(m)) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
414 ResourceMark rm(THREAD);
a61af66fc99e Initial load
duke
parents:
diff changeset
415 JavaThread *thread = (JavaThread*)THREAD;
a61af66fc99e Initial load
duke
parents:
diff changeset
416 frame fr = thread->last_frame();
a61af66fc99e Initial load
duke
parents:
diff changeset
417 assert(fr.is_interpreted_frame(), "must be interpreted");
a61af66fc99e Initial load
duke
parents:
diff changeset
418 assert(fr.interpreter_frame_method() == m(), "bad method");
a61af66fc99e Initial load
duke
parents:
diff changeset
419
a61af66fc99e Initial load
duke
parents:
diff changeset
420 if (TraceCompilationPolicy) {
a61af66fc99e Initial load
duke
parents:
diff changeset
421 tty->print("method invocation trigger: ");
a61af66fc99e Initial load
duke
parents:
diff changeset
422 m->print_short_name(tty);
a61af66fc99e Initial load
duke
parents:
diff changeset
423 tty->print(" ( interpreted " INTPTR_FORMAT ", size=%d ) ", (address)m(), m->code_size());
a61af66fc99e Initial load
duke
parents:
diff changeset
424 }
a61af66fc99e Initial load
duke
parents:
diff changeset
425 RegisterMap reg_map(thread, false);
a61af66fc99e Initial load
duke
parents:
diff changeset
426 javaVFrame* triggerVF = thread->last_java_vframe(&reg_map);
a61af66fc99e Initial load
duke
parents:
diff changeset
427 // triggerVF is the frame that triggered its counter
a61af66fc99e Initial load
duke
parents:
diff changeset
428 RFrame* first = new InterpretedRFrame(triggerVF->fr(), thread, m);
a61af66fc99e Initial load
duke
parents:
diff changeset
429
a61af66fc99e Initial load
duke
parents:
diff changeset
430 if (first->top_method()->code() != NULL) {
a61af66fc99e Initial load
duke
parents:
diff changeset
431 // called obsolete method/nmethod -- no need to recompile
a61af66fc99e Initial load
duke
parents:
diff changeset
432 if (TraceCompilationPolicy) tty->print_cr(" --> " INTPTR_FORMAT, first->top_method()->code());
a61af66fc99e Initial load
duke
parents:
diff changeset
433 } else {
a61af66fc99e Initial load
duke
parents:
diff changeset
434 if (TimeCompilationPolicy) accumulated_time()->start();
a61af66fc99e Initial load
duke
parents:
diff changeset
435 GrowableArray<RFrame*>* stack = new GrowableArray<RFrame*>(50);
a61af66fc99e Initial load
duke
parents:
diff changeset
436 stack->push(first);
a61af66fc99e Initial load
duke
parents:
diff changeset
437 RFrame* top = findTopInlinableFrame(stack);
a61af66fc99e Initial load
duke
parents:
diff changeset
438 if (TimeCompilationPolicy) accumulated_time()->stop();
a61af66fc99e Initial load
duke
parents:
diff changeset
439 assert(top != NULL, "findTopInlinableFrame returned null");
a61af66fc99e Initial load
duke
parents:
diff changeset
440 if (TraceCompilationPolicy) top->print();
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
441 CompileBroker::compile_method(top->top_method(), InvocationEntryBci, CompLevel_highest_tier,
0
a61af66fc99e Initial load
duke
parents:
diff changeset
442 m, hot_count, comment, CHECK);
a61af66fc99e Initial load
duke
parents:
diff changeset
443 }
a61af66fc99e Initial load
duke
parents:
diff changeset
444 }
a61af66fc99e Initial load
duke
parents:
diff changeset
445 }
a61af66fc99e Initial load
duke
parents:
diff changeset
446
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
447 void StackWalkCompPolicy::method_back_branch_event(methodHandle m, int bci, TRAPS) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
448 assert(UseCompiler || CompileTheWorld, "UseCompiler should be set by now.");
a61af66fc99e Initial load
duke
parents:
diff changeset
449
a61af66fc99e Initial load
duke
parents:
diff changeset
450 int hot_count = m->backedge_count();
a61af66fc99e Initial load
duke
parents:
diff changeset
451 const char* comment = "backedge_count";
a61af66fc99e Initial load
duke
parents:
diff changeset
452
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
453 if (is_compilation_enabled() && !m->is_not_osr_compilable() && can_be_compiled(m)) {
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
454 CompileBroker::compile_method(m, bci, CompLevel_highest_tier, m, hot_count, comment, CHECK);
0
a61af66fc99e Initial load
duke
parents:
diff changeset
455
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
456 NOT_PRODUCT(trace_osr_completion(m->lookup_osr_nmethod_for(bci, CompLevel_highest_tier, true));)
0
a61af66fc99e Initial load
duke
parents:
diff changeset
457 }
a61af66fc99e Initial load
duke
parents:
diff changeset
458 }
a61af66fc99e Initial load
duke
parents:
diff changeset
459
a61af66fc99e Initial load
duke
parents:
diff changeset
460 RFrame* StackWalkCompPolicy::findTopInlinableFrame(GrowableArray<RFrame*>* stack) {
a61af66fc99e Initial load
duke
parents:
diff changeset
461 // go up the stack until finding a frame that (probably) won't be inlined
a61af66fc99e Initial load
duke
parents:
diff changeset
462 // into its caller
a61af66fc99e Initial load
duke
parents:
diff changeset
463 RFrame* current = stack->at(0); // current choice for stopping
a61af66fc99e Initial load
duke
parents:
diff changeset
464 assert( current && !current->is_compiled(), "" );
a61af66fc99e Initial load
duke
parents:
diff changeset
465 const char* msg = NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
466
a61af66fc99e Initial load
duke
parents:
diff changeset
467 while (1) {
a61af66fc99e Initial load
duke
parents:
diff changeset
468
a61af66fc99e Initial load
duke
parents:
diff changeset
469 // before going up the stack further, check if doing so would get us into
a61af66fc99e Initial load
duke
parents:
diff changeset
470 // compiled code
a61af66fc99e Initial load
duke
parents:
diff changeset
471 RFrame* next = senderOf(current, stack);
a61af66fc99e Initial load
duke
parents:
diff changeset
472 if( !next ) // No next frame up the stack?
a61af66fc99e Initial load
duke
parents:
diff changeset
473 break; // Then compile with current frame
a61af66fc99e Initial load
duke
parents:
diff changeset
474
a61af66fc99e Initial load
duke
parents:
diff changeset
475 methodHandle m = current->top_method();
a61af66fc99e Initial load
duke
parents:
diff changeset
476 methodHandle next_m = next->top_method();
a61af66fc99e Initial load
duke
parents:
diff changeset
477
a61af66fc99e Initial load
duke
parents:
diff changeset
478 if (TraceCompilationPolicy && Verbose) {
a61af66fc99e Initial load
duke
parents:
diff changeset
479 tty->print("[caller: ");
a61af66fc99e Initial load
duke
parents:
diff changeset
480 next_m->print_short_name(tty);
a61af66fc99e Initial load
duke
parents:
diff changeset
481 tty->print("] ");
a61af66fc99e Initial load
duke
parents:
diff changeset
482 }
a61af66fc99e Initial load
duke
parents:
diff changeset
483
a61af66fc99e Initial load
duke
parents:
diff changeset
484 if( !Inline ) { // Inlining turned off
a61af66fc99e Initial load
duke
parents:
diff changeset
485 msg = "Inlining turned off";
a61af66fc99e Initial load
duke
parents:
diff changeset
486 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
487 }
a61af66fc99e Initial load
duke
parents:
diff changeset
488 if (next_m->is_not_compilable()) { // Did fail to compile this before/
a61af66fc99e Initial load
duke
parents:
diff changeset
489 msg = "caller not compilable";
a61af66fc99e Initial load
duke
parents:
diff changeset
490 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
491 }
a61af66fc99e Initial load
duke
parents:
diff changeset
492 if (next->num() > MaxRecompilationSearchLength) {
a61af66fc99e Initial load
duke
parents:
diff changeset
493 // don't go up too high when searching for recompilees
a61af66fc99e Initial load
duke
parents:
diff changeset
494 msg = "don't go up any further: > MaxRecompilationSearchLength";
a61af66fc99e Initial load
duke
parents:
diff changeset
495 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
496 }
a61af66fc99e Initial load
duke
parents:
diff changeset
497 if (next->distance() > MaxInterpretedSearchLength) {
a61af66fc99e Initial load
duke
parents:
diff changeset
498 // don't go up too high when searching for recompilees
a61af66fc99e Initial load
duke
parents:
diff changeset
499 msg = "don't go up any further: next > MaxInterpretedSearchLength";
a61af66fc99e Initial load
duke
parents:
diff changeset
500 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
501 }
a61af66fc99e Initial load
duke
parents:
diff changeset
502 // Compiled frame above already decided not to inline;
a61af66fc99e Initial load
duke
parents:
diff changeset
503 // do not recompile him.
a61af66fc99e Initial load
duke
parents:
diff changeset
504 if (next->is_compiled()) {
a61af66fc99e Initial load
duke
parents:
diff changeset
505 msg = "not going up into optimized code";
a61af66fc99e Initial load
duke
parents:
diff changeset
506 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
507 }
a61af66fc99e Initial load
duke
parents:
diff changeset
508
a61af66fc99e Initial load
duke
parents:
diff changeset
509 // Interpreted frame above us was already compiled. Do not force
a61af66fc99e Initial load
duke
parents:
diff changeset
510 // a recompile, although if the frame above us runs long enough an
a61af66fc99e Initial load
duke
parents:
diff changeset
511 // OSR might still happen.
a61af66fc99e Initial load
duke
parents:
diff changeset
512 if( current->is_interpreted() && next_m->has_compiled_code() ) {
a61af66fc99e Initial load
duke
parents:
diff changeset
513 msg = "not going up -- already compiled caller";
a61af66fc99e Initial load
duke
parents:
diff changeset
514 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
515 }
a61af66fc99e Initial load
duke
parents:
diff changeset
516
a61af66fc99e Initial load
duke
parents:
diff changeset
517 // Compute how frequent this call site is. We have current method 'm'.
a61af66fc99e Initial load
duke
parents:
diff changeset
518 // We know next method 'next_m' is interpreted. Find the call site and
a61af66fc99e Initial load
duke
parents:
diff changeset
519 // check the various invocation counts.
a61af66fc99e Initial load
duke
parents:
diff changeset
520 int invcnt = 0; // Caller counts
a61af66fc99e Initial load
duke
parents:
diff changeset
521 if (ProfileInterpreter) {
a61af66fc99e Initial load
duke
parents:
diff changeset
522 invcnt = next_m->interpreter_invocation_count();
a61af66fc99e Initial load
duke
parents:
diff changeset
523 }
a61af66fc99e Initial load
duke
parents:
diff changeset
524 int cnt = 0; // Call site counts
a61af66fc99e Initial load
duke
parents:
diff changeset
525 if (ProfileInterpreter && next_m->method_data() != NULL) {
a61af66fc99e Initial load
duke
parents:
diff changeset
526 ResourceMark rm;
a61af66fc99e Initial load
duke
parents:
diff changeset
527 int bci = next->top_vframe()->bci();
a61af66fc99e Initial load
duke
parents:
diff changeset
528 ProfileData* data = next_m->method_data()->bci_to_data(bci);
a61af66fc99e Initial load
duke
parents:
diff changeset
529 if (data != NULL && data->is_CounterData())
a61af66fc99e Initial load
duke
parents:
diff changeset
530 cnt = data->as_CounterData()->count();
a61af66fc99e Initial load
duke
parents:
diff changeset
531 }
a61af66fc99e Initial load
duke
parents:
diff changeset
532
a61af66fc99e Initial load
duke
parents:
diff changeset
533 // Caller counts / call-site counts; i.e. is this call site
a61af66fc99e Initial load
duke
parents:
diff changeset
534 // a hot call site for method next_m?
a61af66fc99e Initial load
duke
parents:
diff changeset
535 int freq = (invcnt) ? cnt/invcnt : cnt;
a61af66fc99e Initial load
duke
parents:
diff changeset
536
a61af66fc99e Initial load
duke
parents:
diff changeset
537 // Check size and frequency limits
a61af66fc99e Initial load
duke
parents:
diff changeset
538 if ((msg = shouldInline(m, freq, cnt)) != NULL) {
a61af66fc99e Initial load
duke
parents:
diff changeset
539 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
540 }
a61af66fc99e Initial load
duke
parents:
diff changeset
541 // Check inlining negative tests
a61af66fc99e Initial load
duke
parents:
diff changeset
542 if ((msg = shouldNotInline(m)) != NULL) {
a61af66fc99e Initial load
duke
parents:
diff changeset
543 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
544 }
a61af66fc99e Initial load
duke
parents:
diff changeset
545
a61af66fc99e Initial load
duke
parents:
diff changeset
546
a61af66fc99e Initial load
duke
parents:
diff changeset
547 // If the caller method is too big or something then we do not want to
a61af66fc99e Initial load
duke
parents:
diff changeset
548 // compile it just to inline a method
1783
d5d065957597 6953144: Tiered compilation
iveresov
parents: 1748
diff changeset
549 if (!can_be_compiled(next_m)) {
0
a61af66fc99e Initial load
duke
parents:
diff changeset
550 msg = "caller cannot be compiled";
a61af66fc99e Initial load
duke
parents:
diff changeset
551 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
552 }
a61af66fc99e Initial load
duke
parents:
diff changeset
553
a61af66fc99e Initial load
duke
parents:
diff changeset
554 if( next_m->name() == vmSymbols::class_initializer_name() ) {
a61af66fc99e Initial load
duke
parents:
diff changeset
555 msg = "do not compile class initializer (OSR ok)";
a61af66fc99e Initial load
duke
parents:
diff changeset
556 break;
a61af66fc99e Initial load
duke
parents:
diff changeset
557 }
a61af66fc99e Initial load
duke
parents:
diff changeset
558
a61af66fc99e Initial load
duke
parents:
diff changeset
559 if (TraceCompilationPolicy && Verbose) {
a61af66fc99e Initial load
duke
parents:
diff changeset
560 tty->print("\n\t check caller: ");
a61af66fc99e Initial load
duke
parents:
diff changeset
561 next_m->print_short_name(tty);
a61af66fc99e Initial load
duke
parents:
diff changeset
562 tty->print(" ( interpreted " INTPTR_FORMAT ", size=%d ) ", (address)next_m(), next_m->code_size());
a61af66fc99e Initial load
duke
parents:
diff changeset
563 }
a61af66fc99e Initial load
duke
parents:
diff changeset
564
a61af66fc99e Initial load
duke
parents:
diff changeset
565 current = next;
a61af66fc99e Initial load
duke
parents:
diff changeset
566 }
a61af66fc99e Initial load
duke
parents:
diff changeset
567
a61af66fc99e Initial load
duke
parents:
diff changeset
568 assert( !current || !current->is_compiled(), "" );
a61af66fc99e Initial load
duke
parents:
diff changeset
569
a61af66fc99e Initial load
duke
parents:
diff changeset
570 if (TraceCompilationPolicy && msg) tty->print("(%s)\n", msg);
a61af66fc99e Initial load
duke
parents:
diff changeset
571
a61af66fc99e Initial load
duke
parents:
diff changeset
572 return current;
a61af66fc99e Initial load
duke
parents:
diff changeset
573 }
a61af66fc99e Initial load
duke
parents:
diff changeset
574
a61af66fc99e Initial load
duke
parents:
diff changeset
575 RFrame* StackWalkCompPolicy::senderOf(RFrame* rf, GrowableArray<RFrame*>* stack) {
a61af66fc99e Initial load
duke
parents:
diff changeset
576 RFrame* sender = rf->caller();
a61af66fc99e Initial load
duke
parents:
diff changeset
577 if (sender && sender->num() == stack->length()) stack->push(sender);
a61af66fc99e Initial load
duke
parents:
diff changeset
578 return sender;
a61af66fc99e Initial load
duke
parents:
diff changeset
579 }
a61af66fc99e Initial load
duke
parents:
diff changeset
580
a61af66fc99e Initial load
duke
parents:
diff changeset
581
a61af66fc99e Initial load
duke
parents:
diff changeset
582 const char* StackWalkCompPolicy::shouldInline(methodHandle m, float freq, int cnt) {
a61af66fc99e Initial load
duke
parents:
diff changeset
583 // Allows targeted inlining
a61af66fc99e Initial load
duke
parents:
diff changeset
584 // positive filter: should send be inlined? returns NULL (--> yes)
a61af66fc99e Initial load
duke
parents:
diff changeset
585 // or rejection msg
a61af66fc99e Initial load
duke
parents:
diff changeset
586 int max_size = MaxInlineSize;
a61af66fc99e Initial load
duke
parents:
diff changeset
587 int cost = m->code_size();
a61af66fc99e Initial load
duke
parents:
diff changeset
588
a61af66fc99e Initial load
duke
parents:
diff changeset
589 // Check for too many throws (and not too huge)
a61af66fc99e Initial load
duke
parents:
diff changeset
590 if (m->interpreter_throwout_count() > InlineThrowCount && cost < InlineThrowMaxSize ) {
a61af66fc99e Initial load
duke
parents:
diff changeset
591 return NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
592 }
a61af66fc99e Initial load
duke
parents:
diff changeset
593
a61af66fc99e Initial load
duke
parents:
diff changeset
594 // bump the max size if the call is frequent
a61af66fc99e Initial load
duke
parents:
diff changeset
595 if ((freq >= InlineFrequencyRatio) || (cnt >= InlineFrequencyCount)) {
a61af66fc99e Initial load
duke
parents:
diff changeset
596 if (TraceFrequencyInlining) {
a61af66fc99e Initial load
duke
parents:
diff changeset
597 tty->print("(Inlined frequent method)\n");
a61af66fc99e Initial load
duke
parents:
diff changeset
598 m->print();
a61af66fc99e Initial load
duke
parents:
diff changeset
599 }
a61af66fc99e Initial load
duke
parents:
diff changeset
600 max_size = FreqInlineSize;
a61af66fc99e Initial load
duke
parents:
diff changeset
601 }
a61af66fc99e Initial load
duke
parents:
diff changeset
602 if (cost > max_size) {
a61af66fc99e Initial load
duke
parents:
diff changeset
603 return (_msg = "too big");
a61af66fc99e Initial load
duke
parents:
diff changeset
604 }
a61af66fc99e Initial load
duke
parents:
diff changeset
605 return NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
606 }
a61af66fc99e Initial load
duke
parents:
diff changeset
607
a61af66fc99e Initial load
duke
parents:
diff changeset
608
a61af66fc99e Initial load
duke
parents:
diff changeset
609 const char* StackWalkCompPolicy::shouldNotInline(methodHandle m) {
a61af66fc99e Initial load
duke
parents:
diff changeset
610 // negative filter: should send NOT be inlined? returns NULL (--> inline) or rejection msg
a61af66fc99e Initial load
duke
parents:
diff changeset
611 if (m->is_abstract()) return (_msg = "abstract method");
a61af66fc99e Initial load
duke
parents:
diff changeset
612 // note: we allow ik->is_abstract()
a61af66fc99e Initial load
duke
parents:
diff changeset
613 if (!instanceKlass::cast(m->method_holder())->is_initialized()) return (_msg = "method holder not initialized");
a61af66fc99e Initial load
duke
parents:
diff changeset
614 if (m->is_native()) return (_msg = "native method");
a61af66fc99e Initial load
duke
parents:
diff changeset
615 nmethod* m_code = m->code();
1748
3e8fbc61cee8 6978355: renaming for 6961697
twisti
parents: 1552
diff changeset
616 if (m_code != NULL && m_code->code_size() > InlineSmallCode)
0
a61af66fc99e Initial load
duke
parents:
diff changeset
617 return (_msg = "already compiled into a big method");
a61af66fc99e Initial load
duke
parents:
diff changeset
618
a61af66fc99e Initial load
duke
parents:
diff changeset
619 // use frequency-based objections only for non-trivial methods
a61af66fc99e Initial load
duke
parents:
diff changeset
620 if (m->code_size() <= MaxTrivialSize) return NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
621 if (UseInterpreter) { // don't use counts with -Xcomp
a61af66fc99e Initial load
duke
parents:
diff changeset
622 if ((m->code() == NULL) && m->was_never_executed()) return (_msg = "never executed");
a61af66fc99e Initial load
duke
parents:
diff changeset
623 if (!m->was_executed_more_than(MIN2(MinInliningThreshold, CompileThreshold >> 1))) return (_msg = "executed < MinInliningThreshold times");
a61af66fc99e Initial load
duke
parents:
diff changeset
624 }
a61af66fc99e Initial load
duke
parents:
diff changeset
625 if (methodOopDesc::has_unloaded_classes_in_signature(m, JavaThread::current())) return (_msg = "unloaded signature classes");
a61af66fc99e Initial load
duke
parents:
diff changeset
626
a61af66fc99e Initial load
duke
parents:
diff changeset
627 return NULL;
a61af66fc99e Initial load
duke
parents:
diff changeset
628 }
a61af66fc99e Initial load
duke
parents:
diff changeset
629
a61af66fc99e Initial load
duke
parents:
diff changeset
630
a61af66fc99e Initial load
duke
parents:
diff changeset
631
a61af66fc99e Initial load
duke
parents:
diff changeset
632 #endif // COMPILER2