File: | jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp |
Warning: | line 476, column 45 Called C++ object pointer is null |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* | |||
2 | * Copyright (c) 2018, 2021, 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 | #include "precompiled.hpp" | |||
25 | #include "asm/macroAssembler.inline.hpp" | |||
26 | #include "code/codeBlob.hpp" | |||
27 | #include "code/vmreg.inline.hpp" | |||
28 | #include "gc/z/zBarrier.inline.hpp" | |||
29 | #include "gc/z/zBarrierSet.hpp" | |||
30 | #include "gc/z/zBarrierSetAssembler.hpp" | |||
31 | #include "gc/z/zBarrierSetRuntime.hpp" | |||
32 | #include "memory/resourceArea.hpp" | |||
33 | #include "runtime/sharedRuntime.hpp" | |||
34 | #include "utilities/macros.hpp" | |||
35 | #ifdef COMPILER11 | |||
36 | #include "c1/c1_LIRAssembler.hpp" | |||
37 | #include "c1/c1_MacroAssembler.hpp" | |||
38 | #include "gc/z/c1/zBarrierSetC1.hpp" | |||
39 | #endif // COMPILER1 | |||
40 | #ifdef COMPILER21 | |||
41 | #include "gc/z/c2/zBarrierSetC2.hpp" | |||
42 | #endif // COMPILER2 | |||
43 | ||||
44 | #ifdef PRODUCT | |||
45 | #define BLOCK_COMMENT(str)__ block_comment(str) /* nothing */ | |||
46 | #else | |||
47 | #define BLOCK_COMMENT(str)__ block_comment(str) __ block_comment(str) | |||
48 | #endif | |||
49 | ||||
50 | #undef __ | |||
51 | #define __ masm-> | |||
52 | ||||
53 | static void call_vm(MacroAssembler* masm, | |||
54 | address entry_point, | |||
55 | Register arg0, | |||
56 | Register arg1) { | |||
57 | // Setup arguments | |||
58 | if (arg1 == c_rarg0) { | |||
59 | if (arg0 == c_rarg1) { | |||
60 | __ xchgptr(c_rarg1, c_rarg0); | |||
61 | } else { | |||
62 | __ movptr(c_rarg1, arg1); | |||
63 | __ movptr(c_rarg0, arg0); | |||
64 | } | |||
65 | } else { | |||
66 | if (arg0 != c_rarg0) { | |||
67 | __ movptr(c_rarg0, arg0); | |||
68 | } | |||
69 | if (arg1 != c_rarg1) { | |||
70 | __ movptr(c_rarg1, arg1); | |||
71 | } | |||
72 | } | |||
73 | ||||
74 | // Call VM | |||
75 | __ MacroAssembler::call_VM_leaf_base(entry_point, 2); | |||
76 | } | |||
77 | ||||
78 | void ZBarrierSetAssembler::load_at(MacroAssembler* masm, | |||
79 | DecoratorSet decorators, | |||
80 | BasicType type, | |||
81 | Register dst, | |||
82 | Address src, | |||
83 | Register tmp1, | |||
84 | Register tmp_thread) { | |||
85 | if (!ZBarrierSet::barrier_needed(decorators, type)) { | |||
86 | // Barrier not needed | |||
87 | BarrierSetAssembler::load_at(masm, decorators, type, dst, src, tmp1, tmp_thread); | |||
88 | return; | |||
89 | } | |||
90 | ||||
91 | BLOCK_COMMENT("ZBarrierSetAssembler::load_at {")__ block_comment("ZBarrierSetAssembler::load_at {"); | |||
92 | ||||
93 | // Allocate scratch register | |||
94 | Register scratch = tmp1; | |||
95 | if (tmp1 == noreg) { | |||
96 | scratch = r12; | |||
97 | __ push(scratch); | |||
98 | } | |||
99 | ||||
100 | assert_different_registers(dst, scratch); | |||
101 | ||||
102 | Label done; | |||
103 | ||||
104 | // | |||
105 | // Fast Path | |||
106 | // | |||
107 | ||||
108 | // Load address | |||
109 | __ lea(scratch, src); | |||
110 | ||||
111 | // Load oop at address | |||
112 | __ movptr(dst, Address(scratch, 0)); | |||
113 | ||||
114 | // Test address bad mask | |||
115 | __ testptr(dst, address_bad_mask_from_thread(r15_thread)); | |||
116 | __ jcc(Assembler::zero, done); | |||
117 | ||||
118 | // | |||
119 | // Slow path | |||
120 | // | |||
121 | ||||
122 | // Save registers | |||
123 | __ push(rax); | |||
124 | __ push(rcx); | |||
125 | __ push(rdx); | |||
126 | __ push(rdi); | |||
127 | __ push(rsi); | |||
128 | __ push(r8); | |||
129 | __ push(r9); | |||
130 | __ push(r10); | |||
131 | __ push(r11); | |||
132 | ||||
133 | // We may end up here from generate_native_wrapper, then the method may have | |||
134 | // floats as arguments, and we must spill them before calling the VM runtime | |||
135 | // leaf. From the interpreter all floats are passed on the stack. | |||
136 | assert(Argument::n_float_register_parameters_j == 8, "Assumption")do { if (!(Argument::n_float_register_parameters_j == 8)) { ( *g_assert_poison) = 'X';; report_vm_error("/home/daniel/Projects/java/jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp" , 136, "assert(" "Argument::n_float_register_parameters_j == 8" ") failed", "Assumption"); ::breakpoint(); } } while (0); | |||
137 | const int xmm_size = wordSize * 2; | |||
138 | const int xmm_spill_size = xmm_size * Argument::n_float_register_parameters_j; | |||
139 | __ subptr(rsp, xmm_spill_size); | |||
140 | __ movdqu(Address(rsp, xmm_size * 7), xmm7); | |||
141 | __ movdqu(Address(rsp, xmm_size * 6), xmm6); | |||
142 | __ movdqu(Address(rsp, xmm_size * 5), xmm5); | |||
143 | __ movdqu(Address(rsp, xmm_size * 4), xmm4); | |||
144 | __ movdqu(Address(rsp, xmm_size * 3), xmm3); | |||
145 | __ movdqu(Address(rsp, xmm_size * 2), xmm2); | |||
146 | __ movdqu(Address(rsp, xmm_size * 1), xmm1); | |||
147 | __ movdqu(Address(rsp, xmm_size * 0), xmm0); | |||
148 | ||||
149 | // Call VM | |||
150 | call_vm(masm, ZBarrierSetRuntime::load_barrier_on_oop_field_preloaded_addr(decorators), dst, scratch); | |||
151 | ||||
152 | __ movdqu(xmm0, Address(rsp, xmm_size * 0)); | |||
153 | __ movdqu(xmm1, Address(rsp, xmm_size * 1)); | |||
154 | __ movdqu(xmm2, Address(rsp, xmm_size * 2)); | |||
155 | __ movdqu(xmm3, Address(rsp, xmm_size * 3)); | |||
156 | __ movdqu(xmm4, Address(rsp, xmm_size * 4)); | |||
157 | __ movdqu(xmm5, Address(rsp, xmm_size * 5)); | |||
158 | __ movdqu(xmm6, Address(rsp, xmm_size * 6)); | |||
159 | __ movdqu(xmm7, Address(rsp, xmm_size * 7)); | |||
160 | __ addptr(rsp, xmm_spill_size); | |||
161 | ||||
162 | __ pop(r11); | |||
163 | __ pop(r10); | |||
164 | __ pop(r9); | |||
165 | __ pop(r8); | |||
166 | __ pop(rsi); | |||
167 | __ pop(rdi); | |||
168 | __ pop(rdx); | |||
169 | __ pop(rcx); | |||
170 | ||||
171 | if (dst == rax) { | |||
172 | __ addptr(rsp, wordSize); | |||
173 | } else { | |||
174 | __ movptr(dst, rax); | |||
175 | __ pop(rax); | |||
176 | } | |||
177 | ||||
178 | __ bind(done); | |||
179 | ||||
180 | // Restore scratch register | |||
181 | if (tmp1 == noreg) { | |||
182 | __ pop(scratch); | |||
183 | } | |||
184 | ||||
185 | BLOCK_COMMENT("} ZBarrierSetAssembler::load_at")__ block_comment("} ZBarrierSetAssembler::load_at"); | |||
186 | } | |||
187 | ||||
188 | #ifdef ASSERT1 | |||
189 | ||||
190 | void ZBarrierSetAssembler::store_at(MacroAssembler* masm, | |||
191 | DecoratorSet decorators, | |||
192 | BasicType type, | |||
193 | Address dst, | |||
194 | Register src, | |||
195 | Register tmp1, | |||
196 | Register tmp2) { | |||
197 | BLOCK_COMMENT("ZBarrierSetAssembler::store_at {")__ block_comment("ZBarrierSetAssembler::store_at {"); | |||
198 | ||||
199 | // Verify oop store | |||
200 | if (is_reference_type(type)) { | |||
201 | // Note that src could be noreg, which means we | |||
202 | // are storing null and can skip verification. | |||
203 | if (src != noreg) { | |||
204 | Label done; | |||
205 | __ testptr(src, address_bad_mask_from_thread(r15_thread)); | |||
206 | __ jcc(Assembler::zero, done); | |||
207 | __ stop("Verify oop store failed"); | |||
208 | __ should_not_reach_here(); | |||
209 | __ bind(done); | |||
210 | } | |||
211 | } | |||
212 | ||||
213 | // Store value | |||
214 | BarrierSetAssembler::store_at(masm, decorators, type, dst, src, tmp1, tmp2); | |||
215 | ||||
216 | BLOCK_COMMENT("} ZBarrierSetAssembler::store_at")__ block_comment("} ZBarrierSetAssembler::store_at"); | |||
217 | } | |||
218 | ||||
219 | #endif // ASSERT | |||
220 | ||||
221 | void ZBarrierSetAssembler::arraycopy_prologue(MacroAssembler* masm, | |||
222 | DecoratorSet decorators, | |||
223 | BasicType type, | |||
224 | Register src, | |||
225 | Register dst, | |||
226 | Register count) { | |||
227 | if (!ZBarrierSet::barrier_needed(decorators, type)) { | |||
228 | // Barrier not needed | |||
229 | return; | |||
230 | } | |||
231 | ||||
232 | BLOCK_COMMENT("ZBarrierSetAssembler::arraycopy_prologue {")__ block_comment("ZBarrierSetAssembler::arraycopy_prologue {" ); | |||
233 | ||||
234 | // Save registers | |||
235 | __ pusha(); | |||
236 | ||||
237 | // Call VM | |||
238 | call_vm(masm, ZBarrierSetRuntime::load_barrier_on_oop_array_addr(), src, count); | |||
239 | ||||
240 | // Restore registers | |||
241 | __ popa(); | |||
242 | ||||
243 | BLOCK_COMMENT("} ZBarrierSetAssembler::arraycopy_prologue")__ block_comment("} ZBarrierSetAssembler::arraycopy_prologue" ); | |||
244 | } | |||
245 | ||||
246 | void ZBarrierSetAssembler::try_resolve_jobject_in_native(MacroAssembler* masm, | |||
247 | Register jni_env, | |||
248 | Register obj, | |||
249 | Register tmp, | |||
250 | Label& slowpath) { | |||
251 | BLOCK_COMMENT("ZBarrierSetAssembler::try_resolve_jobject_in_native {")__ block_comment("ZBarrierSetAssembler::try_resolve_jobject_in_native {" ); | |||
252 | ||||
253 | // Resolve jobject | |||
254 | BarrierSetAssembler::try_resolve_jobject_in_native(masm, jni_env, obj, tmp, slowpath); | |||
255 | ||||
256 | // Test address bad mask | |||
257 | __ testptr(obj, address_bad_mask_from_jni_env(jni_env)); | |||
258 | __ jcc(Assembler::notZero, slowpath); | |||
259 | ||||
260 | BLOCK_COMMENT("} ZBarrierSetAssembler::try_resolve_jobject_in_native")__ block_comment("} ZBarrierSetAssembler::try_resolve_jobject_in_native" ); | |||
261 | } | |||
262 | ||||
263 | #ifdef COMPILER11 | |||
264 | ||||
265 | #undef __ | |||
266 | #define __ ce->masm()-> | |||
267 | ||||
268 | void ZBarrierSetAssembler::generate_c1_load_barrier_test(LIR_Assembler* ce, | |||
269 | LIR_Opr ref) const { | |||
270 | __ testptr(ref->as_register(), address_bad_mask_from_thread(r15_thread)); | |||
271 | } | |||
272 | ||||
273 | void ZBarrierSetAssembler::generate_c1_load_barrier_stub(LIR_Assembler* ce, | |||
274 | ZLoadBarrierStubC1* stub) const { | |||
275 | // Stub entry | |||
276 | __ bind(*stub->entry()); | |||
277 | ||||
278 | Register ref = stub->ref()->as_register(); | |||
279 | Register ref_addr = noreg; | |||
280 | Register tmp = noreg; | |||
281 | ||||
282 | if (stub->tmp()->is_valid()) { | |||
283 | // Load address into tmp register | |||
284 | ce->leal(stub->ref_addr(), stub->tmp()); | |||
285 | ref_addr = tmp = stub->tmp()->as_pointer_register(); | |||
286 | } else { | |||
287 | // Address already in register | |||
288 | ref_addr = stub->ref_addr()->as_address_ptr()->base()->as_pointer_register(); | |||
289 | } | |||
290 | ||||
291 | assert_different_registers(ref, ref_addr, noreg); | |||
292 | ||||
293 | // Save rax unless it is the result or tmp register | |||
294 | if (ref != rax && tmp != rax) { | |||
295 | __ push(rax); | |||
296 | } | |||
297 | ||||
298 | // Setup arguments and call runtime stub | |||
299 | __ subptr(rsp, 2 * BytesPerWord); | |||
300 | ce->store_parameter(ref_addr, 1); | |||
301 | ce->store_parameter(ref, 0); | |||
302 | __ call(RuntimeAddress(stub->runtime_stub())); | |||
303 | __ addptr(rsp, 2 * BytesPerWord); | |||
304 | ||||
305 | // Verify result | |||
306 | __ verify_oop(rax)_verify_oop_checked(rax, "broken oop " "rax", "/home/daniel/Projects/java/jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp" , 306); | |||
307 | ||||
308 | // Move result into place | |||
309 | if (ref != rax) { | |||
310 | __ movptr(ref, rax); | |||
311 | } | |||
312 | ||||
313 | // Restore rax unless it is the result or tmp register | |||
314 | if (ref != rax && tmp != rax) { | |||
315 | __ pop(rax); | |||
316 | } | |||
317 | ||||
318 | // Stub exit | |||
319 | __ jmp(*stub->continuation()); | |||
320 | } | |||
321 | ||||
322 | #undef __ | |||
323 | #define __ sasm-> | |||
324 | ||||
325 | void ZBarrierSetAssembler::generate_c1_load_barrier_runtime_stub(StubAssembler* sasm, | |||
326 | DecoratorSet decorators) const { | |||
327 | // Enter and save registers | |||
328 | __ enter(); | |||
329 | __ save_live_registers_no_oop_map(true /* save_fpu_registers */); | |||
330 | ||||
331 | // Setup arguments | |||
332 | __ load_parameter(1, c_rarg1); | |||
333 | __ load_parameter(0, c_rarg0); | |||
334 | ||||
335 | // Call VM | |||
336 | __ call_VM_leaf(ZBarrierSetRuntime::load_barrier_on_oop_field_preloaded_addr(decorators), c_rarg0, c_rarg1); | |||
337 | ||||
338 | // Restore registers and return | |||
339 | __ restore_live_registers_except_rax(true /* restore_fpu_registers */); | |||
340 | __ leave(); | |||
341 | __ ret(0); | |||
342 | } | |||
343 | ||||
344 | #endif // COMPILER1 | |||
345 | ||||
346 | #ifdef COMPILER21 | |||
347 | ||||
348 | OptoReg::Name ZBarrierSetAssembler::refine_register(const Node* node, OptoReg::Name opto_reg) { | |||
349 | if (!OptoReg::is_reg(opto_reg)) { | |||
350 | return OptoReg::Bad; | |||
351 | } | |||
352 | ||||
353 | const VMReg vm_reg = OptoReg::as_VMReg(opto_reg); | |||
354 | if (vm_reg->is_XMMRegister()) { | |||
355 | opto_reg &= ~15; | |||
356 | switch (node->ideal_reg()) { | |||
357 | case Op_VecX: | |||
358 | opto_reg |= 2; | |||
359 | break; | |||
360 | case Op_VecY: | |||
361 | opto_reg |= 4; | |||
362 | break; | |||
363 | case Op_VecZ: | |||
364 | opto_reg |= 8; | |||
365 | break; | |||
366 | default: | |||
367 | opto_reg |= 1; | |||
368 | break; | |||
369 | } | |||
370 | } | |||
371 | ||||
372 | return opto_reg; | |||
373 | } | |||
374 | ||||
375 | // We use the vec_spill_helper from the x86.ad file to avoid reinventing this wheel | |||
376 | extern void vec_spill_helper(CodeBuffer *cbuf, bool is_load, | |||
377 | int stack_offset, int reg, uint ireg, outputStream* st); | |||
378 | ||||
379 | #undef __ | |||
380 | #define __ _masm-> | |||
381 | ||||
382 | class ZSaveLiveRegisters { | |||
383 | private: | |||
384 | struct XMMRegisterData { | |||
385 | XMMRegister _reg; | |||
386 | int _size; | |||
387 | ||||
388 | // Used by GrowableArray::find() | |||
389 | bool operator == (const XMMRegisterData& other) { | |||
390 | return _reg == other._reg; | |||
391 | } | |||
392 | }; | |||
393 | ||||
394 | MacroAssembler* const _masm; | |||
395 | GrowableArray<Register> _gp_registers; | |||
396 | GrowableArray<KRegister> _opmask_registers; | |||
397 | GrowableArray<XMMRegisterData> _xmm_registers; | |||
398 | int _spill_size; | |||
399 | int _spill_offset; | |||
400 | ||||
401 | static int xmm_compare_register_size(XMMRegisterData* left, XMMRegisterData* right) { | |||
402 | if (left->_size == right->_size) { | |||
403 | return 0; | |||
404 | } | |||
405 | ||||
406 | return (left->_size < right->_size) ? -1 : 1; | |||
407 | } | |||
408 | ||||
409 | static int xmm_slot_size(OptoReg::Name opto_reg) { | |||
410 | // The low order 4 bytes denote what size of the XMM register is live | |||
411 | return (opto_reg & 15) << 3; | |||
412 | } | |||
413 | ||||
414 | static uint xmm_ideal_reg_for_size(int reg_size) { | |||
415 | switch (reg_size) { | |||
416 | case 8: | |||
417 | return Op_VecD; | |||
418 | case 16: | |||
419 | return Op_VecX; | |||
420 | case 32: | |||
421 | return Op_VecY; | |||
422 | case 64: | |||
423 | return Op_VecZ; | |||
424 | default: | |||
425 | fatal("Invalid register size %d", reg_size)do { (*g_assert_poison) = 'X';; report_fatal(INTERNAL_ERROR, "/home/daniel/Projects/java/jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp" , 425, "Invalid register size %d", reg_size); ::breakpoint(); } while (0); | |||
426 | return 0; | |||
427 | } | |||
428 | } | |||
429 | ||||
430 | bool xmm_needs_vzeroupper() const { | |||
431 | return _xmm_registers.is_nonempty() && _xmm_registers.at(0)._size > 16; | |||
432 | } | |||
433 | ||||
434 | void xmm_register_save(const XMMRegisterData& reg_data) { | |||
435 | const OptoReg::Name opto_reg = OptoReg::as_OptoReg(reg_data._reg->as_VMReg()); | |||
436 | const uint ideal_reg = xmm_ideal_reg_for_size(reg_data._size); | |||
437 | _spill_offset -= reg_data._size; | |||
438 | vec_spill_helper(__ code(), false /* is_load */, _spill_offset, opto_reg, ideal_reg, tty); | |||
439 | } | |||
440 | ||||
441 | void xmm_register_restore(const XMMRegisterData& reg_data) { | |||
442 | const OptoReg::Name opto_reg = OptoReg::as_OptoReg(reg_data._reg->as_VMReg()); | |||
443 | const uint ideal_reg = xmm_ideal_reg_for_size(reg_data._size); | |||
444 | vec_spill_helper(__ code(), true /* is_load */, _spill_offset, opto_reg, ideal_reg, tty); | |||
445 | _spill_offset += reg_data._size; | |||
446 | } | |||
447 | ||||
448 | void gp_register_save(Register reg) { | |||
449 | _spill_offset -= 8; | |||
450 | __ movq(Address(rsp, _spill_offset), reg); | |||
451 | } | |||
452 | ||||
453 | void opmask_register_save(KRegister reg) { | |||
454 | _spill_offset -= 8; | |||
455 | __ kmovql(Address(rsp, _spill_offset), reg); | |||
456 | } | |||
457 | ||||
458 | void gp_register_restore(Register reg) { | |||
459 | __ movq(reg, Address(rsp, _spill_offset)); | |||
460 | _spill_offset += 8; | |||
461 | } | |||
462 | ||||
463 | void opmask_register_restore(KRegister reg) { | |||
464 | __ kmovql(reg, Address(rsp, _spill_offset)); | |||
465 | _spill_offset += 8; | |||
466 | } | |||
467 | ||||
468 | // Register is a class, but it would be assigned numerical value. | |||
469 | // "0" is assigned for rax. Thus we need to ignore -Wnonnull. | |||
470 | PRAGMA_DIAG_PUSHGCC diagnostic push | |||
471 | PRAGMA_NONNULL_IGNOREDGCC diagnostic ignored "-Wnonnull" | |||
472 | void initialize(ZLoadBarrierStubC2* stub) { | |||
473 | // Create mask of caller saved registers that need to | |||
474 | // be saved/restored if live | |||
475 | RegMask caller_saved; | |||
476 | caller_saved.Insert(OptoReg::as_OptoReg(rax->as_VMReg())); | |||
| ||||
477 | caller_saved.Insert(OptoReg::as_OptoReg(rcx->as_VMReg())); | |||
478 | caller_saved.Insert(OptoReg::as_OptoReg(rdx->as_VMReg())); | |||
479 | caller_saved.Insert(OptoReg::as_OptoReg(rsi->as_VMReg())); | |||
480 | caller_saved.Insert(OptoReg::as_OptoReg(rdi->as_VMReg())); | |||
481 | caller_saved.Insert(OptoReg::as_OptoReg(r8->as_VMReg())); | |||
482 | caller_saved.Insert(OptoReg::as_OptoReg(r9->as_VMReg())); | |||
483 | caller_saved.Insert(OptoReg::as_OptoReg(r10->as_VMReg())); | |||
484 | caller_saved.Insert(OptoReg::as_OptoReg(r11->as_VMReg())); | |||
485 | caller_saved.Remove(OptoReg::as_OptoReg(stub->ref()->as_VMReg())); | |||
486 | ||||
487 | // Create mask of live registers | |||
488 | RegMask live = stub->live(); | |||
489 | if (stub->tmp() != noreg) { | |||
490 | live.Insert(OptoReg::as_OptoReg(stub->tmp()->as_VMReg())); | |||
491 | } | |||
492 | ||||
493 | int gp_spill_size = 0; | |||
494 | int opmask_spill_size = 0; | |||
495 | int xmm_spill_size = 0; | |||
496 | ||||
497 | // Record registers that needs to be saved/restored | |||
498 | RegMaskIterator rmi(live); | |||
499 | while (rmi.has_next()) { | |||
500 | const OptoReg::Name opto_reg = rmi.next(); | |||
501 | const VMReg vm_reg = OptoReg::as_VMReg(opto_reg); | |||
502 | ||||
503 | if (vm_reg->is_Register()) { | |||
504 | if (caller_saved.Member(opto_reg)) { | |||
505 | _gp_registers.append(vm_reg->as_Register()); | |||
506 | gp_spill_size += 8; | |||
507 | } | |||
508 | } else if (vm_reg->is_KRegister()) { | |||
509 | // All opmask registers are caller saved, thus spill the ones | |||
510 | // which are live. | |||
511 | if (_opmask_registers.find(vm_reg->as_KRegister()) == -1) { | |||
512 | _opmask_registers.append(vm_reg->as_KRegister()); | |||
513 | opmask_spill_size += 8; | |||
514 | } | |||
515 | } else if (vm_reg->is_XMMRegister()) { | |||
516 | // We encode in the low order 4 bits of the opto_reg, how large part of the register is live | |||
517 | const VMReg vm_reg_base = OptoReg::as_VMReg(opto_reg & ~15); | |||
518 | const int reg_size = xmm_slot_size(opto_reg); | |||
519 | const XMMRegisterData reg_data = { vm_reg_base->as_XMMRegister(), reg_size }; | |||
520 | const int reg_index = _xmm_registers.find(reg_data); | |||
521 | if (reg_index == -1) { | |||
522 | // Not previously appended | |||
523 | _xmm_registers.append(reg_data); | |||
524 | xmm_spill_size += reg_size; | |||
525 | } else { | |||
526 | // Previously appended, update size | |||
527 | const int reg_size_prev = _xmm_registers.at(reg_index)._size; | |||
528 | if (reg_size > reg_size_prev) { | |||
529 | _xmm_registers.at_put(reg_index, reg_data); | |||
530 | xmm_spill_size += reg_size - reg_size_prev; | |||
531 | } | |||
532 | } | |||
533 | } else { | |||
534 | fatal("Unexpected register type")do { (*g_assert_poison) = 'X';; report_fatal(INTERNAL_ERROR, "/home/daniel/Projects/java/jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp" , 534, "Unexpected register type"); ::breakpoint(); } while ( 0); | |||
535 | } | |||
536 | } | |||
537 | ||||
538 | // Sort by size, largest first | |||
539 | _xmm_registers.sort(xmm_compare_register_size); | |||
540 | ||||
541 | // On Windows, the caller reserves stack space for spilling register arguments | |||
542 | const int arg_spill_size = frame::arg_reg_save_area_bytes; | |||
543 | ||||
544 | // Stack pointer must be 16 bytes aligned for the call | |||
545 | _spill_offset = _spill_size = align_up(xmm_spill_size + gp_spill_size + opmask_spill_size + arg_spill_size, 16); | |||
546 | } | |||
547 | PRAGMA_DIAG_POPGCC diagnostic pop | |||
548 | ||||
549 | public: | |||
550 | ZSaveLiveRegisters(MacroAssembler* masm, ZLoadBarrierStubC2* stub) : | |||
551 | _masm(masm), | |||
552 | _gp_registers(), | |||
553 | _opmask_registers(), | |||
554 | _xmm_registers(), | |||
555 | _spill_size(0), | |||
556 | _spill_offset(0) { | |||
557 | ||||
558 | // | |||
559 | // Stack layout after registers have been spilled: | |||
560 | // | |||
561 | // | ... | original rsp, 16 bytes aligned | |||
562 | // ------------------ | |||
563 | // | zmm0 high | | |||
564 | // | ... | | |||
565 | // | zmm0 low | 16 bytes aligned | |||
566 | // | ... | | |||
567 | // | ymm1 high | | |||
568 | // | ... | | |||
569 | // | ymm1 low | 16 bytes aligned | |||
570 | // | ... | | |||
571 | // | xmmN high | | |||
572 | // | ... | | |||
573 | // | xmmN low | 8 bytes aligned | |||
574 | // | reg0 | 8 bytes aligned | |||
575 | // | reg1 | | |||
576 | // | ... | | |||
577 | // | regN | new rsp, if 16 bytes aligned | |||
578 | // | <padding> | else new rsp, 16 bytes aligned | |||
579 | // ------------------ | |||
580 | // | |||
581 | ||||
582 | // Figure out what registers to save/restore | |||
583 | initialize(stub); | |||
584 | ||||
585 | // Allocate stack space | |||
586 | if (_spill_size > 0) { | |||
587 | __ subptr(rsp, _spill_size); | |||
588 | } | |||
589 | ||||
590 | // Save XMM/YMM/ZMM registers | |||
591 | for (int i = 0; i < _xmm_registers.length(); i++) { | |||
592 | xmm_register_save(_xmm_registers.at(i)); | |||
593 | } | |||
594 | ||||
595 | if (xmm_needs_vzeroupper()) { | |||
596 | __ vzeroupper(); | |||
597 | } | |||
598 | ||||
599 | // Save general purpose registers | |||
600 | for (int i = 0; i < _gp_registers.length(); i++) { | |||
601 | gp_register_save(_gp_registers.at(i)); | |||
602 | } | |||
603 | ||||
604 | // Save opmask registers | |||
605 | for (int i = 0; i < _opmask_registers.length(); i++) { | |||
606 | opmask_register_save(_opmask_registers.at(i)); | |||
607 | } | |||
608 | } | |||
609 | ||||
610 | ~ZSaveLiveRegisters() { | |||
611 | // Restore opmask registers | |||
612 | for (int i = _opmask_registers.length() - 1; i >= 0; i--) { | |||
613 | opmask_register_restore(_opmask_registers.at(i)); | |||
614 | } | |||
615 | ||||
616 | // Restore general purpose registers | |||
617 | for (int i = _gp_registers.length() - 1; i >= 0; i--) { | |||
618 | gp_register_restore(_gp_registers.at(i)); | |||
619 | } | |||
620 | ||||
621 | __ vzeroupper(); | |||
622 | ||||
623 | // Restore XMM/YMM/ZMM registers | |||
624 | for (int i = _xmm_registers.length() - 1; i >= 0; i--) { | |||
625 | xmm_register_restore(_xmm_registers.at(i)); | |||
626 | } | |||
627 | ||||
628 | // Free stack space | |||
629 | if (_spill_size > 0) { | |||
630 | __ addptr(rsp, _spill_size); | |||
631 | } | |||
632 | } | |||
633 | }; | |||
634 | ||||
635 | class ZSetupArguments { | |||
636 | private: | |||
637 | MacroAssembler* const _masm; | |||
638 | const Register _ref; | |||
639 | const Address _ref_addr; | |||
640 | ||||
641 | public: | |||
642 | ZSetupArguments(MacroAssembler* masm, ZLoadBarrierStubC2* stub) : | |||
643 | _masm(masm), | |||
644 | _ref(stub->ref()), | |||
645 | _ref_addr(stub->ref_addr()) { | |||
646 | ||||
647 | // Setup arguments | |||
648 | if (_ref_addr.base() == noreg) { | |||
649 | // No self healing | |||
650 | if (_ref != c_rarg0) { | |||
651 | __ movq(c_rarg0, _ref); | |||
652 | } | |||
653 | __ xorq(c_rarg1, c_rarg1); | |||
654 | } else { | |||
655 | // Self healing | |||
656 | if (_ref == c_rarg0) { | |||
657 | __ lea(c_rarg1, _ref_addr); | |||
658 | } else if (_ref != c_rarg1) { | |||
659 | __ lea(c_rarg1, _ref_addr); | |||
660 | __ movq(c_rarg0, _ref); | |||
661 | } else if (_ref_addr.base() != c_rarg0 && _ref_addr.index() != c_rarg0) { | |||
662 | __ movq(c_rarg0, _ref); | |||
663 | __ lea(c_rarg1, _ref_addr); | |||
664 | } else { | |||
665 | __ xchgq(c_rarg0, c_rarg1); | |||
666 | if (_ref_addr.base() == c_rarg0) { | |||
667 | __ lea(c_rarg1, Address(c_rarg1, _ref_addr.index(), _ref_addr.scale(), _ref_addr.disp())); | |||
668 | } else if (_ref_addr.index() == c_rarg0) { | |||
669 | __ lea(c_rarg1, Address(_ref_addr.base(), c_rarg1, _ref_addr.scale(), _ref_addr.disp())); | |||
670 | } else { | |||
671 | ShouldNotReachHere()do { (*g_assert_poison) = 'X';; report_should_not_reach_here( "/home/daniel/Projects/java/jdk/src/hotspot/cpu/x86/gc/z/zBarrierSetAssembler_x86.cpp" , 671); ::breakpoint(); } while (0); | |||
672 | } | |||
673 | } | |||
674 | } | |||
675 | } | |||
676 | ||||
677 | ~ZSetupArguments() { | |||
678 | // Transfer result | |||
679 | if (_ref != rax) { | |||
680 | __ movq(_ref, rax); | |||
681 | } | |||
682 | } | |||
683 | }; | |||
684 | ||||
685 | #undef __ | |||
686 | #define __ masm-> | |||
687 | ||||
688 | void ZBarrierSetAssembler::generate_c2_load_barrier_stub(MacroAssembler* masm, ZLoadBarrierStubC2* stub) const { | |||
689 | BLOCK_COMMENT("ZLoadBarrierStubC2")__ block_comment("ZLoadBarrierStubC2"); | |||
690 | ||||
691 | // Stub entry | |||
692 | __ bind(*stub->entry()); | |||
693 | ||||
694 | { | |||
695 | ZSaveLiveRegisters save_live_registers(masm, stub); | |||
| ||||
696 | ZSetupArguments setup_arguments(masm, stub); | |||
697 | __ call(RuntimeAddress(stub->slow_path())); | |||
698 | } | |||
699 | ||||
700 | // Stub exit | |||
701 | __ jmp(*stub->continuation()); | |||
702 | } | |||
703 | ||||
704 | #undef __ | |||
705 | ||||
706 | #endif // COMPILER2 |