src/cpu/x86/vm/stubGenerator_x86_64.cpp

Sat, 07 Nov 2020 10:30:02 +0800

author
aoqi
date
Sat, 07 Nov 2020 10:30:02 +0800
changeset 10026
8c95980d0b66
parent 9806
758c07667682
permissions
-rw-r--r--

Added tag mips-jdk8u275-b01 for changeset d3b4d62f391f

duke@435 1 /*
drchase@5353 2 * Copyright (c) 2003, 2013, Oracle and/or its affiliates. All rights reserved.
duke@435 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435 4 *
duke@435 5 * This code is free software; you can redistribute it and/or modify it
duke@435 6 * under the terms of the GNU General Public License version 2 only, as
duke@435 7 * published by the Free Software Foundation.
duke@435 8 *
duke@435 9 * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
duke@435 12 * version 2 for more details (a copy is included in the LICENSE file that
duke@435 13 * accompanied this code).
duke@435 14 *
duke@435 15 * You should have received a copy of the GNU General Public License version
duke@435 16 * 2 along with this work; if not, write to the Free Software Foundation,
duke@435 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435 18 *
trims@1907 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
trims@1907 20 * or visit www.oracle.com if you need additional information or have any
trims@1907 21 * questions.
duke@435 22 *
duke@435 23 */
duke@435 24
stefank@2314 25 #include "precompiled.hpp"
twisti@4318 26 #include "asm/macroAssembler.hpp"
twisti@4318 27 #include "asm/macroAssembler.inline.hpp"
stefank@2314 28 #include "interpreter/interpreter.hpp"
stefank@2314 29 #include "nativeInst_x86.hpp"
stefank@2314 30 #include "oops/instanceOop.hpp"
coleenp@4037 31 #include "oops/method.hpp"
stefank@2314 32 #include "oops/objArrayKlass.hpp"
stefank@2314 33 #include "oops/oop.inline.hpp"
stefank@2314 34 #include "prims/methodHandles.hpp"
stefank@2314 35 #include "runtime/frame.inline.hpp"
stefank@2314 36 #include "runtime/handles.inline.hpp"
stefank@2314 37 #include "runtime/sharedRuntime.hpp"
stefank@2314 38 #include "runtime/stubCodeGenerator.hpp"
stefank@2314 39 #include "runtime/stubRoutines.hpp"
stefank@4299 40 #include "runtime/thread.inline.hpp"
stefank@2314 41 #include "utilities/top.hpp"
stefank@2314 42 #ifdef COMPILER2
stefank@2314 43 #include "opto/runtime.hpp"
stefank@2314 44 #endif
duke@435 45
duke@435 46 // Declaration and definition of StubGenerator (no .hpp file).
duke@435 47 // For a more detailed description of the stub routine structure
duke@435 48 // see the comment in stubRoutines.hpp
duke@435 49
duke@435 50 #define __ _masm->
coleenp@548 51 #define TIMES_OOP (UseCompressedOops ? Address::times_4 : Address::times_8)
never@739 52 #define a__ ((Assembler*)_masm)->
duke@435 53
duke@435 54 #ifdef PRODUCT
duke@435 55 #define BLOCK_COMMENT(str) /* nothing */
duke@435 56 #else
duke@435 57 #define BLOCK_COMMENT(str) __ block_comment(str)
duke@435 58 #endif
duke@435 59
duke@435 60 #define BIND(label) bind(label); BLOCK_COMMENT(#label ":")
duke@435 61 const int MXCSR_MASK = 0xFFC0; // Mask out any pending exceptions
duke@435 62
duke@435 63 // Stub Code definitions
duke@435 64
duke@435 65 static address handle_unsafe_access() {
duke@435 66 JavaThread* thread = JavaThread::current();
duke@435 67 address pc = thread->saved_exception_pc();
duke@435 68 // pc is the instruction which we must emulate
duke@435 69 // doing a no-op is fine: return garbage from the load
duke@435 70 // therefore, compute npc
duke@435 71 address npc = Assembler::locate_next_instruction(pc);
duke@435 72
duke@435 73 // request an async exception
duke@435 74 thread->set_pending_unsafe_access_error();
duke@435 75
duke@435 76 // return address of next instruction to execute
duke@435 77 return npc;
duke@435 78 }
duke@435 79
duke@435 80 class StubGenerator: public StubCodeGenerator {
duke@435 81 private:
duke@435 82
duke@435 83 #ifdef PRODUCT
ccheung@5259 84 #define inc_counter_np(counter) ((void)0)
duke@435 85 #else
duke@435 86 void inc_counter_np_(int& counter) {
never@3314 87 // This can destroy rscratch1 if counter is far from the code cache
duke@435 88 __ incrementl(ExternalAddress((address)&counter));
duke@435 89 }
duke@435 90 #define inc_counter_np(counter) \
duke@435 91 BLOCK_COMMENT("inc_counter " #counter); \
duke@435 92 inc_counter_np_(counter);
duke@435 93 #endif
duke@435 94
duke@435 95 // Call stubs are used to call Java from C
duke@435 96 //
duke@435 97 // Linux Arguments:
duke@435 98 // c_rarg0: call wrapper address address
duke@435 99 // c_rarg1: result address
duke@435 100 // c_rarg2: result type BasicType
coleenp@4037 101 // c_rarg3: method Method*
duke@435 102 // c_rarg4: (interpreter) entry point address
duke@435 103 // c_rarg5: parameters intptr_t*
duke@435 104 // 16(rbp): parameter size (in words) int
duke@435 105 // 24(rbp): thread Thread*
duke@435 106 //
duke@435 107 // [ return_from_Java ] <--- rsp
duke@435 108 // [ argument word n ]
duke@435 109 // ...
duke@435 110 // -12 [ argument word 1 ]
duke@435 111 // -11 [ saved r15 ] <--- rsp_after_call
duke@435 112 // -10 [ saved r14 ]
duke@435 113 // -9 [ saved r13 ]
duke@435 114 // -8 [ saved r12 ]
duke@435 115 // -7 [ saved rbx ]
duke@435 116 // -6 [ call wrapper ]
duke@435 117 // -5 [ result ]
duke@435 118 // -4 [ result type ]
duke@435 119 // -3 [ method ]
duke@435 120 // -2 [ entry point ]
duke@435 121 // -1 [ parameters ]
duke@435 122 // 0 [ saved rbp ] <--- rbp
duke@435 123 // 1 [ return address ]
duke@435 124 // 2 [ parameter size ]
duke@435 125 // 3 [ thread ]
duke@435 126 //
duke@435 127 // Windows Arguments:
duke@435 128 // c_rarg0: call wrapper address address
duke@435 129 // c_rarg1: result address
duke@435 130 // c_rarg2: result type BasicType
coleenp@4037 131 // c_rarg3: method Method*
duke@435 132 // 48(rbp): (interpreter) entry point address
duke@435 133 // 56(rbp): parameters intptr_t*
duke@435 134 // 64(rbp): parameter size (in words) int
duke@435 135 // 72(rbp): thread Thread*
duke@435 136 //
duke@435 137 // [ return_from_Java ] <--- rsp
duke@435 138 // [ argument word n ]
duke@435 139 // ...
iveresov@2689 140 // -28 [ argument word 1 ]
iveresov@2689 141 // -27 [ saved xmm15 ] <--- rsp_after_call
iveresov@2689 142 // [ saved xmm7-xmm14 ]
iveresov@2689 143 // -9 [ saved xmm6 ] (each xmm register takes 2 slots)
iveresov@2689 144 // -7 [ saved r15 ]
duke@435 145 // -6 [ saved r14 ]
duke@435 146 // -5 [ saved r13 ]
duke@435 147 // -4 [ saved r12 ]
duke@435 148 // -3 [ saved rdi ]
duke@435 149 // -2 [ saved rsi ]
duke@435 150 // -1 [ saved rbx ]
duke@435 151 // 0 [ saved rbp ] <--- rbp
duke@435 152 // 1 [ return address ]
duke@435 153 // 2 [ call wrapper ]
duke@435 154 // 3 [ result ]
duke@435 155 // 4 [ result type ]
duke@435 156 // 5 [ method ]
duke@435 157 // 6 [ entry point ]
duke@435 158 // 7 [ parameters ]
duke@435 159 // 8 [ parameter size ]
duke@435 160 // 9 [ thread ]
duke@435 161 //
duke@435 162 // Windows reserves the callers stack space for arguments 1-4.
duke@435 163 // We spill c_rarg0-c_rarg3 to this space.
duke@435 164
duke@435 165 // Call stub stack layout word offsets from rbp
duke@435 166 enum call_stub_layout {
duke@435 167 #ifdef _WIN64
iveresov@2689 168 xmm_save_first = 6, // save from xmm6
iveresov@2689 169 xmm_save_last = 15, // to xmm15
iveresov@2689 170 xmm_save_base = -9,
iveresov@2689 171 rsp_after_call_off = xmm_save_base - 2 * (xmm_save_last - xmm_save_first), // -27
iveresov@2689 172 r15_off = -7,
duke@435 173 r14_off = -6,
duke@435 174 r13_off = -5,
duke@435 175 r12_off = -4,
duke@435 176 rdi_off = -3,
duke@435 177 rsi_off = -2,
duke@435 178 rbx_off = -1,
duke@435 179 rbp_off = 0,
duke@435 180 retaddr_off = 1,
duke@435 181 call_wrapper_off = 2,
duke@435 182 result_off = 3,
duke@435 183 result_type_off = 4,
duke@435 184 method_off = 5,
duke@435 185 entry_point_off = 6,
duke@435 186 parameters_off = 7,
duke@435 187 parameter_size_off = 8,
duke@435 188 thread_off = 9
duke@435 189 #else
duke@435 190 rsp_after_call_off = -12,
duke@435 191 mxcsr_off = rsp_after_call_off,
duke@435 192 r15_off = -11,
duke@435 193 r14_off = -10,
duke@435 194 r13_off = -9,
duke@435 195 r12_off = -8,
duke@435 196 rbx_off = -7,
duke@435 197 call_wrapper_off = -6,
duke@435 198 result_off = -5,
duke@435 199 result_type_off = -4,
duke@435 200 method_off = -3,
duke@435 201 entry_point_off = -2,
duke@435 202 parameters_off = -1,
duke@435 203 rbp_off = 0,
duke@435 204 retaddr_off = 1,
duke@435 205 parameter_size_off = 2,
duke@435 206 thread_off = 3
duke@435 207 #endif
duke@435 208 };
duke@435 209
iveresov@2689 210 #ifdef _WIN64
iveresov@2689 211 Address xmm_save(int reg) {
iveresov@2689 212 assert(reg >= xmm_save_first && reg <= xmm_save_last, "XMM register number out of range");
iveresov@2689 213 return Address(rbp, (xmm_save_base - (reg - xmm_save_first) * 2) * wordSize);
iveresov@2689 214 }
iveresov@2689 215 #endif
iveresov@2689 216
duke@435 217 address generate_call_stub(address& return_address) {
duke@435 218 assert((int)frame::entry_frame_after_call_words == -(int)rsp_after_call_off + 1 &&
duke@435 219 (int)frame::entry_frame_call_wrapper_offset == (int)call_wrapper_off,
duke@435 220 "adjust this code");
duke@435 221 StubCodeMark mark(this, "StubRoutines", "call_stub");
duke@435 222 address start = __ pc();
duke@435 223
duke@435 224 // same as in generate_catch_exception()!
duke@435 225 const Address rsp_after_call(rbp, rsp_after_call_off * wordSize);
duke@435 226
duke@435 227 const Address call_wrapper (rbp, call_wrapper_off * wordSize);
duke@435 228 const Address result (rbp, result_off * wordSize);
duke@435 229 const Address result_type (rbp, result_type_off * wordSize);
duke@435 230 const Address method (rbp, method_off * wordSize);
duke@435 231 const Address entry_point (rbp, entry_point_off * wordSize);
duke@435 232 const Address parameters (rbp, parameters_off * wordSize);
duke@435 233 const Address parameter_size(rbp, parameter_size_off * wordSize);
duke@435 234
duke@435 235 // same as in generate_catch_exception()!
duke@435 236 const Address thread (rbp, thread_off * wordSize);
duke@435 237
duke@435 238 const Address r15_save(rbp, r15_off * wordSize);
duke@435 239 const Address r14_save(rbp, r14_off * wordSize);
duke@435 240 const Address r13_save(rbp, r13_off * wordSize);
duke@435 241 const Address r12_save(rbp, r12_off * wordSize);
duke@435 242 const Address rbx_save(rbp, rbx_off * wordSize);
duke@435 243
duke@435 244 // stub code
duke@435 245 __ enter();
never@739 246 __ subptr(rsp, -rsp_after_call_off * wordSize);
duke@435 247
duke@435 248 // save register parameters
duke@435 249 #ifndef _WIN64
never@739 250 __ movptr(parameters, c_rarg5); // parameters
never@739 251 __ movptr(entry_point, c_rarg4); // entry_point
duke@435 252 #endif
duke@435 253
never@739 254 __ movptr(method, c_rarg3); // method
never@739 255 __ movl(result_type, c_rarg2); // result type
never@739 256 __ movptr(result, c_rarg1); // result
never@739 257 __ movptr(call_wrapper, c_rarg0); // call wrapper
duke@435 258
duke@435 259 // save regs belonging to calling function
never@739 260 __ movptr(rbx_save, rbx);
never@739 261 __ movptr(r12_save, r12);
never@739 262 __ movptr(r13_save, r13);
never@739 263 __ movptr(r14_save, r14);
never@739 264 __ movptr(r15_save, r15);
duke@435 265 #ifdef _WIN64
iveresov@2689 266 for (int i = 6; i <= 15; i++) {
iveresov@2689 267 __ movdqu(xmm_save(i), as_XMMRegister(i));
iveresov@2689 268 }
iveresov@2689 269
duke@435 270 const Address rdi_save(rbp, rdi_off * wordSize);
duke@435 271 const Address rsi_save(rbp, rsi_off * wordSize);
duke@435 272
never@739 273 __ movptr(rsi_save, rsi);
never@739 274 __ movptr(rdi_save, rdi);
duke@435 275 #else
duke@435 276 const Address mxcsr_save(rbp, mxcsr_off * wordSize);
duke@435 277 {
duke@435 278 Label skip_ldmx;
duke@435 279 __ stmxcsr(mxcsr_save);
duke@435 280 __ movl(rax, mxcsr_save);
duke@435 281 __ andl(rax, MXCSR_MASK); // Only check control and mask bits
kvn@5439 282 ExternalAddress mxcsr_std(StubRoutines::addr_mxcsr_std());
duke@435 283 __ cmp32(rax, mxcsr_std);
duke@435 284 __ jcc(Assembler::equal, skip_ldmx);
duke@435 285 __ ldmxcsr(mxcsr_std);
duke@435 286 __ bind(skip_ldmx);
duke@435 287 }
duke@435 288 #endif
duke@435 289
duke@435 290 // Load up thread register
never@739 291 __ movptr(r15_thread, thread);
coleenp@548 292 __ reinit_heapbase();
duke@435 293
duke@435 294 #ifdef ASSERT
duke@435 295 // make sure we have no pending exceptions
duke@435 296 {
duke@435 297 Label L;
never@739 298 __ cmpptr(Address(r15_thread, Thread::pending_exception_offset()), (int32_t)NULL_WORD);
duke@435 299 __ jcc(Assembler::equal, L);
duke@435 300 __ stop("StubRoutines::call_stub: entered with pending exception");
duke@435 301 __ bind(L);
duke@435 302 }
duke@435 303 #endif
duke@435 304
duke@435 305 // pass parameters if any
duke@435 306 BLOCK_COMMENT("pass parameters if any");
duke@435 307 Label parameters_done;
duke@435 308 __ movl(c_rarg3, parameter_size);
duke@435 309 __ testl(c_rarg3, c_rarg3);
duke@435 310 __ jcc(Assembler::zero, parameters_done);
duke@435 311
duke@435 312 Label loop;
never@739 313 __ movptr(c_rarg2, parameters); // parameter pointer
never@739 314 __ movl(c_rarg1, c_rarg3); // parameter counter is in c_rarg1
duke@435 315 __ BIND(loop);
never@739 316 __ movptr(rax, Address(c_rarg2, 0));// get parameter
never@739 317 __ addptr(c_rarg2, wordSize); // advance to next parameter
never@739 318 __ decrementl(c_rarg1); // decrement counter
never@739 319 __ push(rax); // pass parameter
duke@435 320 __ jcc(Assembler::notZero, loop);
duke@435 321
duke@435 322 // call Java function
duke@435 323 __ BIND(parameters_done);
coleenp@4037 324 __ movptr(rbx, method); // get Method*
never@739 325 __ movptr(c_rarg1, entry_point); // get entry_point
never@739 326 __ mov(r13, rsp); // set sender sp
duke@435 327 BLOCK_COMMENT("call Java function");
duke@435 328 __ call(c_rarg1);
duke@435 329
duke@435 330 BLOCK_COMMENT("call_stub_return_address:");
duke@435 331 return_address = __ pc();
duke@435 332
duke@435 333 // store result depending on type (everything that is not
duke@435 334 // T_OBJECT, T_LONG, T_FLOAT or T_DOUBLE is treated as T_INT)
never@739 335 __ movptr(c_rarg0, result);
duke@435 336 Label is_long, is_float, is_double, exit;
duke@435 337 __ movl(c_rarg1, result_type);
duke@435 338 __ cmpl(c_rarg1, T_OBJECT);
duke@435 339 __ jcc(Assembler::equal, is_long);
duke@435 340 __ cmpl(c_rarg1, T_LONG);
duke@435 341 __ jcc(Assembler::equal, is_long);
duke@435 342 __ cmpl(c_rarg1, T_FLOAT);
duke@435 343 __ jcc(Assembler::equal, is_float);
duke@435 344 __ cmpl(c_rarg1, T_DOUBLE);
duke@435 345 __ jcc(Assembler::equal, is_double);
duke@435 346
duke@435 347 // handle T_INT case
duke@435 348 __ movl(Address(c_rarg0, 0), rax);
duke@435 349
duke@435 350 __ BIND(exit);
duke@435 351
duke@435 352 // pop parameters
never@739 353 __ lea(rsp, rsp_after_call);
duke@435 354
duke@435 355 #ifdef ASSERT
duke@435 356 // verify that threads correspond
duke@435 357 {
duke@435 358 Label L, S;
never@739 359 __ cmpptr(r15_thread, thread);
duke@435 360 __ jcc(Assembler::notEqual, S);
duke@435 361 __ get_thread(rbx);
never@739 362 __ cmpptr(r15_thread, rbx);
duke@435 363 __ jcc(Assembler::equal, L);
duke@435 364 __ bind(S);
duke@435 365 __ jcc(Assembler::equal, L);
duke@435 366 __ stop("StubRoutines::call_stub: threads must correspond");
duke@435 367 __ bind(L);
duke@435 368 }
duke@435 369 #endif
duke@435 370
duke@435 371 // restore regs belonging to calling function
iveresov@2689 372 #ifdef _WIN64
iveresov@2689 373 for (int i = 15; i >= 6; i--) {
iveresov@2689 374 __ movdqu(as_XMMRegister(i), xmm_save(i));
iveresov@2689 375 }
iveresov@2689 376 #endif
never@739 377 __ movptr(r15, r15_save);
never@739 378 __ movptr(r14, r14_save);
never@739 379 __ movptr(r13, r13_save);
never@739 380 __ movptr(r12, r12_save);
never@739 381 __ movptr(rbx, rbx_save);
duke@435 382
duke@435 383 #ifdef _WIN64
never@739 384 __ movptr(rdi, rdi_save);
never@739 385 __ movptr(rsi, rsi_save);
duke@435 386 #else
duke@435 387 __ ldmxcsr(mxcsr_save);
duke@435 388 #endif
duke@435 389
duke@435 390 // restore rsp
never@739 391 __ addptr(rsp, -rsp_after_call_off * wordSize);
duke@435 392
duke@435 393 // return
never@739 394 __ pop(rbp);
duke@435 395 __ ret(0);
duke@435 396
duke@435 397 // handle return types different from T_INT
duke@435 398 __ BIND(is_long);
duke@435 399 __ movq(Address(c_rarg0, 0), rax);
duke@435 400 __ jmp(exit);
duke@435 401
duke@435 402 __ BIND(is_float);
duke@435 403 __ movflt(Address(c_rarg0, 0), xmm0);
duke@435 404 __ jmp(exit);
duke@435 405
duke@435 406 __ BIND(is_double);
duke@435 407 __ movdbl(Address(c_rarg0, 0), xmm0);
duke@435 408 __ jmp(exit);
duke@435 409
duke@435 410 return start;
duke@435 411 }
duke@435 412
duke@435 413 // Return point for a Java call if there's an exception thrown in
duke@435 414 // Java code. The exception is caught and transformed into a
duke@435 415 // pending exception stored in JavaThread that can be tested from
duke@435 416 // within the VM.
duke@435 417 //
duke@435 418 // Note: Usually the parameters are removed by the callee. In case
duke@435 419 // of an exception crossing an activation frame boundary, that is
duke@435 420 // not the case if the callee is compiled code => need to setup the
duke@435 421 // rsp.
duke@435 422 //
duke@435 423 // rax: exception oop
duke@435 424
duke@435 425 address generate_catch_exception() {
duke@435 426 StubCodeMark mark(this, "StubRoutines", "catch_exception");
duke@435 427 address start = __ pc();
duke@435 428
duke@435 429 // same as in generate_call_stub():
duke@435 430 const Address rsp_after_call(rbp, rsp_after_call_off * wordSize);
duke@435 431 const Address thread (rbp, thread_off * wordSize);
duke@435 432
duke@435 433 #ifdef ASSERT
duke@435 434 // verify that threads correspond
duke@435 435 {
duke@435 436 Label L, S;
never@739 437 __ cmpptr(r15_thread, thread);
duke@435 438 __ jcc(Assembler::notEqual, S);
duke@435 439 __ get_thread(rbx);
never@739 440 __ cmpptr(r15_thread, rbx);
duke@435 441 __ jcc(Assembler::equal, L);
duke@435 442 __ bind(S);
duke@435 443 __ stop("StubRoutines::catch_exception: threads must correspond");
duke@435 444 __ bind(L);
duke@435 445 }
duke@435 446 #endif
duke@435 447
duke@435 448 // set pending exception
duke@435 449 __ verify_oop(rax);
duke@435 450
never@739 451 __ movptr(Address(r15_thread, Thread::pending_exception_offset()), rax);
duke@435 452 __ lea(rscratch1, ExternalAddress((address)__FILE__));
never@739 453 __ movptr(Address(r15_thread, Thread::exception_file_offset()), rscratch1);
duke@435 454 __ movl(Address(r15_thread, Thread::exception_line_offset()), (int) __LINE__);
duke@435 455
duke@435 456 // complete return to VM
duke@435 457 assert(StubRoutines::_call_stub_return_address != NULL,
duke@435 458 "_call_stub_return_address must have been generated before");
duke@435 459 __ jump(RuntimeAddress(StubRoutines::_call_stub_return_address));
duke@435 460
duke@435 461 return start;
duke@435 462 }
duke@435 463
duke@435 464 // Continuation point for runtime calls returning with a pending
duke@435 465 // exception. The pending exception check happened in the runtime
duke@435 466 // or native call stub. The pending exception in Thread is
duke@435 467 // converted into a Java-level exception.
duke@435 468 //
duke@435 469 // Contract with Java-level exception handlers:
duke@435 470 // rax: exception
duke@435 471 // rdx: throwing pc
duke@435 472 //
duke@435 473 // NOTE: At entry of this stub, exception-pc must be on stack !!
duke@435 474
duke@435 475 address generate_forward_exception() {
duke@435 476 StubCodeMark mark(this, "StubRoutines", "forward exception");
duke@435 477 address start = __ pc();
duke@435 478
duke@435 479 // Upon entry, the sp points to the return address returning into
duke@435 480 // Java (interpreted or compiled) code; i.e., the return address
duke@435 481 // becomes the throwing pc.
duke@435 482 //
duke@435 483 // Arguments pushed before the runtime call are still on the stack
duke@435 484 // but the exception handler will reset the stack pointer ->
duke@435 485 // ignore them. A potential result in registers can be ignored as
duke@435 486 // well.
duke@435 487
duke@435 488 #ifdef ASSERT
duke@435 489 // make sure this code is only executed if there is a pending exception
duke@435 490 {
duke@435 491 Label L;
never@739 492 __ cmpptr(Address(r15_thread, Thread::pending_exception_offset()), (int32_t) NULL);
duke@435 493 __ jcc(Assembler::notEqual, L);
duke@435 494 __ stop("StubRoutines::forward exception: no pending exception (1)");
duke@435 495 __ bind(L);
duke@435 496 }
duke@435 497 #endif
duke@435 498
duke@435 499 // compute exception handler into rbx
never@739 500 __ movptr(c_rarg0, Address(rsp, 0));
duke@435 501 BLOCK_COMMENT("call exception_handler_for_return_address");
duke@435 502 __ call_VM_leaf(CAST_FROM_FN_PTR(address,
duke@435 503 SharedRuntime::exception_handler_for_return_address),
twisti@1730 504 r15_thread, c_rarg0);
never@739 505 __ mov(rbx, rax);
duke@435 506
duke@435 507 // setup rax & rdx, remove return address & clear pending exception
never@739 508 __ pop(rdx);
never@739 509 __ movptr(rax, Address(r15_thread, Thread::pending_exception_offset()));
xlu@947 510 __ movptr(Address(r15_thread, Thread::pending_exception_offset()), (int32_t)NULL_WORD);
duke@435 511
duke@435 512 #ifdef ASSERT
duke@435 513 // make sure exception is set
duke@435 514 {
duke@435 515 Label L;
never@739 516 __ testptr(rax, rax);
duke@435 517 __ jcc(Assembler::notEqual, L);
duke@435 518 __ stop("StubRoutines::forward exception: no pending exception (2)");
duke@435 519 __ bind(L);
duke@435 520 }
duke@435 521 #endif
duke@435 522
duke@435 523 // continue at exception handler (return address removed)
duke@435 524 // rax: exception
duke@435 525 // rbx: exception handler
duke@435 526 // rdx: throwing pc
duke@435 527 __ verify_oop(rax);
duke@435 528 __ jmp(rbx);
duke@435 529
duke@435 530 return start;
duke@435 531 }
duke@435 532
duke@435 533 // Support for jint atomic::xchg(jint exchange_value, volatile jint* dest)
duke@435 534 //
duke@435 535 // Arguments :
duke@435 536 // c_rarg0: exchange_value
duke@435 537 // c_rarg0: dest
duke@435 538 //
duke@435 539 // Result:
duke@435 540 // *dest <- ex, return (orig *dest)
duke@435 541 address generate_atomic_xchg() {
duke@435 542 StubCodeMark mark(this, "StubRoutines", "atomic_xchg");
duke@435 543 address start = __ pc();
duke@435 544
duke@435 545 __ movl(rax, c_rarg0); // Copy to eax we need a return value anyhow
duke@435 546 __ xchgl(rax, Address(c_rarg1, 0)); // automatic LOCK
duke@435 547 __ ret(0);
duke@435 548
duke@435 549 return start;
duke@435 550 }
duke@435 551
duke@435 552 // Support for intptr_t atomic::xchg_ptr(intptr_t exchange_value, volatile intptr_t* dest)
duke@435 553 //
duke@435 554 // Arguments :
duke@435 555 // c_rarg0: exchange_value
duke@435 556 // c_rarg1: dest
duke@435 557 //
duke@435 558 // Result:
duke@435 559 // *dest <- ex, return (orig *dest)
duke@435 560 address generate_atomic_xchg_ptr() {
duke@435 561 StubCodeMark mark(this, "StubRoutines", "atomic_xchg_ptr");
duke@435 562 address start = __ pc();
duke@435 563
never@739 564 __ movptr(rax, c_rarg0); // Copy to eax we need a return value anyhow
never@739 565 __ xchgptr(rax, Address(c_rarg1, 0)); // automatic LOCK
duke@435 566 __ ret(0);
duke@435 567
duke@435 568 return start;
duke@435 569 }
duke@435 570
duke@435 571 // Support for jint atomic::atomic_cmpxchg(jint exchange_value, volatile jint* dest,
duke@435 572 // jint compare_value)
duke@435 573 //
duke@435 574 // Arguments :
duke@435 575 // c_rarg0: exchange_value
duke@435 576 // c_rarg1: dest
duke@435 577 // c_rarg2: compare_value
duke@435 578 //
duke@435 579 // Result:
duke@435 580 // if ( compare_value == *dest ) {
duke@435 581 // *dest = exchange_value
duke@435 582 // return compare_value;
duke@435 583 // else
duke@435 584 // return *dest;
duke@435 585 address generate_atomic_cmpxchg() {
duke@435 586 StubCodeMark mark(this, "StubRoutines", "atomic_cmpxchg");
duke@435 587 address start = __ pc();
duke@435 588
duke@435 589 __ movl(rax, c_rarg2);
duke@435 590 if ( os::is_MP() ) __ lock();
duke@435 591 __ cmpxchgl(c_rarg0, Address(c_rarg1, 0));
duke@435 592 __ ret(0);
duke@435 593
duke@435 594 return start;
duke@435 595 }
duke@435 596
duke@435 597 // Support for jint atomic::atomic_cmpxchg_long(jlong exchange_value,
duke@435 598 // volatile jlong* dest,
duke@435 599 // jlong compare_value)
duke@435 600 // Arguments :
duke@435 601 // c_rarg0: exchange_value
duke@435 602 // c_rarg1: dest
duke@435 603 // c_rarg2: compare_value
duke@435 604 //
duke@435 605 // Result:
duke@435 606 // if ( compare_value == *dest ) {
duke@435 607 // *dest = exchange_value
duke@435 608 // return compare_value;
duke@435 609 // else
duke@435 610 // return *dest;
duke@435 611 address generate_atomic_cmpxchg_long() {
duke@435 612 StubCodeMark mark(this, "StubRoutines", "atomic_cmpxchg_long");
duke@435 613 address start = __ pc();
duke@435 614
duke@435 615 __ movq(rax, c_rarg2);
duke@435 616 if ( os::is_MP() ) __ lock();
duke@435 617 __ cmpxchgq(c_rarg0, Address(c_rarg1, 0));
duke@435 618 __ ret(0);
duke@435 619
duke@435 620 return start;
duke@435 621 }
duke@435 622
duke@435 623 // Support for jint atomic::add(jint add_value, volatile jint* dest)
duke@435 624 //
duke@435 625 // Arguments :
duke@435 626 // c_rarg0: add_value
duke@435 627 // c_rarg1: dest
duke@435 628 //
duke@435 629 // Result:
duke@435 630 // *dest += add_value
duke@435 631 // return *dest;
duke@435 632 address generate_atomic_add() {
duke@435 633 StubCodeMark mark(this, "StubRoutines", "atomic_add");
duke@435 634 address start = __ pc();
duke@435 635
duke@435 636 __ movl(rax, c_rarg0);
duke@435 637 if ( os::is_MP() ) __ lock();
duke@435 638 __ xaddl(Address(c_rarg1, 0), c_rarg0);
duke@435 639 __ addl(rax, c_rarg0);
duke@435 640 __ ret(0);
duke@435 641
duke@435 642 return start;
duke@435 643 }
duke@435 644
duke@435 645 // Support for intptr_t atomic::add_ptr(intptr_t add_value, volatile intptr_t* dest)
duke@435 646 //
duke@435 647 // Arguments :
duke@435 648 // c_rarg0: add_value
duke@435 649 // c_rarg1: dest
duke@435 650 //
duke@435 651 // Result:
duke@435 652 // *dest += add_value
duke@435 653 // return *dest;
duke@435 654 address generate_atomic_add_ptr() {
duke@435 655 StubCodeMark mark(this, "StubRoutines", "atomic_add_ptr");
duke@435 656 address start = __ pc();
duke@435 657
never@739 658 __ movptr(rax, c_rarg0); // Copy to eax we need a return value anyhow
duke@435 659 if ( os::is_MP() ) __ lock();
never@739 660 __ xaddptr(Address(c_rarg1, 0), c_rarg0);
never@739 661 __ addptr(rax, c_rarg0);
duke@435 662 __ ret(0);
duke@435 663
duke@435 664 return start;
duke@435 665 }
duke@435 666
duke@435 667 // Support for intptr_t OrderAccess::fence()
duke@435 668 //
duke@435 669 // Arguments :
duke@435 670 //
duke@435 671 // Result:
duke@435 672 address generate_orderaccess_fence() {
duke@435 673 StubCodeMark mark(this, "StubRoutines", "orderaccess_fence");
duke@435 674 address start = __ pc();
never@1106 675 __ membar(Assembler::StoreLoad);
duke@435 676 __ ret(0);
duke@435 677
duke@435 678 return start;
duke@435 679 }
duke@435 680
duke@435 681 // Support for intptr_t get_previous_fp()
duke@435 682 //
duke@435 683 // This routine is used to find the previous frame pointer for the
duke@435 684 // caller (current_frame_guess). This is used as part of debugging
duke@435 685 // ps() is seemingly lost trying to find frames.
duke@435 686 // This code assumes that caller current_frame_guess) has a frame.
duke@435 687 address generate_get_previous_fp() {
duke@435 688 StubCodeMark mark(this, "StubRoutines", "get_previous_fp");
duke@435 689 const Address old_fp(rbp, 0);
duke@435 690 const Address older_fp(rax, 0);
duke@435 691 address start = __ pc();
duke@435 692
duke@435 693 __ enter();
never@739 694 __ movptr(rax, old_fp); // callers fp
never@739 695 __ movptr(rax, older_fp); // the frame for ps()
never@739 696 __ pop(rbp);
duke@435 697 __ ret(0);
duke@435 698
duke@435 699 return start;
duke@435 700 }
duke@435 701
roland@3606 702 // Support for intptr_t get_previous_sp()
roland@3606 703 //
roland@3606 704 // This routine is used to find the previous stack pointer for the
roland@3606 705 // caller.
roland@3606 706 address generate_get_previous_sp() {
roland@3606 707 StubCodeMark mark(this, "StubRoutines", "get_previous_sp");
roland@3606 708 address start = __ pc();
roland@3606 709
roland@3606 710 __ movptr(rax, rsp);
roland@3606 711 __ addptr(rax, 8); // return address is at the top of the stack.
roland@3606 712 __ ret(0);
roland@3606 713
roland@3606 714 return start;
roland@3606 715 }
roland@3606 716
duke@435 717 //----------------------------------------------------------------------------------------------------
duke@435 718 // Support for void verify_mxcsr()
duke@435 719 //
duke@435 720 // This routine is used with -Xcheck:jni to verify that native
duke@435 721 // JNI code does not return to Java code without restoring the
duke@435 722 // MXCSR register to our expected state.
duke@435 723
duke@435 724 address generate_verify_mxcsr() {
duke@435 725 StubCodeMark mark(this, "StubRoutines", "verify_mxcsr");
duke@435 726 address start = __ pc();
duke@435 727
duke@435 728 const Address mxcsr_save(rsp, 0);
duke@435 729
duke@435 730 if (CheckJNICalls) {
duke@435 731 Label ok_ret;
kvn@5439 732 ExternalAddress mxcsr_std(StubRoutines::addr_mxcsr_std());
never@739 733 __ push(rax);
never@739 734 __ subptr(rsp, wordSize); // allocate a temp location
duke@435 735 __ stmxcsr(mxcsr_save);
duke@435 736 __ movl(rax, mxcsr_save);
duke@435 737 __ andl(rax, MXCSR_MASK); // Only check control and mask bits
kvn@5439 738 __ cmp32(rax, mxcsr_std);
duke@435 739 __ jcc(Assembler::equal, ok_ret);
duke@435 740
duke@435 741 __ warn("MXCSR changed by native JNI code, use -XX:+RestoreMXCSROnJNICall");
duke@435 742
kvn@5439 743 __ ldmxcsr(mxcsr_std);
duke@435 744
duke@435 745 __ bind(ok_ret);
never@739 746 __ addptr(rsp, wordSize);
never@739 747 __ pop(rax);
duke@435 748 }
duke@435 749
duke@435 750 __ ret(0);
duke@435 751
duke@435 752 return start;
duke@435 753 }
duke@435 754
duke@435 755 address generate_f2i_fixup() {
duke@435 756 StubCodeMark mark(this, "StubRoutines", "f2i_fixup");
duke@435 757 Address inout(rsp, 5 * wordSize); // return address + 4 saves
duke@435 758
duke@435 759 address start = __ pc();
duke@435 760
duke@435 761 Label L;
duke@435 762
never@739 763 __ push(rax);
never@739 764 __ push(c_rarg3);
never@739 765 __ push(c_rarg2);
never@739 766 __ push(c_rarg1);
duke@435 767
duke@435 768 __ movl(rax, 0x7f800000);
duke@435 769 __ xorl(c_rarg3, c_rarg3);
duke@435 770 __ movl(c_rarg2, inout);
duke@435 771 __ movl(c_rarg1, c_rarg2);
duke@435 772 __ andl(c_rarg1, 0x7fffffff);
duke@435 773 __ cmpl(rax, c_rarg1); // NaN? -> 0
duke@435 774 __ jcc(Assembler::negative, L);
duke@435 775 __ testl(c_rarg2, c_rarg2); // signed ? min_jint : max_jint
duke@435 776 __ movl(c_rarg3, 0x80000000);
duke@435 777 __ movl(rax, 0x7fffffff);
duke@435 778 __ cmovl(Assembler::positive, c_rarg3, rax);
duke@435 779
duke@435 780 __ bind(L);
never@739 781 __ movptr(inout, c_rarg3);
never@739 782
never@739 783 __ pop(c_rarg1);
never@739 784 __ pop(c_rarg2);
never@739 785 __ pop(c_rarg3);
never@739 786 __ pop(rax);
duke@435 787
duke@435 788 __ ret(0);
duke@435 789
duke@435 790 return start;
duke@435 791 }
duke@435 792
duke@435 793 address generate_f2l_fixup() {
duke@435 794 StubCodeMark mark(this, "StubRoutines", "f2l_fixup");
duke@435 795 Address inout(rsp, 5 * wordSize); // return address + 4 saves
duke@435 796 address start = __ pc();
duke@435 797
duke@435 798 Label L;
duke@435 799
never@739 800 __ push(rax);
never@739 801 __ push(c_rarg3);
never@739 802 __ push(c_rarg2);
never@739 803 __ push(c_rarg1);
duke@435 804
duke@435 805 __ movl(rax, 0x7f800000);
duke@435 806 __ xorl(c_rarg3, c_rarg3);
duke@435 807 __ movl(c_rarg2, inout);
duke@435 808 __ movl(c_rarg1, c_rarg2);
duke@435 809 __ andl(c_rarg1, 0x7fffffff);
duke@435 810 __ cmpl(rax, c_rarg1); // NaN? -> 0
duke@435 811 __ jcc(Assembler::negative, L);
duke@435 812 __ testl(c_rarg2, c_rarg2); // signed ? min_jlong : max_jlong
duke@435 813 __ mov64(c_rarg3, 0x8000000000000000);
duke@435 814 __ mov64(rax, 0x7fffffffffffffff);
never@739 815 __ cmov(Assembler::positive, c_rarg3, rax);
duke@435 816
duke@435 817 __ bind(L);
never@739 818 __ movptr(inout, c_rarg3);
never@739 819
never@739 820 __ pop(c_rarg1);
never@739 821 __ pop(c_rarg2);
never@739 822 __ pop(c_rarg3);
never@739 823 __ pop(rax);
duke@435 824
duke@435 825 __ ret(0);
duke@435 826
duke@435 827 return start;
duke@435 828 }
duke@435 829
duke@435 830 address generate_d2i_fixup() {
duke@435 831 StubCodeMark mark(this, "StubRoutines", "d2i_fixup");
duke@435 832 Address inout(rsp, 6 * wordSize); // return address + 5 saves
duke@435 833
duke@435 834 address start = __ pc();
duke@435 835
duke@435 836 Label L;
duke@435 837
never@739 838 __ push(rax);
never@739 839 __ push(c_rarg3);
never@739 840 __ push(c_rarg2);
never@739 841 __ push(c_rarg1);
never@739 842 __ push(c_rarg0);
duke@435 843
duke@435 844 __ movl(rax, 0x7ff00000);
duke@435 845 __ movq(c_rarg2, inout);
duke@435 846 __ movl(c_rarg3, c_rarg2);
never@739 847 __ mov(c_rarg1, c_rarg2);
never@739 848 __ mov(c_rarg0, c_rarg2);
duke@435 849 __ negl(c_rarg3);
never@739 850 __ shrptr(c_rarg1, 0x20);
duke@435 851 __ orl(c_rarg3, c_rarg2);
duke@435 852 __ andl(c_rarg1, 0x7fffffff);
duke@435 853 __ xorl(c_rarg2, c_rarg2);
duke@435 854 __ shrl(c_rarg3, 0x1f);
duke@435 855 __ orl(c_rarg1, c_rarg3);
duke@435 856 __ cmpl(rax, c_rarg1);
duke@435 857 __ jcc(Assembler::negative, L); // NaN -> 0
never@739 858 __ testptr(c_rarg0, c_rarg0); // signed ? min_jint : max_jint
duke@435 859 __ movl(c_rarg2, 0x80000000);
duke@435 860 __ movl(rax, 0x7fffffff);
never@739 861 __ cmov(Assembler::positive, c_rarg2, rax);
duke@435 862
duke@435 863 __ bind(L);
never@739 864 __ movptr(inout, c_rarg2);
never@739 865
never@739 866 __ pop(c_rarg0);
never@739 867 __ pop(c_rarg1);
never@739 868 __ pop(c_rarg2);
never@739 869 __ pop(c_rarg3);
never@739 870 __ pop(rax);
duke@435 871
duke@435 872 __ ret(0);
duke@435 873
duke@435 874 return start;
duke@435 875 }
duke@435 876
duke@435 877 address generate_d2l_fixup() {
duke@435 878 StubCodeMark mark(this, "StubRoutines", "d2l_fixup");
duke@435 879 Address inout(rsp, 6 * wordSize); // return address + 5 saves
duke@435 880
duke@435 881 address start = __ pc();
duke@435 882
duke@435 883 Label L;
duke@435 884
never@739 885 __ push(rax);
never@739 886 __ push(c_rarg3);
never@739 887 __ push(c_rarg2);
never@739 888 __ push(c_rarg1);
never@739 889 __ push(c_rarg0);
duke@435 890
duke@435 891 __ movl(rax, 0x7ff00000);
duke@435 892 __ movq(c_rarg2, inout);
duke@435 893 __ movl(c_rarg3, c_rarg2);
never@739 894 __ mov(c_rarg1, c_rarg2);
never@739 895 __ mov(c_rarg0, c_rarg2);
duke@435 896 __ negl(c_rarg3);
never@739 897 __ shrptr(c_rarg1, 0x20);
duke@435 898 __ orl(c_rarg3, c_rarg2);
duke@435 899 __ andl(c_rarg1, 0x7fffffff);
duke@435 900 __ xorl(c_rarg2, c_rarg2);
duke@435 901 __ shrl(c_rarg3, 0x1f);
duke@435 902 __ orl(c_rarg1, c_rarg3);
duke@435 903 __ cmpl(rax, c_rarg1);
duke@435 904 __ jcc(Assembler::negative, L); // NaN -> 0
duke@435 905 __ testq(c_rarg0, c_rarg0); // signed ? min_jlong : max_jlong
duke@435 906 __ mov64(c_rarg2, 0x8000000000000000);
duke@435 907 __ mov64(rax, 0x7fffffffffffffff);
duke@435 908 __ cmovq(Assembler::positive, c_rarg2, rax);
duke@435 909
duke@435 910 __ bind(L);
duke@435 911 __ movq(inout, c_rarg2);
duke@435 912
never@739 913 __ pop(c_rarg0);
never@739 914 __ pop(c_rarg1);
never@739 915 __ pop(c_rarg2);
never@739 916 __ pop(c_rarg3);
never@739 917 __ pop(rax);
duke@435 918
duke@435 919 __ ret(0);
duke@435 920
duke@435 921 return start;
duke@435 922 }
duke@435 923
duke@435 924 address generate_fp_mask(const char *stub_name, int64_t mask) {
kvn@1800 925 __ align(CodeEntryAlignment);
duke@435 926 StubCodeMark mark(this, "StubRoutines", stub_name);
duke@435 927 address start = __ pc();
duke@435 928
duke@435 929 __ emit_data64( mask, relocInfo::none );
duke@435 930 __ emit_data64( mask, relocInfo::none );
duke@435 931
duke@435 932 return start;
duke@435 933 }
duke@435 934
duke@435 935 // The following routine generates a subroutine to throw an
duke@435 936 // asynchronous UnknownError when an unsafe access gets a fault that
duke@435 937 // could not be reasonably prevented by the programmer. (Example:
duke@435 938 // SIGBUS/OBJERR.)
duke@435 939 address generate_handler_for_unsafe_access() {
duke@435 940 StubCodeMark mark(this, "StubRoutines", "handler_for_unsafe_access");
duke@435 941 address start = __ pc();
duke@435 942
never@739 943 __ push(0); // hole for return address-to-be
never@739 944 __ pusha(); // push registers
duke@435 945 Address next_pc(rsp, RegisterImpl::number_of_registers * BytesPerWord);
duke@435 946
never@3136 947 // FIXME: this probably needs alignment logic
never@3136 948
never@739 949 __ subptr(rsp, frame::arg_reg_save_area_bytes);
duke@435 950 BLOCK_COMMENT("call handle_unsafe_access");
duke@435 951 __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, handle_unsafe_access)));
never@739 952 __ addptr(rsp, frame::arg_reg_save_area_bytes);
never@739 953
never@739 954 __ movptr(next_pc, rax); // stuff next address
never@739 955 __ popa();
duke@435 956 __ ret(0); // jump to next address
duke@435 957
duke@435 958 return start;
duke@435 959 }
duke@435 960
duke@435 961 // Non-destructive plausibility checks for oops
duke@435 962 //
duke@435 963 // Arguments:
duke@435 964 // all args on stack!
duke@435 965 //
duke@435 966 // Stack after saving c_rarg3:
duke@435 967 // [tos + 0]: saved c_rarg3
duke@435 968 // [tos + 1]: saved c_rarg2
kvn@559 969 // [tos + 2]: saved r12 (several TemplateTable methods use it)
kvn@559 970 // [tos + 3]: saved flags
kvn@559 971 // [tos + 4]: return address
kvn@559 972 // * [tos + 5]: error message (char*)
kvn@559 973 // * [tos + 6]: object to verify (oop)
kvn@559 974 // * [tos + 7]: saved rax - saved by caller and bashed
kvn@1938 975 // * [tos + 8]: saved r10 (rscratch1) - saved by caller
duke@435 976 // * = popped on exit
duke@435 977 address generate_verify_oop() {
duke@435 978 StubCodeMark mark(this, "StubRoutines", "verify_oop");
duke@435 979 address start = __ pc();
duke@435 980
duke@435 981 Label exit, error;
duke@435 982
never@739 983 __ pushf();
duke@435 984 __ incrementl(ExternalAddress((address) StubRoutines::verify_oop_count_addr()));
duke@435 985
never@739 986 __ push(r12);
kvn@559 987
duke@435 988 // save c_rarg2 and c_rarg3
never@739 989 __ push(c_rarg2);
never@739 990 __ push(c_rarg3);
duke@435 991
kvn@559 992 enum {
kvn@559 993 // After previous pushes.
kvn@559 994 oop_to_verify = 6 * wordSize,
kvn@559 995 saved_rax = 7 * wordSize,
kvn@1938 996 saved_r10 = 8 * wordSize,
kvn@559 997
kvn@559 998 // Before the call to MacroAssembler::debug(), see below.
kvn@559 999 return_addr = 16 * wordSize,
kvn@559 1000 error_msg = 17 * wordSize
kvn@559 1001 };
kvn@559 1002
duke@435 1003 // get object
never@739 1004 __ movptr(rax, Address(rsp, oop_to_verify));
duke@435 1005
duke@435 1006 // make sure object is 'reasonable'
never@739 1007 __ testptr(rax, rax);
duke@435 1008 __ jcc(Assembler::zero, exit); // if obj is NULL it is OK
duke@435 1009 // Check if the oop is in the right area of memory
never@739 1010 __ movptr(c_rarg2, rax);
xlu@947 1011 __ movptr(c_rarg3, (intptr_t) Universe::verify_oop_mask());
never@739 1012 __ andptr(c_rarg2, c_rarg3);
xlu@947 1013 __ movptr(c_rarg3, (intptr_t) Universe::verify_oop_bits());
never@739 1014 __ cmpptr(c_rarg2, c_rarg3);
duke@435 1015 __ jcc(Assembler::notZero, error);
duke@435 1016
kvn@559 1017 // set r12 to heapbase for load_klass()
kvn@559 1018 __ reinit_heapbase();
kvn@559 1019
coleenp@4037 1020 // make sure klass is 'reasonable', which is not zero.
coleenp@548 1021 __ load_klass(rax, rax); // get klass
never@739 1022 __ testptr(rax, rax);
duke@435 1023 __ jcc(Assembler::zero, error); // if klass is NULL it is broken
duke@435 1024
duke@435 1025 // return if everything seems ok
duke@435 1026 __ bind(exit);
never@739 1027 __ movptr(rax, Address(rsp, saved_rax)); // get saved rax back
kvn@1938 1028 __ movptr(rscratch1, Address(rsp, saved_r10)); // get saved r10 back
never@739 1029 __ pop(c_rarg3); // restore c_rarg3
never@739 1030 __ pop(c_rarg2); // restore c_rarg2
never@739 1031 __ pop(r12); // restore r12
never@739 1032 __ popf(); // restore flags
kvn@1938 1033 __ ret(4 * wordSize); // pop caller saved stuff
duke@435 1034
duke@435 1035 // handle errors
duke@435 1036 __ bind(error);
never@739 1037 __ movptr(rax, Address(rsp, saved_rax)); // get saved rax back
kvn@1938 1038 __ movptr(rscratch1, Address(rsp, saved_r10)); // get saved r10 back
never@739 1039 __ pop(c_rarg3); // get saved c_rarg3 back
never@739 1040 __ pop(c_rarg2); // get saved c_rarg2 back
never@739 1041 __ pop(r12); // get saved r12 back
never@739 1042 __ popf(); // get saved flags off stack --
duke@435 1043 // will be ignored
duke@435 1044
never@739 1045 __ pusha(); // push registers
duke@435 1046 // (rip is already
duke@435 1047 // already pushed)
kvn@559 1048 // debug(char* msg, int64_t pc, int64_t regs[])
duke@435 1049 // We've popped the registers we'd saved (c_rarg3, c_rarg2 and flags), and
duke@435 1050 // pushed all the registers, so now the stack looks like:
duke@435 1051 // [tos + 0] 16 saved registers
duke@435 1052 // [tos + 16] return address
kvn@559 1053 // * [tos + 17] error message (char*)
kvn@559 1054 // * [tos + 18] object to verify (oop)
kvn@559 1055 // * [tos + 19] saved rax - saved by caller and bashed
kvn@1938 1056 // * [tos + 20] saved r10 (rscratch1) - saved by caller
kvn@559 1057 // * = popped on exit
kvn@559 1058
never@739 1059 __ movptr(c_rarg0, Address(rsp, error_msg)); // pass address of error message
never@739 1060 __ movptr(c_rarg1, Address(rsp, return_addr)); // pass return address
never@739 1061 __ movq(c_rarg2, rsp); // pass address of regs on stack
never@739 1062 __ mov(r12, rsp); // remember rsp
never@739 1063 __ subptr(rsp, frame::arg_reg_save_area_bytes); // windows
never@739 1064 __ andptr(rsp, -16); // align stack as required by ABI
duke@435 1065 BLOCK_COMMENT("call MacroAssembler::debug");
never@739 1066 __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, MacroAssembler::debug64)));
never@739 1067 __ mov(rsp, r12); // restore rsp
never@739 1068 __ popa(); // pop registers (includes r12)
kvn@1938 1069 __ ret(4 * wordSize); // pop caller saved stuff
duke@435 1070
duke@435 1071 return start;
duke@435 1072 }
duke@435 1073
duke@435 1074 //
duke@435 1075 // Verify that a register contains clean 32-bits positive value
duke@435 1076 // (high 32-bits are 0) so it could be used in 64-bits shifts.
duke@435 1077 //
duke@435 1078 // Input:
duke@435 1079 // Rint - 32-bits value
duke@435 1080 // Rtmp - scratch
duke@435 1081 //
duke@435 1082 void assert_clean_int(Register Rint, Register Rtmp) {
duke@435 1083 #ifdef ASSERT
duke@435 1084 Label L;
duke@435 1085 assert_different_registers(Rtmp, Rint);
duke@435 1086 __ movslq(Rtmp, Rint);
duke@435 1087 __ cmpq(Rtmp, Rint);
kvn@559 1088 __ jcc(Assembler::equal, L);
duke@435 1089 __ stop("high 32-bits of int value are not 0");
duke@435 1090 __ bind(L);
duke@435 1091 #endif
duke@435 1092 }
duke@435 1093
duke@435 1094 // Generate overlap test for array copy stubs
duke@435 1095 //
duke@435 1096 // Input:
duke@435 1097 // c_rarg0 - from
duke@435 1098 // c_rarg1 - to
duke@435 1099 // c_rarg2 - element count
duke@435 1100 //
duke@435 1101 // Output:
duke@435 1102 // rax - &from[element count - 1]
duke@435 1103 //
duke@435 1104 void array_overlap_test(address no_overlap_target, Address::ScaleFactor sf) {
duke@435 1105 assert(no_overlap_target != NULL, "must be generated");
duke@435 1106 array_overlap_test(no_overlap_target, NULL, sf);
duke@435 1107 }
duke@435 1108 void array_overlap_test(Label& L_no_overlap, Address::ScaleFactor sf) {
duke@435 1109 array_overlap_test(NULL, &L_no_overlap, sf);
duke@435 1110 }
duke@435 1111 void array_overlap_test(address no_overlap_target, Label* NOLp, Address::ScaleFactor sf) {
duke@435 1112 const Register from = c_rarg0;
duke@435 1113 const Register to = c_rarg1;
duke@435 1114 const Register count = c_rarg2;
duke@435 1115 const Register end_from = rax;
duke@435 1116
never@739 1117 __ cmpptr(to, from);
never@739 1118 __ lea(end_from, Address(from, count, sf, 0));
duke@435 1119 if (NOLp == NULL) {
duke@435 1120 ExternalAddress no_overlap(no_overlap_target);
duke@435 1121 __ jump_cc(Assembler::belowEqual, no_overlap);
never@739 1122 __ cmpptr(to, end_from);
duke@435 1123 __ jump_cc(Assembler::aboveEqual, no_overlap);
duke@435 1124 } else {
duke@435 1125 __ jcc(Assembler::belowEqual, (*NOLp));
never@739 1126 __ cmpptr(to, end_from);
duke@435 1127 __ jcc(Assembler::aboveEqual, (*NOLp));
duke@435 1128 }
duke@435 1129 }
duke@435 1130
duke@435 1131 // Shuffle first three arg regs on Windows into Linux/Solaris locations.
duke@435 1132 //
duke@435 1133 // Outputs:
duke@435 1134 // rdi - rcx
duke@435 1135 // rsi - rdx
duke@435 1136 // rdx - r8
duke@435 1137 // rcx - r9
duke@435 1138 //
duke@435 1139 // Registers r9 and r10 are used to save rdi and rsi on Windows, which latter
duke@435 1140 // are non-volatile. r9 and r10 should not be used by the caller.
duke@435 1141 //
duke@435 1142 void setup_arg_regs(int nargs = 3) {
duke@435 1143 const Register saved_rdi = r9;
duke@435 1144 const Register saved_rsi = r10;
duke@435 1145 assert(nargs == 3 || nargs == 4, "else fix");
duke@435 1146 #ifdef _WIN64
duke@435 1147 assert(c_rarg0 == rcx && c_rarg1 == rdx && c_rarg2 == r8 && c_rarg3 == r9,
duke@435 1148 "unexpected argument registers");
duke@435 1149 if (nargs >= 4)
never@739 1150 __ mov(rax, r9); // r9 is also saved_rdi
never@739 1151 __ movptr(saved_rdi, rdi);
never@739 1152 __ movptr(saved_rsi, rsi);
never@739 1153 __ mov(rdi, rcx); // c_rarg0
never@739 1154 __ mov(rsi, rdx); // c_rarg1
never@739 1155 __ mov(rdx, r8); // c_rarg2
duke@435 1156 if (nargs >= 4)
never@739 1157 __ mov(rcx, rax); // c_rarg3 (via rax)
duke@435 1158 #else
duke@435 1159 assert(c_rarg0 == rdi && c_rarg1 == rsi && c_rarg2 == rdx && c_rarg3 == rcx,
duke@435 1160 "unexpected argument registers");
duke@435 1161 #endif
duke@435 1162 }
duke@435 1163
duke@435 1164 void restore_arg_regs() {
duke@435 1165 const Register saved_rdi = r9;
duke@435 1166 const Register saved_rsi = r10;
duke@435 1167 #ifdef _WIN64
never@739 1168 __ movptr(rdi, saved_rdi);
never@739 1169 __ movptr(rsi, saved_rsi);
duke@435 1170 #endif
duke@435 1171 }
duke@435 1172
duke@435 1173 // Generate code for an array write pre barrier
duke@435 1174 //
duke@435 1175 // addr - starting address
iveresov@2606 1176 // count - element count
iveresov@2606 1177 // tmp - scratch register
duke@435 1178 //
duke@435 1179 // Destroy no registers!
duke@435 1180 //
iveresov@2606 1181 void gen_write_ref_array_pre_barrier(Register addr, Register count, bool dest_uninitialized) {
duke@435 1182 BarrierSet* bs = Universe::heap()->barrier_set();
duke@435 1183 switch (bs->kind()) {
duke@435 1184 case BarrierSet::G1SATBCT:
duke@435 1185 case BarrierSet::G1SATBCTLogging:
iveresov@2606 1186 // With G1, don't generate the call if we statically know that the target in uninitialized
iveresov@2606 1187 if (!dest_uninitialized) {
iveresov@2606 1188 __ pusha(); // push registers
iveresov@2606 1189 if (count == c_rarg0) {
iveresov@2606 1190 if (addr == c_rarg1) {
iveresov@2606 1191 // exactly backwards!!
iveresov@2606 1192 __ xchgptr(c_rarg1, c_rarg0);
iveresov@2606 1193 } else {
iveresov@2606 1194 __ movptr(c_rarg1, count);
iveresov@2606 1195 __ movptr(c_rarg0, addr);
iveresov@2606 1196 }
iveresov@2606 1197 } else {
iveresov@2606 1198 __ movptr(c_rarg0, addr);
iveresov@2606 1199 __ movptr(c_rarg1, count);
iveresov@2606 1200 }
iveresov@2606 1201 __ call_VM_leaf(CAST_FROM_FN_PTR(address, BarrierSet::static_write_ref_array_pre), 2);
iveresov@2606 1202 __ popa();
duke@435 1203 }
iveresov@2606 1204 break;
duke@435 1205 case BarrierSet::CardTableModRef:
duke@435 1206 case BarrierSet::CardTableExtension:
duke@435 1207 case BarrierSet::ModRef:
duke@435 1208 break;
ysr@777 1209 default:
duke@435 1210 ShouldNotReachHere();
duke@435 1211
duke@435 1212 }
duke@435 1213 }
duke@435 1214
duke@435 1215 //
duke@435 1216 // Generate code for an array write post barrier
duke@435 1217 //
duke@435 1218 // Input:
duke@435 1219 // start - register containing starting address of destination array
kvn@5156 1220 // count - elements count
duke@435 1221 // scratch - scratch register
duke@435 1222 //
duke@435 1223 // The input registers are overwritten.
kvn@5156 1224 //
kvn@5156 1225 void gen_write_ref_array_post_barrier(Register start, Register count, Register scratch) {
kvn@5156 1226 assert_different_registers(start, count, scratch);
duke@435 1227 BarrierSet* bs = Universe::heap()->barrier_set();
duke@435 1228 switch (bs->kind()) {
duke@435 1229 case BarrierSet::G1SATBCT:
duke@435 1230 case BarrierSet::G1SATBCTLogging:
duke@435 1231 {
kvn@5156 1232 __ pusha(); // push registers (overkill)
kvn@5156 1233 if (c_rarg0 == count) { // On win64 c_rarg0 == rcx
kvn@5156 1234 assert_different_registers(c_rarg1, start);
kvn@5156 1235 __ mov(c_rarg1, count);
kvn@5156 1236 __ mov(c_rarg0, start);
kvn@5156 1237 } else {
kvn@5156 1238 assert_different_registers(c_rarg0, count);
kvn@5156 1239 __ mov(c_rarg0, start);
kvn@5156 1240 __ mov(c_rarg1, count);
kvn@5156 1241 }
apetrusenko@1627 1242 __ call_VM_leaf(CAST_FROM_FN_PTR(address, BarrierSet::static_write_ref_array_post), 2);
never@739 1243 __ popa();
duke@435 1244 }
duke@435 1245 break;
duke@435 1246 case BarrierSet::CardTableModRef:
duke@435 1247 case BarrierSet::CardTableExtension:
duke@435 1248 {
duke@435 1249 CardTableModRefBS* ct = (CardTableModRefBS*)bs;
duke@435 1250 assert(sizeof(*ct->byte_map_base) == sizeof(jbyte), "adjust this code");
duke@435 1251
duke@435 1252 Label L_loop;
kvn@5156 1253 const Register end = count;
kvn@5156 1254
kvn@5156 1255 __ leaq(end, Address(start, count, TIMES_OOP, 0)); // end == start+count*oop_size
kvn@5156 1256 __ subptr(end, BytesPerHeapOop); // end - 1 to make inclusive
kvn@5156 1257 __ shrptr(start, CardTableModRefBS::card_shift);
kvn@5156 1258 __ shrptr(end, CardTableModRefBS::card_shift);
kvn@5156 1259 __ subptr(end, start); // end --> cards count
kvn@5156 1260
kvn@5156 1261 int64_t disp = (int64_t) ct->byte_map_base;
kvn@5156 1262 __ mov64(scratch, disp);
never@739 1263 __ addptr(start, scratch);
duke@435 1264 __ BIND(L_loop);
duke@435 1265 __ movb(Address(start, count, Address::times_1), 0);
never@739 1266 __ decrement(count);
duke@435 1267 __ jcc(Assembler::greaterEqual, L_loop);
duke@435 1268 }
ysr@777 1269 break;
ysr@777 1270 default:
ysr@777 1271 ShouldNotReachHere();
ysr@777 1272
ysr@777 1273 }
ysr@777 1274 }
duke@435 1275
kvn@840 1276
duke@435 1277 // Copy big chunks forward
duke@435 1278 //
duke@435 1279 // Inputs:
duke@435 1280 // end_from - source arrays end address
duke@435 1281 // end_to - destination array end address
duke@435 1282 // qword_count - 64-bits element count, negative
duke@435 1283 // to - scratch
kvn@4411 1284 // L_copy_bytes - entry label
duke@435 1285 // L_copy_8_bytes - exit label
duke@435 1286 //
kvn@4411 1287 void copy_bytes_forward(Register end_from, Register end_to,
duke@435 1288 Register qword_count, Register to,
kvn@4411 1289 Label& L_copy_bytes, Label& L_copy_8_bytes) {
duke@435 1290 DEBUG_ONLY(__ stop("enter at entry label, not here"));
duke@435 1291 Label L_loop;
kvn@1800 1292 __ align(OptoLoopAlignment);
kvn@4411 1293 if (UseUnalignedLoadStores) {
kvn@4411 1294 Label L_end;
kvn@4411 1295 // Copy 64-bytes per iteration
kvn@4411 1296 __ BIND(L_loop);
kvn@4411 1297 if (UseAVX >= 2) {
kvn@4411 1298 __ vmovdqu(xmm0, Address(end_from, qword_count, Address::times_8, -56));
kvn@4411 1299 __ vmovdqu(Address(end_to, qword_count, Address::times_8, -56), xmm0);
kvn@4411 1300 __ vmovdqu(xmm1, Address(end_from, qword_count, Address::times_8, -24));
kvn@4411 1301 __ vmovdqu(Address(end_to, qword_count, Address::times_8, -24), xmm1);
kvn@4411 1302 } else {
kvn@4411 1303 __ movdqu(xmm0, Address(end_from, qword_count, Address::times_8, -56));
kvn@4411 1304 __ movdqu(Address(end_to, qword_count, Address::times_8, -56), xmm0);
kvn@4411 1305 __ movdqu(xmm1, Address(end_from, qword_count, Address::times_8, -40));
kvn@4411 1306 __ movdqu(Address(end_to, qword_count, Address::times_8, -40), xmm1);
kvn@4411 1307 __ movdqu(xmm2, Address(end_from, qword_count, Address::times_8, -24));
kvn@4411 1308 __ movdqu(Address(end_to, qword_count, Address::times_8, -24), xmm2);
kvn@4411 1309 __ movdqu(xmm3, Address(end_from, qword_count, Address::times_8, - 8));
kvn@4411 1310 __ movdqu(Address(end_to, qword_count, Address::times_8, - 8), xmm3);
kvn@4411 1311 }
kvn@4411 1312 __ BIND(L_copy_bytes);
kvn@4411 1313 __ addptr(qword_count, 8);
kvn@4411 1314 __ jcc(Assembler::lessEqual, L_loop);
kvn@4411 1315 __ subptr(qword_count, 4); // sub(8) and add(4)
kvn@4411 1316 __ jccb(Assembler::greater, L_end);
kvn@4411 1317 // Copy trailing 32 bytes
kvn@4411 1318 if (UseAVX >= 2) {
kvn@4411 1319 __ vmovdqu(xmm0, Address(end_from, qword_count, Address::times_8, -24));
kvn@4411 1320 __ vmovdqu(Address(end_to, qword_count, Address::times_8, -24), xmm0);
kvn@4411 1321 } else {
kvn@4411 1322 __ movdqu(xmm0, Address(end_from, qword_count, Address::times_8, -24));
kvn@4411 1323 __ movdqu(Address(end_to, qword_count, Address::times_8, -24), xmm0);
kvn@4411 1324 __ movdqu(xmm1, Address(end_from, qword_count, Address::times_8, - 8));
kvn@4411 1325 __ movdqu(Address(end_to, qword_count, Address::times_8, - 8), xmm1);
kvn@4411 1326 }
kvn@4411 1327 __ addptr(qword_count, 4);
kvn@4411 1328 __ BIND(L_end);
kvn@4873 1329 if (UseAVX >= 2) {
kvn@4873 1330 // clean upper bits of YMM registers
kvn@7816 1331 __ vpxor(xmm0, xmm0);
kvn@7816 1332 __ vpxor(xmm1, xmm1);
kvn@4873 1333 }
kvn@840 1334 } else {
kvn@4411 1335 // Copy 32-bytes per iteration
kvn@4411 1336 __ BIND(L_loop);
kvn@840 1337 __ movq(to, Address(end_from, qword_count, Address::times_8, -24));
kvn@840 1338 __ movq(Address(end_to, qword_count, Address::times_8, -24), to);
kvn@840 1339 __ movq(to, Address(end_from, qword_count, Address::times_8, -16));
kvn@840 1340 __ movq(Address(end_to, qword_count, Address::times_8, -16), to);
kvn@840 1341 __ movq(to, Address(end_from, qword_count, Address::times_8, - 8));
kvn@840 1342 __ movq(Address(end_to, qword_count, Address::times_8, - 8), to);
kvn@840 1343 __ movq(to, Address(end_from, qword_count, Address::times_8, - 0));
kvn@840 1344 __ movq(Address(end_to, qword_count, Address::times_8, - 0), to);
kvn@4411 1345
kvn@4411 1346 __ BIND(L_copy_bytes);
kvn@4411 1347 __ addptr(qword_count, 4);
kvn@4411 1348 __ jcc(Assembler::lessEqual, L_loop);
kvn@840 1349 }
never@739 1350 __ subptr(qword_count, 4);
duke@435 1351 __ jcc(Assembler::less, L_copy_8_bytes); // Copy trailing qwords
duke@435 1352 }
duke@435 1353
duke@435 1354 // Copy big chunks backward
duke@435 1355 //
duke@435 1356 // Inputs:
duke@435 1357 // from - source arrays address
duke@435 1358 // dest - destination array address
duke@435 1359 // qword_count - 64-bits element count
duke@435 1360 // to - scratch
kvn@4411 1361 // L_copy_bytes - entry label
duke@435 1362 // L_copy_8_bytes - exit label
duke@435 1363 //
kvn@4411 1364 void copy_bytes_backward(Register from, Register dest,
duke@435 1365 Register qword_count, Register to,
kvn@4411 1366 Label& L_copy_bytes, Label& L_copy_8_bytes) {
duke@435 1367 DEBUG_ONLY(__ stop("enter at entry label, not here"));
duke@435 1368 Label L_loop;
kvn@1800 1369 __ align(OptoLoopAlignment);
kvn@4411 1370 if (UseUnalignedLoadStores) {
kvn@4411 1371 Label L_end;
kvn@4411 1372 // Copy 64-bytes per iteration
kvn@4411 1373 __ BIND(L_loop);
kvn@4411 1374 if (UseAVX >= 2) {
kvn@4411 1375 __ vmovdqu(xmm0, Address(from, qword_count, Address::times_8, 32));
kvn@4411 1376 __ vmovdqu(Address(dest, qword_count, Address::times_8, 32), xmm0);
kvn@4411 1377 __ vmovdqu(xmm1, Address(from, qword_count, Address::times_8, 0));
kvn@4411 1378 __ vmovdqu(Address(dest, qword_count, Address::times_8, 0), xmm1);
kvn@4411 1379 } else {
kvn@4411 1380 __ movdqu(xmm0, Address(from, qword_count, Address::times_8, 48));
kvn@4411 1381 __ movdqu(Address(dest, qword_count, Address::times_8, 48), xmm0);
kvn@4411 1382 __ movdqu(xmm1, Address(from, qword_count, Address::times_8, 32));
kvn@4411 1383 __ movdqu(Address(dest, qword_count, Address::times_8, 32), xmm1);
kvn@4411 1384 __ movdqu(xmm2, Address(from, qword_count, Address::times_8, 16));
kvn@4411 1385 __ movdqu(Address(dest, qword_count, Address::times_8, 16), xmm2);
kvn@4411 1386 __ movdqu(xmm3, Address(from, qword_count, Address::times_8, 0));
kvn@4411 1387 __ movdqu(Address(dest, qword_count, Address::times_8, 0), xmm3);
kvn@4411 1388 }
kvn@4411 1389 __ BIND(L_copy_bytes);
kvn@4411 1390 __ subptr(qword_count, 8);
kvn@4411 1391 __ jcc(Assembler::greaterEqual, L_loop);
kvn@4411 1392
kvn@4411 1393 __ addptr(qword_count, 4); // add(8) and sub(4)
kvn@4411 1394 __ jccb(Assembler::less, L_end);
kvn@4411 1395 // Copy trailing 32 bytes
kvn@4411 1396 if (UseAVX >= 2) {
kvn@4411 1397 __ vmovdqu(xmm0, Address(from, qword_count, Address::times_8, 0));
kvn@4411 1398 __ vmovdqu(Address(dest, qword_count, Address::times_8, 0), xmm0);
kvn@4411 1399 } else {
kvn@4411 1400 __ movdqu(xmm0, Address(from, qword_count, Address::times_8, 16));
kvn@4411 1401 __ movdqu(Address(dest, qword_count, Address::times_8, 16), xmm0);
kvn@4411 1402 __ movdqu(xmm1, Address(from, qword_count, Address::times_8, 0));
kvn@4411 1403 __ movdqu(Address(dest, qword_count, Address::times_8, 0), xmm1);
kvn@4411 1404 }
kvn@4411 1405 __ subptr(qword_count, 4);
kvn@4411 1406 __ BIND(L_end);
kvn@4873 1407 if (UseAVX >= 2) {
kvn@4873 1408 // clean upper bits of YMM registers
kvn@7816 1409 __ vpxor(xmm0, xmm0);
kvn@7816 1410 __ vpxor(xmm1, xmm1);
kvn@4873 1411 }
kvn@840 1412 } else {
kvn@4411 1413 // Copy 32-bytes per iteration
kvn@4411 1414 __ BIND(L_loop);
kvn@840 1415 __ movq(to, Address(from, qword_count, Address::times_8, 24));
kvn@840 1416 __ movq(Address(dest, qword_count, Address::times_8, 24), to);
kvn@840 1417 __ movq(to, Address(from, qword_count, Address::times_8, 16));
kvn@840 1418 __ movq(Address(dest, qword_count, Address::times_8, 16), to);
kvn@840 1419 __ movq(to, Address(from, qword_count, Address::times_8, 8));
kvn@840 1420 __ movq(Address(dest, qword_count, Address::times_8, 8), to);
kvn@840 1421 __ movq(to, Address(from, qword_count, Address::times_8, 0));
kvn@840 1422 __ movq(Address(dest, qword_count, Address::times_8, 0), to);
kvn@4411 1423
kvn@4411 1424 __ BIND(L_copy_bytes);
kvn@4411 1425 __ subptr(qword_count, 4);
kvn@4411 1426 __ jcc(Assembler::greaterEqual, L_loop);
kvn@840 1427 }
never@739 1428 __ addptr(qword_count, 4);
duke@435 1429 __ jcc(Assembler::greater, L_copy_8_bytes); // Copy trailing qwords
duke@435 1430 }
duke@435 1431
duke@435 1432
duke@435 1433 // Arguments:
duke@435 1434 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1435 // ignored
duke@435 1436 // name - stub name string
duke@435 1437 //
duke@435 1438 // Inputs:
duke@435 1439 // c_rarg0 - source array address
duke@435 1440 // c_rarg1 - destination array address
duke@435 1441 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1442 //
duke@435 1443 // If 'from' and/or 'to' are aligned on 4-, 2-, or 1-byte boundaries,
duke@435 1444 // we let the hardware handle it. The one to eight bytes within words,
duke@435 1445 // dwords or qwords that span cache line boundaries will still be loaded
duke@435 1446 // and stored atomically.
duke@435 1447 //
duke@435 1448 // Side Effects:
duke@435 1449 // disjoint_byte_copy_entry is set to the no-overlap entry point
duke@435 1450 // used by generate_conjoint_byte_copy().
duke@435 1451 //
iveresov@2595 1452 address generate_disjoint_byte_copy(bool aligned, address* entry, const char *name) {
duke@435 1453 __ align(CodeEntryAlignment);
duke@435 1454 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1455 address start = __ pc();
duke@435 1456
kvn@4411 1457 Label L_copy_bytes, L_copy_8_bytes, L_copy_4_bytes, L_copy_2_bytes;
duke@435 1458 Label L_copy_byte, L_exit;
duke@435 1459 const Register from = rdi; // source array address
duke@435 1460 const Register to = rsi; // destination array address
duke@435 1461 const Register count = rdx; // elements count
duke@435 1462 const Register byte_count = rcx;
duke@435 1463 const Register qword_count = count;
duke@435 1464 const Register end_from = from; // source array end address
duke@435 1465 const Register end_to = to; // destination array end address
duke@435 1466 // End pointers are inclusive, and if count is not zero they point
duke@435 1467 // to the last unit copied: end_to[0] := end_from[0]
duke@435 1468
duke@435 1469 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1470 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1471
iveresov@2595 1472 if (entry != NULL) {
iveresov@2595 1473 *entry = __ pc();
iveresov@2595 1474 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1475 BLOCK_COMMENT("Entry:");
iveresov@2595 1476 }
duke@435 1477
duke@435 1478 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 1479 // r9 and r10 may be used to save non-volatile registers
duke@435 1480
duke@435 1481 // 'from', 'to' and 'count' are now valid
never@739 1482 __ movptr(byte_count, count);
never@739 1483 __ shrptr(count, 3); // count => qword_count
duke@435 1484
duke@435 1485 // Copy from low to high addresses. Use 'to' as scratch.
never@739 1486 __ lea(end_from, Address(from, qword_count, Address::times_8, -8));
never@739 1487 __ lea(end_to, Address(to, qword_count, Address::times_8, -8));
never@739 1488 __ negptr(qword_count); // make the count negative
kvn@4411 1489 __ jmp(L_copy_bytes);
duke@435 1490
duke@435 1491 // Copy trailing qwords
duke@435 1492 __ BIND(L_copy_8_bytes);
duke@435 1493 __ movq(rax, Address(end_from, qword_count, Address::times_8, 8));
duke@435 1494 __ movq(Address(end_to, qword_count, Address::times_8, 8), rax);
never@739 1495 __ increment(qword_count);
duke@435 1496 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1497
duke@435 1498 // Check for and copy trailing dword
duke@435 1499 __ BIND(L_copy_4_bytes);
never@739 1500 __ testl(byte_count, 4);
duke@435 1501 __ jccb(Assembler::zero, L_copy_2_bytes);
duke@435 1502 __ movl(rax, Address(end_from, 8));
duke@435 1503 __ movl(Address(end_to, 8), rax);
duke@435 1504
never@739 1505 __ addptr(end_from, 4);
never@739 1506 __ addptr(end_to, 4);
duke@435 1507
duke@435 1508 // Check for and copy trailing word
duke@435 1509 __ BIND(L_copy_2_bytes);
never@739 1510 __ testl(byte_count, 2);
duke@435 1511 __ jccb(Assembler::zero, L_copy_byte);
duke@435 1512 __ movw(rax, Address(end_from, 8));
duke@435 1513 __ movw(Address(end_to, 8), rax);
duke@435 1514
never@739 1515 __ addptr(end_from, 2);
never@739 1516 __ addptr(end_to, 2);
duke@435 1517
duke@435 1518 // Check for and copy trailing byte
duke@435 1519 __ BIND(L_copy_byte);
never@739 1520 __ testl(byte_count, 1);
duke@435 1521 __ jccb(Assembler::zero, L_exit);
duke@435 1522 __ movb(rax, Address(end_from, 8));
duke@435 1523 __ movb(Address(end_to, 8), rax);
duke@435 1524
duke@435 1525 __ BIND(L_exit);
duke@435 1526 restore_arg_regs();
never@3314 1527 inc_counter_np(SharedRuntime::_jbyte_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1528 __ xorptr(rax, rax); // return 0
duke@435 1529 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1530 __ ret(0);
duke@435 1531
kvn@4411 1532 // Copy in multi-bytes chunks
kvn@4411 1533 copy_bytes_forward(end_from, end_to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 1534 __ jmp(L_copy_4_bytes);
duke@435 1535
duke@435 1536 return start;
duke@435 1537 }
duke@435 1538
duke@435 1539 // Arguments:
duke@435 1540 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1541 // ignored
duke@435 1542 // name - stub name string
duke@435 1543 //
duke@435 1544 // Inputs:
duke@435 1545 // c_rarg0 - source array address
duke@435 1546 // c_rarg1 - destination array address
duke@435 1547 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1548 //
duke@435 1549 // If 'from' and/or 'to' are aligned on 4-, 2-, or 1-byte boundaries,
duke@435 1550 // we let the hardware handle it. The one to eight bytes within words,
duke@435 1551 // dwords or qwords that span cache line boundaries will still be loaded
duke@435 1552 // and stored atomically.
duke@435 1553 //
iveresov@2595 1554 address generate_conjoint_byte_copy(bool aligned, address nooverlap_target,
iveresov@2595 1555 address* entry, const char *name) {
duke@435 1556 __ align(CodeEntryAlignment);
duke@435 1557 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1558 address start = __ pc();
duke@435 1559
kvn@4411 1560 Label L_copy_bytes, L_copy_8_bytes, L_copy_4_bytes, L_copy_2_bytes;
duke@435 1561 const Register from = rdi; // source array address
duke@435 1562 const Register to = rsi; // destination array address
duke@435 1563 const Register count = rdx; // elements count
duke@435 1564 const Register byte_count = rcx;
duke@435 1565 const Register qword_count = count;
duke@435 1566
duke@435 1567 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1568 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1569
iveresov@2595 1570 if (entry != NULL) {
iveresov@2595 1571 *entry = __ pc();
iveresov@2595 1572 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1573 BLOCK_COMMENT("Entry:");
iveresov@2595 1574 }
iveresov@2595 1575
iveresov@2595 1576 array_overlap_test(nooverlap_target, Address::times_1);
duke@435 1577 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 1578 // r9 and r10 may be used to save non-volatile registers
duke@435 1579
duke@435 1580 // 'from', 'to' and 'count' are now valid
never@739 1581 __ movptr(byte_count, count);
never@739 1582 __ shrptr(count, 3); // count => qword_count
duke@435 1583
duke@435 1584 // Copy from high to low addresses.
duke@435 1585
duke@435 1586 // Check for and copy trailing byte
never@739 1587 __ testl(byte_count, 1);
duke@435 1588 __ jcc(Assembler::zero, L_copy_2_bytes);
duke@435 1589 __ movb(rax, Address(from, byte_count, Address::times_1, -1));
duke@435 1590 __ movb(Address(to, byte_count, Address::times_1, -1), rax);
never@739 1591 __ decrement(byte_count); // Adjust for possible trailing word
duke@435 1592
duke@435 1593 // Check for and copy trailing word
duke@435 1594 __ BIND(L_copy_2_bytes);
never@739 1595 __ testl(byte_count, 2);
duke@435 1596 __ jcc(Assembler::zero, L_copy_4_bytes);
duke@435 1597 __ movw(rax, Address(from, byte_count, Address::times_1, -2));
duke@435 1598 __ movw(Address(to, byte_count, Address::times_1, -2), rax);
duke@435 1599
duke@435 1600 // Check for and copy trailing dword
duke@435 1601 __ BIND(L_copy_4_bytes);
never@739 1602 __ testl(byte_count, 4);
kvn@4411 1603 __ jcc(Assembler::zero, L_copy_bytes);
duke@435 1604 __ movl(rax, Address(from, qword_count, Address::times_8));
duke@435 1605 __ movl(Address(to, qword_count, Address::times_8), rax);
kvn@4411 1606 __ jmp(L_copy_bytes);
duke@435 1607
duke@435 1608 // Copy trailing qwords
duke@435 1609 __ BIND(L_copy_8_bytes);
duke@435 1610 __ movq(rax, Address(from, qword_count, Address::times_8, -8));
duke@435 1611 __ movq(Address(to, qword_count, Address::times_8, -8), rax);
never@739 1612 __ decrement(qword_count);
duke@435 1613 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1614
duke@435 1615 restore_arg_regs();
never@3314 1616 inc_counter_np(SharedRuntime::_jbyte_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1617 __ xorptr(rax, rax); // return 0
duke@435 1618 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1619 __ ret(0);
duke@435 1620
kvn@4411 1621 // Copy in multi-bytes chunks
kvn@4411 1622 copy_bytes_backward(from, to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 1623
duke@435 1624 restore_arg_regs();
never@3314 1625 inc_counter_np(SharedRuntime::_jbyte_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1626 __ xorptr(rax, rax); // return 0
duke@435 1627 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1628 __ ret(0);
duke@435 1629
duke@435 1630 return start;
duke@435 1631 }
duke@435 1632
duke@435 1633 // Arguments:
duke@435 1634 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1635 // ignored
duke@435 1636 // name - stub name string
duke@435 1637 //
duke@435 1638 // Inputs:
duke@435 1639 // c_rarg0 - source array address
duke@435 1640 // c_rarg1 - destination array address
duke@435 1641 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1642 //
duke@435 1643 // If 'from' and/or 'to' are aligned on 4- or 2-byte boundaries, we
duke@435 1644 // let the hardware handle it. The two or four words within dwords
duke@435 1645 // or qwords that span cache line boundaries will still be loaded
duke@435 1646 // and stored atomically.
duke@435 1647 //
duke@435 1648 // Side Effects:
duke@435 1649 // disjoint_short_copy_entry is set to the no-overlap entry point
duke@435 1650 // used by generate_conjoint_short_copy().
duke@435 1651 //
iveresov@2595 1652 address generate_disjoint_short_copy(bool aligned, address *entry, const char *name) {
duke@435 1653 __ align(CodeEntryAlignment);
duke@435 1654 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1655 address start = __ pc();
duke@435 1656
kvn@4411 1657 Label L_copy_bytes, L_copy_8_bytes, L_copy_4_bytes,L_copy_2_bytes,L_exit;
duke@435 1658 const Register from = rdi; // source array address
duke@435 1659 const Register to = rsi; // destination array address
duke@435 1660 const Register count = rdx; // elements count
duke@435 1661 const Register word_count = rcx;
duke@435 1662 const Register qword_count = count;
duke@435 1663 const Register end_from = from; // source array end address
duke@435 1664 const Register end_to = to; // destination array end address
duke@435 1665 // End pointers are inclusive, and if count is not zero they point
duke@435 1666 // to the last unit copied: end_to[0] := end_from[0]
duke@435 1667
duke@435 1668 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1669 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1670
iveresov@2595 1671 if (entry != NULL) {
iveresov@2595 1672 *entry = __ pc();
iveresov@2595 1673 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1674 BLOCK_COMMENT("Entry:");
iveresov@2595 1675 }
duke@435 1676
duke@435 1677 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 1678 // r9 and r10 may be used to save non-volatile registers
duke@435 1679
duke@435 1680 // 'from', 'to' and 'count' are now valid
never@739 1681 __ movptr(word_count, count);
never@739 1682 __ shrptr(count, 2); // count => qword_count
duke@435 1683
duke@435 1684 // Copy from low to high addresses. Use 'to' as scratch.
never@739 1685 __ lea(end_from, Address(from, qword_count, Address::times_8, -8));
never@739 1686 __ lea(end_to, Address(to, qword_count, Address::times_8, -8));
never@739 1687 __ negptr(qword_count);
kvn@4411 1688 __ jmp(L_copy_bytes);
duke@435 1689
duke@435 1690 // Copy trailing qwords
duke@435 1691 __ BIND(L_copy_8_bytes);
duke@435 1692 __ movq(rax, Address(end_from, qword_count, Address::times_8, 8));
duke@435 1693 __ movq(Address(end_to, qword_count, Address::times_8, 8), rax);
never@739 1694 __ increment(qword_count);
duke@435 1695 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1696
duke@435 1697 // Original 'dest' is trashed, so we can't use it as a
duke@435 1698 // base register for a possible trailing word copy
duke@435 1699
duke@435 1700 // Check for and copy trailing dword
duke@435 1701 __ BIND(L_copy_4_bytes);
never@739 1702 __ testl(word_count, 2);
duke@435 1703 __ jccb(Assembler::zero, L_copy_2_bytes);
duke@435 1704 __ movl(rax, Address(end_from, 8));
duke@435 1705 __ movl(Address(end_to, 8), rax);
duke@435 1706
never@739 1707 __ addptr(end_from, 4);
never@739 1708 __ addptr(end_to, 4);
duke@435 1709
duke@435 1710 // Check for and copy trailing word
duke@435 1711 __ BIND(L_copy_2_bytes);
never@739 1712 __ testl(word_count, 1);
duke@435 1713 __ jccb(Assembler::zero, L_exit);
duke@435 1714 __ movw(rax, Address(end_from, 8));
duke@435 1715 __ movw(Address(end_to, 8), rax);
duke@435 1716
duke@435 1717 __ BIND(L_exit);
duke@435 1718 restore_arg_regs();
never@3314 1719 inc_counter_np(SharedRuntime::_jshort_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1720 __ xorptr(rax, rax); // return 0
duke@435 1721 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1722 __ ret(0);
duke@435 1723
kvn@4411 1724 // Copy in multi-bytes chunks
kvn@4411 1725 copy_bytes_forward(end_from, end_to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 1726 __ jmp(L_copy_4_bytes);
duke@435 1727
duke@435 1728 return start;
duke@435 1729 }
duke@435 1730
never@2118 1731 address generate_fill(BasicType t, bool aligned, const char *name) {
never@2118 1732 __ align(CodeEntryAlignment);
never@2118 1733 StubCodeMark mark(this, "StubRoutines", name);
never@2118 1734 address start = __ pc();
never@2118 1735
never@2118 1736 BLOCK_COMMENT("Entry:");
never@2118 1737
never@2118 1738 const Register to = c_rarg0; // source array address
never@2118 1739 const Register value = c_rarg1; // value
never@2118 1740 const Register count = c_rarg2; // elements count
never@2118 1741
never@2118 1742 __ enter(); // required for proper stackwalking of RuntimeStub frame
never@2118 1743
never@2118 1744 __ generate_fill(t, aligned, to, value, count, rax, xmm0);
never@2118 1745
never@2118 1746 __ leave(); // required for proper stackwalking of RuntimeStub frame
never@2118 1747 __ ret(0);
never@2118 1748 return start;
never@2118 1749 }
never@2118 1750
duke@435 1751 // Arguments:
duke@435 1752 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1753 // ignored
duke@435 1754 // name - stub name string
duke@435 1755 //
duke@435 1756 // Inputs:
duke@435 1757 // c_rarg0 - source array address
duke@435 1758 // c_rarg1 - destination array address
duke@435 1759 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1760 //
duke@435 1761 // If 'from' and/or 'to' are aligned on 4- or 2-byte boundaries, we
duke@435 1762 // let the hardware handle it. The two or four words within dwords
duke@435 1763 // or qwords that span cache line boundaries will still be loaded
duke@435 1764 // and stored atomically.
duke@435 1765 //
iveresov@2595 1766 address generate_conjoint_short_copy(bool aligned, address nooverlap_target,
iveresov@2595 1767 address *entry, const char *name) {
duke@435 1768 __ align(CodeEntryAlignment);
duke@435 1769 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1770 address start = __ pc();
duke@435 1771
kvn@4411 1772 Label L_copy_bytes, L_copy_8_bytes, L_copy_4_bytes;
duke@435 1773 const Register from = rdi; // source array address
duke@435 1774 const Register to = rsi; // destination array address
duke@435 1775 const Register count = rdx; // elements count
duke@435 1776 const Register word_count = rcx;
duke@435 1777 const Register qword_count = count;
duke@435 1778
duke@435 1779 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1780 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1781
iveresov@2595 1782 if (entry != NULL) {
iveresov@2595 1783 *entry = __ pc();
iveresov@2595 1784 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1785 BLOCK_COMMENT("Entry:");
iveresov@2595 1786 }
iveresov@2595 1787
iveresov@2595 1788 array_overlap_test(nooverlap_target, Address::times_2);
duke@435 1789 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 1790 // r9 and r10 may be used to save non-volatile registers
duke@435 1791
duke@435 1792 // 'from', 'to' and 'count' are now valid
never@739 1793 __ movptr(word_count, count);
never@739 1794 __ shrptr(count, 2); // count => qword_count
duke@435 1795
duke@435 1796 // Copy from high to low addresses. Use 'to' as scratch.
duke@435 1797
duke@435 1798 // Check for and copy trailing word
never@739 1799 __ testl(word_count, 1);
duke@435 1800 __ jccb(Assembler::zero, L_copy_4_bytes);
duke@435 1801 __ movw(rax, Address(from, word_count, Address::times_2, -2));
duke@435 1802 __ movw(Address(to, word_count, Address::times_2, -2), rax);
duke@435 1803
duke@435 1804 // Check for and copy trailing dword
duke@435 1805 __ BIND(L_copy_4_bytes);
never@739 1806 __ testl(word_count, 2);
kvn@4411 1807 __ jcc(Assembler::zero, L_copy_bytes);
duke@435 1808 __ movl(rax, Address(from, qword_count, Address::times_8));
duke@435 1809 __ movl(Address(to, qword_count, Address::times_8), rax);
kvn@4411 1810 __ jmp(L_copy_bytes);
duke@435 1811
duke@435 1812 // Copy trailing qwords
duke@435 1813 __ BIND(L_copy_8_bytes);
duke@435 1814 __ movq(rax, Address(from, qword_count, Address::times_8, -8));
duke@435 1815 __ movq(Address(to, qword_count, Address::times_8, -8), rax);
never@739 1816 __ decrement(qword_count);
duke@435 1817 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1818
duke@435 1819 restore_arg_regs();
never@3314 1820 inc_counter_np(SharedRuntime::_jshort_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1821 __ xorptr(rax, rax); // return 0
duke@435 1822 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1823 __ ret(0);
duke@435 1824
kvn@4411 1825 // Copy in multi-bytes chunks
kvn@4411 1826 copy_bytes_backward(from, to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 1827
duke@435 1828 restore_arg_regs();
never@3314 1829 inc_counter_np(SharedRuntime::_jshort_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1830 __ xorptr(rax, rax); // return 0
duke@435 1831 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1832 __ ret(0);
duke@435 1833
duke@435 1834 return start;
duke@435 1835 }
duke@435 1836
duke@435 1837 // Arguments:
duke@435 1838 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1839 // ignored
coleenp@548 1840 // is_oop - true => oop array, so generate store check code
duke@435 1841 // name - stub name string
duke@435 1842 //
duke@435 1843 // Inputs:
duke@435 1844 // c_rarg0 - source array address
duke@435 1845 // c_rarg1 - destination array address
duke@435 1846 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1847 //
duke@435 1848 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
duke@435 1849 // the hardware handle it. The two dwords within qwords that span
duke@435 1850 // cache line boundaries will still be loaded and stored atomicly.
duke@435 1851 //
duke@435 1852 // Side Effects:
duke@435 1853 // disjoint_int_copy_entry is set to the no-overlap entry point
coleenp@548 1854 // used by generate_conjoint_int_oop_copy().
duke@435 1855 //
iveresov@2606 1856 address generate_disjoint_int_oop_copy(bool aligned, bool is_oop, address* entry,
iveresov@2606 1857 const char *name, bool dest_uninitialized = false) {
duke@435 1858 __ align(CodeEntryAlignment);
duke@435 1859 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1860 address start = __ pc();
duke@435 1861
kvn@4411 1862 Label L_copy_bytes, L_copy_8_bytes, L_copy_4_bytes, L_exit;
duke@435 1863 const Register from = rdi; // source array address
duke@435 1864 const Register to = rsi; // destination array address
duke@435 1865 const Register count = rdx; // elements count
duke@435 1866 const Register dword_count = rcx;
duke@435 1867 const Register qword_count = count;
duke@435 1868 const Register end_from = from; // source array end address
duke@435 1869 const Register end_to = to; // destination array end address
coleenp@548 1870 const Register saved_to = r11; // saved destination array address
duke@435 1871 // End pointers are inclusive, and if count is not zero they point
duke@435 1872 // to the last unit copied: end_to[0] := end_from[0]
duke@435 1873
duke@435 1874 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1875 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1876
iveresov@2595 1877 if (entry != NULL) {
iveresov@2595 1878 *entry = __ pc();
iveresov@2595 1879 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1880 BLOCK_COMMENT("Entry:");
coleenp@548 1881 }
coleenp@548 1882
duke@435 1883 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 1884 // r9 and r10 may be used to save non-volatile registers
coleenp@548 1885 if (is_oop) {
coleenp@548 1886 __ movq(saved_to, to);
iveresov@2606 1887 gen_write_ref_array_pre_barrier(to, count, dest_uninitialized);
coleenp@548 1888 }
coleenp@548 1889
duke@435 1890 // 'from', 'to' and 'count' are now valid
never@739 1891 __ movptr(dword_count, count);
never@739 1892 __ shrptr(count, 1); // count => qword_count
duke@435 1893
duke@435 1894 // Copy from low to high addresses. Use 'to' as scratch.
never@739 1895 __ lea(end_from, Address(from, qword_count, Address::times_8, -8));
never@739 1896 __ lea(end_to, Address(to, qword_count, Address::times_8, -8));
never@739 1897 __ negptr(qword_count);
kvn@4411 1898 __ jmp(L_copy_bytes);
duke@435 1899
duke@435 1900 // Copy trailing qwords
duke@435 1901 __ BIND(L_copy_8_bytes);
duke@435 1902 __ movq(rax, Address(end_from, qword_count, Address::times_8, 8));
duke@435 1903 __ movq(Address(end_to, qword_count, Address::times_8, 8), rax);
never@739 1904 __ increment(qword_count);
duke@435 1905 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1906
duke@435 1907 // Check for and copy trailing dword
duke@435 1908 __ BIND(L_copy_4_bytes);
never@739 1909 __ testl(dword_count, 1); // Only byte test since the value is 0 or 1
duke@435 1910 __ jccb(Assembler::zero, L_exit);
duke@435 1911 __ movl(rax, Address(end_from, 8));
duke@435 1912 __ movl(Address(end_to, 8), rax);
duke@435 1913
duke@435 1914 __ BIND(L_exit);
coleenp@548 1915 if (is_oop) {
kvn@5156 1916 gen_write_ref_array_post_barrier(saved_to, dword_count, rax);
coleenp@548 1917 }
duke@435 1918 restore_arg_regs();
never@3314 1919 inc_counter_np(SharedRuntime::_jint_array_copy_ctr); // Update counter after rscratch1 is free
never@739 1920 __ xorptr(rax, rax); // return 0
duke@435 1921 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 1922 __ ret(0);
duke@435 1923
kvn@4411 1924 // Copy in multi-bytes chunks
kvn@4411 1925 copy_bytes_forward(end_from, end_to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 1926 __ jmp(L_copy_4_bytes);
duke@435 1927
duke@435 1928 return start;
duke@435 1929 }
duke@435 1930
duke@435 1931 // Arguments:
duke@435 1932 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
duke@435 1933 // ignored
coleenp@548 1934 // is_oop - true => oop array, so generate store check code
duke@435 1935 // name - stub name string
duke@435 1936 //
duke@435 1937 // Inputs:
duke@435 1938 // c_rarg0 - source array address
duke@435 1939 // c_rarg1 - destination array address
duke@435 1940 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 1941 //
duke@435 1942 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
duke@435 1943 // the hardware handle it. The two dwords within qwords that span
duke@435 1944 // cache line boundaries will still be loaded and stored atomicly.
duke@435 1945 //
iveresov@2595 1946 address generate_conjoint_int_oop_copy(bool aligned, bool is_oop, address nooverlap_target,
iveresov@2606 1947 address *entry, const char *name,
iveresov@2606 1948 bool dest_uninitialized = false) {
duke@435 1949 __ align(CodeEntryAlignment);
duke@435 1950 StubCodeMark mark(this, "StubRoutines", name);
duke@435 1951 address start = __ pc();
duke@435 1952
kvn@4411 1953 Label L_copy_bytes, L_copy_8_bytes, L_copy_2_bytes, L_exit;
duke@435 1954 const Register from = rdi; // source array address
duke@435 1955 const Register to = rsi; // destination array address
duke@435 1956 const Register count = rdx; // elements count
duke@435 1957 const Register dword_count = rcx;
duke@435 1958 const Register qword_count = count;
duke@435 1959
duke@435 1960 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 1961 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 1962
iveresov@2595 1963 if (entry != NULL) {
iveresov@2595 1964 *entry = __ pc();
iveresov@2595 1965 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 1966 BLOCK_COMMENT("Entry:");
iveresov@2595 1967 }
iveresov@2595 1968
iveresov@2595 1969 array_overlap_test(nooverlap_target, Address::times_4);
iveresov@2595 1970 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
iveresov@2595 1971 // r9 and r10 may be used to save non-volatile registers
iveresov@2595 1972
coleenp@548 1973 if (is_oop) {
coleenp@548 1974 // no registers are destroyed by this call
iveresov@2606 1975 gen_write_ref_array_pre_barrier(to, count, dest_uninitialized);
coleenp@548 1976 }
coleenp@548 1977
coleenp@548 1978 assert_clean_int(count, rax); // Make sure 'count' is clean int.
duke@435 1979 // 'from', 'to' and 'count' are now valid
never@739 1980 __ movptr(dword_count, count);
never@739 1981 __ shrptr(count, 1); // count => qword_count
duke@435 1982
duke@435 1983 // Copy from high to low addresses. Use 'to' as scratch.
duke@435 1984
duke@435 1985 // Check for and copy trailing dword
never@739 1986 __ testl(dword_count, 1);
kvn@4411 1987 __ jcc(Assembler::zero, L_copy_bytes);
duke@435 1988 __ movl(rax, Address(from, dword_count, Address::times_4, -4));
duke@435 1989 __ movl(Address(to, dword_count, Address::times_4, -4), rax);
kvn@4411 1990 __ jmp(L_copy_bytes);
duke@435 1991
duke@435 1992 // Copy trailing qwords
duke@435 1993 __ BIND(L_copy_8_bytes);
duke@435 1994 __ movq(rax, Address(from, qword_count, Address::times_8, -8));
duke@435 1995 __ movq(Address(to, qword_count, Address::times_8, -8), rax);
never@739 1996 __ decrement(qword_count);
duke@435 1997 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 1998
coleenp@548 1999 if (is_oop) {
coleenp@548 2000 __ jmp(L_exit);
coleenp@548 2001 }
duke@435 2002 restore_arg_regs();
never@3314 2003 inc_counter_np(SharedRuntime::_jint_array_copy_ctr); // Update counter after rscratch1 is free
never@739 2004 __ xorptr(rax, rax); // return 0
duke@435 2005 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2006 __ ret(0);
duke@435 2007
kvn@4411 2008 // Copy in multi-bytes chunks
kvn@4411 2009 copy_bytes_backward(from, to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 2010
kvn@5156 2011 __ BIND(L_exit);
kvn@5156 2012 if (is_oop) {
kvn@5156 2013 gen_write_ref_array_post_barrier(to, dword_count, rax);
kvn@5156 2014 }
duke@435 2015 restore_arg_regs();
never@3314 2016 inc_counter_np(SharedRuntime::_jint_array_copy_ctr); // Update counter after rscratch1 is free
never@739 2017 __ xorptr(rax, rax); // return 0
duke@435 2018 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2019 __ ret(0);
duke@435 2020
duke@435 2021 return start;
duke@435 2022 }
duke@435 2023
duke@435 2024 // Arguments:
duke@435 2025 // aligned - true => Input and output aligned on a HeapWord boundary == 8 bytes
duke@435 2026 // ignored
duke@435 2027 // is_oop - true => oop array, so generate store check code
duke@435 2028 // name - stub name string
duke@435 2029 //
duke@435 2030 // Inputs:
duke@435 2031 // c_rarg0 - source array address
duke@435 2032 // c_rarg1 - destination array address
duke@435 2033 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 2034 //
coleenp@548 2035 // Side Effects:
duke@435 2036 // disjoint_oop_copy_entry or disjoint_long_copy_entry is set to the
duke@435 2037 // no-overlap entry point used by generate_conjoint_long_oop_copy().
duke@435 2038 //
iveresov@2606 2039 address generate_disjoint_long_oop_copy(bool aligned, bool is_oop, address *entry,
iveresov@2606 2040 const char *name, bool dest_uninitialized = false) {
duke@435 2041 __ align(CodeEntryAlignment);
duke@435 2042 StubCodeMark mark(this, "StubRoutines", name);
duke@435 2043 address start = __ pc();
duke@435 2044
kvn@4411 2045 Label L_copy_bytes, L_copy_8_bytes, L_exit;
duke@435 2046 const Register from = rdi; // source array address
duke@435 2047 const Register to = rsi; // destination array address
duke@435 2048 const Register qword_count = rdx; // elements count
duke@435 2049 const Register end_from = from; // source array end address
duke@435 2050 const Register end_to = rcx; // destination array end address
duke@435 2051 const Register saved_to = to;
kvn@5156 2052 const Register saved_count = r11;
duke@435 2053 // End pointers are inclusive, and if count is not zero they point
duke@435 2054 // to the last unit copied: end_to[0] := end_from[0]
duke@435 2055
duke@435 2056 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 2057 // Save no-overlap entry point for generate_conjoint_long_oop_copy()
duke@435 2058 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 2059
iveresov@2595 2060 if (entry != NULL) {
iveresov@2595 2061 *entry = __ pc();
iveresov@2595 2062 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 2063 BLOCK_COMMENT("Entry:");
duke@435 2064 }
duke@435 2065
duke@435 2066 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 2067 // r9 and r10 may be used to save non-volatile registers
duke@435 2068 // 'from', 'to' and 'qword_count' are now valid
iveresov@2595 2069 if (is_oop) {
kvn@5156 2070 // Save to and count for store barrier
kvn@5156 2071 __ movptr(saved_count, qword_count);
iveresov@2595 2072 // no registers are destroyed by this call
iveresov@2606 2073 gen_write_ref_array_pre_barrier(to, qword_count, dest_uninitialized);
iveresov@2595 2074 }
duke@435 2075
duke@435 2076 // Copy from low to high addresses. Use 'to' as scratch.
never@739 2077 __ lea(end_from, Address(from, qword_count, Address::times_8, -8));
never@739 2078 __ lea(end_to, Address(to, qword_count, Address::times_8, -8));
never@739 2079 __ negptr(qword_count);
kvn@4411 2080 __ jmp(L_copy_bytes);
duke@435 2081
duke@435 2082 // Copy trailing qwords
duke@435 2083 __ BIND(L_copy_8_bytes);
duke@435 2084 __ movq(rax, Address(end_from, qword_count, Address::times_8, 8));
duke@435 2085 __ movq(Address(end_to, qword_count, Address::times_8, 8), rax);
never@739 2086 __ increment(qword_count);
duke@435 2087 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 2088
duke@435 2089 if (is_oop) {
duke@435 2090 __ jmp(L_exit);
duke@435 2091 } else {
duke@435 2092 restore_arg_regs();
never@3314 2093 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr); // Update counter after rscratch1 is free
never@739 2094 __ xorptr(rax, rax); // return 0
duke@435 2095 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2096 __ ret(0);
duke@435 2097 }
duke@435 2098
kvn@4411 2099 // Copy in multi-bytes chunks
kvn@4411 2100 copy_bytes_forward(end_from, end_to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 2101
duke@435 2102 if (is_oop) {
duke@435 2103 __ BIND(L_exit);
kvn@5156 2104 gen_write_ref_array_post_barrier(saved_to, saved_count, rax);
duke@435 2105 }
duke@435 2106 restore_arg_regs();
never@3314 2107 if (is_oop) {
never@3314 2108 inc_counter_np(SharedRuntime::_oop_array_copy_ctr); // Update counter after rscratch1 is free
never@3314 2109 } else {
never@3314 2110 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr); // Update counter after rscratch1 is free
never@3314 2111 }
never@739 2112 __ xorptr(rax, rax); // return 0
duke@435 2113 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2114 __ ret(0);
duke@435 2115
duke@435 2116 return start;
duke@435 2117 }
duke@435 2118
duke@435 2119 // Arguments:
duke@435 2120 // aligned - true => Input and output aligned on a HeapWord boundary == 8 bytes
duke@435 2121 // ignored
duke@435 2122 // is_oop - true => oop array, so generate store check code
duke@435 2123 // name - stub name string
duke@435 2124 //
duke@435 2125 // Inputs:
duke@435 2126 // c_rarg0 - source array address
duke@435 2127 // c_rarg1 - destination array address
duke@435 2128 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 2129 //
iveresov@2606 2130 address generate_conjoint_long_oop_copy(bool aligned, bool is_oop,
iveresov@2606 2131 address nooverlap_target, address *entry,
iveresov@2606 2132 const char *name, bool dest_uninitialized = false) {
duke@435 2133 __ align(CodeEntryAlignment);
duke@435 2134 StubCodeMark mark(this, "StubRoutines", name);
duke@435 2135 address start = __ pc();
duke@435 2136
kvn@4411 2137 Label L_copy_bytes, L_copy_8_bytes, L_exit;
duke@435 2138 const Register from = rdi; // source array address
duke@435 2139 const Register to = rsi; // destination array address
duke@435 2140 const Register qword_count = rdx; // elements count
duke@435 2141 const Register saved_count = rcx;
duke@435 2142
duke@435 2143 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 2144 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
duke@435 2145
iveresov@2595 2146 if (entry != NULL) {
iveresov@2595 2147 *entry = __ pc();
iveresov@2595 2148 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
iveresov@2595 2149 BLOCK_COMMENT("Entry:");
duke@435 2150 }
iveresov@2595 2151
iveresov@2595 2152 array_overlap_test(nooverlap_target, Address::times_8);
duke@435 2153 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
duke@435 2154 // r9 and r10 may be used to save non-volatile registers
duke@435 2155 // 'from', 'to' and 'qword_count' are now valid
duke@435 2156 if (is_oop) {
duke@435 2157 // Save to and count for store barrier
never@739 2158 __ movptr(saved_count, qword_count);
duke@435 2159 // No registers are destroyed by this call
iveresov@2606 2160 gen_write_ref_array_pre_barrier(to, saved_count, dest_uninitialized);
duke@435 2161 }
duke@435 2162
kvn@4411 2163 __ jmp(L_copy_bytes);
duke@435 2164
duke@435 2165 // Copy trailing qwords
duke@435 2166 __ BIND(L_copy_8_bytes);
duke@435 2167 __ movq(rax, Address(from, qword_count, Address::times_8, -8));
duke@435 2168 __ movq(Address(to, qword_count, Address::times_8, -8), rax);
never@739 2169 __ decrement(qword_count);
duke@435 2170 __ jcc(Assembler::notZero, L_copy_8_bytes);
duke@435 2171
duke@435 2172 if (is_oop) {
duke@435 2173 __ jmp(L_exit);
duke@435 2174 } else {
duke@435 2175 restore_arg_regs();
never@3314 2176 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr); // Update counter after rscratch1 is free
never@739 2177 __ xorptr(rax, rax); // return 0
duke@435 2178 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2179 __ ret(0);
duke@435 2180 }
duke@435 2181
kvn@4411 2182 // Copy in multi-bytes chunks
kvn@4411 2183 copy_bytes_backward(from, to, qword_count, rax, L_copy_bytes, L_copy_8_bytes);
duke@435 2184
duke@435 2185 if (is_oop) {
duke@435 2186 __ BIND(L_exit);
kvn@5156 2187 gen_write_ref_array_post_barrier(to, saved_count, rax);
duke@435 2188 }
duke@435 2189 restore_arg_regs();
never@3314 2190 if (is_oop) {
never@3314 2191 inc_counter_np(SharedRuntime::_oop_array_copy_ctr); // Update counter after rscratch1 is free
never@3314 2192 } else {
never@3314 2193 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr); // Update counter after rscratch1 is free
never@3314 2194 }
never@739 2195 __ xorptr(rax, rax); // return 0
duke@435 2196 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2197 __ ret(0);
duke@435 2198
duke@435 2199 return start;
duke@435 2200 }
duke@435 2201
duke@435 2202
duke@435 2203 // Helper for generating a dynamic type check.
duke@435 2204 // Smashes no registers.
duke@435 2205 void generate_type_check(Register sub_klass,
duke@435 2206 Register super_check_offset,
duke@435 2207 Register super_klass,
duke@435 2208 Label& L_success) {
duke@435 2209 assert_different_registers(sub_klass, super_check_offset, super_klass);
duke@435 2210
duke@435 2211 BLOCK_COMMENT("type_check:");
duke@435 2212
duke@435 2213 Label L_miss;
duke@435 2214
jrose@1079 2215 __ check_klass_subtype_fast_path(sub_klass, super_klass, noreg, &L_success, &L_miss, NULL,
jrose@1079 2216 super_check_offset);
jrose@1079 2217 __ check_klass_subtype_slow_path(sub_klass, super_klass, noreg, noreg, &L_success, NULL);
duke@435 2218
duke@435 2219 // Fall through on failure!
duke@435 2220 __ BIND(L_miss);
duke@435 2221 }
duke@435 2222
duke@435 2223 //
duke@435 2224 // Generate checkcasting array copy stub
duke@435 2225 //
duke@435 2226 // Input:
duke@435 2227 // c_rarg0 - source array address
duke@435 2228 // c_rarg1 - destination array address
duke@435 2229 // c_rarg2 - element count, treated as ssize_t, can be zero
duke@435 2230 // c_rarg3 - size_t ckoff (super_check_offset)
duke@435 2231 // not Win64
duke@435 2232 // c_rarg4 - oop ckval (super_klass)
duke@435 2233 // Win64
duke@435 2234 // rsp+40 - oop ckval (super_klass)
duke@435 2235 //
duke@435 2236 // Output:
duke@435 2237 // rax == 0 - success
duke@435 2238 // rax == -1^K - failure, where K is partial transfer count
duke@435 2239 //
iveresov@2606 2240 address generate_checkcast_copy(const char *name, address *entry,
iveresov@2606 2241 bool dest_uninitialized = false) {
duke@435 2242
duke@435 2243 Label L_load_element, L_store_element, L_do_card_marks, L_done;
duke@435 2244
duke@435 2245 // Input registers (after setup_arg_regs)
duke@435 2246 const Register from = rdi; // source array address
duke@435 2247 const Register to = rsi; // destination array address
duke@435 2248 const Register length = rdx; // elements count
duke@435 2249 const Register ckoff = rcx; // super_check_offset
duke@435 2250 const Register ckval = r8; // super_klass
duke@435 2251
duke@435 2252 // Registers used as temps (r13, r14 are save-on-entry)
duke@435 2253 const Register end_from = from; // source array end address
duke@435 2254 const Register end_to = r13; // destination array end address
duke@435 2255 const Register count = rdx; // -(count_remaining)
duke@435 2256 const Register r14_length = r14; // saved copy of length
duke@435 2257 // End pointers are inclusive, and if length is not zero they point
duke@435 2258 // to the last unit copied: end_to[0] := end_from[0]
duke@435 2259
duke@435 2260 const Register rax_oop = rax; // actual oop copied
duke@435 2261 const Register r11_klass = r11; // oop._klass
duke@435 2262
duke@435 2263 //---------------------------------------------------------------
duke@435 2264 // Assembler stub will be used for this call to arraycopy
duke@435 2265 // if the two arrays are subtypes of Object[] but the
duke@435 2266 // destination array type is not equal to or a supertype
duke@435 2267 // of the source type. Each element must be separately
duke@435 2268 // checked.
duke@435 2269
duke@435 2270 __ align(CodeEntryAlignment);
duke@435 2271 StubCodeMark mark(this, "StubRoutines", name);
duke@435 2272 address start = __ pc();
duke@435 2273
duke@435 2274 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 2275
duke@435 2276 #ifdef ASSERT
duke@435 2277 // caller guarantees that the arrays really are different
duke@435 2278 // otherwise, we would have to make conjoint checks
duke@435 2279 { Label L;
coleenp@548 2280 array_overlap_test(L, TIMES_OOP);
duke@435 2281 __ stop("checkcast_copy within a single array");
duke@435 2282 __ bind(L);
duke@435 2283 }
duke@435 2284 #endif //ASSERT
duke@435 2285
duke@435 2286 setup_arg_regs(4); // from => rdi, to => rsi, length => rdx
duke@435 2287 // ckoff => rcx, ckval => r8
duke@435 2288 // r9 and r10 may be used to save non-volatile registers
duke@435 2289 #ifdef _WIN64
duke@435 2290 // last argument (#4) is on stack on Win64
twisti@2348 2291 __ movptr(ckval, Address(rsp, 6 * wordSize));
duke@435 2292 #endif
duke@435 2293
twisti@2348 2294 // Caller of this entry point must set up the argument registers.
iveresov@2595 2295 if (entry != NULL) {
iveresov@2595 2296 *entry = __ pc();
iveresov@2595 2297 BLOCK_COMMENT("Entry:");
iveresov@2595 2298 }
twisti@2348 2299
twisti@2348 2300 // allocate spill slots for r13, r14
twisti@2348 2301 enum {
twisti@2348 2302 saved_r13_offset,
twisti@2348 2303 saved_r14_offset,
twisti@2348 2304 saved_rbp_offset
twisti@2348 2305 };
twisti@2348 2306 __ subptr(rsp, saved_rbp_offset * wordSize);
twisti@2348 2307 __ movptr(Address(rsp, saved_r13_offset * wordSize), r13);
twisti@2348 2308 __ movptr(Address(rsp, saved_r14_offset * wordSize), r14);
twisti@2348 2309
duke@435 2310 // check that int operands are properly extended to size_t
duke@435 2311 assert_clean_int(length, rax);
duke@435 2312 assert_clean_int(ckoff, rax);
duke@435 2313
duke@435 2314 #ifdef ASSERT
duke@435 2315 BLOCK_COMMENT("assert consistent ckoff/ckval");
duke@435 2316 // The ckoff and ckval must be mutually consistent,
duke@435 2317 // even though caller generates both.
duke@435 2318 { Label L;
stefank@3391 2319 int sco_offset = in_bytes(Klass::super_check_offset_offset());
duke@435 2320 __ cmpl(ckoff, Address(ckval, sco_offset));
duke@435 2321 __ jcc(Assembler::equal, L);
duke@435 2322 __ stop("super_check_offset inconsistent");
duke@435 2323 __ bind(L);
duke@435 2324 }
duke@435 2325 #endif //ASSERT
duke@435 2326
duke@435 2327 // Loop-invariant addresses. They are exclusive end pointers.
coleenp@548 2328 Address end_from_addr(from, length, TIMES_OOP, 0);
coleenp@548 2329 Address end_to_addr(to, length, TIMES_OOP, 0);
duke@435 2330 // Loop-variant addresses. They assume post-incremented count < 0.
coleenp@548 2331 Address from_element_addr(end_from, count, TIMES_OOP, 0);
coleenp@548 2332 Address to_element_addr(end_to, count, TIMES_OOP, 0);
duke@435 2333
iveresov@2606 2334 gen_write_ref_array_pre_barrier(to, count, dest_uninitialized);
duke@435 2335
duke@435 2336 // Copy from low to high addresses, indexed from the end of each array.
never@739 2337 __ lea(end_from, end_from_addr);
never@739 2338 __ lea(end_to, end_to_addr);
never@739 2339 __ movptr(r14_length, length); // save a copy of the length
never@739 2340 assert(length == count, ""); // else fix next line:
never@739 2341 __ negptr(count); // negate and test the length
duke@435 2342 __ jcc(Assembler::notZero, L_load_element);
duke@435 2343
duke@435 2344 // Empty array: Nothing to do.
never@739 2345 __ xorptr(rax, rax); // return 0 on (trivial) success
duke@435 2346 __ jmp(L_done);
duke@435 2347
duke@435 2348 // ======== begin loop ========
duke@435 2349 // (Loop is rotated; its entry is L_load_element.)
duke@435 2350 // Loop control:
duke@435 2351 // for (count = -count; count != 0; count++)
duke@435 2352 // Base pointers src, dst are biased by 8*(count-1),to last element.
kvn@1800 2353 __ align(OptoLoopAlignment);
duke@435 2354
duke@435 2355 __ BIND(L_store_element);
coleenp@548 2356 __ store_heap_oop(to_element_addr, rax_oop); // store the oop
never@739 2357 __ increment(count); // increment the count toward zero
duke@435 2358 __ jcc(Assembler::zero, L_do_card_marks);
duke@435 2359
duke@435 2360 // ======== loop entry is here ========
duke@435 2361 __ BIND(L_load_element);
coleenp@548 2362 __ load_heap_oop(rax_oop, from_element_addr); // load the oop
never@739 2363 __ testptr(rax_oop, rax_oop);
duke@435 2364 __ jcc(Assembler::zero, L_store_element);
duke@435 2365
coleenp@548 2366 __ load_klass(r11_klass, rax_oop);// query the object klass
duke@435 2367 generate_type_check(r11_klass, ckoff, ckval, L_store_element);
duke@435 2368 // ======== end loop ========
duke@435 2369
duke@435 2370 // It was a real error; we must depend on the caller to finish the job.
duke@435 2371 // Register rdx = -1 * number of *remaining* oops, r14 = *total* oops.
duke@435 2372 // Emit GC store barriers for the oops we have copied (r14 + rdx),
duke@435 2373 // and report their number to the caller.
kvn@5156 2374 assert_different_registers(rax, r14_length, count, to, end_to, rcx, rscratch1);
kvn@5156 2375 Label L_post_barrier;
kvn@5156 2376 __ addptr(r14_length, count); // K = (original - remaining) oops
kvn@5156 2377 __ movptr(rax, r14_length); // save the value
kvn@5156 2378 __ notptr(rax); // report (-1^K) to caller (does not affect flags)
kvn@5156 2379 __ jccb(Assembler::notZero, L_post_barrier);
kvn@5156 2380 __ jmp(L_done); // K == 0, nothing was copied, skip post barrier
duke@435 2381
duke@435 2382 // Come here on success only.
duke@435 2383 __ BIND(L_do_card_marks);
kvn@5156 2384 __ xorptr(rax, rax); // return 0 on success
kvn@5156 2385
kvn@5156 2386 __ BIND(L_post_barrier);
kvn@5156 2387 gen_write_ref_array_post_barrier(to, r14_length, rscratch1);
duke@435 2388
duke@435 2389 // Common exit point (success or failure).
duke@435 2390 __ BIND(L_done);
never@739 2391 __ movptr(r13, Address(rsp, saved_r13_offset * wordSize));
never@739 2392 __ movptr(r14, Address(rsp, saved_r14_offset * wordSize));
duke@435 2393 restore_arg_regs();
never@3314 2394 inc_counter_np(SharedRuntime::_checkcast_array_copy_ctr); // Update counter after rscratch1 is free
duke@435 2395 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2396 __ ret(0);
duke@435 2397
duke@435 2398 return start;
duke@435 2399 }
duke@435 2400
duke@435 2401 //
duke@435 2402 // Generate 'unsafe' array copy stub
duke@435 2403 // Though just as safe as the other stubs, it takes an unscaled
duke@435 2404 // size_t argument instead of an element count.
duke@435 2405 //
duke@435 2406 // Input:
duke@435 2407 // c_rarg0 - source array address
duke@435 2408 // c_rarg1 - destination array address
duke@435 2409 // c_rarg2 - byte count, treated as ssize_t, can be zero
duke@435 2410 //
duke@435 2411 // Examines the alignment of the operands and dispatches
duke@435 2412 // to a long, int, short, or byte copy loop.
duke@435 2413 //
iveresov@2595 2414 address generate_unsafe_copy(const char *name,
iveresov@2595 2415 address byte_copy_entry, address short_copy_entry,
iveresov@2595 2416 address int_copy_entry, address long_copy_entry) {
duke@435 2417
duke@435 2418 Label L_long_aligned, L_int_aligned, L_short_aligned;
duke@435 2419
duke@435 2420 // Input registers (before setup_arg_regs)
duke@435 2421 const Register from = c_rarg0; // source array address
duke@435 2422 const Register to = c_rarg1; // destination array address
duke@435 2423 const Register size = c_rarg2; // byte count (size_t)
duke@435 2424
duke@435 2425 // Register used as a temp
duke@435 2426 const Register bits = rax; // test copy of low bits
duke@435 2427
duke@435 2428 __ align(CodeEntryAlignment);
duke@435 2429 StubCodeMark mark(this, "StubRoutines", name);
duke@435 2430 address start = __ pc();
duke@435 2431
duke@435 2432 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 2433
duke@435 2434 // bump this on entry, not on exit:
duke@435 2435 inc_counter_np(SharedRuntime::_unsafe_array_copy_ctr);
duke@435 2436
never@739 2437 __ mov(bits, from);
never@739 2438 __ orptr(bits, to);
never@739 2439 __ orptr(bits, size);
duke@435 2440
duke@435 2441 __ testb(bits, BytesPerLong-1);
duke@435 2442 __ jccb(Assembler::zero, L_long_aligned);
duke@435 2443
duke@435 2444 __ testb(bits, BytesPerInt-1);
duke@435 2445 __ jccb(Assembler::zero, L_int_aligned);
duke@435 2446
duke@435 2447 __ testb(bits, BytesPerShort-1);
duke@435 2448 __ jump_cc(Assembler::notZero, RuntimeAddress(byte_copy_entry));
duke@435 2449
duke@435 2450 __ BIND(L_short_aligned);
never@739 2451 __ shrptr(size, LogBytesPerShort); // size => short_count
duke@435 2452 __ jump(RuntimeAddress(short_copy_entry));
duke@435 2453
duke@435 2454 __ BIND(L_int_aligned);
never@739 2455 __ shrptr(size, LogBytesPerInt); // size => int_count
duke@435 2456 __ jump(RuntimeAddress(int_copy_entry));
duke@435 2457
duke@435 2458 __ BIND(L_long_aligned);
never@739 2459 __ shrptr(size, LogBytesPerLong); // size => qword_count
duke@435 2460 __ jump(RuntimeAddress(long_copy_entry));
duke@435 2461
duke@435 2462 return start;
duke@435 2463 }
duke@435 2464
duke@435 2465 // Perform range checks on the proposed arraycopy.
duke@435 2466 // Kills temp, but nothing else.
duke@435 2467 // Also, clean the sign bits of src_pos and dst_pos.
duke@435 2468 void arraycopy_range_checks(Register src, // source array oop (c_rarg0)
duke@435 2469 Register src_pos, // source position (c_rarg1)
duke@435 2470 Register dst, // destination array oo (c_rarg2)
duke@435 2471 Register dst_pos, // destination position (c_rarg3)
duke@435 2472 Register length,
duke@435 2473 Register temp,
duke@435 2474 Label& L_failed) {
duke@435 2475 BLOCK_COMMENT("arraycopy_range_checks:");
duke@435 2476
duke@435 2477 // if (src_pos + length > arrayOop(src)->length()) FAIL;
duke@435 2478 __ movl(temp, length);
duke@435 2479 __ addl(temp, src_pos); // src_pos + length
duke@435 2480 __ cmpl(temp, Address(src, arrayOopDesc::length_offset_in_bytes()));
duke@435 2481 __ jcc(Assembler::above, L_failed);
duke@435 2482
duke@435 2483 // if (dst_pos + length > arrayOop(dst)->length()) FAIL;
duke@435 2484 __ movl(temp, length);
duke@435 2485 __ addl(temp, dst_pos); // dst_pos + length
duke@435 2486 __ cmpl(temp, Address(dst, arrayOopDesc::length_offset_in_bytes()));
duke@435 2487 __ jcc(Assembler::above, L_failed);
duke@435 2488
duke@435 2489 // Have to clean up high 32-bits of 'src_pos' and 'dst_pos'.
duke@435 2490 // Move with sign extension can be used since they are positive.
duke@435 2491 __ movslq(src_pos, src_pos);
duke@435 2492 __ movslq(dst_pos, dst_pos);
duke@435 2493
duke@435 2494 BLOCK_COMMENT("arraycopy_range_checks done");
duke@435 2495 }
duke@435 2496
duke@435 2497 //
duke@435 2498 // Generate generic array copy stubs
duke@435 2499 //
duke@435 2500 // Input:
duke@435 2501 // c_rarg0 - src oop
duke@435 2502 // c_rarg1 - src_pos (32-bits)
duke@435 2503 // c_rarg2 - dst oop
duke@435 2504 // c_rarg3 - dst_pos (32-bits)
duke@435 2505 // not Win64
duke@435 2506 // c_rarg4 - element count (32-bits)
duke@435 2507 // Win64
duke@435 2508 // rsp+40 - element count (32-bits)
duke@435 2509 //
duke@435 2510 // Output:
duke@435 2511 // rax == 0 - success
duke@435 2512 // rax == -1^K - failure, where K is partial transfer count
duke@435 2513 //
iveresov@2595 2514 address generate_generic_copy(const char *name,
iveresov@2595 2515 address byte_copy_entry, address short_copy_entry,
iveresov@2691 2516 address int_copy_entry, address oop_copy_entry,
iveresov@2691 2517 address long_copy_entry, address checkcast_copy_entry) {
duke@435 2518
duke@435 2519 Label L_failed, L_failed_0, L_objArray;
duke@435 2520 Label L_copy_bytes, L_copy_shorts, L_copy_ints, L_copy_longs;
duke@435 2521
duke@435 2522 // Input registers
duke@435 2523 const Register src = c_rarg0; // source array oop
duke@435 2524 const Register src_pos = c_rarg1; // source position
duke@435 2525 const Register dst = c_rarg2; // destination array oop
duke@435 2526 const Register dst_pos = c_rarg3; // destination position
twisti@2348 2527 #ifndef _WIN64
twisti@2348 2528 const Register length = c_rarg4;
duke@435 2529 #else
twisti@2348 2530 const Address length(rsp, 6 * wordSize); // elements count is on stack on Win64
duke@435 2531 #endif
duke@435 2532
duke@435 2533 { int modulus = CodeEntryAlignment;
duke@435 2534 int target = modulus - 5; // 5 = sizeof jmp(L_failed)
duke@435 2535 int advance = target - (__ offset() % modulus);
duke@435 2536 if (advance < 0) advance += modulus;
duke@435 2537 if (advance > 0) __ nop(advance);
duke@435 2538 }
duke@435 2539 StubCodeMark mark(this, "StubRoutines", name);
duke@435 2540
duke@435 2541 // Short-hop target to L_failed. Makes for denser prologue code.
duke@435 2542 __ BIND(L_failed_0);
duke@435 2543 __ jmp(L_failed);
duke@435 2544 assert(__ offset() % CodeEntryAlignment == 0, "no further alignment needed");
duke@435 2545
duke@435 2546 __ align(CodeEntryAlignment);
duke@435 2547 address start = __ pc();
duke@435 2548
duke@435 2549 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 2550
duke@435 2551 // bump this on entry, not on exit:
duke@435 2552 inc_counter_np(SharedRuntime::_generic_array_copy_ctr);
duke@435 2553
duke@435 2554 //-----------------------------------------------------------------------
duke@435 2555 // Assembler stub will be used for this call to arraycopy
duke@435 2556 // if the following conditions are met:
duke@435 2557 //
duke@435 2558 // (1) src and dst must not be null.
duke@435 2559 // (2) src_pos must not be negative.
duke@435 2560 // (3) dst_pos must not be negative.
duke@435 2561 // (4) length must not be negative.
duke@435 2562 // (5) src klass and dst klass should be the same and not NULL.
duke@435 2563 // (6) src and dst should be arrays.
duke@435 2564 // (7) src_pos + length must not exceed length of src.
duke@435 2565 // (8) dst_pos + length must not exceed length of dst.
duke@435 2566 //
duke@435 2567
duke@435 2568 // if (src == NULL) return -1;
never@739 2569 __ testptr(src, src); // src oop
duke@435 2570 size_t j1off = __ offset();
duke@435 2571 __ jccb(Assembler::zero, L_failed_0);
duke@435 2572
duke@435 2573 // if (src_pos < 0) return -1;
duke@435 2574 __ testl(src_pos, src_pos); // src_pos (32-bits)
duke@435 2575 __ jccb(Assembler::negative, L_failed_0);
duke@435 2576
duke@435 2577 // if (dst == NULL) return -1;
never@739 2578 __ testptr(dst, dst); // dst oop
duke@435 2579 __ jccb(Assembler::zero, L_failed_0);
duke@435 2580
duke@435 2581 // if (dst_pos < 0) return -1;
duke@435 2582 __ testl(dst_pos, dst_pos); // dst_pos (32-bits)
duke@435 2583 size_t j4off = __ offset();
duke@435 2584 __ jccb(Assembler::negative, L_failed_0);
duke@435 2585
duke@435 2586 // The first four tests are very dense code,
duke@435 2587 // but not quite dense enough to put four
duke@435 2588 // jumps in a 16-byte instruction fetch buffer.
duke@435 2589 // That's good, because some branch predicters
duke@435 2590 // do not like jumps so close together.
duke@435 2591 // Make sure of this.
duke@435 2592 guarantee(((j1off ^ j4off) & ~15) != 0, "I$ line of 1st & 4th jumps");
duke@435 2593
duke@435 2594 // registers used as temp
duke@435 2595 const Register r11_length = r11; // elements count to copy
duke@435 2596 const Register r10_src_klass = r10; // array klass
duke@435 2597
duke@435 2598 // if (length < 0) return -1;
twisti@2348 2599 __ movl(r11_length, length); // length (elements count, 32-bits value)
duke@435 2600 __ testl(r11_length, r11_length);
duke@435 2601 __ jccb(Assembler::negative, L_failed_0);
duke@435 2602
coleenp@548 2603 __ load_klass(r10_src_klass, src);
duke@435 2604 #ifdef ASSERT
duke@435 2605 // assert(src->klass() != NULL);
twisti@2348 2606 {
twisti@2348 2607 BLOCK_COMMENT("assert klasses not null {");
twisti@2348 2608 Label L1, L2;
never@739 2609 __ testptr(r10_src_klass, r10_src_klass);
duke@435 2610 __ jcc(Assembler::notZero, L2); // it is broken if klass is NULL
duke@435 2611 __ bind(L1);
duke@435 2612 __ stop("broken null klass");
duke@435 2613 __ bind(L2);
twisti@2348 2614 __ load_klass(rax, dst);
twisti@2348 2615 __ cmpq(rax, 0);
duke@435 2616 __ jcc(Assembler::equal, L1); // this would be broken also
twisti@2348 2617 BLOCK_COMMENT("} assert klasses not null done");
duke@435 2618 }
duke@435 2619 #endif
duke@435 2620
duke@435 2621 // Load layout helper (32-bits)
duke@435 2622 //
duke@435 2623 // |array_tag| | header_size | element_type | |log2_element_size|
duke@435 2624 // 32 30 24 16 8 2 0
duke@435 2625 //
duke@435 2626 // array_tag: typeArray = 0x3, objArray = 0x2, non-array = 0x0
duke@435 2627 //
duke@435 2628
stefank@3391 2629 const int lh_offset = in_bytes(Klass::layout_helper_offset());
twisti@2348 2630
twisti@2348 2631 // Handle objArrays completely differently...
twisti@2348 2632 const jint objArray_lh = Klass::array_layout_helper(T_OBJECT);
twisti@2348 2633 __ cmpl(Address(r10_src_klass, lh_offset), objArray_lh);
twisti@2348 2634 __ jcc(Assembler::equal, L_objArray);
twisti@2348 2635
twisti@2348 2636 // if (src->klass() != dst->klass()) return -1;
twisti@2348 2637 __ load_klass(rax, dst);
twisti@2348 2638 __ cmpq(r10_src_klass, rax);
twisti@2348 2639 __ jcc(Assembler::notEqual, L_failed);
duke@435 2640
duke@435 2641 const Register rax_lh = rax; // layout helper
duke@435 2642 __ movl(rax_lh, Address(r10_src_klass, lh_offset));
duke@435 2643
duke@435 2644 // if (!src->is_Array()) return -1;
duke@435 2645 __ cmpl(rax_lh, Klass::_lh_neutral_value);
duke@435 2646 __ jcc(Assembler::greaterEqual, L_failed);
duke@435 2647
duke@435 2648 // At this point, it is known to be a typeArray (array_tag 0x3).
duke@435 2649 #ifdef ASSERT
twisti@2348 2650 {
twisti@2348 2651 BLOCK_COMMENT("assert primitive array {");
twisti@2348 2652 Label L;
duke@435 2653 __ cmpl(rax_lh, (Klass::_lh_array_tag_type_value << Klass::_lh_array_tag_shift));
duke@435 2654 __ jcc(Assembler::greaterEqual, L);
duke@435 2655 __ stop("must be a primitive array");
duke@435 2656 __ bind(L);
twisti@2348 2657 BLOCK_COMMENT("} assert primitive array done");
duke@435 2658 }
duke@435 2659 #endif
duke@435 2660
duke@435 2661 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
duke@435 2662 r10, L_failed);
duke@435 2663
coleenp@4142 2664 // TypeArrayKlass
duke@435 2665 //
duke@435 2666 // src_addr = (src + array_header_in_bytes()) + (src_pos << log2elemsize);
duke@435 2667 // dst_addr = (dst + array_header_in_bytes()) + (dst_pos << log2elemsize);
duke@435 2668 //
duke@435 2669
duke@435 2670 const Register r10_offset = r10; // array offset
duke@435 2671 const Register rax_elsize = rax_lh; // element size
duke@435 2672
duke@435 2673 __ movl(r10_offset, rax_lh);
duke@435 2674 __ shrl(r10_offset, Klass::_lh_header_size_shift);
never@739 2675 __ andptr(r10_offset, Klass::_lh_header_size_mask); // array_offset
never@739 2676 __ addptr(src, r10_offset); // src array offset
never@739 2677 __ addptr(dst, r10_offset); // dst array offset
duke@435 2678 BLOCK_COMMENT("choose copy loop based on element size");
duke@435 2679 __ andl(rax_lh, Klass::_lh_log2_element_size_mask); // rax_lh -> rax_elsize
duke@435 2680
duke@435 2681 // next registers should be set before the jump to corresponding stub
duke@435 2682 const Register from = c_rarg0; // source array address
duke@435 2683 const Register to = c_rarg1; // destination array address
duke@435 2684 const Register count = c_rarg2; // elements count
duke@435 2685
duke@435 2686 // 'from', 'to', 'count' registers should be set in such order
duke@435 2687 // since they are the same as 'src', 'src_pos', 'dst'.
duke@435 2688
duke@435 2689 __ BIND(L_copy_bytes);
duke@435 2690 __ cmpl(rax_elsize, 0);
duke@435 2691 __ jccb(Assembler::notEqual, L_copy_shorts);
never@739 2692 __ lea(from, Address(src, src_pos, Address::times_1, 0));// src_addr
never@739 2693 __ lea(to, Address(dst, dst_pos, Address::times_1, 0));// dst_addr
never@739 2694 __ movl2ptr(count, r11_length); // length
duke@435 2695 __ jump(RuntimeAddress(byte_copy_entry));
duke@435 2696
duke@435 2697 __ BIND(L_copy_shorts);
duke@435 2698 __ cmpl(rax_elsize, LogBytesPerShort);
duke@435 2699 __ jccb(Assembler::notEqual, L_copy_ints);
never@739 2700 __ lea(from, Address(src, src_pos, Address::times_2, 0));// src_addr
never@739 2701 __ lea(to, Address(dst, dst_pos, Address::times_2, 0));// dst_addr
never@739 2702 __ movl2ptr(count, r11_length); // length
duke@435 2703 __ jump(RuntimeAddress(short_copy_entry));
duke@435 2704
duke@435 2705 __ BIND(L_copy_ints);
duke@435 2706 __ cmpl(rax_elsize, LogBytesPerInt);
duke@435 2707 __ jccb(Assembler::notEqual, L_copy_longs);
never@739 2708 __ lea(from, Address(src, src_pos, Address::times_4, 0));// src_addr
never@739 2709 __ lea(to, Address(dst, dst_pos, Address::times_4, 0));// dst_addr
never@739 2710 __ movl2ptr(count, r11_length); // length
duke@435 2711 __ jump(RuntimeAddress(int_copy_entry));
duke@435 2712
duke@435 2713 __ BIND(L_copy_longs);
duke@435 2714 #ifdef ASSERT
twisti@2348 2715 {
twisti@2348 2716 BLOCK_COMMENT("assert long copy {");
twisti@2348 2717 Label L;
duke@435 2718 __ cmpl(rax_elsize, LogBytesPerLong);
duke@435 2719 __ jcc(Assembler::equal, L);
duke@435 2720 __ stop("must be long copy, but elsize is wrong");
duke@435 2721 __ bind(L);
twisti@2348 2722 BLOCK_COMMENT("} assert long copy done");
duke@435 2723 }
duke@435 2724 #endif
never@739 2725 __ lea(from, Address(src, src_pos, Address::times_8, 0));// src_addr
never@739 2726 __ lea(to, Address(dst, dst_pos, Address::times_8, 0));// dst_addr
never@739 2727 __ movl2ptr(count, r11_length); // length
duke@435 2728 __ jump(RuntimeAddress(long_copy_entry));
duke@435 2729
coleenp@4142 2730 // ObjArrayKlass
duke@435 2731 __ BIND(L_objArray);
twisti@2348 2732 // live at this point: r10_src_klass, r11_length, src[_pos], dst[_pos]
duke@435 2733
duke@435 2734 Label L_plain_copy, L_checkcast_copy;
duke@435 2735 // test array classes for subtyping
twisti@2348 2736 __ load_klass(rax, dst);
twisti@2348 2737 __ cmpq(r10_src_klass, rax); // usual case is exact equality
duke@435 2738 __ jcc(Assembler::notEqual, L_checkcast_copy);
duke@435 2739
duke@435 2740 // Identically typed arrays can be copied without element-wise checks.
duke@435 2741 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
duke@435 2742 r10, L_failed);
duke@435 2743
never@739 2744 __ lea(from, Address(src, src_pos, TIMES_OOP,
duke@435 2745 arrayOopDesc::base_offset_in_bytes(T_OBJECT))); // src_addr
never@739 2746 __ lea(to, Address(dst, dst_pos, TIMES_OOP,
never@739 2747 arrayOopDesc::base_offset_in_bytes(T_OBJECT))); // dst_addr
never@739 2748 __ movl2ptr(count, r11_length); // length
duke@435 2749 __ BIND(L_plain_copy);
duke@435 2750 __ jump(RuntimeAddress(oop_copy_entry));
duke@435 2751
duke@435 2752 __ BIND(L_checkcast_copy);
twisti@2348 2753 // live at this point: r10_src_klass, r11_length, rax (dst_klass)
duke@435 2754 {
duke@435 2755 // Before looking at dst.length, make sure dst is also an objArray.
twisti@2348 2756 __ cmpl(Address(rax, lh_offset), objArray_lh);
duke@435 2757 __ jcc(Assembler::notEqual, L_failed);
duke@435 2758
duke@435 2759 // It is safe to examine both src.length and dst.length.
duke@435 2760 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
duke@435 2761 rax, L_failed);
twisti@2348 2762
twisti@2348 2763 const Register r11_dst_klass = r11;
coleenp@548 2764 __ load_klass(r11_dst_klass, dst); // reload
duke@435 2765
duke@435 2766 // Marshal the base address arguments now, freeing registers.
never@739 2767 __ lea(from, Address(src, src_pos, TIMES_OOP,
duke@435 2768 arrayOopDesc::base_offset_in_bytes(T_OBJECT)));
never@739 2769 __ lea(to, Address(dst, dst_pos, TIMES_OOP,
duke@435 2770 arrayOopDesc::base_offset_in_bytes(T_OBJECT)));
twisti@2348 2771 __ movl(count, length); // length (reloaded)
duke@435 2772 Register sco_temp = c_rarg3; // this register is free now
duke@435 2773 assert_different_registers(from, to, count, sco_temp,
duke@435 2774 r11_dst_klass, r10_src_klass);
duke@435 2775 assert_clean_int(count, sco_temp);
duke@435 2776
duke@435 2777 // Generate the type check.
stefank@3391 2778 const int sco_offset = in_bytes(Klass::super_check_offset_offset());
duke@435 2779 __ movl(sco_temp, Address(r11_dst_klass, sco_offset));
duke@435 2780 assert_clean_int(sco_temp, rax);
duke@435 2781 generate_type_check(r10_src_klass, sco_temp, r11_dst_klass, L_plain_copy);
duke@435 2782
coleenp@4142 2783 // Fetch destination element klass from the ObjArrayKlass header.
coleenp@4142 2784 int ek_offset = in_bytes(ObjArrayKlass::element_klass_offset());
never@739 2785 __ movptr(r11_dst_klass, Address(r11_dst_klass, ek_offset));
twisti@2348 2786 __ movl( sco_temp, Address(r11_dst_klass, sco_offset));
duke@435 2787 assert_clean_int(sco_temp, rax);
duke@435 2788
duke@435 2789 // the checkcast_copy loop needs two extra arguments:
duke@435 2790 assert(c_rarg3 == sco_temp, "#3 already in place");
twisti@2348 2791 // Set up arguments for checkcast_copy_entry.
twisti@2348 2792 setup_arg_regs(4);
twisti@2348 2793 __ movptr(r8, r11_dst_klass); // dst.klass.element_klass, r8 is c_rarg4 on Linux/Solaris
duke@435 2794 __ jump(RuntimeAddress(checkcast_copy_entry));
duke@435 2795 }
duke@435 2796
duke@435 2797 __ BIND(L_failed);
never@739 2798 __ xorptr(rax, rax);
never@739 2799 __ notptr(rax); // return -1
duke@435 2800 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 2801 __ ret(0);
duke@435 2802
duke@435 2803 return start;
duke@435 2804 }
duke@435 2805
duke@435 2806 void generate_arraycopy_stubs() {
iveresov@2595 2807 address entry;
iveresov@2595 2808 address entry_jbyte_arraycopy;
iveresov@2595 2809 address entry_jshort_arraycopy;
iveresov@2595 2810 address entry_jint_arraycopy;
iveresov@2595 2811 address entry_oop_arraycopy;
iveresov@2595 2812 address entry_jlong_arraycopy;
iveresov@2595 2813 address entry_checkcast_arraycopy;
iveresov@2595 2814
iveresov@2595 2815 StubRoutines::_jbyte_disjoint_arraycopy = generate_disjoint_byte_copy(false, &entry,
iveresov@2595 2816 "jbyte_disjoint_arraycopy");
iveresov@2595 2817 StubRoutines::_jbyte_arraycopy = generate_conjoint_byte_copy(false, entry, &entry_jbyte_arraycopy,
iveresov@2595 2818 "jbyte_arraycopy");
iveresov@2595 2819
iveresov@2595 2820 StubRoutines::_jshort_disjoint_arraycopy = generate_disjoint_short_copy(false, &entry,
iveresov@2595 2821 "jshort_disjoint_arraycopy");
iveresov@2595 2822 StubRoutines::_jshort_arraycopy = generate_conjoint_short_copy(false, entry, &entry_jshort_arraycopy,
iveresov@2595 2823 "jshort_arraycopy");
iveresov@2595 2824
iveresov@2595 2825 StubRoutines::_jint_disjoint_arraycopy = generate_disjoint_int_oop_copy(false, false, &entry,
iveresov@2595 2826 "jint_disjoint_arraycopy");
iveresov@2595 2827 StubRoutines::_jint_arraycopy = generate_conjoint_int_oop_copy(false, false, entry,
iveresov@2595 2828 &entry_jint_arraycopy, "jint_arraycopy");
iveresov@2595 2829
iveresov@2595 2830 StubRoutines::_jlong_disjoint_arraycopy = generate_disjoint_long_oop_copy(false, false, &entry,
iveresov@2595 2831 "jlong_disjoint_arraycopy");
iveresov@2595 2832 StubRoutines::_jlong_arraycopy = generate_conjoint_long_oop_copy(false, false, entry,
iveresov@2595 2833 &entry_jlong_arraycopy, "jlong_arraycopy");
duke@435 2834
coleenp@548 2835
coleenp@548 2836 if (UseCompressedOops) {
iveresov@2595 2837 StubRoutines::_oop_disjoint_arraycopy = generate_disjoint_int_oop_copy(false, true, &entry,
iveresov@2595 2838 "oop_disjoint_arraycopy");
iveresov@2595 2839 StubRoutines::_oop_arraycopy = generate_conjoint_int_oop_copy(false, true, entry,
iveresov@2595 2840 &entry_oop_arraycopy, "oop_arraycopy");
iveresov@2606 2841 StubRoutines::_oop_disjoint_arraycopy_uninit = generate_disjoint_int_oop_copy(false, true, &entry,
iveresov@2606 2842 "oop_disjoint_arraycopy_uninit",
iveresov@2606 2843 /*dest_uninitialized*/true);
iveresov@2606 2844 StubRoutines::_oop_arraycopy_uninit = generate_conjoint_int_oop_copy(false, true, entry,
iveresov@2606 2845 NULL, "oop_arraycopy_uninit",
iveresov@2606 2846 /*dest_uninitialized*/true);
coleenp@548 2847 } else {
iveresov@2595 2848 StubRoutines::_oop_disjoint_arraycopy = generate_disjoint_long_oop_copy(false, true, &entry,
iveresov@2595 2849 "oop_disjoint_arraycopy");
iveresov@2595 2850 StubRoutines::_oop_arraycopy = generate_conjoint_long_oop_copy(false, true, entry,
iveresov@2595 2851 &entry_oop_arraycopy, "oop_arraycopy");
iveresov@2606 2852 StubRoutines::_oop_disjoint_arraycopy_uninit = generate_disjoint_long_oop_copy(false, true, &entry,
iveresov@2606 2853 "oop_disjoint_arraycopy_uninit",
iveresov@2606 2854 /*dest_uninitialized*/true);
iveresov@2606 2855 StubRoutines::_oop_arraycopy_uninit = generate_conjoint_long_oop_copy(false, true, entry,
iveresov@2606 2856 NULL, "oop_arraycopy_uninit",
iveresov@2606 2857 /*dest_uninitialized*/true);
coleenp@548 2858 }
duke@435 2859
iveresov@2606 2860 StubRoutines::_checkcast_arraycopy = generate_checkcast_copy("checkcast_arraycopy", &entry_checkcast_arraycopy);
iveresov@2606 2861 StubRoutines::_checkcast_arraycopy_uninit = generate_checkcast_copy("checkcast_arraycopy_uninit", NULL,
iveresov@2606 2862 /*dest_uninitialized*/true);
iveresov@2606 2863
iveresov@2595 2864 StubRoutines::_unsafe_arraycopy = generate_unsafe_copy("unsafe_arraycopy",
iveresov@2595 2865 entry_jbyte_arraycopy,
iveresov@2595 2866 entry_jshort_arraycopy,
iveresov@2595 2867 entry_jint_arraycopy,
iveresov@2595 2868 entry_jlong_arraycopy);
iveresov@2595 2869 StubRoutines::_generic_arraycopy = generate_generic_copy("generic_arraycopy",
iveresov@2595 2870 entry_jbyte_arraycopy,
iveresov@2595 2871 entry_jshort_arraycopy,
iveresov@2595 2872 entry_jint_arraycopy,
iveresov@2595 2873 entry_oop_arraycopy,
iveresov@2595 2874 entry_jlong_arraycopy,
iveresov@2595 2875 entry_checkcast_arraycopy);
duke@435 2876
never@2118 2877 StubRoutines::_jbyte_fill = generate_fill(T_BYTE, false, "jbyte_fill");
never@2118 2878 StubRoutines::_jshort_fill = generate_fill(T_SHORT, false, "jshort_fill");
never@2118 2879 StubRoutines::_jint_fill = generate_fill(T_INT, false, "jint_fill");
never@2118 2880 StubRoutines::_arrayof_jbyte_fill = generate_fill(T_BYTE, true, "arrayof_jbyte_fill");
never@2118 2881 StubRoutines::_arrayof_jshort_fill = generate_fill(T_SHORT, true, "arrayof_jshort_fill");
never@2118 2882 StubRoutines::_arrayof_jint_fill = generate_fill(T_INT, true, "arrayof_jint_fill");
never@2118 2883
duke@435 2884 // We don't generate specialized code for HeapWord-aligned source
duke@435 2885 // arrays, so just use the code we've already generated
duke@435 2886 StubRoutines::_arrayof_jbyte_disjoint_arraycopy = StubRoutines::_jbyte_disjoint_arraycopy;
duke@435 2887 StubRoutines::_arrayof_jbyte_arraycopy = StubRoutines::_jbyte_arraycopy;
duke@435 2888
duke@435 2889 StubRoutines::_arrayof_jshort_disjoint_arraycopy = StubRoutines::_jshort_disjoint_arraycopy;
duke@435 2890 StubRoutines::_arrayof_jshort_arraycopy = StubRoutines::_jshort_arraycopy;
duke@435 2891
duke@435 2892 StubRoutines::_arrayof_jint_disjoint_arraycopy = StubRoutines::_jint_disjoint_arraycopy;
duke@435 2893 StubRoutines::_arrayof_jint_arraycopy = StubRoutines::_jint_arraycopy;
duke@435 2894
duke@435 2895 StubRoutines::_arrayof_jlong_disjoint_arraycopy = StubRoutines::_jlong_disjoint_arraycopy;
duke@435 2896 StubRoutines::_arrayof_jlong_arraycopy = StubRoutines::_jlong_arraycopy;
duke@435 2897
duke@435 2898 StubRoutines::_arrayof_oop_disjoint_arraycopy = StubRoutines::_oop_disjoint_arraycopy;
duke@435 2899 StubRoutines::_arrayof_oop_arraycopy = StubRoutines::_oop_arraycopy;
iveresov@2606 2900
iveresov@2606 2901 StubRoutines::_arrayof_oop_disjoint_arraycopy_uninit = StubRoutines::_oop_disjoint_arraycopy_uninit;
iveresov@2606 2902 StubRoutines::_arrayof_oop_arraycopy_uninit = StubRoutines::_oop_arraycopy_uninit;
duke@435 2903 }
duke@435 2904
never@1609 2905 void generate_math_stubs() {
never@1609 2906 {
never@1609 2907 StubCodeMark mark(this, "StubRoutines", "log");
never@1609 2908 StubRoutines::_intrinsic_log = (double (*)(double)) __ pc();
never@1609 2909
never@1609 2910 __ subq(rsp, 8);
never@1609 2911 __ movdbl(Address(rsp, 0), xmm0);
never@1609 2912 __ fld_d(Address(rsp, 0));
never@1609 2913 __ flog();
never@1609 2914 __ fstp_d(Address(rsp, 0));
never@1609 2915 __ movdbl(xmm0, Address(rsp, 0));
never@1609 2916 __ addq(rsp, 8);
never@1609 2917 __ ret(0);
never@1609 2918 }
never@1609 2919 {
never@1609 2920 StubCodeMark mark(this, "StubRoutines", "log10");
never@1609 2921 StubRoutines::_intrinsic_log10 = (double (*)(double)) __ pc();
never@1609 2922
never@1609 2923 __ subq(rsp, 8);
never@1609 2924 __ movdbl(Address(rsp, 0), xmm0);
never@1609 2925 __ fld_d(Address(rsp, 0));
never@1609 2926 __ flog10();
never@1609 2927 __ fstp_d(Address(rsp, 0));
never@1609 2928 __ movdbl(xmm0, Address(rsp, 0));
never@1609 2929 __ addq(rsp, 8);
never@1609 2930 __ ret(0);
never@1609 2931 }
never@1609 2932 {
never@1609 2933 StubCodeMark mark(this, "StubRoutines", "sin");
never@1609 2934 StubRoutines::_intrinsic_sin = (double (*)(double)) __ pc();
never@1609 2935
never@1609 2936 __ subq(rsp, 8);
never@1609 2937 __ movdbl(Address(rsp, 0), xmm0);
never@1609 2938 __ fld_d(Address(rsp, 0));
never@1609 2939 __ trigfunc('s');
never@1609 2940 __ fstp_d(Address(rsp, 0));
never@1609 2941 __ movdbl(xmm0, Address(rsp, 0));
never@1609 2942 __ addq(rsp, 8);
never@1609 2943 __ ret(0);
never@1609 2944 }
never@1609 2945 {
never@1609 2946 StubCodeMark mark(this, "StubRoutines", "cos");
never@1609 2947 StubRoutines::_intrinsic_cos = (double (*)(double)) __ pc();
never@1609 2948
never@1609 2949 __ subq(rsp, 8);
never@1609 2950 __ movdbl(Address(rsp, 0), xmm0);
never@1609 2951 __ fld_d(Address(rsp, 0));
never@1609 2952 __ trigfunc('c');
never@1609 2953 __ fstp_d(Address(rsp, 0));
never@1609 2954 __ movdbl(xmm0, Address(rsp, 0));
never@1609 2955 __ addq(rsp, 8);
never@1609 2956 __ ret(0);
never@1609 2957 }
never@1609 2958 {
never@1609 2959 StubCodeMark mark(this, "StubRoutines", "tan");
never@1609 2960 StubRoutines::_intrinsic_tan = (double (*)(double)) __ pc();
never@1609 2961
never@1609 2962 __ subq(rsp, 8);
never@1609 2963 __ movdbl(Address(rsp, 0), xmm0);
never@1609 2964 __ fld_d(Address(rsp, 0));
never@1609 2965 __ trigfunc('t');
never@1609 2966 __ fstp_d(Address(rsp, 0));
never@1609 2967 __ movdbl(xmm0, Address(rsp, 0));
never@1609 2968 __ addq(rsp, 8);
never@1609 2969 __ ret(0);
never@1609 2970 }
roland@3787 2971 {
roland@3787 2972 StubCodeMark mark(this, "StubRoutines", "exp");
roland@3787 2973 StubRoutines::_intrinsic_exp = (double (*)(double)) __ pc();
roland@3787 2974
roland@3787 2975 __ subq(rsp, 8);
roland@3787 2976 __ movdbl(Address(rsp, 0), xmm0);
roland@3787 2977 __ fld_d(Address(rsp, 0));
roland@3787 2978 __ exp_with_fallback(0);
roland@3787 2979 __ fstp_d(Address(rsp, 0));
roland@3787 2980 __ movdbl(xmm0, Address(rsp, 0));
roland@3787 2981 __ addq(rsp, 8);
roland@3787 2982 __ ret(0);
roland@3787 2983 }
roland@3787 2984 {
roland@3787 2985 StubCodeMark mark(this, "StubRoutines", "pow");
roland@3787 2986 StubRoutines::_intrinsic_pow = (double (*)(double,double)) __ pc();
roland@3787 2987
roland@3787 2988 __ subq(rsp, 8);
roland@3787 2989 __ movdbl(Address(rsp, 0), xmm1);
roland@3787 2990 __ fld_d(Address(rsp, 0));
roland@3787 2991 __ movdbl(Address(rsp, 0), xmm0);
roland@3787 2992 __ fld_d(Address(rsp, 0));
roland@3787 2993 __ pow_with_fallback(0);
roland@3787 2994 __ fstp_d(Address(rsp, 0));
roland@3787 2995 __ movdbl(xmm0, Address(rsp, 0));
roland@3787 2996 __ addq(rsp, 8);
roland@3787 2997 __ ret(0);
roland@3787 2998 }
never@1609 2999 }
never@1609 3000
kvn@4205 3001 // AES intrinsic stubs
kvn@4205 3002 enum {AESBlockSize = 16};
kvn@4205 3003
kvn@4205 3004 address generate_key_shuffle_mask() {
kvn@4205 3005 __ align(16);
kvn@4205 3006 StubCodeMark mark(this, "StubRoutines", "key_shuffle_mask");
kvn@4205 3007 address start = __ pc();
kvn@4205 3008 __ emit_data64( 0x0405060700010203, relocInfo::none );
kvn@4205 3009 __ emit_data64( 0x0c0d0e0f08090a0b, relocInfo::none );
kvn@4205 3010 return start;
kvn@4205 3011 }
kvn@4205 3012
kvn@4205 3013 // Utility routine for loading a 128-bit key word in little endian format
kvn@4205 3014 // can optionally specify that the shuffle mask is already in an xmmregister
kvn@4205 3015 void load_key(XMMRegister xmmdst, Register key, int offset, XMMRegister xmm_shuf_mask=NULL) {
kvn@4205 3016 __ movdqu(xmmdst, Address(key, offset));
kvn@4205 3017 if (xmm_shuf_mask != NULL) {
kvn@4205 3018 __ pshufb(xmmdst, xmm_shuf_mask);
kvn@4205 3019 } else {
kvn@4205 3020 __ pshufb(xmmdst, ExternalAddress(StubRoutines::x86::key_shuffle_mask_addr()));
kvn@4205 3021 }
kvn@4205 3022 }
kvn@4205 3023
kvn@4205 3024 // Arguments:
kvn@4205 3025 //
kvn@4205 3026 // Inputs:
kvn@4205 3027 // c_rarg0 - source byte array address
kvn@4205 3028 // c_rarg1 - destination byte array address
kvn@4205 3029 // c_rarg2 - K (key) in little endian int array
kvn@4205 3030 //
kvn@4205 3031 address generate_aescrypt_encryptBlock() {
kvn@4363 3032 assert(UseAES, "need AES instructions and misaligned SSE support");
kvn@4205 3033 __ align(CodeEntryAlignment);
kvn@4205 3034 StubCodeMark mark(this, "StubRoutines", "aescrypt_encryptBlock");
kvn@4205 3035 Label L_doLast;
kvn@4205 3036 address start = __ pc();
kvn@4205 3037
kvn@4205 3038 const Register from = c_rarg0; // source array address
kvn@4205 3039 const Register to = c_rarg1; // destination array address
kvn@4205 3040 const Register key = c_rarg2; // key array address
kvn@4205 3041 const Register keylen = rax;
kvn@4205 3042
kvn@4205 3043 const XMMRegister xmm_result = xmm0;
kvn@4363 3044 const XMMRegister xmm_key_shuf_mask = xmm1;
kvn@4363 3045 // On win64 xmm6-xmm15 must be preserved so don't use them.
kvn@4363 3046 const XMMRegister xmm_temp1 = xmm2;
kvn@4363 3047 const XMMRegister xmm_temp2 = xmm3;
kvn@4363 3048 const XMMRegister xmm_temp3 = xmm4;
kvn@4363 3049 const XMMRegister xmm_temp4 = xmm5;
kvn@4205 3050
kvn@4205 3051 __ enter(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3052
kvn@4363 3053 // keylen could be only {11, 13, 15} * 4 = {44, 52, 60}
kvn@4205 3054 __ movl(keylen, Address(key, arrayOopDesc::length_offset_in_bytes() - arrayOopDesc::base_offset_in_bytes(T_INT)));
kvn@4205 3055
kvn@4205 3056 __ movdqu(xmm_key_shuf_mask, ExternalAddress(StubRoutines::x86::key_shuffle_mask_addr()));
kvn@4205 3057 __ movdqu(xmm_result, Address(from, 0)); // get 16 bytes of input
kvn@4205 3058
kvn@4205 3059 // For encryption, the java expanded key ordering is just what we need
kvn@4205 3060 // we don't know if the key is aligned, hence not using load-execute form
kvn@4205 3061
kvn@4363 3062 load_key(xmm_temp1, key, 0x00, xmm_key_shuf_mask);
kvn@4363 3063 __ pxor(xmm_result, xmm_temp1);
kvn@4363 3064
kvn@4363 3065 load_key(xmm_temp1, key, 0x10, xmm_key_shuf_mask);
kvn@4363 3066 load_key(xmm_temp2, key, 0x20, xmm_key_shuf_mask);
kvn@4363 3067 load_key(xmm_temp3, key, 0x30, xmm_key_shuf_mask);
kvn@4363 3068 load_key(xmm_temp4, key, 0x40, xmm_key_shuf_mask);
kvn@4363 3069
kvn@4363 3070 __ aesenc(xmm_result, xmm_temp1);
kvn@4363 3071 __ aesenc(xmm_result, xmm_temp2);
kvn@4363 3072 __ aesenc(xmm_result, xmm_temp3);
kvn@4363 3073 __ aesenc(xmm_result, xmm_temp4);
kvn@4363 3074
kvn@4363 3075 load_key(xmm_temp1, key, 0x50, xmm_key_shuf_mask);
kvn@4363 3076 load_key(xmm_temp2, key, 0x60, xmm_key_shuf_mask);
kvn@4363 3077 load_key(xmm_temp3, key, 0x70, xmm_key_shuf_mask);
kvn@4363 3078 load_key(xmm_temp4, key, 0x80, xmm_key_shuf_mask);
kvn@4363 3079
kvn@4363 3080 __ aesenc(xmm_result, xmm_temp1);
kvn@4363 3081 __ aesenc(xmm_result, xmm_temp2);
kvn@4363 3082 __ aesenc(xmm_result, xmm_temp3);
kvn@4363 3083 __ aesenc(xmm_result, xmm_temp4);
kvn@4363 3084
kvn@4363 3085 load_key(xmm_temp1, key, 0x90, xmm_key_shuf_mask);
kvn@4363 3086 load_key(xmm_temp2, key, 0xa0, xmm_key_shuf_mask);
kvn@4363 3087
kvn@4363 3088 __ cmpl(keylen, 44);
kvn@4363 3089 __ jccb(Assembler::equal, L_doLast);
kvn@4363 3090
kvn@4363 3091 __ aesenc(xmm_result, xmm_temp1);
kvn@4363 3092 __ aesenc(xmm_result, xmm_temp2);
kvn@4363 3093
kvn@4363 3094 load_key(xmm_temp1, key, 0xb0, xmm_key_shuf_mask);
kvn@4363 3095 load_key(xmm_temp2, key, 0xc0, xmm_key_shuf_mask);
kvn@4363 3096
kvn@4363 3097 __ cmpl(keylen, 52);
kvn@4363 3098 __ jccb(Assembler::equal, L_doLast);
kvn@4363 3099
kvn@4363 3100 __ aesenc(xmm_result, xmm_temp1);
kvn@4363 3101 __ aesenc(xmm_result, xmm_temp2);
kvn@4363 3102
kvn@4363 3103 load_key(xmm_temp1, key, 0xd0, xmm_key_shuf_mask);
kvn@4363 3104 load_key(xmm_temp2, key, 0xe0, xmm_key_shuf_mask);
kvn@4205 3105
kvn@4205 3106 __ BIND(L_doLast);
kvn@4363 3107 __ aesenc(xmm_result, xmm_temp1);
kvn@4363 3108 __ aesenclast(xmm_result, xmm_temp2);
kvn@4205 3109 __ movdqu(Address(to, 0), xmm_result); // store the result
kvn@4205 3110 __ xorptr(rax, rax); // return 0
kvn@4205 3111 __ leave(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3112 __ ret(0);
kvn@4205 3113
kvn@4205 3114 return start;
kvn@4205 3115 }
kvn@4205 3116
kvn@4205 3117
kvn@4205 3118 // Arguments:
kvn@4205 3119 //
kvn@4205 3120 // Inputs:
kvn@4205 3121 // c_rarg0 - source byte array address
kvn@4205 3122 // c_rarg1 - destination byte array address
kvn@4205 3123 // c_rarg2 - K (key) in little endian int array
kvn@4205 3124 //
kvn@4205 3125 address generate_aescrypt_decryptBlock() {
kvn@4363 3126 assert(UseAES, "need AES instructions and misaligned SSE support");
kvn@4205 3127 __ align(CodeEntryAlignment);
kvn@4205 3128 StubCodeMark mark(this, "StubRoutines", "aescrypt_decryptBlock");
kvn@4205 3129 Label L_doLast;
kvn@4205 3130 address start = __ pc();
kvn@4205 3131
kvn@4205 3132 const Register from = c_rarg0; // source array address
kvn@4205 3133 const Register to = c_rarg1; // destination array address
kvn@4205 3134 const Register key = c_rarg2; // key array address
kvn@4205 3135 const Register keylen = rax;
kvn@4205 3136
kvn@4205 3137 const XMMRegister xmm_result = xmm0;
kvn@4363 3138 const XMMRegister xmm_key_shuf_mask = xmm1;
kvn@4363 3139 // On win64 xmm6-xmm15 must be preserved so don't use them.
kvn@4363 3140 const XMMRegister xmm_temp1 = xmm2;
kvn@4363 3141 const XMMRegister xmm_temp2 = xmm3;
kvn@4363 3142 const XMMRegister xmm_temp3 = xmm4;
kvn@4363 3143 const XMMRegister xmm_temp4 = xmm5;
kvn@4205 3144
kvn@4205 3145 __ enter(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3146
kvn@4363 3147 // keylen could be only {11, 13, 15} * 4 = {44, 52, 60}
kvn@4205 3148 __ movl(keylen, Address(key, arrayOopDesc::length_offset_in_bytes() - arrayOopDesc::base_offset_in_bytes(T_INT)));
kvn@4205 3149
kvn@4205 3150 __ movdqu(xmm_key_shuf_mask, ExternalAddress(StubRoutines::x86::key_shuffle_mask_addr()));
kvn@4205 3151 __ movdqu(xmm_result, Address(from, 0));
kvn@4205 3152
kvn@4205 3153 // for decryption java expanded key ordering is rotated one position from what we want
kvn@4205 3154 // so we start from 0x10 here and hit 0x00 last
kvn@4205 3155 // we don't know if the key is aligned, hence not using load-execute form
kvn@4363 3156 load_key(xmm_temp1, key, 0x10, xmm_key_shuf_mask);
kvn@4363 3157 load_key(xmm_temp2, key, 0x20, xmm_key_shuf_mask);
kvn@4363 3158 load_key(xmm_temp3, key, 0x30, xmm_key_shuf_mask);
kvn@4363 3159 load_key(xmm_temp4, key, 0x40, xmm_key_shuf_mask);
kvn@4363 3160
kvn@4363 3161 __ pxor (xmm_result, xmm_temp1);
kvn@4363 3162 __ aesdec(xmm_result, xmm_temp2);
kvn@4363 3163 __ aesdec(xmm_result, xmm_temp3);
kvn@4363 3164 __ aesdec(xmm_result, xmm_temp4);
kvn@4363 3165
kvn@4363 3166 load_key(xmm_temp1, key, 0x50, xmm_key_shuf_mask);
kvn@4363 3167 load_key(xmm_temp2, key, 0x60, xmm_key_shuf_mask);
kvn@4363 3168 load_key(xmm_temp3, key, 0x70, xmm_key_shuf_mask);
kvn@4363 3169 load_key(xmm_temp4, key, 0x80, xmm_key_shuf_mask);
kvn@4363 3170
kvn@4363 3171 __ aesdec(xmm_result, xmm_temp1);
kvn@4363 3172 __ aesdec(xmm_result, xmm_temp2);
kvn@4363 3173 __ aesdec(xmm_result, xmm_temp3);
kvn@4363 3174 __ aesdec(xmm_result, xmm_temp4);
kvn@4363 3175
kvn@4363 3176 load_key(xmm_temp1, key, 0x90, xmm_key_shuf_mask);
kvn@4363 3177 load_key(xmm_temp2, key, 0xa0, xmm_key_shuf_mask);
kvn@4363 3178 load_key(xmm_temp3, key, 0x00, xmm_key_shuf_mask);
kvn@4363 3179
kvn@4363 3180 __ cmpl(keylen, 44);
kvn@4363 3181 __ jccb(Assembler::equal, L_doLast);
kvn@4363 3182
kvn@4363 3183 __ aesdec(xmm_result, xmm_temp1);
kvn@4363 3184 __ aesdec(xmm_result, xmm_temp2);
kvn@4363 3185
kvn@4363 3186 load_key(xmm_temp1, key, 0xb0, xmm_key_shuf_mask);
kvn@4363 3187 load_key(xmm_temp2, key, 0xc0, xmm_key_shuf_mask);
kvn@4363 3188
kvn@4363 3189 __ cmpl(keylen, 52);
kvn@4363 3190 __ jccb(Assembler::equal, L_doLast);
kvn@4363 3191
kvn@4363 3192 __ aesdec(xmm_result, xmm_temp1);
kvn@4363 3193 __ aesdec(xmm_result, xmm_temp2);
kvn@4363 3194
kvn@4363 3195 load_key(xmm_temp1, key, 0xd0, xmm_key_shuf_mask);
kvn@4363 3196 load_key(xmm_temp2, key, 0xe0, xmm_key_shuf_mask);
kvn@4205 3197
kvn@4205 3198 __ BIND(L_doLast);
kvn@4363 3199 __ aesdec(xmm_result, xmm_temp1);
kvn@4363 3200 __ aesdec(xmm_result, xmm_temp2);
kvn@4363 3201
kvn@4205 3202 // for decryption the aesdeclast operation is always on key+0x00
kvn@4363 3203 __ aesdeclast(xmm_result, xmm_temp3);
kvn@4205 3204 __ movdqu(Address(to, 0), xmm_result); // store the result
kvn@4205 3205 __ xorptr(rax, rax); // return 0
kvn@4205 3206 __ leave(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3207 __ ret(0);
kvn@4205 3208
kvn@4205 3209 return start;
kvn@4205 3210 }
kvn@4205 3211
kvn@4205 3212
kvn@4205 3213 // Arguments:
kvn@4205 3214 //
kvn@4205 3215 // Inputs:
kvn@4205 3216 // c_rarg0 - source byte array address
kvn@4205 3217 // c_rarg1 - destination byte array address
kvn@4205 3218 // c_rarg2 - K (key) in little endian int array
kvn@4205 3219 // c_rarg3 - r vector byte array address
kvn@4205 3220 // c_rarg4 - input length
kvn@4205 3221 //
kvn@6312 3222 // Output:
kvn@6312 3223 // rax - input length
kvn@6312 3224 //
kvn@4205 3225 address generate_cipherBlockChaining_encryptAESCrypt() {
kvn@4363 3226 assert(UseAES, "need AES instructions and misaligned SSE support");
kvn@4205 3227 __ align(CodeEntryAlignment);
kvn@4205 3228 StubCodeMark mark(this, "StubRoutines", "cipherBlockChaining_encryptAESCrypt");
kvn@4205 3229 address start = __ pc();
kvn@4205 3230
kvn@4205 3231 Label L_exit, L_key_192_256, L_key_256, L_loopTop_128, L_loopTop_192, L_loopTop_256;
kvn@4205 3232 const Register from = c_rarg0; // source array address
kvn@4205 3233 const Register to = c_rarg1; // destination array address
kvn@4205 3234 const Register key = c_rarg2; // key array address
kvn@4205 3235 const Register rvec = c_rarg3; // r byte array initialized from initvector array address
kvn@4205 3236 // and left with the results of the last encryption block
kvn@4205 3237 #ifndef _WIN64
kvn@4205 3238 const Register len_reg = c_rarg4; // src len (must be multiple of blocksize 16)
kvn@4205 3239 #else
kvn@6312 3240 const Address len_mem(rbp, 6 * wordSize); // length is on stack on Win64
kvn@4205 3241 const Register len_reg = r10; // pick the first volatile windows register
kvn@4205 3242 #endif
kvn@4205 3243 const Register pos = rax;
kvn@4205 3244
kvn@4205 3245 // xmm register assignments for the loops below
kvn@4205 3246 const XMMRegister xmm_result = xmm0;
kvn@4205 3247 const XMMRegister xmm_temp = xmm1;
kvn@4205 3248 // keys 0-10 preloaded into xmm2-xmm12
kvn@4205 3249 const int XMM_REG_NUM_KEY_FIRST = 2;
kvn@4363 3250 const int XMM_REG_NUM_KEY_LAST = 15;
kvn@4205 3251 const XMMRegister xmm_key0 = as_XMMRegister(XMM_REG_NUM_KEY_FIRST);
kvn@4363 3252 const XMMRegister xmm_key10 = as_XMMRegister(XMM_REG_NUM_KEY_FIRST+10);
kvn@4363 3253 const XMMRegister xmm_key11 = as_XMMRegister(XMM_REG_NUM_KEY_FIRST+11);
kvn@4363 3254 const XMMRegister xmm_key12 = as_XMMRegister(XMM_REG_NUM_KEY_FIRST+12);
kvn@4363 3255 const XMMRegister xmm_key13 = as_XMMRegister(XMM_REG_NUM_KEY_FIRST+13);
kvn@4205 3256
kvn@4205 3257 __ enter(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3258
kvn@4205 3259 #ifdef _WIN64
kvn@4205 3260 // on win64, fill len_reg from stack position
kvn@4205 3261 __ movl(len_reg, len_mem);
kvn@4363 3262 // save the xmm registers which must be preserved 6-15
kvn@4205 3263 __ subptr(rsp, -rsp_after_call_off * wordSize);
kvn@4205 3264 for (int i = 6; i <= XMM_REG_NUM_KEY_LAST; i++) {
kvn@4205 3265 __ movdqu(xmm_save(i), as_XMMRegister(i));
kvn@4205 3266 }
kvn@6312 3267 #else
kvn@6312 3268 __ push(len_reg); // Save
kvn@4205 3269 #endif
kvn@4205 3270
kvn@4205 3271 const XMMRegister xmm_key_shuf_mask = xmm_temp; // used temporarily to swap key bytes up front
kvn@4205 3272 __ movdqu(xmm_key_shuf_mask, ExternalAddress(StubRoutines::x86::key_shuffle_mask_addr()));
kvn@4363 3273 // load up xmm regs xmm2 thru xmm12 with key 0x00 - 0xa0
kvn@4363 3274 for (int rnum = XMM_REG_NUM_KEY_FIRST, offset = 0x00; rnum <= XMM_REG_NUM_KEY_FIRST+10; rnum++) {
kvn@4205 3275 load_key(as_XMMRegister(rnum), key, offset, xmm_key_shuf_mask);
kvn@4205 3276 offset += 0x10;
kvn@4205 3277 }
kvn@4205 3278 __ movdqu(xmm_result, Address(rvec, 0x00)); // initialize xmm_result with r vec
kvn@4205 3279
kvn@4205 3280 // now split to different paths depending on the keylen (len in ints of AESCrypt.KLE array (52=192, or 60=256))
kvn@4205 3281 __ movl(rax, Address(key, arrayOopDesc::length_offset_in_bytes() - arrayOopDesc::base_offset_in_bytes(T_INT)));
kvn@4205 3282 __ cmpl(rax, 44);
kvn@4205 3283 __ jcc(Assembler::notEqual, L_key_192_256);
kvn@4205 3284
kvn@4205 3285 // 128 bit code follows here
kvn@4205 3286 __ movptr(pos, 0);
kvn@4205 3287 __ align(OptoLoopAlignment);
kvn@4363 3288
kvn@4205 3289 __ BIND(L_loopTop_128);
kvn@4205 3290 __ movdqu(xmm_temp, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of input
kvn@4205 3291 __ pxor (xmm_result, xmm_temp); // xor with the current r vector
kvn@4205 3292 __ pxor (xmm_result, xmm_key0); // do the aes rounds
kvn@4363 3293 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_FIRST + 9; rnum++) {
kvn@4205 3294 __ aesenc(xmm_result, as_XMMRegister(rnum));
kvn@4205 3295 }
kvn@4205 3296 __ aesenclast(xmm_result, xmm_key10);
kvn@4205 3297 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3298 // no need to store r to memory until we exit
kvn@4205 3299 __ addptr(pos, AESBlockSize);
kvn@4205 3300 __ subptr(len_reg, AESBlockSize);
kvn@4205 3301 __ jcc(Assembler::notEqual, L_loopTop_128);
kvn@4205 3302
kvn@4205 3303 __ BIND(L_exit);
kvn@4205 3304 __ movdqu(Address(rvec, 0), xmm_result); // final value of r stored in rvec of CipherBlockChaining object
kvn@4205 3305
kvn@4205 3306 #ifdef _WIN64
kvn@4205 3307 // restore xmm regs belonging to calling function
kvn@4205 3308 for (int i = 6; i <= XMM_REG_NUM_KEY_LAST; i++) {
kvn@4205 3309 __ movdqu(as_XMMRegister(i), xmm_save(i));
kvn@4205 3310 }
kvn@6312 3311 __ movl(rax, len_mem);
kvn@6312 3312 #else
kvn@6312 3313 __ pop(rax); // return length
kvn@4205 3314 #endif
kvn@4205 3315 __ leave(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3316 __ ret(0);
kvn@4205 3317
kvn@4205 3318 __ BIND(L_key_192_256);
kvn@4205 3319 // here rax = len in ints of AESCrypt.KLE array (52=192, or 60=256)
kvn@4363 3320 load_key(xmm_key11, key, 0xb0, xmm_key_shuf_mask);
kvn@4363 3321 load_key(xmm_key12, key, 0xc0, xmm_key_shuf_mask);
kvn@4205 3322 __ cmpl(rax, 52);
kvn@4205 3323 __ jcc(Assembler::notEqual, L_key_256);
kvn@4205 3324
kvn@4205 3325 // 192-bit code follows here (could be changed to use more xmm registers)
kvn@4205 3326 __ movptr(pos, 0);
kvn@4205 3327 __ align(OptoLoopAlignment);
kvn@4363 3328
kvn@4205 3329 __ BIND(L_loopTop_192);
kvn@4205 3330 __ movdqu(xmm_temp, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of input
kvn@4205 3331 __ pxor (xmm_result, xmm_temp); // xor with the current r vector
kvn@4205 3332 __ pxor (xmm_result, xmm_key0); // do the aes rounds
kvn@4363 3333 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_FIRST + 11; rnum++) {
kvn@4205 3334 __ aesenc(xmm_result, as_XMMRegister(rnum));
kvn@4205 3335 }
kvn@4363 3336 __ aesenclast(xmm_result, xmm_key12);
kvn@4205 3337 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3338 // no need to store r to memory until we exit
kvn@4205 3339 __ addptr(pos, AESBlockSize);
kvn@4205 3340 __ subptr(len_reg, AESBlockSize);
kvn@4205 3341 __ jcc(Assembler::notEqual, L_loopTop_192);
kvn@4205 3342 __ jmp(L_exit);
kvn@4205 3343
kvn@4205 3344 __ BIND(L_key_256);
kvn@4205 3345 // 256-bit code follows here (could be changed to use more xmm registers)
kvn@4363 3346 load_key(xmm_key13, key, 0xd0, xmm_key_shuf_mask);
kvn@4205 3347 __ movptr(pos, 0);
kvn@4205 3348 __ align(OptoLoopAlignment);
kvn@4363 3349
kvn@4205 3350 __ BIND(L_loopTop_256);
kvn@4205 3351 __ movdqu(xmm_temp, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of input
kvn@4205 3352 __ pxor (xmm_result, xmm_temp); // xor with the current r vector
kvn@4205 3353 __ pxor (xmm_result, xmm_key0); // do the aes rounds
kvn@4363 3354 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_FIRST + 13; rnum++) {
kvn@4205 3355 __ aesenc(xmm_result, as_XMMRegister(rnum));
kvn@4205 3356 }
kvn@4205 3357 load_key(xmm_temp, key, 0xe0);
kvn@4205 3358 __ aesenclast(xmm_result, xmm_temp);
kvn@4205 3359 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3360 // no need to store r to memory until we exit
kvn@4205 3361 __ addptr(pos, AESBlockSize);
kvn@4205 3362 __ subptr(len_reg, AESBlockSize);
kvn@4205 3363 __ jcc(Assembler::notEqual, L_loopTop_256);
kvn@4205 3364 __ jmp(L_exit);
kvn@4205 3365
kvn@4205 3366 return start;
kvn@4205 3367 }
kvn@4205 3368
goetz@5400 3369 // Safefetch stubs.
goetz@5400 3370 void generate_safefetch(const char* name, int size, address* entry,
goetz@5400 3371 address* fault_pc, address* continuation_pc) {
goetz@5400 3372 // safefetch signatures:
goetz@5400 3373 // int SafeFetch32(int* adr, int errValue);
goetz@5400 3374 // intptr_t SafeFetchN (intptr_t* adr, intptr_t errValue);
goetz@5400 3375 //
goetz@5400 3376 // arguments:
goetz@5400 3377 // c_rarg0 = adr
goetz@5400 3378 // c_rarg1 = errValue
goetz@5400 3379 //
goetz@5400 3380 // result:
goetz@5400 3381 // PPC_RET = *adr or errValue
goetz@5400 3382
goetz@5400 3383 StubCodeMark mark(this, "StubRoutines", name);
goetz@5400 3384
goetz@5400 3385 // Entry point, pc or function descriptor.
goetz@5400 3386 *entry = __ pc();
goetz@5400 3387
goetz@5400 3388 // Load *adr into c_rarg1, may fault.
goetz@5400 3389 *fault_pc = __ pc();
goetz@5400 3390 switch (size) {
goetz@5400 3391 case 4:
goetz@5400 3392 // int32_t
goetz@5400 3393 __ movl(c_rarg1, Address(c_rarg0, 0));
goetz@5400 3394 break;
goetz@5400 3395 case 8:
goetz@5400 3396 // int64_t
goetz@5400 3397 __ movq(c_rarg1, Address(c_rarg0, 0));
goetz@5400 3398 break;
goetz@5400 3399 default:
goetz@5400 3400 ShouldNotReachHere();
goetz@5400 3401 }
goetz@5400 3402
goetz@5400 3403 // return errValue or *adr
goetz@5400 3404 *continuation_pc = __ pc();
goetz@5400 3405 __ movq(rax, c_rarg1);
goetz@5400 3406 __ ret(0);
goetz@5400 3407 }
kvn@4205 3408
kvn@4205 3409 // This is a version of CBC/AES Decrypt which does 4 blocks in a loop at a time
kvn@4205 3410 // to hide instruction latency
kvn@4205 3411 //
kvn@4205 3412 // Arguments:
kvn@4205 3413 //
kvn@4205 3414 // Inputs:
kvn@4205 3415 // c_rarg0 - source byte array address
kvn@4205 3416 // c_rarg1 - destination byte array address
kvn@4205 3417 // c_rarg2 - K (key) in little endian int array
kvn@4205 3418 // c_rarg3 - r vector byte array address
kvn@4205 3419 // c_rarg4 - input length
kvn@4205 3420 //
kvn@6312 3421 // Output:
kvn@6312 3422 // rax - input length
kvn@6312 3423 //
kvn@4205 3424
kvn@4205 3425 address generate_cipherBlockChaining_decryptAESCrypt_Parallel() {
kvn@4363 3426 assert(UseAES, "need AES instructions and misaligned SSE support");
kvn@4205 3427 __ align(CodeEntryAlignment);
kvn@4205 3428 StubCodeMark mark(this, "StubRoutines", "cipherBlockChaining_decryptAESCrypt");
kvn@4205 3429 address start = __ pc();
kvn@4205 3430
kvn@4205 3431 Label L_exit, L_key_192_256, L_key_256;
kvn@4205 3432 Label L_singleBlock_loopTop_128, L_multiBlock_loopTop_128;
kvn@4205 3433 Label L_singleBlock_loopTop_192, L_singleBlock_loopTop_256;
kvn@4205 3434 const Register from = c_rarg0; // source array address
kvn@4205 3435 const Register to = c_rarg1; // destination array address
kvn@4205 3436 const Register key = c_rarg2; // key array address
kvn@4205 3437 const Register rvec = c_rarg3; // r byte array initialized from initvector array address
kvn@4205 3438 // and left with the results of the last encryption block
kvn@4205 3439 #ifndef _WIN64
kvn@4205 3440 const Register len_reg = c_rarg4; // src len (must be multiple of blocksize 16)
kvn@4205 3441 #else
kvn@6312 3442 const Address len_mem(rbp, 6 * wordSize); // length is on stack on Win64
kvn@4205 3443 const Register len_reg = r10; // pick the first volatile windows register
kvn@4205 3444 #endif
kvn@4205 3445 const Register pos = rax;
kvn@4205 3446
kvn@4205 3447 // keys 0-10 preloaded into xmm2-xmm12
kvn@4205 3448 const int XMM_REG_NUM_KEY_FIRST = 5;
kvn@4205 3449 const int XMM_REG_NUM_KEY_LAST = 15;
kvn@4363 3450 const XMMRegister xmm_key_first = as_XMMRegister(XMM_REG_NUM_KEY_FIRST);
kvn@4205 3451 const XMMRegister xmm_key_last = as_XMMRegister(XMM_REG_NUM_KEY_LAST);
kvn@4205 3452
kvn@4205 3453 __ enter(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3454
kvn@4205 3455 #ifdef _WIN64
kvn@4205 3456 // on win64, fill len_reg from stack position
kvn@4205 3457 __ movl(len_reg, len_mem);
kvn@4205 3458 // save the xmm registers which must be preserved 6-15
kvn@4205 3459 __ subptr(rsp, -rsp_after_call_off * wordSize);
kvn@4205 3460 for (int i = 6; i <= XMM_REG_NUM_KEY_LAST; i++) {
kvn@4205 3461 __ movdqu(xmm_save(i), as_XMMRegister(i));
kvn@4205 3462 }
kvn@6312 3463 #else
kvn@6312 3464 __ push(len_reg); // Save
kvn@4205 3465 #endif
kvn@6312 3466
kvn@4205 3467 // the java expanded key ordering is rotated one position from what we want
kvn@4205 3468 // so we start from 0x10 here and hit 0x00 last
kvn@4205 3469 const XMMRegister xmm_key_shuf_mask = xmm1; // used temporarily to swap key bytes up front
kvn@4205 3470 __ movdqu(xmm_key_shuf_mask, ExternalAddress(StubRoutines::x86::key_shuffle_mask_addr()));
kvn@4205 3471 // load up xmm regs 5 thru 15 with key 0x10 - 0xa0 - 0x00
kvn@4363 3472 for (int rnum = XMM_REG_NUM_KEY_FIRST, offset = 0x10; rnum < XMM_REG_NUM_KEY_LAST; rnum++) {
kvn@4205 3473 load_key(as_XMMRegister(rnum), key, offset, xmm_key_shuf_mask);
kvn@4205 3474 offset += 0x10;
kvn@4205 3475 }
kvn@4363 3476 load_key(xmm_key_last, key, 0x00, xmm_key_shuf_mask);
kvn@4205 3477
kvn@4205 3478 const XMMRegister xmm_prev_block_cipher = xmm1; // holds cipher of previous block
kvn@4363 3479
kvn@4205 3480 // registers holding the four results in the parallelized loop
kvn@4205 3481 const XMMRegister xmm_result0 = xmm0;
kvn@4205 3482 const XMMRegister xmm_result1 = xmm2;
kvn@4205 3483 const XMMRegister xmm_result2 = xmm3;
kvn@4205 3484 const XMMRegister xmm_result3 = xmm4;
kvn@4205 3485
kvn@4205 3486 __ movdqu(xmm_prev_block_cipher, Address(rvec, 0x00)); // initialize with initial rvec
kvn@4205 3487
kvn@4205 3488 // now split to different paths depending on the keylen (len in ints of AESCrypt.KLE array (52=192, or 60=256))
kvn@4205 3489 __ movl(rax, Address(key, arrayOopDesc::length_offset_in_bytes() - arrayOopDesc::base_offset_in_bytes(T_INT)));
kvn@4205 3490 __ cmpl(rax, 44);
kvn@4205 3491 __ jcc(Assembler::notEqual, L_key_192_256);
kvn@4205 3492
kvn@4205 3493
kvn@4205 3494 // 128-bit code follows here, parallelized
kvn@4205 3495 __ movptr(pos, 0);
kvn@4205 3496 __ align(OptoLoopAlignment);
kvn@4205 3497 __ BIND(L_multiBlock_loopTop_128);
kvn@4205 3498 __ cmpptr(len_reg, 4*AESBlockSize); // see if at least 4 blocks left
kvn@4205 3499 __ jcc(Assembler::less, L_singleBlock_loopTop_128);
kvn@4205 3500
kvn@4205 3501 __ movdqu(xmm_result0, Address(from, pos, Address::times_1, 0*AESBlockSize)); // get next 4 blocks into xmmresult registers
kvn@4205 3502 __ movdqu(xmm_result1, Address(from, pos, Address::times_1, 1*AESBlockSize));
kvn@4205 3503 __ movdqu(xmm_result2, Address(from, pos, Address::times_1, 2*AESBlockSize));
kvn@4205 3504 __ movdqu(xmm_result3, Address(from, pos, Address::times_1, 3*AESBlockSize));
kvn@4205 3505
kvn@4205 3506 #define DoFour(opc, src_reg) \
kvn@4205 3507 __ opc(xmm_result0, src_reg); \
kvn@4205 3508 __ opc(xmm_result1, src_reg); \
kvn@4205 3509 __ opc(xmm_result2, src_reg); \
kvn@4205 3510 __ opc(xmm_result3, src_reg);
kvn@4205 3511
kvn@4205 3512 DoFour(pxor, xmm_key_first);
kvn@4205 3513 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_LAST - 1; rnum++) {
kvn@4205 3514 DoFour(aesdec, as_XMMRegister(rnum));
kvn@4205 3515 }
kvn@4205 3516 DoFour(aesdeclast, xmm_key_last);
kvn@4205 3517 // for each result, xor with the r vector of previous cipher block
kvn@4205 3518 __ pxor(xmm_result0, xmm_prev_block_cipher);
kvn@4205 3519 __ movdqu(xmm_prev_block_cipher, Address(from, pos, Address::times_1, 0*AESBlockSize));
kvn@4205 3520 __ pxor(xmm_result1, xmm_prev_block_cipher);
kvn@4205 3521 __ movdqu(xmm_prev_block_cipher, Address(from, pos, Address::times_1, 1*AESBlockSize));
kvn@4205 3522 __ pxor(xmm_result2, xmm_prev_block_cipher);
kvn@4205 3523 __ movdqu(xmm_prev_block_cipher, Address(from, pos, Address::times_1, 2*AESBlockSize));
kvn@4205 3524 __ pxor(xmm_result3, xmm_prev_block_cipher);
kvn@4205 3525 __ movdqu(xmm_prev_block_cipher, Address(from, pos, Address::times_1, 3*AESBlockSize)); // this will carry over to next set of blocks
kvn@4205 3526
kvn@4205 3527 __ movdqu(Address(to, pos, Address::times_1, 0*AESBlockSize), xmm_result0); // store 4 results into the next 64 bytes of output
kvn@4205 3528 __ movdqu(Address(to, pos, Address::times_1, 1*AESBlockSize), xmm_result1);
kvn@4205 3529 __ movdqu(Address(to, pos, Address::times_1, 2*AESBlockSize), xmm_result2);
kvn@4205 3530 __ movdqu(Address(to, pos, Address::times_1, 3*AESBlockSize), xmm_result3);
kvn@4205 3531
kvn@4205 3532 __ addptr(pos, 4*AESBlockSize);
kvn@4205 3533 __ subptr(len_reg, 4*AESBlockSize);
kvn@4205 3534 __ jmp(L_multiBlock_loopTop_128);
kvn@4205 3535
kvn@4205 3536 // registers used in the non-parallelized loops
kvn@4363 3537 // xmm register assignments for the loops below
kvn@4363 3538 const XMMRegister xmm_result = xmm0;
kvn@4205 3539 const XMMRegister xmm_prev_block_cipher_save = xmm2;
kvn@4363 3540 const XMMRegister xmm_key11 = xmm3;
kvn@4363 3541 const XMMRegister xmm_key12 = xmm4;
kvn@4363 3542 const XMMRegister xmm_temp = xmm4;
kvn@4205 3543
kvn@4205 3544 __ align(OptoLoopAlignment);
kvn@4205 3545 __ BIND(L_singleBlock_loopTop_128);
kvn@4205 3546 __ cmpptr(len_reg, 0); // any blocks left??
kvn@4205 3547 __ jcc(Assembler::equal, L_exit);
kvn@4205 3548 __ movdqu(xmm_result, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of cipher input
kvn@4205 3549 __ movdqa(xmm_prev_block_cipher_save, xmm_result); // save for next r vector
kvn@4205 3550 __ pxor (xmm_result, xmm_key_first); // do the aes dec rounds
kvn@4205 3551 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_LAST - 1; rnum++) {
kvn@4205 3552 __ aesdec(xmm_result, as_XMMRegister(rnum));
kvn@4205 3553 }
kvn@4205 3554 __ aesdeclast(xmm_result, xmm_key_last);
kvn@4205 3555 __ pxor (xmm_result, xmm_prev_block_cipher); // xor with the current r vector
kvn@4205 3556 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3557 // no need to store r to memory until we exit
kvn@4205 3558 __ movdqa(xmm_prev_block_cipher, xmm_prev_block_cipher_save); // set up next r vector with cipher input from this block
kvn@4205 3559
kvn@4205 3560 __ addptr(pos, AESBlockSize);
kvn@4205 3561 __ subptr(len_reg, AESBlockSize);
kvn@4205 3562 __ jmp(L_singleBlock_loopTop_128);
kvn@4205 3563
kvn@4205 3564
kvn@4205 3565 __ BIND(L_exit);
kvn@4205 3566 __ movdqu(Address(rvec, 0), xmm_prev_block_cipher); // final value of r stored in rvec of CipherBlockChaining object
kvn@4205 3567 #ifdef _WIN64
kvn@4205 3568 // restore regs belonging to calling function
kvn@4205 3569 for (int i = 6; i <= XMM_REG_NUM_KEY_LAST; i++) {
kvn@4205 3570 __ movdqu(as_XMMRegister(i), xmm_save(i));
kvn@4205 3571 }
kvn@6312 3572 __ movl(rax, len_mem);
kvn@6312 3573 #else
kvn@6312 3574 __ pop(rax); // return length
kvn@4205 3575 #endif
kvn@4205 3576 __ leave(); // required for proper stackwalking of RuntimeStub frame
kvn@4205 3577 __ ret(0);
kvn@4205 3578
kvn@4205 3579
kvn@4205 3580 __ BIND(L_key_192_256);
kvn@4205 3581 // here rax = len in ints of AESCrypt.KLE array (52=192, or 60=256)
kvn@4363 3582 load_key(xmm_key11, key, 0xb0);
kvn@4205 3583 __ cmpl(rax, 52);
kvn@4205 3584 __ jcc(Assembler::notEqual, L_key_256);
kvn@4205 3585
kvn@4205 3586 // 192-bit code follows here (could be optimized to use parallelism)
kvn@4363 3587 load_key(xmm_key12, key, 0xc0); // 192-bit key goes up to c0
kvn@4205 3588 __ movptr(pos, 0);
kvn@4205 3589 __ align(OptoLoopAlignment);
kvn@4363 3590
kvn@4205 3591 __ BIND(L_singleBlock_loopTop_192);
kvn@4205 3592 __ movdqu(xmm_result, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of cipher input
kvn@4205 3593 __ movdqa(xmm_prev_block_cipher_save, xmm_result); // save for next r vector
kvn@4205 3594 __ pxor (xmm_result, xmm_key_first); // do the aes dec rounds
kvn@4205 3595 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_LAST - 1; rnum++) {
kvn@4205 3596 __ aesdec(xmm_result, as_XMMRegister(rnum));
kvn@4205 3597 }
kvn@4363 3598 __ aesdec(xmm_result, xmm_key11);
kvn@4363 3599 __ aesdec(xmm_result, xmm_key12);
kvn@4205 3600 __ aesdeclast(xmm_result, xmm_key_last); // xmm15 always came from key+0
kvn@4205 3601 __ pxor (xmm_result, xmm_prev_block_cipher); // xor with the current r vector
kvn@4363 3602 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3603 // no need to store r to memory until we exit
kvn@4363 3604 __ movdqa(xmm_prev_block_cipher, xmm_prev_block_cipher_save); // set up next r vector with cipher input from this block
kvn@4205 3605 __ addptr(pos, AESBlockSize);
kvn@4205 3606 __ subptr(len_reg, AESBlockSize);
kvn@4205 3607 __ jcc(Assembler::notEqual,L_singleBlock_loopTop_192);
kvn@4205 3608 __ jmp(L_exit);
kvn@4205 3609
kvn@4205 3610 __ BIND(L_key_256);
kvn@4205 3611 // 256-bit code follows here (could be optimized to use parallelism)
kvn@4205 3612 __ movptr(pos, 0);
kvn@4205 3613 __ align(OptoLoopAlignment);
kvn@4363 3614
kvn@4205 3615 __ BIND(L_singleBlock_loopTop_256);
kvn@4363 3616 __ movdqu(xmm_result, Address(from, pos, Address::times_1, 0)); // get next 16 bytes of cipher input
kvn@4205 3617 __ movdqa(xmm_prev_block_cipher_save, xmm_result); // save for next r vector
kvn@4205 3618 __ pxor (xmm_result, xmm_key_first); // do the aes dec rounds
kvn@4205 3619 for (int rnum = XMM_REG_NUM_KEY_FIRST + 1; rnum <= XMM_REG_NUM_KEY_LAST - 1; rnum++) {
kvn@4205 3620 __ aesdec(xmm_result, as_XMMRegister(rnum));
kvn@4205 3621 }
kvn@4363 3622 __ aesdec(xmm_result, xmm_key11);
kvn@4363 3623 load_key(xmm_temp, key, 0xc0);
kvn@4363 3624 __ aesdec(xmm_result, xmm_temp);
kvn@4363 3625 load_key(xmm_temp, key, 0xd0);
kvn@4363 3626 __ aesdec(xmm_result, xmm_temp);
kvn@4363 3627 load_key(xmm_temp, key, 0xe0); // 256-bit key goes up to e0
kvn@4363 3628 __ aesdec(xmm_result, xmm_temp);
kvn@4363 3629 __ aesdeclast(xmm_result, xmm_key_last); // xmm15 came from key+0
kvn@4205 3630 __ pxor (xmm_result, xmm_prev_block_cipher); // xor with the current r vector
kvn@4363 3631 __ movdqu(Address(to, pos, Address::times_1, 0), xmm_result); // store into the next 16 bytes of output
kvn@4205 3632 // no need to store r to memory until we exit
kvn@4363 3633 __ movdqa(xmm_prev_block_cipher, xmm_prev_block_cipher_save); // set up next r vector with cipher input from this block
kvn@4205 3634 __ addptr(pos, AESBlockSize);
kvn@4205 3635 __ subptr(len_reg, AESBlockSize);
kvn@4205 3636 __ jcc(Assembler::notEqual,L_singleBlock_loopTop_256);
kvn@4205 3637 __ jmp(L_exit);
kvn@4205 3638
kvn@4205 3639 return start;
kvn@4205 3640 }
kvn@4205 3641
ascarpino@9788 3642
ascarpino@9788 3643 // byte swap x86 long
ascarpino@9788 3644 address generate_ghash_long_swap_mask() {
ascarpino@9788 3645 __ align(CodeEntryAlignment);
ascarpino@9788 3646 StubCodeMark mark(this, "StubRoutines", "ghash_long_swap_mask");
ascarpino@9788 3647 address start = __ pc();
ascarpino@9788 3648 __ emit_data64(0x0f0e0d0c0b0a0908, relocInfo::none );
ascarpino@9788 3649 __ emit_data64(0x0706050403020100, relocInfo::none );
ascarpino@9788 3650 return start;
ascarpino@9788 3651 }
ascarpino@9788 3652
ascarpino@9788 3653 // byte swap x86 byte array
ascarpino@9788 3654 address generate_ghash_byte_swap_mask() {
ascarpino@9788 3655 __ align(CodeEntryAlignment);
ascarpino@9788 3656 StubCodeMark mark(this, "StubRoutines", "ghash_byte_swap_mask");
ascarpino@9788 3657 address start = __ pc();
ascarpino@9788 3658 __ emit_data64(0x08090a0b0c0d0e0f, relocInfo::none );
ascarpino@9788 3659 __ emit_data64(0x0001020304050607, relocInfo::none );
ascarpino@9788 3660 return start;
ascarpino@9788 3661 }
ascarpino@9788 3662
ascarpino@9788 3663 /* Single and multi-block ghash operations */
ascarpino@9788 3664 address generate_ghash_processBlocks() {
ascarpino@9788 3665 __ align(CodeEntryAlignment);
ascarpino@9788 3666 Label L_ghash_loop, L_exit;
ascarpino@9788 3667 StubCodeMark mark(this, "StubRoutines", "ghash_processBlocks");
ascarpino@9788 3668 address start = __ pc();
ascarpino@9788 3669
ascarpino@9788 3670 const Register state = c_rarg0;
ascarpino@9788 3671 const Register subkeyH = c_rarg1;
ascarpino@9788 3672 const Register data = c_rarg2;
ascarpino@9788 3673 const Register blocks = c_rarg3;
ascarpino@9788 3674
ascarpino@9788 3675 #ifdef _WIN64
ascarpino@9788 3676 const int XMM_REG_LAST = 10;
ascarpino@9788 3677 #endif
ascarpino@9788 3678
ascarpino@9788 3679 const XMMRegister xmm_temp0 = xmm0;
ascarpino@9788 3680 const XMMRegister xmm_temp1 = xmm1;
ascarpino@9788 3681 const XMMRegister xmm_temp2 = xmm2;
ascarpino@9788 3682 const XMMRegister xmm_temp3 = xmm3;
ascarpino@9788 3683 const XMMRegister xmm_temp4 = xmm4;
ascarpino@9788 3684 const XMMRegister xmm_temp5 = xmm5;
ascarpino@9788 3685 const XMMRegister xmm_temp6 = xmm6;
ascarpino@9788 3686 const XMMRegister xmm_temp7 = xmm7;
ascarpino@9788 3687 const XMMRegister xmm_temp8 = xmm8;
ascarpino@9788 3688 const XMMRegister xmm_temp9 = xmm9;
ascarpino@9788 3689 const XMMRegister xmm_temp10 = xmm10;
ascarpino@9788 3690
ascarpino@9788 3691 __ enter();
ascarpino@9788 3692
ascarpino@9788 3693 #ifdef _WIN64
ascarpino@9788 3694 // save the xmm registers which must be preserved 6-10
ascarpino@9788 3695 __ subptr(rsp, -rsp_after_call_off * wordSize);
ascarpino@9788 3696 for (int i = 6; i <= XMM_REG_LAST; i++) {
ascarpino@9788 3697 __ movdqu(xmm_save(i), as_XMMRegister(i));
ascarpino@9788 3698 }
ascarpino@9788 3699 #endif
ascarpino@9788 3700
ascarpino@9788 3701 __ movdqu(xmm_temp10, ExternalAddress(StubRoutines::x86::ghash_long_swap_mask_addr()));
ascarpino@9788 3702
ascarpino@9788 3703 __ movdqu(xmm_temp0, Address(state, 0));
ascarpino@9788 3704 __ pshufb(xmm_temp0, xmm_temp10);
ascarpino@9788 3705
ascarpino@9788 3706
ascarpino@9788 3707 __ BIND(L_ghash_loop);
ascarpino@9788 3708 __ movdqu(xmm_temp2, Address(data, 0));
ascarpino@9788 3709 __ pshufb(xmm_temp2, ExternalAddress(StubRoutines::x86::ghash_byte_swap_mask_addr()));
ascarpino@9788 3710
ascarpino@9788 3711 __ movdqu(xmm_temp1, Address(subkeyH, 0));
ascarpino@9788 3712 __ pshufb(xmm_temp1, xmm_temp10);
ascarpino@9788 3713
ascarpino@9788 3714 __ pxor(xmm_temp0, xmm_temp2);
ascarpino@9788 3715
ascarpino@9788 3716 //
ascarpino@9788 3717 // Multiply with the hash key
ascarpino@9788 3718 //
ascarpino@9788 3719 __ movdqu(xmm_temp3, xmm_temp0);
ascarpino@9788 3720 __ pclmulqdq(xmm_temp3, xmm_temp1, 0); // xmm3 holds a0*b0
ascarpino@9788 3721 __ movdqu(xmm_temp4, xmm_temp0);
ascarpino@9788 3722 __ pclmulqdq(xmm_temp4, xmm_temp1, 16); // xmm4 holds a0*b1
ascarpino@9788 3723
ascarpino@9788 3724 __ movdqu(xmm_temp5, xmm_temp0);
ascarpino@9788 3725 __ pclmulqdq(xmm_temp5, xmm_temp1, 1); // xmm5 holds a1*b0
ascarpino@9788 3726 __ movdqu(xmm_temp6, xmm_temp0);
ascarpino@9788 3727 __ pclmulqdq(xmm_temp6, xmm_temp1, 17); // xmm6 holds a1*b1
ascarpino@9788 3728
ascarpino@9788 3729 __ pxor(xmm_temp4, xmm_temp5); // xmm4 holds a0*b1 + a1*b0
ascarpino@9788 3730
ascarpino@9788 3731 __ movdqu(xmm_temp5, xmm_temp4); // move the contents of xmm4 to xmm5
ascarpino@9788 3732 __ psrldq(xmm_temp4, 8); // shift by xmm4 64 bits to the right
ascarpino@9788 3733 __ pslldq(xmm_temp5, 8); // shift by xmm5 64 bits to the left
ascarpino@9788 3734 __ pxor(xmm_temp3, xmm_temp5);
ascarpino@9788 3735 __ pxor(xmm_temp6, xmm_temp4); // Register pair <xmm6:xmm3> holds the result
ascarpino@9788 3736 // of the carry-less multiplication of
ascarpino@9788 3737 // xmm0 by xmm1.
ascarpino@9788 3738
ascarpino@9788 3739 // We shift the result of the multiplication by one bit position
ascarpino@9788 3740 // to the left to cope for the fact that the bits are reversed.
ascarpino@9788 3741 __ movdqu(xmm_temp7, xmm_temp3);
ascarpino@9788 3742 __ movdqu(xmm_temp8, xmm_temp6);
ascarpino@9788 3743 __ pslld(xmm_temp3, 1);
ascarpino@9788 3744 __ pslld(xmm_temp6, 1);
ascarpino@9788 3745 __ psrld(xmm_temp7, 31);
ascarpino@9788 3746 __ psrld(xmm_temp8, 31);
ascarpino@9788 3747 __ movdqu(xmm_temp9, xmm_temp7);
ascarpino@9788 3748 __ pslldq(xmm_temp8, 4);
ascarpino@9788 3749 __ pslldq(xmm_temp7, 4);
ascarpino@9788 3750 __ psrldq(xmm_temp9, 12);
ascarpino@9788 3751 __ por(xmm_temp3, xmm_temp7);
ascarpino@9788 3752 __ por(xmm_temp6, xmm_temp8);
ascarpino@9788 3753 __ por(xmm_temp6, xmm_temp9);
ascarpino@9788 3754
ascarpino@9788 3755 //
ascarpino@9788 3756 // First phase of the reduction
ascarpino@9788 3757 //
ascarpino@9788 3758 // Move xmm3 into xmm7, xmm8, xmm9 in order to perform the shifts
ascarpino@9788 3759 // independently.
ascarpino@9788 3760 __ movdqu(xmm_temp7, xmm_temp3);
ascarpino@9788 3761 __ movdqu(xmm_temp8, xmm_temp3);
ascarpino@9788 3762 __ movdqu(xmm_temp9, xmm_temp3);
ascarpino@9788 3763 __ pslld(xmm_temp7, 31); // packed right shift shifting << 31
ascarpino@9788 3764 __ pslld(xmm_temp8, 30); // packed right shift shifting << 30
ascarpino@9788 3765 __ pslld(xmm_temp9, 25); // packed right shift shifting << 25
ascarpino@9788 3766 __ pxor(xmm_temp7, xmm_temp8); // xor the shifted versions
ascarpino@9788 3767 __ pxor(xmm_temp7, xmm_temp9);
ascarpino@9788 3768 __ movdqu(xmm_temp8, xmm_temp7);
ascarpino@9788 3769 __ pslldq(xmm_temp7, 12);
ascarpino@9788 3770 __ psrldq(xmm_temp8, 4);
ascarpino@9788 3771 __ pxor(xmm_temp3, xmm_temp7); // first phase of the reduction complete
ascarpino@9788 3772
ascarpino@9788 3773 //
ascarpino@9788 3774 // Second phase of the reduction
ascarpino@9788 3775 //
ascarpino@9788 3776 // Make 3 copies of xmm3 in xmm2, xmm4, xmm5 for doing these
ascarpino@9788 3777 // shift operations.
ascarpino@9788 3778 __ movdqu(xmm_temp2, xmm_temp3);
ascarpino@9788 3779 __ movdqu(xmm_temp4, xmm_temp3);
ascarpino@9788 3780 __ movdqu(xmm_temp5, xmm_temp3);
ascarpino@9788 3781 __ psrld(xmm_temp2, 1); // packed left shifting >> 1
ascarpino@9788 3782 __ psrld(xmm_temp4, 2); // packed left shifting >> 2
ascarpino@9788 3783 __ psrld(xmm_temp5, 7); // packed left shifting >> 7
ascarpino@9788 3784 __ pxor(xmm_temp2, xmm_temp4); // xor the shifted versions
ascarpino@9788 3785 __ pxor(xmm_temp2, xmm_temp5);
ascarpino@9788 3786 __ pxor(xmm_temp2, xmm_temp8);
ascarpino@9788 3787 __ pxor(xmm_temp3, xmm_temp2);
ascarpino@9788 3788 __ pxor(xmm_temp6, xmm_temp3); // the result is in xmm6
ascarpino@9788 3789
ascarpino@9788 3790 __ decrement(blocks);
ascarpino@9788 3791 __ jcc(Assembler::zero, L_exit);
ascarpino@9788 3792 __ movdqu(xmm_temp0, xmm_temp6);
ascarpino@9788 3793 __ addptr(data, 16);
ascarpino@9788 3794 __ jmp(L_ghash_loop);
ascarpino@9788 3795
ascarpino@9788 3796 __ BIND(L_exit);
ascarpino@9788 3797 __ pshufb(xmm_temp6, xmm_temp10); // Byte swap 16-byte result
ascarpino@9788 3798 __ movdqu(Address(state, 0), xmm_temp6); // store the result
ascarpino@9788 3799
ascarpino@9788 3800 #ifdef _WIN64
ascarpino@9788 3801 // restore xmm regs belonging to calling function
ascarpino@9788 3802 for (int i = 6; i <= XMM_REG_LAST; i++) {
ascarpino@9788 3803 __ movdqu(as_XMMRegister(i), xmm_save(i));
ascarpino@9788 3804 }
ascarpino@9788 3805 #endif
ascarpino@9788 3806 __ leave();
ascarpino@9788 3807 __ ret(0);
ascarpino@9788 3808 return start;
ascarpino@9788 3809 }
ascarpino@9788 3810
drchase@5353 3811 /**
drchase@5353 3812 * Arguments:
drchase@5353 3813 *
drchase@5353 3814 * Inputs:
drchase@5353 3815 * c_rarg0 - int crc
drchase@5353 3816 * c_rarg1 - byte* buf
drchase@5353 3817 * c_rarg2 - int length
drchase@5353 3818 *
drchase@5353 3819 * Ouput:
drchase@5353 3820 * rax - int crc result
drchase@5353 3821 */
drchase@5353 3822 address generate_updateBytesCRC32() {
drchase@5353 3823 assert(UseCRC32Intrinsics, "need AVX and CLMUL instructions");
drchase@5353 3824
drchase@5353 3825 __ align(CodeEntryAlignment);
drchase@5353 3826 StubCodeMark mark(this, "StubRoutines", "updateBytesCRC32");
drchase@5353 3827
drchase@5353 3828 address start = __ pc();
drchase@5353 3829 // Win64: rcx, rdx, r8, r9 (c_rarg0, c_rarg1, ...)
drchase@5353 3830 // Unix: rdi, rsi, rdx, rcx, r8, r9 (c_rarg0, c_rarg1, ...)
drchase@5353 3831 // rscratch1: r10
drchase@5353 3832 const Register crc = c_rarg0; // crc
drchase@5353 3833 const Register buf = c_rarg1; // source java byte array address
drchase@5353 3834 const Register len = c_rarg2; // length
drchase@5353 3835 const Register table = c_rarg3; // crc_table address (reuse register)
drchase@5353 3836 const Register tmp = r11;
drchase@5353 3837 assert_different_registers(crc, buf, len, table, tmp, rax);
drchase@5353 3838
drchase@5353 3839 BLOCK_COMMENT("Entry:");
drchase@5353 3840 __ enter(); // required for proper stackwalking of RuntimeStub frame
drchase@5353 3841
drchase@5353 3842 __ kernel_crc32(crc, buf, len, table, tmp);
drchase@5353 3843
drchase@5353 3844 __ movl(rax, crc);
drchase@5353 3845 __ leave(); // required for proper stackwalking of RuntimeStub frame
drchase@5353 3846 __ ret(0);
drchase@5353 3847
drchase@5353 3848 return start;
drchase@5353 3849 }
kvn@4205 3850
kvn@7152 3851
kvn@7152 3852 /**
kvn@7152 3853 * Arguments:
kvn@7152 3854 *
kvn@7152 3855 * Input:
kvn@7152 3856 * c_rarg0 - x address
kvn@7152 3857 * c_rarg1 - x length
kvn@7152 3858 * c_rarg2 - y address
kvn@7152 3859 * c_rarg3 - y lenth
kvn@7152 3860 * not Win64
kvn@7152 3861 * c_rarg4 - z address
kvn@7152 3862 * c_rarg5 - z length
kvn@7152 3863 * Win64
kvn@7152 3864 * rsp+40 - z address
kvn@7152 3865 * rsp+48 - z length
kvn@7152 3866 */
kvn@7152 3867 address generate_multiplyToLen() {
kvn@7152 3868 __ align(CodeEntryAlignment);
kvn@7152 3869 StubCodeMark mark(this, "StubRoutines", "multiplyToLen");
kvn@7152 3870
kvn@7152 3871 address start = __ pc();
kvn@7152 3872 // Win64: rcx, rdx, r8, r9 (c_rarg0, c_rarg1, ...)
kvn@7152 3873 // Unix: rdi, rsi, rdx, rcx, r8, r9 (c_rarg0, c_rarg1, ...)
kvn@7152 3874 const Register x = rdi;
kvn@7152 3875 const Register xlen = rax;
kvn@7152 3876 const Register y = rsi;
kvn@7152 3877 const Register ylen = rcx;
kvn@7152 3878 const Register z = r8;
kvn@7152 3879 const Register zlen = r11;
kvn@7152 3880
kvn@7152 3881 // Next registers will be saved on stack in multiply_to_len().
kvn@7152 3882 const Register tmp1 = r12;
kvn@7152 3883 const Register tmp2 = r13;
kvn@7152 3884 const Register tmp3 = r14;
kvn@7152 3885 const Register tmp4 = r15;
kvn@7152 3886 const Register tmp5 = rbx;
kvn@7152 3887
kvn@7152 3888 BLOCK_COMMENT("Entry:");
kvn@7152 3889 __ enter(); // required for proper stackwalking of RuntimeStub frame
kvn@7152 3890
kvn@7152 3891 #ifndef _WIN64
kvn@7152 3892 __ movptr(zlen, r9); // Save r9 in r11 - zlen
kvn@7152 3893 #endif
kvn@7152 3894 setup_arg_regs(4); // x => rdi, xlen => rsi, y => rdx
kvn@7152 3895 // ylen => rcx, z => r8, zlen => r11
kvn@7152 3896 // r9 and r10 may be used to save non-volatile registers
kvn@7152 3897 #ifdef _WIN64
kvn@7152 3898 // last 2 arguments (#4, #5) are on stack on Win64
kvn@7152 3899 __ movptr(z, Address(rsp, 6 * wordSize));
kvn@7152 3900 __ movptr(zlen, Address(rsp, 7 * wordSize));
kvn@7152 3901 #endif
kvn@7152 3902
kvn@7152 3903 __ movptr(xlen, rsi);
kvn@7152 3904 __ movptr(y, rdx);
kvn@7152 3905 __ multiply_to_len(x, xlen, y, ylen, z, zlen, tmp1, tmp2, tmp3, tmp4, tmp5);
kvn@7152 3906
kvn@7152 3907 restore_arg_regs();
kvn@7152 3908
kvn@7152 3909 __ leave(); // required for proper stackwalking of RuntimeStub frame
kvn@7152 3910 __ ret(0);
kvn@7152 3911
kvn@7152 3912 return start;
kvn@7152 3913 }
kvn@7152 3914
igerasim@8307 3915 /**
igerasim@8307 3916 * Arguments:
igerasim@8307 3917 *
igerasim@8307 3918 // Input:
igerasim@8307 3919 // c_rarg0 - x address
igerasim@8307 3920 // c_rarg1 - x length
igerasim@8307 3921 // c_rarg2 - z address
igerasim@8307 3922 // c_rarg3 - z lenth
igerasim@8307 3923 *
igerasim@8307 3924 */
igerasim@8307 3925 address generate_squareToLen() {
igerasim@8307 3926
igerasim@8307 3927 __ align(CodeEntryAlignment);
igerasim@8307 3928 StubCodeMark mark(this, "StubRoutines", "squareToLen");
igerasim@8307 3929
igerasim@8307 3930 address start = __ pc();
igerasim@8307 3931 // Win64: rcx, rdx, r8, r9 (c_rarg0, c_rarg1, ...)
igerasim@8307 3932 // Unix: rdi, rsi, rdx, rcx (c_rarg0, c_rarg1, ...)
igerasim@8307 3933 const Register x = rdi;
igerasim@8307 3934 const Register len = rsi;
igerasim@8307 3935 const Register z = r8;
igerasim@8307 3936 const Register zlen = rcx;
igerasim@8307 3937
igerasim@8307 3938 const Register tmp1 = r12;
igerasim@8307 3939 const Register tmp2 = r13;
igerasim@8307 3940 const Register tmp3 = r14;
igerasim@8307 3941 const Register tmp4 = r15;
igerasim@8307 3942 const Register tmp5 = rbx;
igerasim@8307 3943
igerasim@8307 3944 BLOCK_COMMENT("Entry:");
igerasim@8307 3945 __ enter(); // required for proper stackwalking of RuntimeStub frame
igerasim@8307 3946
igerasim@8307 3947 setup_arg_regs(4); // x => rdi, len => rsi, z => rdx
igerasim@8307 3948 // zlen => rcx
igerasim@8307 3949 // r9 and r10 may be used to save non-volatile registers
igerasim@8307 3950 __ movptr(r8, rdx);
igerasim@8307 3951 __ square_to_len(x, len, z, zlen, tmp1, tmp2, tmp3, tmp4, tmp5, rdx, rax);
igerasim@8307 3952
igerasim@8307 3953 restore_arg_regs();
igerasim@8307 3954
igerasim@8307 3955 __ leave(); // required for proper stackwalking of RuntimeStub frame
igerasim@8307 3956 __ ret(0);
igerasim@8307 3957
igerasim@8307 3958 return start;
igerasim@8307 3959 }
igerasim@8307 3960
igerasim@8307 3961 /**
igerasim@8307 3962 * Arguments:
igerasim@8307 3963 *
igerasim@8307 3964 * Input:
igerasim@8307 3965 * c_rarg0 - out address
igerasim@8307 3966 * c_rarg1 - in address
igerasim@8307 3967 * c_rarg2 - offset
igerasim@8307 3968 * c_rarg3 - len
igerasim@8307 3969 * not Win64
igerasim@8307 3970 * c_rarg4 - k
igerasim@8307 3971 * Win64
igerasim@8307 3972 * rsp+40 - k
igerasim@8307 3973 */
igerasim@8307 3974 address generate_mulAdd() {
igerasim@8307 3975 __ align(CodeEntryAlignment);
igerasim@8307 3976 StubCodeMark mark(this, "StubRoutines", "mulAdd");
igerasim@8307 3977
igerasim@8307 3978 address start = __ pc();
igerasim@8307 3979 // Win64: rcx, rdx, r8, r9 (c_rarg0, c_rarg1, ...)
igerasim@8307 3980 // Unix: rdi, rsi, rdx, rcx, r8, r9 (c_rarg0, c_rarg1, ...)
igerasim@8307 3981 const Register out = rdi;
igerasim@8307 3982 const Register in = rsi;
igerasim@8307 3983 const Register offset = r11;
igerasim@8307 3984 const Register len = rcx;
igerasim@8307 3985 const Register k = r8;
igerasim@8307 3986
igerasim@8307 3987 // Next registers will be saved on stack in mul_add().
igerasim@8307 3988 const Register tmp1 = r12;
igerasim@8307 3989 const Register tmp2 = r13;
igerasim@8307 3990 const Register tmp3 = r14;
igerasim@8307 3991 const Register tmp4 = r15;
igerasim@8307 3992 const Register tmp5 = rbx;
igerasim@8307 3993
igerasim@8307 3994 BLOCK_COMMENT("Entry:");
igerasim@8307 3995 __ enter(); // required for proper stackwalking of RuntimeStub frame
igerasim@8307 3996
igerasim@8307 3997 setup_arg_regs(4); // out => rdi, in => rsi, offset => rdx
igerasim@8307 3998 // len => rcx, k => r8
igerasim@8307 3999 // r9 and r10 may be used to save non-volatile registers
igerasim@8307 4000 #ifdef _WIN64
igerasim@8307 4001 // last argument is on stack on Win64
igerasim@8307 4002 __ movl(k, Address(rsp, 6 * wordSize));
igerasim@8307 4003 #endif
igerasim@8307 4004 __ movptr(r11, rdx); // move offset in rdx to offset(r11)
igerasim@8307 4005 __ mul_add(out, in, offset, len, k, tmp1, tmp2, tmp3, tmp4, tmp5, rdx, rax);
igerasim@8307 4006
igerasim@8307 4007 restore_arg_regs();
igerasim@8307 4008
igerasim@8307 4009 __ leave(); // required for proper stackwalking of RuntimeStub frame
igerasim@8307 4010 __ ret(0);
igerasim@8307 4011
igerasim@8307 4012 return start;
igerasim@8307 4013 }
igerasim@8307 4014
igerasim@8307 4015
duke@435 4016 #undef __
duke@435 4017 #define __ masm->
duke@435 4018
duke@435 4019 // Continuation point for throwing of implicit exceptions that are
duke@435 4020 // not handled in the current activation. Fabricates an exception
duke@435 4021 // oop and initiates normal exception dispatching in this
duke@435 4022 // frame. Since we need to preserve callee-saved values (currently
duke@435 4023 // only for C2, but done for C1 as well) we need a callee-saved oop
duke@435 4024 // map and therefore have to make these stubs into RuntimeStubs
duke@435 4025 // rather than BufferBlobs. If the compiler needs all registers to
duke@435 4026 // be preserved between the fault point and the exception handler
duke@435 4027 // then it must assume responsibility for that in
duke@435 4028 // AbstractCompiler::continuation_for_implicit_null_exception or
duke@435 4029 // continuation_for_implicit_division_by_zero_exception. All other
duke@435 4030 // implicit exceptions (e.g., NullPointerException or
duke@435 4031 // AbstractMethodError on entry) are either at call sites or
duke@435 4032 // otherwise assume that stack unwinding will be initiated, so
duke@435 4033 // caller saved registers were assumed volatile in the compiler.
duke@435 4034 address generate_throw_exception(const char* name,
duke@435 4035 address runtime_entry,
never@2978 4036 Register arg1 = noreg,
never@2978 4037 Register arg2 = noreg) {
duke@435 4038 // Information about frame layout at time of blocking runtime call.
duke@435 4039 // Note that we only have to preserve callee-saved registers since
duke@435 4040 // the compilers are responsible for supplying a continuation point
duke@435 4041 // if they expect all registers to be preserved.
duke@435 4042 enum layout {
duke@435 4043 rbp_off = frame::arg_reg_save_area_bytes/BytesPerInt,
duke@435 4044 rbp_off2,
duke@435 4045 return_off,
duke@435 4046 return_off2,
duke@435 4047 framesize // inclusive of return address
duke@435 4048 };
duke@435 4049
duke@435 4050 int insts_size = 512;
duke@435 4051 int locs_size = 64;
duke@435 4052
duke@435 4053 CodeBuffer code(name, insts_size, locs_size);
duke@435 4054 OopMapSet* oop_maps = new OopMapSet();
duke@435 4055 MacroAssembler* masm = new MacroAssembler(&code);
duke@435 4056
duke@435 4057 address start = __ pc();
duke@435 4058
duke@435 4059 // This is an inlined and slightly modified version of call_VM
duke@435 4060 // which has the ability to fetch the return PC out of
duke@435 4061 // thread-local storage and also sets up last_Java_sp slightly
duke@435 4062 // differently than the real call_VM
duke@435 4063
duke@435 4064 __ enter(); // required for proper stackwalking of RuntimeStub frame
duke@435 4065
duke@435 4066 assert(is_even(framesize/2), "sp not 16-byte aligned");
duke@435 4067
duke@435 4068 // return address and rbp are already in place
never@739 4069 __ subptr(rsp, (framesize-4) << LogBytesPerInt); // prolog
duke@435 4070
duke@435 4071 int frame_complete = __ pc() - start;
duke@435 4072
duke@435 4073 // Set up last_Java_sp and last_Java_fp
roland@3522 4074 address the_pc = __ pc();
roland@3522 4075 __ set_last_Java_frame(rsp, rbp, the_pc);
roland@3522 4076 __ andptr(rsp, -(StackAlignmentInBytes)); // Align stack
duke@435 4077
duke@435 4078 // Call runtime
never@2978 4079 if (arg1 != noreg) {
never@2978 4080 assert(arg2 != c_rarg1, "clobbered");
never@2978 4081 __ movptr(c_rarg1, arg1);
never@2978 4082 }
never@2978 4083 if (arg2 != noreg) {
never@2978 4084 __ movptr(c_rarg2, arg2);
never@2978 4085 }
never@739 4086 __ movptr(c_rarg0, r15_thread);
duke@435 4087 BLOCK_COMMENT("call runtime_entry");
duke@435 4088 __ call(RuntimeAddress(runtime_entry));
duke@435 4089
duke@435 4090 // Generate oop map
duke@435 4091 OopMap* map = new OopMap(framesize, 0);
duke@435 4092
roland@3568 4093 oop_maps->add_gc_map(the_pc - start, map);
duke@435 4094
kevinw@8877 4095 __ reset_last_Java_frame(true);
duke@435 4096
duke@435 4097 __ leave(); // required for proper stackwalking of RuntimeStub frame
duke@435 4098
duke@435 4099 // check for pending exceptions
duke@435 4100 #ifdef ASSERT
duke@435 4101 Label L;
never@739 4102 __ cmpptr(Address(r15_thread, Thread::pending_exception_offset()),
never@739 4103 (int32_t) NULL_WORD);
duke@435 4104 __ jcc(Assembler::notEqual, L);
duke@435 4105 __ should_not_reach_here();
duke@435 4106 __ bind(L);
duke@435 4107 #endif // ASSERT
duke@435 4108 __ jump(RuntimeAddress(StubRoutines::forward_exception_entry()));
duke@435 4109
duke@435 4110
duke@435 4111 // codeBlob framesize is in words (not VMRegImpl::slot_size)
duke@435 4112 RuntimeStub* stub =
duke@435 4113 RuntimeStub::new_runtime_stub(name,
duke@435 4114 &code,
duke@435 4115 frame_complete,
duke@435 4116 (framesize >> (LogBytesPerWord - LogBytesPerInt)),
duke@435 4117 oop_maps, false);
duke@435 4118 return stub->entry_point();
duke@435 4119 }
duke@435 4120
kvn@5439 4121 void create_control_words() {
kvn@5439 4122 // Round to nearest, 53-bit mode, exceptions masked
kvn@5439 4123 StubRoutines::_fpu_cntrl_wrd_std = 0x027F;
kvn@5439 4124 // Round to zero, 53-bit mode, exception mased
kvn@5439 4125 StubRoutines::_fpu_cntrl_wrd_trunc = 0x0D7F;
kvn@5439 4126 // Round to nearest, 24-bit mode, exceptions masked
kvn@5439 4127 StubRoutines::_fpu_cntrl_wrd_24 = 0x007F;
kvn@5439 4128 // Round to nearest, 64-bit mode, exceptions masked
kvn@5439 4129 StubRoutines::_fpu_cntrl_wrd_64 = 0x037F;
kvn@5439 4130 // Round to nearest, 64-bit mode, exceptions masked
kvn@5439 4131 StubRoutines::_mxcsr_std = 0x1F80;
kvn@5439 4132 // Note: the following two constants are 80-bit values
kvn@5439 4133 // layout is critical for correct loading by FPU.
kvn@5439 4134 // Bias for strict fp multiply/divide
kvn@5439 4135 StubRoutines::_fpu_subnormal_bias1[0]= 0x00000000; // 2^(-15360) == 0x03ff 8000 0000 0000 0000
kvn@5439 4136 StubRoutines::_fpu_subnormal_bias1[1]= 0x80000000;
kvn@5439 4137 StubRoutines::_fpu_subnormal_bias1[2]= 0x03ff;
kvn@5439 4138 // Un-Bias for strict fp multiply/divide
kvn@5439 4139 StubRoutines::_fpu_subnormal_bias2[0]= 0x00000000; // 2^(+15360) == 0x7bff 8000 0000 0000 0000
kvn@5439 4140 StubRoutines::_fpu_subnormal_bias2[1]= 0x80000000;
kvn@5439 4141 StubRoutines::_fpu_subnormal_bias2[2]= 0x7bff;
kvn@5439 4142 }
kvn@5439 4143
duke@435 4144 // Initialization
duke@435 4145 void generate_initial() {
duke@435 4146 // Generates all stubs and initializes the entry points
duke@435 4147
kvn@5439 4148 // This platform-specific settings are needed by generate_call_stub()
kvn@5439 4149 create_control_words();
duke@435 4150
duke@435 4151 // entry points that exist in all platforms Note: This is code
duke@435 4152 // that could be shared among different platforms - however the
duke@435 4153 // benefit seems to be smaller than the disadvantage of having a
duke@435 4154 // much more complicated generator structure. See also comment in
duke@435 4155 // stubRoutines.hpp.
duke@435 4156
duke@435 4157 StubRoutines::_forward_exception_entry = generate_forward_exception();
duke@435 4158
duke@435 4159 StubRoutines::_call_stub_entry =
duke@435 4160 generate_call_stub(StubRoutines::_call_stub_return_address);
duke@435 4161
duke@435 4162 // is referenced by megamorphic call
duke@435 4163 StubRoutines::_catch_exception_entry = generate_catch_exception();
duke@435 4164
duke@435 4165 // atomic calls
duke@435 4166 StubRoutines::_atomic_xchg_entry = generate_atomic_xchg();
duke@435 4167 StubRoutines::_atomic_xchg_ptr_entry = generate_atomic_xchg_ptr();
duke@435 4168 StubRoutines::_atomic_cmpxchg_entry = generate_atomic_cmpxchg();
duke@435 4169 StubRoutines::_atomic_cmpxchg_long_entry = generate_atomic_cmpxchg_long();
duke@435 4170 StubRoutines::_atomic_add_entry = generate_atomic_add();
duke@435 4171 StubRoutines::_atomic_add_ptr_entry = generate_atomic_add_ptr();
duke@435 4172 StubRoutines::_fence_entry = generate_orderaccess_fence();
duke@435 4173
duke@435 4174 StubRoutines::_handler_for_unsafe_access_entry =
duke@435 4175 generate_handler_for_unsafe_access();
duke@435 4176
duke@435 4177 // platform dependent
never@739 4178 StubRoutines::x86::_get_previous_fp_entry = generate_get_previous_fp();
roland@3606 4179 StubRoutines::x86::_get_previous_sp_entry = generate_get_previous_sp();
never@739 4180
never@739 4181 StubRoutines::x86::_verify_mxcsr_entry = generate_verify_mxcsr();
never@2978 4182
bdelsart@3372 4183 // Build this early so it's available for the interpreter.
bdelsart@3372 4184 StubRoutines::_throw_StackOverflowError_entry =
bdelsart@3372 4185 generate_throw_exception("StackOverflowError throw_exception",
bdelsart@3372 4186 CAST_FROM_FN_PTR(address,
bdelsart@3372 4187 SharedRuntime::
bdelsart@3372 4188 throw_StackOverflowError));
drchase@5353 4189 if (UseCRC32Intrinsics) {
drchase@5353 4190 // set table address before stub generation which use it
drchase@5353 4191 StubRoutines::_crc_table_adr = (address)StubRoutines::x86::_crc_table;
drchase@5353 4192 StubRoutines::_updateBytesCRC32 = generate_updateBytesCRC32();
drchase@5353 4193 }
duke@435 4194 }
duke@435 4195
duke@435 4196 void generate_all() {
duke@435 4197 // Generates all stubs and initializes the entry points
duke@435 4198
duke@435 4199 // These entry points require SharedInfo::stack0 to be set up in
duke@435 4200 // non-core builds and need to be relocatable, so they each
duke@435 4201 // fabricate a RuntimeStub internally.
duke@435 4202 StubRoutines::_throw_AbstractMethodError_entry =
duke@435 4203 generate_throw_exception("AbstractMethodError throw_exception",
duke@435 4204 CAST_FROM_FN_PTR(address,
duke@435 4205 SharedRuntime::
never@3136 4206 throw_AbstractMethodError));
duke@435 4207
dcubed@451 4208 StubRoutines::_throw_IncompatibleClassChangeError_entry =
dcubed@451 4209 generate_throw_exception("IncompatibleClassChangeError throw_exception",
dcubed@451 4210 CAST_FROM_FN_PTR(address,
dcubed@451 4211 SharedRuntime::
never@3136 4212 throw_IncompatibleClassChangeError));
duke@435 4213
duke@435 4214 StubRoutines::_throw_NullPointerException_at_call_entry =
duke@435 4215 generate_throw_exception("NullPointerException at call throw_exception",
duke@435 4216 CAST_FROM_FN_PTR(address,
duke@435 4217 SharedRuntime::
never@3136 4218 throw_NullPointerException_at_call));
duke@435 4219
duke@435 4220 // entry points that are platform specific
never@739 4221 StubRoutines::x86::_f2i_fixup = generate_f2i_fixup();
never@739 4222 StubRoutines::x86::_f2l_fixup = generate_f2l_fixup();
never@739 4223 StubRoutines::x86::_d2i_fixup = generate_d2i_fixup();
never@739 4224 StubRoutines::x86::_d2l_fixup = generate_d2l_fixup();
never@739 4225
never@739 4226 StubRoutines::x86::_float_sign_mask = generate_fp_mask("float_sign_mask", 0x7FFFFFFF7FFFFFFF);
never@739 4227 StubRoutines::x86::_float_sign_flip = generate_fp_mask("float_sign_flip", 0x8000000080000000);
never@739 4228 StubRoutines::x86::_double_sign_mask = generate_fp_mask("double_sign_mask", 0x7FFFFFFFFFFFFFFF);
never@739 4229 StubRoutines::x86::_double_sign_flip = generate_fp_mask("double_sign_flip", 0x8000000000000000);
duke@435 4230
duke@435 4231 // support for verify_oop (must happen after universe_init)
duke@435 4232 StubRoutines::_verify_oop_subroutine_entry = generate_verify_oop();
duke@435 4233
duke@435 4234 // arraycopy stubs used by compilers
duke@435 4235 generate_arraycopy_stubs();
twisti@1543 4236
never@1609 4237 generate_math_stubs();
kvn@4205 4238
kvn@4205 4239 // don't bother generating these AES intrinsic stubs unless global flag is set
kvn@4205 4240 if (UseAESIntrinsics) {
kvn@4205 4241 StubRoutines::x86::_key_shuffle_mask_addr = generate_key_shuffle_mask(); // needed by the others
kvn@4205 4242
kvn@4205 4243 StubRoutines::_aescrypt_encryptBlock = generate_aescrypt_encryptBlock();
kvn@4205 4244 StubRoutines::_aescrypt_decryptBlock = generate_aescrypt_decryptBlock();
kvn@4205 4245 StubRoutines::_cipherBlockChaining_encryptAESCrypt = generate_cipherBlockChaining_encryptAESCrypt();
kvn@4205 4246 StubRoutines::_cipherBlockChaining_decryptAESCrypt = generate_cipherBlockChaining_decryptAESCrypt_Parallel();
kvn@4205 4247 }
goetz@5400 4248
ascarpino@9788 4249 // Generate GHASH intrinsics code
ascarpino@9788 4250 if (UseGHASHIntrinsics) {
ascarpino@9788 4251 StubRoutines::x86::_ghash_long_swap_mask_addr = generate_ghash_long_swap_mask();
ascarpino@9788 4252 StubRoutines::x86::_ghash_byte_swap_mask_addr = generate_ghash_byte_swap_mask();
ascarpino@9788 4253 StubRoutines::_ghash_processBlocks = generate_ghash_processBlocks();
ascarpino@9788 4254 }
ascarpino@9788 4255
goetz@5400 4256 // Safefetch stubs.
goetz@5400 4257 generate_safefetch("SafeFetch32", sizeof(int), &StubRoutines::_safefetch32_entry,
goetz@5400 4258 &StubRoutines::_safefetch32_fault_pc,
goetz@5400 4259 &StubRoutines::_safefetch32_continuation_pc);
goetz@5400 4260 generate_safefetch("SafeFetchN", sizeof(intptr_t), &StubRoutines::_safefetchN_entry,
goetz@5400 4261 &StubRoutines::_safefetchN_fault_pc,
goetz@5400 4262 &StubRoutines::_safefetchN_continuation_pc);
kvn@7152 4263 #ifdef COMPILER2
kvn@7152 4264 if (UseMultiplyToLenIntrinsic) {
kvn@7152 4265 StubRoutines::_multiplyToLen = generate_multiplyToLen();
kvn@7152 4266 }
igerasim@8307 4267 if (UseSquareToLenIntrinsic) {
igerasim@8307 4268 StubRoutines::_squareToLen = generate_squareToLen();
igerasim@8307 4269 }
igerasim@8307 4270 if (UseMulAddIntrinsic) {
igerasim@8307 4271 StubRoutines::_mulAdd = generate_mulAdd();
igerasim@8307 4272 }
vkempik@8318 4273
vkempik@8318 4274 #ifndef _WINDOWS
vkempik@8318 4275 if (UseMontgomeryMultiplyIntrinsic) {
vkempik@8318 4276 StubRoutines::_montgomeryMultiply
vkempik@8318 4277 = CAST_FROM_FN_PTR(address, SharedRuntime::montgomery_multiply);
vkempik@8318 4278 }
vkempik@8318 4279 if (UseMontgomerySquareIntrinsic) {
vkempik@8318 4280 StubRoutines::_montgomerySquare
vkempik@8318 4281 = CAST_FROM_FN_PTR(address, SharedRuntime::montgomery_square);
vkempik@8318 4282 }
vkempik@8318 4283 #endif // WINDOWS
vkempik@8318 4284 #endif // COMPILER2
duke@435 4285 }
duke@435 4286
duke@435 4287 public:
duke@435 4288 StubGenerator(CodeBuffer* code, bool all) : StubCodeGenerator(code) {
duke@435 4289 if (all) {
duke@435 4290 generate_all();
duke@435 4291 } else {
duke@435 4292 generate_initial();
duke@435 4293 }
duke@435 4294 }
duke@435 4295 }; // end class declaration
duke@435 4296
duke@435 4297 void StubGenerator_generate(CodeBuffer* code, bool all) {
duke@435 4298 StubGenerator g(code, all);
duke@435 4299 }

mercurial