Tue, 10 Mar 2009 08:52:16 -0700
Merge
1 /*
2 * Copyright 2003-2008 Sun Microsystems, Inc. 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 Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
20 * CA 95054 USA or visit www.sun.com if you need additional information or
21 * have any questions.
22 *
23 */
25 #include "incls/_precompiled.incl"
26 #include "incls/_interpreter_x86_64.cpp.incl"
28 #define __ _masm->
31 #ifdef _WIN64
32 address AbstractInterpreterGenerator::generate_slow_signature_handler() {
33 address entry = __ pc();
35 // rbx: method
36 // r14: pointer to locals
37 // c_rarg3: first stack arg - wordSize
38 __ mov(c_rarg3, rsp);
39 // adjust rsp
40 __ subptr(rsp, 4 * wordSize);
41 __ call_VM(noreg,
42 CAST_FROM_FN_PTR(address,
43 InterpreterRuntime::slow_signature_handler),
44 rbx, r14, c_rarg3);
46 // rax: result handler
48 // Stack layout:
49 // rsp: 3 integer or float args (if static first is unused)
50 // 1 float/double identifiers
51 // return address
52 // stack args
53 // garbage
54 // expression stack bottom
55 // bcp (NULL)
56 // ...
58 // Do FP first so we can use c_rarg3 as temp
59 __ movl(c_rarg3, Address(rsp, 3 * wordSize)); // float/double identifiers
61 for ( int i= 0; i < Argument::n_int_register_parameters_c-1; i++ ) {
62 XMMRegister floatreg = as_XMMRegister(i+1);
63 Label isfloatordouble, isdouble, next;
65 __ testl(c_rarg3, 1 << (i*2)); // Float or Double?
66 __ jcc(Assembler::notZero, isfloatordouble);
68 // Do Int register here
69 switch ( i ) {
70 case 0:
71 __ movl(rscratch1, Address(rbx, methodOopDesc::access_flags_offset()));
72 __ testl(rscratch1, JVM_ACC_STATIC);
73 __ cmovptr(Assembler::zero, c_rarg1, Address(rsp, 0));
74 break;
75 case 1:
76 __ movptr(c_rarg2, Address(rsp, wordSize));
77 break;
78 case 2:
79 __ movptr(c_rarg3, Address(rsp, 2 * wordSize));
80 break;
81 default:
82 break;
83 }
85 __ jmp (next);
87 __ bind(isfloatordouble);
88 __ testl(c_rarg3, 1 << ((i*2)+1)); // Double?
89 __ jcc(Assembler::notZero, isdouble);
91 // Do Float Here
92 __ movflt(floatreg, Address(rsp, i * wordSize));
93 __ jmp(next);
95 // Do Double here
96 __ bind(isdouble);
97 __ movdbl(floatreg, Address(rsp, i * wordSize));
99 __ bind(next);
100 }
103 // restore rsp
104 __ addptr(rsp, 4 * wordSize);
106 __ ret(0);
108 return entry;
109 }
110 #else
111 address AbstractInterpreterGenerator::generate_slow_signature_handler() {
112 address entry = __ pc();
114 // rbx: method
115 // r14: pointer to locals
116 // c_rarg3: first stack arg - wordSize
117 __ mov(c_rarg3, rsp);
118 // adjust rsp
119 __ subptr(rsp, 14 * wordSize);
120 __ call_VM(noreg,
121 CAST_FROM_FN_PTR(address,
122 InterpreterRuntime::slow_signature_handler),
123 rbx, r14, c_rarg3);
125 // rax: result handler
127 // Stack layout:
128 // rsp: 5 integer args (if static first is unused)
129 // 1 float/double identifiers
130 // 8 double args
131 // return address
132 // stack args
133 // garbage
134 // expression stack bottom
135 // bcp (NULL)
136 // ...
138 // Do FP first so we can use c_rarg3 as temp
139 __ movl(c_rarg3, Address(rsp, 5 * wordSize)); // float/double identifiers
141 for (int i = 0; i < Argument::n_float_register_parameters_c; i++) {
142 const XMMRegister r = as_XMMRegister(i);
144 Label d, done;
146 __ testl(c_rarg3, 1 << i);
147 __ jcc(Assembler::notZero, d);
148 __ movflt(r, Address(rsp, (6 + i) * wordSize));
149 __ jmp(done);
150 __ bind(d);
151 __ movdbl(r, Address(rsp, (6 + i) * wordSize));
152 __ bind(done);
153 }
155 // Now handle integrals. Only do c_rarg1 if not static.
156 __ movl(c_rarg3, Address(rbx, methodOopDesc::access_flags_offset()));
157 __ testl(c_rarg3, JVM_ACC_STATIC);
158 __ cmovptr(Assembler::zero, c_rarg1, Address(rsp, 0));
160 __ movptr(c_rarg2, Address(rsp, wordSize));
161 __ movptr(c_rarg3, Address(rsp, 2 * wordSize));
162 __ movptr(c_rarg4, Address(rsp, 3 * wordSize));
163 __ movptr(c_rarg5, Address(rsp, 4 * wordSize));
165 // restore rsp
166 __ addptr(rsp, 14 * wordSize);
168 __ ret(0);
170 return entry;
171 }
172 #endif
175 //
176 // Various method entries
177 //
179 address InterpreterGenerator::generate_math_entry(AbstractInterpreter::MethodKind kind) {
181 // rbx,: methodOop
182 // rcx: scratrch
183 // r13: sender sp
185 if (!InlineIntrinsics) return NULL; // Generate a vanilla entry
187 address entry_point = __ pc();
189 // These don't need a safepoint check because they aren't virtually
190 // callable. We won't enter these intrinsics from compiled code.
191 // If in the future we added an intrinsic which was virtually callable
192 // we'd have to worry about how to safepoint so that this code is used.
194 // mathematical functions inlined by compiler
195 // (interpreter must provide identical implementation
196 // in order to avoid monotonicity bugs when switching
197 // from interpreter to compiler in the middle of some
198 // computation)
199 //
200 // stack: [ ret adr ] <-- rsp
201 // [ lo(arg) ]
202 // [ hi(arg) ]
203 //
205 // Note: For JDK 1.2 StrictMath doesn't exist and Math.sin/cos/sqrt are
206 // native methods. Interpreter::method_kind(...) does a check for
207 // native methods first before checking for intrinsic methods and
208 // thus will never select this entry point. Make sure it is not
209 // called accidentally since the SharedRuntime entry points will
210 // not work for JDK 1.2.
211 //
212 // We no longer need to check for JDK 1.2 since it's EOL'ed.
213 // The following check existed in pre 1.6 implementation,
214 // if (Universe::is_jdk12x_version()) {
215 // __ should_not_reach_here();
216 // }
217 // Universe::is_jdk12x_version() always returns false since
218 // the JDK version is not yet determined when this method is called.
219 // This method is called during interpreter_init() whereas
220 // JDK version is only determined when universe2_init() is called.
222 // Note: For JDK 1.3 StrictMath exists and Math.sin/cos/sqrt are
223 // java methods. Interpreter::method_kind(...) will select
224 // this entry point for the corresponding methods in JDK 1.3.
225 // get argument
227 if (kind == Interpreter::java_lang_math_sqrt) {
228 __ sqrtsd(xmm0, Address(rsp, wordSize));
229 } else {
230 __ fld_d(Address(rsp, wordSize));
231 switch (kind) {
232 case Interpreter::java_lang_math_sin :
233 __ trigfunc('s');
234 break;
235 case Interpreter::java_lang_math_cos :
236 __ trigfunc('c');
237 break;
238 case Interpreter::java_lang_math_tan :
239 __ trigfunc('t');
240 break;
241 case Interpreter::java_lang_math_abs:
242 __ fabs();
243 break;
244 case Interpreter::java_lang_math_log:
245 __ flog();
246 break;
247 case Interpreter::java_lang_math_log10:
248 __ flog10();
249 break;
250 default :
251 ShouldNotReachHere();
252 }
254 // return double result in xmm0 for interpreter and compilers.
255 __ subptr(rsp, 2*wordSize);
256 // Round to 64bit precision
257 __ fstp_d(Address(rsp, 0));
258 __ movdbl(xmm0, Address(rsp, 0));
259 __ addptr(rsp, 2*wordSize);
260 }
263 __ pop(rax);
264 __ mov(rsp, r13);
265 __ jmp(rax);
267 return entry_point;
268 }
271 // Abstract method entry
272 // Attempt to execute abstract method. Throw exception
273 address InterpreterGenerator::generate_abstract_entry(void) {
274 // rbx: methodOop
275 // r13: sender SP
277 address entry_point = __ pc();
279 // abstract method entry
280 // remove return address. Not really needed, since exception
281 // handling throws away expression stack
282 __ pop(rbx);
284 // adjust stack to what a normal return would do
285 __ mov(rsp, r13);
287 // throw exception
288 __ call_VM(noreg, CAST_FROM_FN_PTR(address,
289 InterpreterRuntime::throw_AbstractMethodError));
290 // the call_VM checks for exception, so we should never return here.
291 __ should_not_reach_here();
293 return entry_point;
294 }
297 // Empty method, generate a very fast return.
299 address InterpreterGenerator::generate_empty_entry(void) {
300 // rbx: methodOop
301 // r13: sender sp must set sp to this value on return
303 if (!UseFastEmptyMethods) {
304 return NULL;
305 }
307 address entry_point = __ pc();
309 // If we need a safepoint check, generate full interpreter entry.
310 Label slow_path;
311 __ cmp32(ExternalAddress(SafepointSynchronize::address_of_state()),
312 SafepointSynchronize::_not_synchronized);
313 __ jcc(Assembler::notEqual, slow_path);
315 // do nothing for empty methods (do not even increment invocation counter)
316 // Code: _return
317 // _return
318 // return w/o popping parameters
319 __ pop(rax);
320 __ mov(rsp, r13);
321 __ jmp(rax);
323 __ bind(slow_path);
324 (void) generate_normal_entry(false);
325 return entry_point;
327 }
329 // This method tells the deoptimizer how big an interpreted frame must be:
330 int AbstractInterpreter::size_activation(methodOop method,
331 int tempcount,
332 int popframe_extra_args,
333 int moncount,
334 int callee_param_count,
335 int callee_locals,
336 bool is_top_frame) {
337 return layout_activation(method,
338 tempcount, popframe_extra_args, moncount,
339 callee_param_count, callee_locals,
340 (frame*) NULL, (frame*) NULL, is_top_frame);
341 }
343 void Deoptimization::unwind_callee_save_values(frame* f, vframeArray* vframe_array) {
345 // This code is sort of the equivalent of C2IAdapter::setup_stack_frame back in
346 // the days we had adapter frames. When we deoptimize a situation where a
347 // compiled caller calls a compiled caller will have registers it expects
348 // to survive the call to the callee. If we deoptimize the callee the only
349 // way we can restore these registers is to have the oldest interpreter
350 // frame that we create restore these values. That is what this routine
351 // will accomplish.
353 // At the moment we have modified c2 to not have any callee save registers
354 // so this problem does not exist and this routine is just a place holder.
356 assert(f->is_interpreted_frame(), "must be interpreted");
357 }