src/cpu/mips/vm/stubGenerator_mips_64.cpp

Sun, 08 May 2016 22:17:54 -0400

author
Jin
date
Sun, 08 May 2016 22:17:54 -0400
changeset 7
e26ad49b7194
parent 1
2d8a650513c2
child 8
cf5765c81f87
permissions
-rw-r--r--

[C2] disjoint_byte_copy: fix unaligned LW/SW

/mnt/j2sdk-image/bin/java \
-XX:+PrintCompilation \
-XX:CompileCommand="compileonly,java/util/jar/Manifest\$FastInputStream.*" \
-jar SPECjvm2008.jar -ikv -coe -ict -bt 1 \
compress

It triggers 35000 unaligned instructions.

280 CALL_LEAF_NOFP,runtime jbyte_arraycopy

a0: (-122610748, .) fc127a6b pc: ffe9809004 <-- src是个奇地址
a1: (-122610748, .) fc128100 pc: ffe980910c <-- dest是个偶地址
a2: (-122610748, .) 2b pc: ffe9809210
t3: (-122610748, .) fc127a6c pc: ffe98093a4 <-- 试图把src对齐4字节,
t0: (-122610748, .) fc128101 pc: ffe98094a8 <-- 则dest就不对齐了,使用sw就出了unalign
t3: (-122610747, *) fc127a70 pc: ffe98093a4
t0: (-122610747, .) fc128105 pc: ffe98094a8 <-- 后面所有对dest的访问都会unalign
t3: (-122610746, *) fc127a74 pc: ffe98093a4
t0: (-122610746, .) fc128109 pc: ffe98094a8

Effect:
* 0 unaligned instructions.

aoqi@1 1 /*
aoqi@1 2 * Copyright (c) 2003, 2013, Oracle and/or its affiliates. All rights reserved.
aoqi@1 3 * Copyright (c) 2015, 2016, Loongson Technology. All rights reserved.
aoqi@1 4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
aoqi@1 5 *
aoqi@1 6 * This code is free software; you can redistribute it and/or modify it
aoqi@1 7 * under the terms of the GNU General Public License version 2 only, as
aoqi@1 8 * published by the Free Software Foundation.
aoqi@1 9 *
aoqi@1 10 * This code is distributed in the hope that it will be useful, but WITHOUT
aoqi@1 11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
aoqi@1 12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
aoqi@1 13 * version 2 for more details (a copy is included in the LICENSE file that
aoqi@1 14 * accompanied this code).
aoqi@1 15 *
aoqi@1 16 * You should have received a copy of the GNU General Public License version
aoqi@1 17 * 2 along with this work; if not, write to the Free Software Foundation,
aoqi@1 18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
aoqi@1 19 *
aoqi@1 20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
aoqi@1 21 * or visit www.oracle.com if you need additional information or have any
aoqi@1 22 * questions.
aoqi@1 23 *
aoqi@1 24 */
aoqi@1 25
aoqi@1 26 #include "precompiled.hpp"
aoqi@1 27 #include "asm/macroAssembler.hpp"
aoqi@1 28 #include "asm/macroAssembler.inline.hpp"
aoqi@1 29 #include "interpreter/interpreter.hpp"
aoqi@1 30 #include "nativeInst_mips.hpp"
aoqi@1 31 #include "oops/instanceOop.hpp"
aoqi@1 32 #include "oops/method.hpp"
aoqi@1 33 #include "oops/objArrayKlass.hpp"
aoqi@1 34 #include "oops/oop.inline.hpp"
aoqi@1 35 #include "prims/methodHandles.hpp"
aoqi@1 36 #include "runtime/frame.inline.hpp"
aoqi@1 37 #include "runtime/handles.inline.hpp"
aoqi@1 38 #include "runtime/sharedRuntime.hpp"
aoqi@1 39 #include "runtime/stubCodeGenerator.hpp"
aoqi@1 40 #include "runtime/stubRoutines.hpp"
aoqi@1 41 #include "runtime/thread.inline.hpp"
aoqi@1 42 #include "utilities/top.hpp"
aoqi@1 43 #ifdef COMPILER2
aoqi@1 44 #include "opto/runtime.hpp"
aoqi@1 45 #endif
aoqi@1 46
aoqi@1 47
aoqi@1 48 // Declaration and definition of StubGenerator (no .hpp file).
aoqi@1 49 // For a more detailed description of the stub routine structure
aoqi@1 50 // see the comment in stubRoutines.hpp
aoqi@1 51
aoqi@1 52 #define __ _masm->
aoqi@1 53 //#define TIMES_OOP (UseCompressedOops ? Address::times_4 : Address::times_8)
aoqi@1 54 //#define a__ ((Assembler*)_masm)->
aoqi@1 55
aoqi@1 56 //#ifdef PRODUCT
aoqi@1 57 //#define BLOCK_COMMENT(str) /* nothing */
aoqi@1 58 //#else
aoqi@1 59 //#define BLOCK_COMMENT(str) __ block_comment(str)
aoqi@1 60 //#endif
aoqi@1 61
aoqi@1 62 //#define BIND(label) bind(label); BLOCK_COMMENT(#label ":")
aoqi@1 63 const int MXCSR_MASK = 0xFFC0; // Mask out any pending exceptions
aoqi@1 64
aoqi@1 65 // Stub Code definitions
aoqi@1 66
aoqi@1 67 static address handle_unsafe_access() {
aoqi@1 68 JavaThread* thread = JavaThread::current();
aoqi@1 69 address pc = thread->saved_exception_pc();
aoqi@1 70 // pc is the instruction which we must emulate
aoqi@1 71 // doing a no-op is fine: return garbage from the load
aoqi@1 72 // therefore, compute npc
aoqi@1 73 //address npc = Assembler::locate_next_instruction(pc);
aoqi@1 74 address npc = (address)((unsigned long)pc + sizeof(unsigned long));
aoqi@1 75
aoqi@1 76 // request an async exception
aoqi@1 77 thread->set_pending_unsafe_access_error();
aoqi@1 78
aoqi@1 79 // return address of next instruction to execute
aoqi@1 80 return npc;
aoqi@1 81 }
aoqi@1 82
aoqi@1 83 class StubGenerator: public StubCodeGenerator {
aoqi@1 84 private:
aoqi@1 85
aoqi@1 86 // ABI mips n64
aoqi@1 87 // This fig is not MIPS ABI. It is call Java from C ABI.
aoqi@1 88 // Call stubs are used to call Java from C
aoqi@1 89 //
aoqi@1 90 // [ return_from_Java ]
aoqi@1 91 // [ argument word n-1 ] <--- sp
aoqi@1 92 // ...
aoqi@1 93 // [ argument word 0 ]
aoqi@1 94 // ...
aoqi@1 95 //-10 [ S6 ]
aoqi@1 96 // -9 [ S5 ]
aoqi@1 97 // -8 [ S4 ]
aoqi@1 98 // -7 [ S3 ]
aoqi@1 99 // -6 [ S0 ]
aoqi@1 100 // -5 [ TSR(S2) ]
aoqi@1 101 // -4 [ LVP(S7) ]
aoqi@1 102 // -3 [ BCP(S1) ]
aoqi@1 103 // -2 [ saved fp ] <--- fp_after_call
aoqi@1 104 // -1 [ return address ]
aoqi@1 105 // 0 [ ptr. to call wrapper ] <--- a0 (old sp -->)fp
aoqi@1 106 // 1 [ result ] <--- a1
aoqi@1 107 // 2 [ result_type ] <--- a2
aoqi@1 108 // 3 [ method ] <--- a3
aoqi@1 109 // 4 [ entry_point ] <--- a4
aoqi@1 110 // 5 [ parameters ] <--- a5
aoqi@1 111 // 6 [ parameter_size ] <--- a6
aoqi@1 112 // 7 [ thread ] <--- a7
aoqi@1 113
aoqi@1 114 //
aoqi@1 115 // _LP64: n64 does not save paras in sp.
aoqi@1 116 //
aoqi@1 117 // [ return_from_Java ]
aoqi@1 118 // [ argument word n-1 ] <--- sp
aoqi@1 119 // ...
aoqi@1 120 // [ argument word 0 ]
aoqi@1 121 // ...
aoqi@1 122 //-14 [ thread ]
aoqi@1 123 //-13 [ result_type ] <--- a2
aoqi@1 124 //-12 [ result ] <--- a1
aoqi@1 125 //-11 [ ptr. to call wrapper ] <--- a0
aoqi@1 126 //-10 [ S6 ]
aoqi@1 127 // -9 [ S5 ]
aoqi@1 128 // -8 [ S4 ]
aoqi@1 129 // -7 [ S3 ]
aoqi@1 130 // -6 [ S0 ]
aoqi@1 131 // -5 [ TSR(S2) ]
aoqi@1 132 // -4 [ LVP(S7) ]
aoqi@1 133 // -3 [ BCP(S1) ]
aoqi@1 134 // -2 [ saved fp ] <--- fp_after_call
aoqi@1 135 // -1 [ return address ]
aoqi@1 136 // 0 [ ] <--- old sp
aoqi@1 137 /*
aoqi@1 138 * 2014/01/16 Fu: Find a right place in the call_stub for GP.
aoqi@1 139 * GP will point to the starting point of Interpreter::dispatch_table(itos).
aoqi@1 140 * It should be saved/restored before/after Java calls.
aoqi@1 141 *
aoqi@1 142 */
aoqi@1 143 enum call_stub_layout {
aoqi@1 144 RA_off = -1,
aoqi@1 145 FP_off = -2,
aoqi@1 146 BCP_off = -3,
aoqi@1 147 LVP_off = -4,
aoqi@1 148 TSR_off = -5,
aoqi@1 149 S1_off = -6,
aoqi@1 150 S3_off = -7,
aoqi@1 151 S4_off = -8,
aoqi@1 152 S5_off = -9,
aoqi@1 153 S6_off = -10,
aoqi@1 154 result_off = -11,
aoqi@1 155 result_type_off = -12,
aoqi@1 156 thread_off = -13,
aoqi@1 157 total_off = thread_off - 3,
aoqi@1 158 GP_off = -16,
aoqi@1 159 };
aoqi@1 160
aoqi@1 161 address generate_call_stub(address& return_address) {
aoqi@1 162
aoqi@1 163 StubCodeMark mark(this, "StubRoutines", "call_stub");
aoqi@1 164 address start = __ pc();
aoqi@1 165
aoqi@1 166 // same as in generate_catch_exception()!
aoqi@1 167
aoqi@1 168 // stub code
aoqi@1 169 // save ra and fp
aoqi@1 170 __ sd(RA, SP, RA_off * wordSize);
aoqi@1 171 __ sd(FP, SP, FP_off * wordSize);
aoqi@1 172 __ sd(BCP, SP, BCP_off * wordSize);
aoqi@1 173 __ sd(LVP, SP, LVP_off * wordSize);
aoqi@1 174 __ sd(GP, SP, GP_off * wordSize);
aoqi@1 175 __ sd(TSR, SP, TSR_off * wordSize);
aoqi@1 176 __ sd(S1, SP, S1_off * wordSize);
aoqi@1 177 __ sd(S3, SP, S3_off * wordSize);
aoqi@1 178 __ sd(S4, SP, S4_off * wordSize);
aoqi@1 179 __ sd(S5, SP, S5_off * wordSize);
aoqi@1 180 __ sd(S6, SP, S6_off * wordSize);
aoqi@1 181
aoqi@1 182
aoqi@1 183 __ li48(GP, (long)Interpreter::dispatch_table(itos));
aoqi@1 184
aoqi@1 185 // I think 14 is the max gap between argument and callee saved register
aoqi@1 186 __ daddi(FP, SP, (-2) * wordSize);
aoqi@1 187 __ daddi(SP, SP, total_off * wordSize);
aoqi@1 188 //FIXME, aoqi. find a suitable place to save A1 & A2.
aoqi@1 189 /*
aoqi@1 190 __ sd(A0, FP, frame::entry_frame_call_wrapper_offset * wordSize);
aoqi@1 191 __ sd(A1, FP, 3 * wordSize);
aoqi@1 192 __ sd(A2, FP, 4 * wordSize);
aoqi@1 193 __ sd(A3, FP, 5 * wordSize);
aoqi@1 194 __ sd(A4, FP, 6 * wordSize);
aoqi@1 195 __ sd(A5, FP, 7 * wordSize);
aoqi@1 196 __ sd(A6, FP, 8 * wordSize);
aoqi@1 197 __ sd(A7, FP, 9 * wordSize);
aoqi@1 198 */
aoqi@1 199 __ sd(A0, FP, frame::entry_frame_call_wrapper_offset * wordSize);
aoqi@1 200 __ sd(A1, FP, result_off * wordSize);
aoqi@1 201 __ sd(A2, FP, result_type_off * wordSize);
aoqi@1 202 __ sd(A7, FP, thread_off * wordSize);
aoqi@1 203
aoqi@1 204 #ifdef OPT_THREAD
aoqi@1 205 //__ get_thread(TREG);
aoqi@1 206 __ move(TREG, A7);
aoqi@1 207
aoqi@1 208 //__ ld(TREG, FP, thread_off * wordSize);
aoqi@1 209 #endif
aoqi@1 210 //add for compressedoops
aoqi@1 211 __ reinit_heapbase();
aoqi@1 212
aoqi@1 213 #ifdef ASSERT
aoqi@1 214 // make sure we have no pending exceptions
aoqi@1 215 {
aoqi@1 216 Label L;
aoqi@1 217 __ ld(AT, A7, in_bytes(Thread::pending_exception_offset()));
aoqi@1 218 __ beq(AT, R0, L);
aoqi@1 219 __ delayed()->nop();
aoqi@1 220 /* FIXME: I do not know how to realize stop in mips arch, do it in the future */
aoqi@1 221 __ stop("StubRoutines::call_stub: entered with pending exception");
aoqi@1 222 __ bind(L);
aoqi@1 223 }
aoqi@1 224 #endif
aoqi@1 225
aoqi@1 226 // pass parameters if any
aoqi@1 227 // A5: parameter
aoqi@1 228 // A6: parameter_size
aoqi@1 229 // T0: parameter_size_tmp(--)
aoqi@1 230 // T2: offset(++)
aoqi@1 231 // T3: tmp
aoqi@1 232 Label parameters_done;
aoqi@1 233 // judge if the parameter_size equals 0
aoqi@1 234 __ beq(A6, R0, parameters_done);
aoqi@1 235 __ delayed()->nop();
aoqi@1 236 __ dsll(AT, A6, Interpreter::logStackElementSize);
aoqi@1 237 __ dsub(SP, SP, AT);
aoqi@1 238 __ move(AT, -StackAlignmentInBytes);
aoqi@1 239 __ andr(SP, SP , AT);
aoqi@1 240 // Copy Java parameters in reverse order (receiver last)
aoqi@1 241 // Note that the argument order is inverted in the process
aoqi@1 242 // source is edx[ecx: N-1..0]
aoqi@1 243 // dest is esp[ebx: 0..N-1]
aoqi@1 244 Label loop;
aoqi@1 245 __ move(T0, A6);
aoqi@1 246 __ move(T2, R0);
aoqi@1 247 __ bind(loop);
aoqi@1 248
aoqi@1 249 // get parameter
aoqi@1 250 __ dsll(T3, T0, LogBytesPerWord);
aoqi@1 251 __ dadd(T3, T3, A5);
aoqi@1 252 __ ld(AT, T3, -wordSize);
aoqi@1 253 __ dsll(T3, T2, LogBytesPerWord);
aoqi@1 254 __ dadd(T3, T3, SP);
aoqi@1 255 __ sd(AT, T3, Interpreter::expr_offset_in_bytes(0));
aoqi@1 256 __ daddi(T2, T2, 1);
aoqi@1 257 __ daddi(T0, T0, -1);
aoqi@1 258 __ bne(T0, R0, loop);
aoqi@1 259 __ delayed()->nop();
aoqi@1 260 // advance to next parameter
aoqi@1 261
aoqi@1 262 // call Java function
aoqi@1 263 __ bind(parameters_done);
aoqi@1 264
aoqi@1 265 // receiver in V0, methodOop in Rmethod
aoqi@1 266
aoqi@1 267 __ move(Rmethod, A3);
aoqi@1 268 __ move(Rsender, SP); //set sender sp
aoqi@1 269 __ jalr(A4);
aoqi@1 270 __ delayed()->nop();
aoqi@1 271 return_address = __ pc();
aoqi@1 272
aoqi@1 273 Label common_return;
aoqi@1 274 __ bind(common_return);
aoqi@1 275
aoqi@1 276 // store result depending on type
aoqi@1 277 // (everything that is not T_LONG, T_FLOAT or T_DOUBLE is treated as T_INT)
aoqi@1 278 __ ld(T0, FP, result_off * wordSize); // result --> T0
aoqi@1 279 Label is_long, is_float, is_double, exit;
aoqi@1 280 __ ld(T2, FP, result_type_off * wordSize); // result_type --> T2
aoqi@1 281 __ daddi(T3, T2, (-1) * T_LONG);
aoqi@1 282 __ beq(T3, R0, is_long);
aoqi@1 283 __ delayed()->daddi(T3, T2, (-1) * T_FLOAT);
aoqi@1 284 __ beq(T3, R0, is_float);
aoqi@1 285 __ delayed()->daddi(T3, T2, (-1) * T_DOUBLE);
aoqi@1 286 __ beq(T3, R0, is_double);
aoqi@1 287 __ delayed()->nop();
aoqi@1 288
aoqi@1 289 // handle T_INT case
aoqi@1 290 __ sd(V0, T0, 0 * wordSize);
aoqi@1 291 __ bind(exit);
aoqi@1 292
aoqi@1 293 // restore
aoqi@1 294 __ daddi(SP, FP, 2 * wordSize );
aoqi@1 295 __ ld(RA, SP, RA_off * wordSize);
aoqi@1 296 __ ld(FP, SP, FP_off * wordSize);
aoqi@1 297 __ ld(BCP, SP, BCP_off * wordSize);
aoqi@1 298 __ ld(LVP, SP, LVP_off * wordSize);
aoqi@1 299 __ ld(GP, SP, GP_off * wordSize);
aoqi@1 300 __ ld(TSR, SP, TSR_off * wordSize);
aoqi@1 301
aoqi@1 302 __ ld(S1, SP, S1_off * wordSize);
aoqi@1 303 __ ld(S3, SP, S3_off * wordSize);
aoqi@1 304 __ ld(S4, SP, S4_off * wordSize);
aoqi@1 305 __ ld(S5, SP, S5_off * wordSize);
aoqi@1 306 __ ld(S6, SP, S6_off * wordSize);
aoqi@1 307
aoqi@1 308 // return
aoqi@1 309 __ jr(RA);
aoqi@1 310 __ delayed()->nop();
aoqi@1 311
aoqi@1 312 // handle return types different from T_INT
aoqi@1 313 __ bind(is_long);
aoqi@1 314 __ sd(V0, T0, 0 * wordSize);
aoqi@1 315 //__ sd(V1, T0, 1 * wordSize);
aoqi@1 316 __ sd(R0, T0, 1 * wordSize);
aoqi@1 317 __ b(exit);
aoqi@1 318 __ delayed()->nop();
aoqi@1 319
aoqi@1 320 __ bind(is_float);
aoqi@1 321 __ swc1(F0, T0, 0 * wordSize);
aoqi@1 322 __ b(exit);
aoqi@1 323 __ delayed()->nop();
aoqi@1 324
aoqi@1 325 __ bind(is_double);
aoqi@1 326 __ sdc1(F0, T0, 0 * wordSize);
aoqi@1 327 //__ sdc1(F1, T0, 1 * wordSize);
aoqi@1 328 __ sd(R0, T0, 1 * wordSize);
aoqi@1 329 __ b(exit);
aoqi@1 330 __ delayed()->nop();
aoqi@1 331 //FIXME, 1.6 mips version add operation of fpu here
aoqi@1 332 StubRoutines::gs2::set_call_stub_compiled_return(__ pc());
aoqi@1 333 __ b(common_return);
aoqi@1 334 __ delayed()->nop();
aoqi@1 335 return start;
aoqi@1 336 }
aoqi@1 337
aoqi@1 338 // Return point for a Java call if there's an exception thrown in
aoqi@1 339 // Java code. The exception is caught and transformed into a
aoqi@1 340 // pending exception stored in JavaThread that can be tested from
aoqi@1 341 // within the VM.
aoqi@1 342 //
aoqi@1 343 // Note: Usually the parameters are removed by the callee. In case
aoqi@1 344 // of an exception crossing an activation frame boundary, that is
aoqi@1 345 // not the case if the callee is compiled code => need to setup the
aoqi@1 346 // rsp.
aoqi@1 347 //
aoqi@1 348 // rax: exception oop
aoqi@1 349
aoqi@1 350 address generate_catch_exception() {
aoqi@1 351 StubCodeMark mark(this, "StubRoutines", "catch_exception");
aoqi@1 352 address start = __ pc();
aoqi@1 353
aoqi@1 354 Register thread = TREG;
aoqi@1 355
aoqi@1 356 // get thread directly
aoqi@1 357 #ifndef OPT_THREAD
aoqi@1 358 __ ld(thread, FP, thread_off * wordSize);
aoqi@1 359 #endif
aoqi@1 360
aoqi@1 361 #ifdef ASSERT
aoqi@1 362 // verify that threads correspond
aoqi@1 363 { Label L;
aoqi@1 364 __ get_thread(T8);
aoqi@1 365 __ beq(T8, thread, L);
aoqi@1 366 __ delayed()->nop();
aoqi@1 367 __ stop("StubRoutines::catch_exception: threads must correspond");
aoqi@1 368 __ bind(L);
aoqi@1 369 }
aoqi@1 370 #endif
aoqi@1 371 // set pending exception
aoqi@1 372 __ verify_oop(V0);
aoqi@1 373 __ sd(V0, thread, in_bytes(Thread::pending_exception_offset()));
aoqi@1 374 __ li(AT, (long)__FILE__);
aoqi@1 375 __ sd(AT, thread, in_bytes(Thread::exception_file_offset ()));
aoqi@1 376 __ li(AT, (long)__LINE__);
aoqi@1 377 __ sd(AT, thread, in_bytes(Thread::exception_line_offset ()));
aoqi@1 378
aoqi@1 379 // complete return to VM
aoqi@1 380 assert(StubRoutines::_call_stub_return_address != NULL, "_call_stub_return_address must have been generated before");
aoqi@1 381 __ jmp(StubRoutines::_call_stub_return_address, relocInfo::none);
aoqi@1 382 __ delayed()->nop();
aoqi@1 383
aoqi@1 384 return start;
aoqi@1 385 }
aoqi@1 386
aoqi@1 387 // Continuation point for runtime calls returning with a pending
aoqi@1 388 // exception. The pending exception check happened in the runtime
aoqi@1 389 // or native call stub. The pending exception in Thread is
aoqi@1 390 // converted into a Java-level exception.
aoqi@1 391 //
aoqi@1 392 // Contract with Java-level exception handlers:
aoqi@1 393 // rax: exception
aoqi@1 394 // rdx: throwing pc
aoqi@1 395 //
aoqi@1 396 // NOTE: At entry of this stub, exception-pc must be on stack !!
aoqi@1 397
aoqi@1 398 address generate_forward_exception() {
aoqi@1 399 StubCodeMark mark(this, "StubRoutines", "forward exception");
aoqi@1 400 //Register thread = TREG;
aoqi@1 401 Register thread = TREG;
aoqi@1 402 address start = __ pc();
aoqi@1 403
aoqi@1 404 // Upon entry, the sp points to the return address returning into Java
aoqi@1 405 // (interpreted or compiled) code; i.e., the return address becomes the
aoqi@1 406 // throwing pc.
aoqi@1 407 //
aoqi@1 408 // Arguments pushed before the runtime call are still on the stack but
aoqi@1 409 // the exception handler will reset the stack pointer -> ignore them.
aoqi@1 410 // A potential result in registers can be ignored as well.
aoqi@1 411
aoqi@1 412 #ifdef ASSERT
aoqi@1 413 // make sure this code is only executed if there is a pending exception
aoqi@1 414 #ifndef OPT_THREAD
aoqi@1 415 __ get_thread(thread);
aoqi@1 416 #endif
aoqi@1 417 { Label L;
aoqi@1 418 __ ld(AT, thread, in_bytes(Thread::pending_exception_offset()));
aoqi@1 419 __ bne(AT, R0, L);
aoqi@1 420 __ delayed()->nop();
aoqi@1 421 __ stop("StubRoutines::forward exception: no pending exception (1)");
aoqi@1 422 __ bind(L);
aoqi@1 423 }
aoqi@1 424 #endif
aoqi@1 425
aoqi@1 426 // compute exception handler into T9
aoqi@1 427 __ ld(A1, SP, 0);
aoqi@1 428 __ call_VM_leaf(CAST_FROM_FN_PTR(address, SharedRuntime::exception_handler_for_return_address), thread, A1);
aoqi@1 429 __ move(T9, V0);
aoqi@1 430 __ pop(V1);
aoqi@1 431
aoqi@1 432 #ifndef OPT_THREAD
aoqi@1 433 __ get_thread(thread);
aoqi@1 434 #endif
aoqi@1 435 __ ld(V0, thread, in_bytes(Thread::pending_exception_offset()));
aoqi@1 436 __ sd(R0, thread, in_bytes(Thread::pending_exception_offset()));
aoqi@1 437
aoqi@1 438 #ifdef ASSERT
aoqi@1 439 // make sure exception is set
aoqi@1 440 { Label L;
aoqi@1 441 __ bne(V0, R0, L);
aoqi@1 442 __ delayed()->nop();
aoqi@1 443 __ stop("StubRoutines::forward exception: no pending exception (2)");
aoqi@1 444 __ bind(L);
aoqi@1 445 }
aoqi@1 446 #endif
aoqi@1 447
aoqi@1 448 // continue at exception handler (return address removed)
aoqi@1 449 // V0: exception
aoqi@1 450 // T9: exception handler
aoqi@1 451 // V1: throwing pc
aoqi@1 452 __ verify_oop(V0);
aoqi@1 453 __ jr(T9);
aoqi@1 454 __ delayed()->nop();
aoqi@1 455
aoqi@1 456 return start;
aoqi@1 457 }
aoqi@1 458
aoqi@1 459 // Support for intptr_t get_previous_fp()
aoqi@1 460 //
aoqi@1 461 // This routine is used to find the previous frame pointer for the
aoqi@1 462 // caller (current_frame_guess). This is used as part of debugging
aoqi@1 463 // ps() is seemingly lost trying to find frames.
aoqi@1 464 // This code assumes that caller current_frame_guess) has a frame.
aoqi@1 465 address generate_get_previous_fp() {
aoqi@1 466 StubCodeMark mark(this, "StubRoutines", "get_previous_fp");
aoqi@1 467 const Address old_fp (FP, 0);
aoqi@1 468 const Address older_fp (V0, 0);
aoqi@1 469 address start = __ pc();
aoqi@1 470 __ enter();
aoqi@1 471 __ lw(V0, old_fp); // callers fp
aoqi@1 472 __ lw(V0, older_fp); // the frame for ps()
aoqi@1 473 __ leave();
aoqi@1 474 __ jr(RA);
aoqi@1 475 __ delayed()->nop();
aoqi@1 476 return start;
aoqi@1 477 }
aoqi@1 478 // The following routine generates a subroutine to throw an
aoqi@1 479 // asynchronous UnknownError when an unsafe access gets a fault that
aoqi@1 480 // could not be reasonably prevented by the programmer. (Example:
aoqi@1 481 // SIGBUS/OBJERR.)
aoqi@1 482 address generate_handler_for_unsafe_access() {
aoqi@1 483 StubCodeMark mark(this, "StubRoutines", "handler_for_unsafe_access");
aoqi@1 484 address start = __ pc();
aoqi@1 485 __ pushad(); // push registers
aoqi@1 486 // Address next_pc(esp, RegisterImpl::number_of_registers * BytesPerWord);
aoqi@1 487 __ call(CAST_FROM_FN_PTR(address, handle_unsafe_access), relocInfo::runtime_call_type);
aoqi@1 488 __ delayed()->nop();
aoqi@1 489 __ sw(V0, SP, RegisterImpl::number_of_registers * BytesPerWord);
aoqi@1 490 __ popad();
aoqi@1 491 __ jr(RA);
aoqi@1 492 __ delayed()->nop();
aoqi@1 493 return start;
aoqi@1 494 }
aoqi@1 495
aoqi@1 496 // Non-destructive plausibility checks for oops
aoqi@1 497 //
aoqi@1 498 // Arguments:
aoqi@1 499 // all args on stack!
aoqi@1 500 //
aoqi@1 501 // Stack after saving c_rarg3:
aoqi@1 502 // [tos + 0]: saved c_rarg3
aoqi@1 503 // [tos + 1]: saved c_rarg2
aoqi@1 504 // [tos + 2]: saved r12 (several TemplateTable methods use it)
aoqi@1 505 // [tos + 3]: saved flags
aoqi@1 506 // [tos + 4]: return address
aoqi@1 507 // * [tos + 5]: error message (char*)
aoqi@1 508 // * [tos + 6]: object to verify (oop)
aoqi@1 509 // * [tos + 7]: saved rax - saved by caller and bashed
aoqi@1 510 // * = popped on exit
aoqi@1 511 address generate_verify_oop() {
aoqi@1 512 StubCodeMark mark(this, "StubRoutines", "verify_oop");
aoqi@1 513 address start = __ pc();
aoqi@1 514 __ reinit_heapbase();
aoqi@1 515 __ verify_oop_subroutine();
aoqi@1 516 address end = __ pc();
aoqi@1 517 return start;
aoqi@1 518 }
aoqi@1 519
aoqi@1 520 //
aoqi@1 521 // Generate overlap test for array copy stubs
aoqi@1 522 //
aoqi@1 523 // Input:
aoqi@1 524 // A0 - array1
aoqi@1 525 // A1 - array2
aoqi@1 526 // A2 - element count
aoqi@1 527 //
aoqi@1 528 // Note: this code can only use %eax, %ecx, and %edx
aoqi@1 529 //
aoqi@1 530
aoqi@1 531 // use T9 as temp
aoqi@1 532 void array_overlap_test(address no_overlap_target, int log2_elem_size) {
aoqi@1 533 int elem_size = 1 << log2_elem_size;
aoqi@1 534 Address::ScaleFactor sf = Address::times_1;
aoqi@1 535
aoqi@1 536 switch (log2_elem_size) {
aoqi@1 537 case 0: sf = Address::times_1; break;
aoqi@1 538 case 1: sf = Address::times_2; break;
aoqi@1 539 case 2: sf = Address::times_4; break;
aoqi@1 540 case 3: sf = Address::times_8; break;
aoqi@1 541 }
aoqi@1 542
aoqi@1 543 __ dsll(AT, A2, sf);
aoqi@1 544 __ dadd(AT, AT, A0);
aoqi@1 545 __ lea(T9, Address(AT, -elem_size));
aoqi@1 546 __ dsub(AT, A1, A0);
aoqi@1 547 __ blez(AT, no_overlap_target);
aoqi@1 548 __ delayed()->nop();
aoqi@1 549 __ dsub(AT, A1, T9);
aoqi@1 550 __ bgtz(AT, no_overlap_target);
aoqi@1 551 __ delayed()->nop();
aoqi@1 552
aoqi@1 553 }
aoqi@1 554
aoqi@1 555 //
aoqi@1 556 // Generate store check for array
aoqi@1 557 //
aoqi@1 558 // Input:
aoqi@1 559 // %edi - starting address
aoqi@1 560 // %ecx - element count
aoqi@1 561 //
aoqi@1 562 // The 2 input registers are overwritten
aoqi@1 563 //
aoqi@1 564
aoqi@1 565 //
aoqi@1 566 // Generate store check for array
aoqi@1 567 //
aoqi@1 568 // Input:
aoqi@1 569 // T0 - starting address(edi)
aoqi@1 570 // T1 - element count (ecx)
aoqi@1 571 //
aoqi@1 572 // The 2 input registers are overwritten
aoqi@1 573 //
aoqi@1 574
aoqi@1 575 #define TIMES_OOP (UseCompressedOops ? Address::times_4 : Address::times_8)
aoqi@1 576
aoqi@1 577 void array_store_check() {
aoqi@1 578 BarrierSet* bs = Universe::heap()->barrier_set();
aoqi@1 579 assert(bs->kind() == BarrierSet::CardTableModRef, "Wrong barrier set kind");
aoqi@1 580 CardTableModRefBS* ct = (CardTableModRefBS*)bs;
aoqi@1 581 assert(sizeof(*ct->byte_map_base) == sizeof(jbyte), "adjust this code");
aoqi@1 582 Label l_0;
aoqi@1 583
aoqi@1 584 __ dsll(AT, T1, TIMES_OOP);
aoqi@1 585 __ dadd(AT, T0, AT);
aoqi@1 586 __ daddiu(T1, AT, - BytesPerHeapOop);
aoqi@1 587
aoqi@1 588 __ shr(T0, CardTableModRefBS::card_shift);
aoqi@1 589 __ shr(T1, CardTableModRefBS::card_shift);
aoqi@1 590
aoqi@1 591 __ dsub(T1, T1, T0); // end --> cards count
aoqi@1 592 __ bind(l_0);
aoqi@1 593
aoqi@1 594 __ li48(AT, (long)ct->byte_map_base);
aoqi@1 595 __ dadd(AT, AT, T0);
aoqi@1 596 __ dadd(AT, AT, T1);
aoqi@1 597 __ sb(R0, AT, 0);
aoqi@1 598 //__ daddi(T1, T1, -4);
aoqi@1 599 __ daddi(T1, T1, - 1);
aoqi@1 600 __ bgez(T1, l_0);
aoqi@1 601 __ delayed()->nop();
aoqi@1 602 }
aoqi@1 603
aoqi@1 604 // Arguments:
aoqi@1 605 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 606 // ignored
aoqi@1 607 // name - stub name string
aoqi@1 608 //
aoqi@1 609 // Inputs:
aoqi@1 610 // c_rarg0 - source array address
aoqi@1 611 // c_rarg1 - destination array address
aoqi@1 612 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 613 //
aoqi@1 614 // If 'from' and/or 'to' are aligned on 4-, 2-, or 1-byte boundaries,
aoqi@1 615 // we let the hardware handle it. The one to eight bytes within words,
aoqi@1 616 // dwords or qwords that span cache line boundaries will still be loaded
aoqi@1 617 // and stored atomically.
aoqi@1 618 //
aoqi@1 619 // Side Effects:
aoqi@1 620 // disjoint_byte_copy_entry is set to the no-overlap entry point
aoqi@1 621 // used by generate_conjoint_byte_copy().
aoqi@1 622 //
aoqi@1 623 address generate_disjoint_byte_copy(bool aligned, const char *name) {
aoqi@1 624 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 625 __ align(CodeEntryAlignment);
aoqi@1 626 address start = __ pc();
aoqi@1 627 Label l_0, l_1, l_2, l_3, l_4, l_5, l_6;
aoqi@1 628
aoqi@1 629 __ push(T3);
aoqi@1 630 __ push(T0);
aoqi@1 631 __ push(T1);
aoqi@1 632 __ push(T8);
aoqi@1 633 __ move(T3, A0);
aoqi@1 634 __ move(T0, A1);
aoqi@1 635 __ move(T1, A2);
aoqi@1 636 __ move(T8, T1); // original count in T1
aoqi@1 637 __ daddi(AT, T1, -3);
aoqi@1 638 __ blez(AT, l_4);
aoqi@1 639 __ delayed()->nop();
aoqi@1 640 if (!aligned) {
Jin@7 641 // 2016/5/8 Jin: only when src and dest has the same alignment can we do lw/sw */
Jin@7 642 __ andi(AT, T3, 3);
Jin@7 643 __ andi(T9, T0, 3);
Jin@7 644 __ bne(AT, T9, l_5);
Jin@7 645 __ delayed()->nop();
Jin@7 646
aoqi@1 647 // align source address at dword address boundary
aoqi@1 648 __ move(T1, 4);
aoqi@1 649 __ sub(T1, T1, T3);
aoqi@1 650 __ andi(T1, T1, 3);
aoqi@1 651 __ beq(T1, R0, l_1);
aoqi@1 652 __ delayed()->nop();
aoqi@1 653 __ sub(T8,T8,T1);
aoqi@1 654 __ bind(l_0);
aoqi@1 655 __ lb(AT, T3, 0);
aoqi@1 656 __ sb(AT, T0, 0);
aoqi@1 657 __ addi(T3, T3, 1);
aoqi@1 658 __ addi(T0, T0, 1);
aoqi@1 659 __ addi(T1 ,T1, -1);
aoqi@1 660 __ bne(T1, R0, l_0);
aoqi@1 661 __ delayed()->nop();
aoqi@1 662 __ bind(l_1);
aoqi@1 663 __ move(T1, T8);
aoqi@1 664 }
aoqi@1 665 __ shr(T1, 2);
aoqi@1 666 __ beq(T1, R0, l_4); // no dwords to move
aoqi@1 667 __ delayed()->nop();
aoqi@1 668 // copy aligned dwords
aoqi@1 669 __ bind(l_2);
aoqi@1 670 __ align(16);
aoqi@1 671 __ bind(l_3);
aoqi@1 672 __ lw(AT, T3, 0);
aoqi@1 673 __ sw(AT, T0, 0 );
aoqi@1 674 __ addi(T3, T3, 4);
aoqi@1 675 __ addi(T0, T0, 4);
aoqi@1 676 __ addi(T1, T1, -1);
aoqi@1 677 __ bne(T1, R0, l_3);
aoqi@1 678 __ delayed()->nop();
aoqi@1 679 __ bind(l_4);
aoqi@1 680 __ move(T1, T8);
aoqi@1 681 __ andi(T1, T1, 3);
aoqi@1 682 __ beq(T1, R0, l_6);
aoqi@1 683 __ delayed()->nop();
aoqi@1 684 // copy suffix
aoqi@1 685 __ bind(l_5);
aoqi@1 686 __ lb(AT, T3, 0);
aoqi@1 687 __ sb(AT, T0, 0);
aoqi@1 688 __ addi(T3, T3, 1);
aoqi@1 689 __ addi(T0, T0, 1);
aoqi@1 690 __ addi(T1, T1, -1);
aoqi@1 691 __ bne(T1, R0, l_5 );
aoqi@1 692 __ delayed()->nop();
aoqi@1 693 __ bind(l_6);
aoqi@1 694 __ pop(T8);
aoqi@1 695 __ pop(T1);
aoqi@1 696 __ pop(T0);
aoqi@1 697 __ pop(T3);
aoqi@1 698 __ jr(RA);
aoqi@1 699 __ delayed()->nop();
aoqi@1 700 return start;
aoqi@1 701 }
aoqi@1 702
aoqi@1 703 // Arguments:
aoqi@1 704 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 705 // ignored
aoqi@1 706 // name - stub name string
aoqi@1 707 //
aoqi@1 708 // Inputs:
aoqi@1 709 // c_rarg0 - source array address
aoqi@1 710 // c_rarg1 - destination array address
aoqi@1 711 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 712 //
aoqi@1 713 // If 'from' and/or 'to' are aligned on 4-, 2-, or 1-byte boundaries,
aoqi@1 714 // we let the hardware handle it. The one to eight bytes within words,
aoqi@1 715 // dwords or qwords that span cache line boundaries will still be loaded
aoqi@1 716 // and stored atomically.
aoqi@1 717 //
aoqi@1 718 address generate_conjoint_byte_copy(bool aligned, const char *name) {
aoqi@1 719 Label l_1, l_2, l_3, l_4, l_5;
Jin@7 720 Label l_unaligned, l_aligned;
aoqi@1 721 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 722 __ align(CodeEntryAlignment);
aoqi@1 723 address start = __ pc();
aoqi@1 724 address nooverlap_target = aligned ?
aoqi@1 725 StubRoutines::arrayof_jbyte_disjoint_arraycopy() :
aoqi@1 726 StubRoutines::jbyte_disjoint_arraycopy();
aoqi@1 727
aoqi@1 728 array_overlap_test(nooverlap_target, 0);
aoqi@1 729
aoqi@1 730 __ push(T3);
aoqi@1 731 __ push(T0);
aoqi@1 732 __ push(T1);
aoqi@1 733 __ push(T8);
aoqi@1 734
aoqi@1 735 // copy from high to low
aoqi@1 736 __ move(T3, A0);
aoqi@1 737 __ move(T0, A1);
aoqi@1 738 __ move(T1, A2);
Jin@7 739 __ dadd(T3, T3, T1);
Jin@7 740 __ dadd(T0, T0, T1);
Jin@7 741
Jin@7 742 // 2016/5/8 Jin: copy starting unalinged bytes
Jin@7 743 __ bind(l_unaligned);
Jin@7 744 __ beq(T1, R0, l_5);
Jin@7 745 __ delayed()->nop();
Jin@7 746
Jin@7 747 __ andi(AT, T3, 3);
Jin@7 748 __ beq(AT, R0, l_aligned);
Jin@7 749 __ delayed()->nop();
Jin@7 750 __ lb(AT, T3, -1);
Jin@7 751 __ sb(AT, T0, -1);
Jin@7 752 __ daddi(AT, T1, -1);
Jin@7 753 __ daddi(AT, T3, -1);
Jin@7 754 __ daddi(AT, T0, -1);
Jin@7 755 __ b(l_unaligned);
Jin@7 756 __ delayed()->nop();
Jin@7 757
Jin@7 758 // now T0, T3 point to 4-byte aligned high-ends
Jin@7 759 // T1 contains byte count that is not copied.
Jin@7 760 __ bind(l_aligned);
Jin@7 761
aoqi@1 762 __ move(T8, T1);
aoqi@1 763 __ daddi(AT, T1, -3);
aoqi@1 764 __ blez(AT, l_3);
aoqi@1 765 __ delayed()->nop();
Jin@7 766
Jin@7 767 __ andi(T8, T8, 3);
Jin@7 768 __ lea(T3, Address(T3, -4));
Jin@7 769 __ lea(T0, Address(T0, -4));
Jin@7 770
aoqi@1 771 __ dsrl(T1, T1, 2);
aoqi@1 772 __ align(16);
aoqi@1 773 __ bind(l_1);
aoqi@1 774 __ lw(AT, T3, 0);
aoqi@1 775 __ sw(AT, T0, 0);
aoqi@1 776 __ addi(T3, T3, -4);
aoqi@1 777 __ addi(T0, T0, -4);
aoqi@1 778 __ addi(T1, T1, -1);
aoqi@1 779 __ bne(T1, R0, l_1);
aoqi@1 780 __ delayed()->nop();
aoqi@1 781 __ b(l_3);
aoqi@1 782 __ delayed()->nop();
aoqi@1 783 // copy dwords aligned or not with repeat move
aoqi@1 784 __ bind(l_2);
aoqi@1 785 __ bind(l_3);
aoqi@1 786 // copy suffix (0-3 bytes)
aoqi@1 787 __ andi(T8, T8, 3);
aoqi@1 788 __ beq(T8, R0, l_5);
aoqi@1 789 __ delayed()->nop();
aoqi@1 790 __ addi(T3, T3, 3);
aoqi@1 791 __ addi(T0, T0, 3);
aoqi@1 792 __ bind(l_4);
aoqi@1 793 __ lb(AT, T3, 0);
aoqi@1 794 __ sb(AT, T0, 0);
aoqi@1 795 __ addi(T3, T3, -1);
aoqi@1 796 __ addi(T0, T0, -1);
aoqi@1 797 __ addi(T8, T8, -1);
aoqi@1 798 __ bne(T8, R0, l_4);
aoqi@1 799 __ delayed()->nop();
aoqi@1 800 __ bind(l_5);
aoqi@1 801 __ pop(T8);
aoqi@1 802 __ pop(T1);
aoqi@1 803 __ pop(T0);
aoqi@1 804 __ pop(T3);
aoqi@1 805 __ jr(RA);
aoqi@1 806 __ delayed()->nop();
aoqi@1 807 return start;
aoqi@1 808 }
aoqi@1 809
aoqi@1 810 // Arguments:
aoqi@1 811 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 812 // ignored
aoqi@1 813 // name - stub name string
aoqi@1 814 //
aoqi@1 815 // Inputs:
aoqi@1 816 // c_rarg0 - source array address
aoqi@1 817 // c_rarg1 - destination array address
aoqi@1 818 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 819 //
aoqi@1 820 // If 'from' and/or 'to' are aligned on 4- or 2-byte boundaries, we
aoqi@1 821 // let the hardware handle it. The two or four words within dwords
aoqi@1 822 // or qwords that span cache line boundaries will still be loaded
aoqi@1 823 // and stored atomically.
aoqi@1 824 //
aoqi@1 825 // Side Effects:
aoqi@1 826 // disjoint_short_copy_entry is set to the no-overlap entry point
aoqi@1 827 // used by generate_conjoint_short_copy().
aoqi@1 828 //
aoqi@1 829 address generate_disjoint_short_copy(bool aligned, const char *name) {
aoqi@1 830 Label l_1, l_2, l_3, l_4, l_5, l_6, l_7, l_8;
aoqi@1 831 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 832 __ align(CodeEntryAlignment);
aoqi@1 833 address start = __ pc();
aoqi@1 834
aoqi@1 835 __ push(T3);
aoqi@1 836 __ push(T0);
aoqi@1 837 __ push(T1);
aoqi@1 838 __ push(T8);
aoqi@1 839 __ move(T1, A2);
aoqi@1 840 __ move(T3, A0);
aoqi@1 841 __ move(T0, A1);
aoqi@1 842
aoqi@1 843 if (!aligned) {
aoqi@1 844 __ beq(T1, R0, l_5);
aoqi@1 845 __ delayed()->nop();
aoqi@1 846 // align source address at dword address boundary
aoqi@1 847 __ move(T8, T3); // original from
aoqi@1 848 __ andi(T8, T8, 3); // either 0 or 2
aoqi@1 849 __ beq(T8, R0, l_1); // no prefix
aoqi@1 850 __ delayed()->nop();
aoqi@1 851 // copy prefix
aoqi@1 852 __ lh(AT, T3, 0);
aoqi@1 853 __ sh(AT, T0, 0);
aoqi@1 854 __ add(T3, T3, T8);
aoqi@1 855 __ add(T0, T0, T8);
aoqi@1 856 __ addi(T1, T1, -1);
aoqi@1 857 __ bind(l_1);
aoqi@1 858 }
aoqi@1 859 __ move(T8, T1); // word count less prefix
aoqi@1 860 __ sra(T1, T1, 1);
aoqi@1 861 __ beq(T1, R0, l_4);
aoqi@1 862 __ delayed()->nop();
aoqi@1 863 // copy aligned dwords
aoqi@1 864 __ bind(l_2);
aoqi@1 865 __ align(16);
aoqi@1 866 __ bind(l_3);
aoqi@1 867 __ lw(AT, T3, 0);
aoqi@1 868 __ sw(AT, T0, 0 );
aoqi@1 869 __ addi(T3, T3, 4);
aoqi@1 870 __ addi(T0, T0, 4);
aoqi@1 871 __ addi(T1, T1, -1);
aoqi@1 872 __ bne(T1, R0, l_3);
aoqi@1 873 __ delayed()->nop();
aoqi@1 874 __ bind(l_4);
aoqi@1 875 __ andi(T8, T8, 1);
aoqi@1 876 __ beq(T8, R0, l_5);
aoqi@1 877 __ delayed()->nop();
aoqi@1 878 // copy suffix
aoqi@1 879 __ lh(AT, T3, 0);
aoqi@1 880 __ sh(AT, T0, 0);
aoqi@1 881 __ bind(l_5);
aoqi@1 882 __ pop(T8);
aoqi@1 883 __ pop(T1);
aoqi@1 884 __ pop(T0);
aoqi@1 885 __ pop(T3);
aoqi@1 886 __ jr(RA);
aoqi@1 887 __ delayed()->nop();
aoqi@1 888 return start;
aoqi@1 889 }
aoqi@1 890
aoqi@1 891 // Arguments:
aoqi@1 892 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 893 // ignored
aoqi@1 894 // name - stub name string
aoqi@1 895 //
aoqi@1 896 // Inputs:
aoqi@1 897 // c_rarg0 - source array address
aoqi@1 898 // c_rarg1 - destination array address
aoqi@1 899 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 900 //
aoqi@1 901 // If 'from' and/or 'to' are aligned on 4- or 2-byte boundaries, we
aoqi@1 902 // let the hardware handle it. The two or four words within dwords
aoqi@1 903 // or qwords that span cache line boundaries will still be loaded
aoqi@1 904 // and stored atomically.
aoqi@1 905 //
aoqi@1 906 address generate_conjoint_short_copy(bool aligned, const char *name) {
aoqi@1 907 Label l_1, l_2, l_3, l_4, l_5;
aoqi@1 908 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 909 __ align(CodeEntryAlignment);
aoqi@1 910 address start = __ pc();
aoqi@1 911 address nooverlap_target = aligned ?
aoqi@1 912 StubRoutines::arrayof_jshort_disjoint_arraycopy() :
aoqi@1 913 StubRoutines::jshort_disjoint_arraycopy();
aoqi@1 914
aoqi@1 915 array_overlap_test(nooverlap_target, 1);
aoqi@1 916
aoqi@1 917 __ push(T3);
aoqi@1 918 __ push(T0);
aoqi@1 919 __ push(T1);
aoqi@1 920 __ push(T8);
aoqi@1 921
aoqi@1 922 /*
aoqi@1 923 __ pushl(esi);
aoqi@1 924 __ movl(ecx, Address(esp, 4+12)); // count
aoqi@1 925 __ pushl(edi);
aoqi@1 926 __ movl(esi, Address(esp, 8+ 4)); // from
aoqi@1 927 __ movl(edi, Address(esp, 8+ 8)); // to
aoqi@1 928 */
aoqi@1 929 __ move(T1, A2);
aoqi@1 930 __ move(T3, A0);
aoqi@1 931 __ move(T0, A1);
aoqi@1 932
aoqi@1 933
aoqi@1 934 // copy dwords from high to low
aoqi@1 935 // __ leal(esi, Address(esi, ecx, Address::times_2, -4)); // from + count*2 - 4
aoqi@1 936 __ sll(AT, T1, Address::times_2);
aoqi@1 937 __ add(AT, T3, AT);
aoqi@1 938 __ lea(T3, Address( AT, -4));
aoqi@1 939 //__ std();
aoqi@1 940 //__ leal(edi, Address(edi, ecx, Address::times_2, -4)); // to + count*2 - 4
aoqi@1 941 __ sll(AT,T1 , Address::times_2);
aoqi@1 942 __ add(AT, T0, AT);
aoqi@1 943 __ lea(T0, Address( AT, -4));
aoqi@1 944 // __ movl(eax, ecx);
aoqi@1 945 __ move(T8, T1);
aoqi@1 946 __ bind(l_1);
aoqi@1 947 // __ sarl(ecx, 1); // dword count
aoqi@1 948 __ sra(T1,T1, 1);
aoqi@1 949 //__ jcc(Assembler::equal, l_4); // no dwords to move
aoqi@1 950 __ beq(T1, R0, l_4);
aoqi@1 951 __ delayed()->nop();
aoqi@1 952 /* __ cmpl(ecx, 32);
aoqi@1 953 __ jcc(Assembler::above, l_3); // > 32 dwords
aoqi@1 954 // copy dwords with loop
aoqi@1 955 __ subl(edi, esi);
aoqi@1 956 */ __ align(16);
aoqi@1 957 __ bind(l_2);
aoqi@1 958 //__ movl(edx, Address(esi));
aoqi@1 959 __ lw(AT, T3, 0);
aoqi@1 960 //__ movl(Address(edi, esi, Address::times_1), edx);
aoqi@1 961 __ sw(AT, T0, 0);
aoqi@1 962 //__ subl(esi, 4);
aoqi@1 963 __ addi(T3, T3, -4);
aoqi@1 964 __ addi(T0, T0, -4);
aoqi@1 965 //__ decl(ecx);
aoqi@1 966 __ addi(T1, T1, -1);
aoqi@1 967 // __ jcc(Assembler::notEqual, l_2);
aoqi@1 968 __ bne(T1, R0, l_2);
aoqi@1 969 __ delayed()->nop();
aoqi@1 970 // __ addl(edi, esi);
aoqi@1 971 // __ jmp(l_4);
aoqi@1 972 __ b(l_4);
aoqi@1 973 __ delayed()->nop();
aoqi@1 974 // copy dwords with repeat move
aoqi@1 975 __ bind(l_3);
aoqi@1 976 // __ rep_movl();
aoqi@1 977 __ bind(l_4);
aoqi@1 978 // __ andl(eax, 1); // suffix count
aoqi@1 979 __ andi(T8, T8, 1); // suffix count
aoqi@1 980 //__ jcc(Assembler::equal, l_5); // no suffix
aoqi@1 981 __ beq(T8, R0, l_5 );
aoqi@1 982 __ delayed()->nop();
aoqi@1 983 // copy suffix
aoqi@1 984 // __ movw(edx, Address(esi, 2));
aoqi@1 985 __ lh(AT, T3, 2);
aoqi@1 986 // __ movw(Address(edi, 2), edx);
aoqi@1 987 __ sh(AT, T0, 2);
aoqi@1 988 __ bind(l_5);
aoqi@1 989 // __ cld();
aoqi@1 990 // __ popl(edi);
aoqi@1 991 // __ popl(esi);
aoqi@1 992 // __ ret(0);
aoqi@1 993 __ pop(T8);
aoqi@1 994 __ pop(T1);
aoqi@1 995 __ pop(T0);
aoqi@1 996 __ pop(T3);
aoqi@1 997 __ jr(RA);
aoqi@1 998 __ delayed()->nop();
aoqi@1 999 return start;
aoqi@1 1000 }
aoqi@1 1001
aoqi@1 1002 // Arguments:
aoqi@1 1003 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 1004 // ignored
aoqi@1 1005 // is_oop - true => oop array, so generate store check code
aoqi@1 1006 // name - stub name string
aoqi@1 1007 //
aoqi@1 1008 // Inputs:
aoqi@1 1009 // c_rarg0 - source array address
aoqi@1 1010 // c_rarg1 - destination array address
aoqi@1 1011 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1012 //
aoqi@1 1013 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
aoqi@1 1014 // the hardware handle it. The two dwords within qwords that span
aoqi@1 1015 // cache line boundaries will still be loaded and stored atomicly.
aoqi@1 1016 //
aoqi@1 1017 // Side Effects:
aoqi@1 1018 // disjoint_int_copy_entry is set to the no-overlap entry point
aoqi@1 1019 // used by generate_conjoint_int_oop_copy().
aoqi@1 1020 //
aoqi@1 1021 address generate_disjoint_int_oop_copy(bool aligned, bool is_oop, const char *name) {
aoqi@1 1022 Label l_2, l_3, l_4, l_stchk;
aoqi@1 1023 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1024 __ align(CodeEntryAlignment);
aoqi@1 1025 address start = __ pc();
aoqi@1 1026 /*
aoqi@1 1027 __ pushl(esi);
aoqi@1 1028 __ movl(ecx, Address(esp, 4+12)); // count
aoqi@1 1029 __ pushl(edi);
aoqi@1 1030 __ movl(esi, Address(esp, 8+ 4)); // from
aoqi@1 1031 __ movl(edi, Address(esp, 8+ 8)); // to
aoqi@1 1032 */
aoqi@1 1033 __ push(T3);
aoqi@1 1034 __ push(T0);
aoqi@1 1035 __ push(T1);
aoqi@1 1036 __ push(T8);
aoqi@1 1037 __ move(T1, A2);
aoqi@1 1038 __ move(T3, A0);
aoqi@1 1039 __ move(T0, A1);
aoqi@1 1040
aoqi@1 1041 // __ cmpl(ecx, 32);
aoqi@1 1042 // __ jcc(Assembler::belowEqual, l_2); // <= 32 dwords
aoqi@1 1043 // __ rep_movl();
aoqi@1 1044 __ b(l_2);
aoqi@1 1045 __ delayed()->nop();
aoqi@1 1046 if (is_oop) {
aoqi@1 1047 // __ jmp(l_stchk);
aoqi@1 1048 __ b(l_stchk);
aoqi@1 1049 __ delayed()->nop();
aoqi@1 1050 }
aoqi@1 1051 // __ popl(edi);
aoqi@1 1052 // __ popl(esi);
aoqi@1 1053 // __ ret(0);
aoqi@1 1054 __ pop(T8);
aoqi@1 1055 __ pop(T1);
aoqi@1 1056 __ pop(T0);
aoqi@1 1057 __ pop(T3);
aoqi@1 1058 __ jr(RA);
aoqi@1 1059 __ delayed()->nop();
aoqi@1 1060
aoqi@1 1061 __ bind(l_2);
aoqi@1 1062 // __ subl(edi, esi);
aoqi@1 1063 // __ testl(ecx, ecx);
aoqi@1 1064 // __ jcc(Assembler::zero, l_4);
aoqi@1 1065 __ beq(T1, R0, l_4);
aoqi@1 1066 __ delayed()->nop();
aoqi@1 1067 __ align(16);
aoqi@1 1068 __ bind(l_3);
aoqi@1 1069 //__ movl(edx, Address(esi));
aoqi@1 1070 __ lw(AT, T3, 0);
aoqi@1 1071 // __ movl(Address(edi, esi, Address::times_1), edx);
aoqi@1 1072 __ sw(AT, T0, 0);
aoqi@1 1073 // __ addl(esi, 4);
aoqi@1 1074 __ addi(T3, T3, 4);
aoqi@1 1075 __ addi(T0, T0, 4);
aoqi@1 1076 // __ decl(ecx);
aoqi@1 1077 __ addi(T1, T1, -1);
aoqi@1 1078 // __ jcc(Assembler::notEqual, l_3);
aoqi@1 1079 __ bne(T1, R0, l_3);
aoqi@1 1080 __ delayed()->nop();
aoqi@1 1081 if (is_oop) {
aoqi@1 1082 __ bind(l_stchk);
aoqi@1 1083 // __ movl(edi, Address(esp, 8+ 8));
aoqi@1 1084 // __ movl(ecx, Address(esp, 8+ 12));
aoqi@1 1085 __ move(T0, A1);
aoqi@1 1086 __ move(T1, A2);
aoqi@1 1087 array_store_check();
aoqi@1 1088 }
aoqi@1 1089 __ bind(l_4);
aoqi@1 1090 // __ popl(edi);
aoqi@1 1091 // __ popl(esi);
aoqi@1 1092 // __ ret(0);
aoqi@1 1093 __ pop(T8);
aoqi@1 1094 __ pop(T1);
aoqi@1 1095 __ pop(T0);
aoqi@1 1096 __ pop(T3);
aoqi@1 1097 __ jr(RA);
aoqi@1 1098 __ delayed()->nop();
aoqi@1 1099 return start;
aoqi@1 1100 }
aoqi@1 1101
aoqi@1 1102 // Arguments:
aoqi@1 1103 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 1104 // ignored
aoqi@1 1105 // is_oop - true => oop array, so generate store check code
aoqi@1 1106 // name - stub name string
aoqi@1 1107 //
aoqi@1 1108 // Inputs:
aoqi@1 1109 // c_rarg0 - source array address
aoqi@1 1110 // c_rarg1 - destination array address
aoqi@1 1111 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1112 //
aoqi@1 1113 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
aoqi@1 1114 // the hardware handle it. The two dwords within qwords that span
aoqi@1 1115 // cache line boundaries will still be loaded and stored atomicly.
aoqi@1 1116 //
aoqi@1 1117 address generate_conjoint_int_oop_copy(bool aligned, bool is_oop, const char *name) {
aoqi@1 1118 Label l_2, l_3, l_4, l_stchk;
aoqi@1 1119 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1120 __ align(CodeEntryAlignment);
aoqi@1 1121 address start = __ pc();
aoqi@1 1122 address nooverlap_target;
aoqi@1 1123
aoqi@1 1124 if (is_oop) {
aoqi@1 1125 nooverlap_target = aligned ?
aoqi@1 1126 StubRoutines::arrayof_oop_disjoint_arraycopy() :
aoqi@1 1127 StubRoutines::oop_disjoint_arraycopy();
aoqi@1 1128 }else {
aoqi@1 1129 nooverlap_target = aligned ?
aoqi@1 1130 StubRoutines::arrayof_jint_disjoint_arraycopy() :
aoqi@1 1131 StubRoutines::jint_disjoint_arraycopy();
aoqi@1 1132 }
aoqi@1 1133
aoqi@1 1134 array_overlap_test(nooverlap_target, 2);
aoqi@1 1135
aoqi@1 1136 __ push(T3);
aoqi@1 1137 __ push(T0);
aoqi@1 1138 __ push(T1);
aoqi@1 1139 __ push(T8);
aoqi@1 1140
aoqi@1 1141 /*
aoqi@1 1142 __ pushl(esi);
aoqi@1 1143 __ movl(ecx, Address(esp, 4+12)); // count
aoqi@1 1144 __ pushl(edi);
aoqi@1 1145 __ movl(esi, Address(esp, 8+ 4)); // from
aoqi@1 1146 __ movl(edi, Address(esp, 8+ 8)); // to
aoqi@1 1147 */
aoqi@1 1148 __ move(T1, A2);
aoqi@1 1149 __ move(T3, A0);
aoqi@1 1150 __ move(T0, A1);
aoqi@1 1151
aoqi@1 1152 //__ leal(esi, Address(esi, ecx, Address::times_4, -4)); // from + count*4 - 4
aoqi@1 1153 __ sll(AT, T1, Address::times_4);
aoqi@1 1154 __ add(AT, T3, AT);
aoqi@1 1155 __ lea(T3 , Address(AT, -4));
aoqi@1 1156 //__ std();
aoqi@1 1157 //__ leal(edi, Address(edi, ecx, Address::times_4, -4)); // to + count*4 - 4
aoqi@1 1158 __ sll(AT, T1, Address::times_4);
aoqi@1 1159 __ add(AT, T0, AT);
aoqi@1 1160 __ lea(T0 , Address(AT, -4));
aoqi@1 1161
aoqi@1 1162 // __ cmpl(ecx, 32);
aoqi@1 1163 // __ jcc(Assembler::above, l_3); // > 32 dwords
aoqi@1 1164 // __ testl(ecx, ecx);
aoqi@1 1165 //__ jcc(Assembler::zero, l_4);
aoqi@1 1166 __ beq(T1, R0, l_4);
aoqi@1 1167 __ delayed()->nop();
aoqi@1 1168 // __ subl(edi, esi);
aoqi@1 1169 __ align(16);
aoqi@1 1170 __ bind(l_2);
aoqi@1 1171 // __ movl(edx, Address(esi));
aoqi@1 1172 __ lw(AT, T3, 0);
aoqi@1 1173 // __ movl(Address(esi, edi, Address::times_1), edx);
aoqi@1 1174 __ sw(AT, T0, 0);
aoqi@1 1175 // __ subl(esi, 4);
aoqi@1 1176 __ addi(T3, T3, -4);
aoqi@1 1177 __ addi(T0, T0, -4);
aoqi@1 1178 // __ decl(ecx);
aoqi@1 1179 __ addi(T1, T1, -1);
aoqi@1 1180 //__ jcc(Assembler::notEqual, l_2);
aoqi@1 1181 __ bne(T1, R0, l_2);
aoqi@1 1182 __ delayed()->nop();
aoqi@1 1183 if (is_oop) {
aoqi@1 1184 // __ jmp(l_stchk);
aoqi@1 1185 __ b( l_stchk);
aoqi@1 1186 __ delayed()->nop();
aoqi@1 1187 }
aoqi@1 1188 __ bind(l_4);
aoqi@1 1189 // __ cld();
aoqi@1 1190 // __ popl(edi);
aoqi@1 1191 // __ popl(esi);
aoqi@1 1192 // __ ret(0);
aoqi@1 1193 __ pop(T8);
aoqi@1 1194 __ pop(T1);
aoqi@1 1195 __ pop(T0);
aoqi@1 1196 __ pop(T3);
aoqi@1 1197 __ jr(RA);
aoqi@1 1198 __ delayed()->nop();
aoqi@1 1199 __ bind(l_3);
aoqi@1 1200 // __ rep_movl();
aoqi@1 1201 if (is_oop) {
aoqi@1 1202 __ bind(l_stchk);
aoqi@1 1203 // __ movl(edi, Address(esp, 8+ 8));
aoqi@1 1204 __ move(T0, A1);
aoqi@1 1205 // __ movl(ecx, Address(esp, 8+ 12));
aoqi@1 1206 __ move(T1, A2);
aoqi@1 1207 array_store_check();
aoqi@1 1208 }
aoqi@1 1209 // __ cld();
aoqi@1 1210 // __ popl(edi);
aoqi@1 1211 // __ popl(esi);
aoqi@1 1212 // __ ret(0);
aoqi@1 1213 __ pop(T8);
aoqi@1 1214 __ pop(T1);
aoqi@1 1215 __ pop(T0);
aoqi@1 1216 __ pop(T3);
aoqi@1 1217 __ jr(RA);
aoqi@1 1218 __ delayed()->nop();
aoqi@1 1219 return start;
aoqi@1 1220 }
aoqi@1 1221
aoqi@1 1222 // Arguments:
aoqi@1 1223 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 1224 // ignored
aoqi@1 1225 // is_oop - true => oop array, so generate store check code
aoqi@1 1226 // name - stub name string
aoqi@1 1227 //
aoqi@1 1228 // Inputs:
aoqi@1 1229 // c_rarg0 - source array address
aoqi@1 1230 // c_rarg1 - destination array address
aoqi@1 1231 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1232 //
aoqi@1 1233 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
aoqi@1 1234 // the hardware handle it. The two dwords within qwords that span
aoqi@1 1235 // cache line boundaries will still be loaded and stored atomicly.
aoqi@1 1236 //
aoqi@1 1237 // Side Effects:
aoqi@1 1238 // disjoint_int_copy_entry is set to the no-overlap entry point
aoqi@1 1239 // used by generate_conjoint_int_oop_copy().
aoqi@1 1240 //
aoqi@1 1241 address generate_disjoint_long_oop_copy(bool aligned, bool is_oop, const char *name) {
aoqi@1 1242 Label l_2, l_3, l_4, l_stchk;
aoqi@1 1243 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1244 __ align(CodeEntryAlignment);
aoqi@1 1245 address start = __ pc();
aoqi@1 1246 __ push(T3);
aoqi@1 1247 __ push(T0);
aoqi@1 1248 __ push(T1);
aoqi@1 1249 __ push(T8);
aoqi@1 1250 __ move(T1, A2);
aoqi@1 1251 __ move(T3, A0);
aoqi@1 1252 __ move(T0, A1);
aoqi@1 1253
aoqi@1 1254 // __ cmpl(ecx, 32);
aoqi@1 1255 // __ jcc(Assembler::belowEqual, l_2); // <= 32 dwords
aoqi@1 1256 // __ rep_movl();
aoqi@1 1257 __ b(l_2);
aoqi@1 1258 __ delayed()->nop();
aoqi@1 1259 if (is_oop) {
aoqi@1 1260 // __ jmp(l_stchk);
aoqi@1 1261 __ b(l_stchk);
aoqi@1 1262 __ delayed()->nop();
aoqi@1 1263 }
aoqi@1 1264 // __ popl(edi);
aoqi@1 1265 // __ popl(esi);
aoqi@1 1266 // __ ret(0);
aoqi@1 1267 __ pop(T8);
aoqi@1 1268 __ pop(T1);
aoqi@1 1269 __ pop(T0);
aoqi@1 1270 __ pop(T3);
aoqi@1 1271 __ jr(RA);
aoqi@1 1272 __ delayed()->nop();
aoqi@1 1273
aoqi@1 1274 __ bind(l_2);
aoqi@1 1275 // __ subl(edi, esi);
aoqi@1 1276 // __ testl(ecx, ecx);
aoqi@1 1277 // __ jcc(Assembler::zero, l_4);
aoqi@1 1278 __ beq(T1, R0, l_4);
aoqi@1 1279 __ delayed()->nop();
aoqi@1 1280 __ align(16);
aoqi@1 1281 __ bind(l_3);
aoqi@1 1282 //__ movl(edx, Address(esi));
aoqi@1 1283 __ ld(AT, T3, 0);
aoqi@1 1284 // __ movl(Address(edi, esi, Address::times_1), edx);
aoqi@1 1285 __ sd(AT, T0, 0);
aoqi@1 1286 // __ addl(esi, 4);
aoqi@1 1287 __ addi(T3, T3, 8);
aoqi@1 1288 __ addi(T0, T0, 8);
aoqi@1 1289 // __ decl(ecx);
aoqi@1 1290 __ addi(T1, T1, -1);
aoqi@1 1291 // __ jcc(Assembler::notEqual, l_3);
aoqi@1 1292 __ bne(T1, R0, l_3);
aoqi@1 1293 __ delayed()->nop();
aoqi@1 1294 if (is_oop) {
aoqi@1 1295 __ bind(l_stchk);
aoqi@1 1296 // __ movl(edi, Address(esp, 8+ 8));
aoqi@1 1297 // __ movl(ecx, Address(esp, 8+ 12));
aoqi@1 1298 __ move(T0, A1);
aoqi@1 1299 __ move(T1, A2);
aoqi@1 1300 array_store_check();
aoqi@1 1301 }
aoqi@1 1302 __ bind(l_4);
aoqi@1 1303 // __ popl(edi);
aoqi@1 1304 // __ popl(esi);
aoqi@1 1305 // __ ret(0);
aoqi@1 1306 __ pop(T8);
aoqi@1 1307 __ pop(T1);
aoqi@1 1308 __ pop(T0);
aoqi@1 1309 __ pop(T3);
aoqi@1 1310 __ jr(RA);
aoqi@1 1311 __ delayed()->nop();
aoqi@1 1312 return start;
aoqi@1 1313 }
aoqi@1 1314
aoqi@1 1315 // Arguments:
aoqi@1 1316 // aligned - true => Input and output aligned on a HeapWord == 8-byte boundary
aoqi@1 1317 // ignored
aoqi@1 1318 // is_oop - true => oop array, so generate store check code
aoqi@1 1319 // name - stub name string
aoqi@1 1320 //
aoqi@1 1321 // Inputs:
aoqi@1 1322 // c_rarg0 - source array address
aoqi@1 1323 // c_rarg1 - destination array address
aoqi@1 1324 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1325 //
aoqi@1 1326 // If 'from' and/or 'to' are aligned on 4-byte boundaries, we let
aoqi@1 1327 // the hardware handle it. The two dwords within qwords that span
aoqi@1 1328 // cache line boundaries will still be loaded and stored atomicly.
aoqi@1 1329 //
aoqi@1 1330 address generate_conjoint_long_oop_copy(bool aligned, bool is_oop, const char *name) {
aoqi@1 1331 Label l_2, l_3, l_4, l_stchk;
aoqi@1 1332 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1333 __ align(CodeEntryAlignment);
aoqi@1 1334 address start = __ pc();
aoqi@1 1335 address nooverlap_target;
aoqi@1 1336
aoqi@1 1337 if (is_oop) {
aoqi@1 1338 nooverlap_target = aligned ?
aoqi@1 1339 StubRoutines::arrayof_oop_disjoint_arraycopy() :
aoqi@1 1340 StubRoutines::oop_disjoint_arraycopy();
aoqi@1 1341 }else {
aoqi@1 1342 nooverlap_target = aligned ?
aoqi@1 1343 StubRoutines::arrayof_jlong_disjoint_arraycopy() :
aoqi@1 1344 StubRoutines::jlong_disjoint_arraycopy();
aoqi@1 1345 }
aoqi@1 1346
aoqi@1 1347 array_overlap_test(nooverlap_target, 3);
aoqi@1 1348
aoqi@1 1349 __ push(T3);
aoqi@1 1350 __ push(T0);
aoqi@1 1351 __ push(T1);
aoqi@1 1352 __ push(T8);
aoqi@1 1353
aoqi@1 1354 __ move(T1, A2);
aoqi@1 1355 __ move(T3, A0);
aoqi@1 1356 __ move(T0, A1);
aoqi@1 1357
aoqi@1 1358 //__ leal(esi, Address(esi, ecx, Address::times_4, -4)); // from + count*4 - 4
aoqi@1 1359 __ sll(AT, T1, Address::times_8);
aoqi@1 1360 __ add(AT, T3, AT);
aoqi@1 1361 __ lea(T3 , Address(AT, -8));
aoqi@1 1362 //__ std();
aoqi@1 1363 //__ leal(edi, Address(edi, ecx, Address::times_4, -4)); // to + count*4 - 4
aoqi@1 1364 __ sll(AT, T1, Address::times_8);
aoqi@1 1365 __ add(AT, T0, AT);
aoqi@1 1366 __ lea(T0 , Address(AT, -8));
aoqi@1 1367
aoqi@1 1368 // __ cmpl(ecx, 32);
aoqi@1 1369 // __ jcc(Assembler::above, l_3); // > 32 dwords
aoqi@1 1370 // __ testl(ecx, ecx);
aoqi@1 1371 //__ jcc(Assembler::zero, l_4);
aoqi@1 1372 __ beq(T1, R0, l_4);
aoqi@1 1373 __ delayed()->nop();
aoqi@1 1374 // __ subl(edi, esi);
aoqi@1 1375 __ align(16);
aoqi@1 1376 __ bind(l_2);
aoqi@1 1377 // __ movl(edx, Address(esi));
aoqi@1 1378 __ ld(AT, T3, 0);
aoqi@1 1379 // __ movl(Address(esi, edi, Address::times_1), edx);
aoqi@1 1380 __ sd(AT, T0, 0);
aoqi@1 1381 // __ subl(esi, 4);
aoqi@1 1382 __ addi(T3, T3, -8);
aoqi@1 1383 __ addi(T0, T0, -8);
aoqi@1 1384 // __ decl(ecx);
aoqi@1 1385 __ addi(T1, T1, -1);
aoqi@1 1386 //__ jcc(Assembler::notEqual, l_2);
aoqi@1 1387 __ bne(T1, R0, l_2);
aoqi@1 1388 __ delayed()->nop();
aoqi@1 1389 if (is_oop) {
aoqi@1 1390 // __ jmp(l_stchk);
aoqi@1 1391 __ b( l_stchk);
aoqi@1 1392 __ delayed()->nop();
aoqi@1 1393 }
aoqi@1 1394 __ bind(l_4);
aoqi@1 1395 // __ cld();
aoqi@1 1396 // __ popl(edi);
aoqi@1 1397 // __ popl(esi);
aoqi@1 1398 // __ ret(0);
aoqi@1 1399 __ pop(T8);
aoqi@1 1400 __ pop(T1);
aoqi@1 1401 __ pop(T0);
aoqi@1 1402 __ pop(T3);
aoqi@1 1403 __ jr(RA);
aoqi@1 1404 __ delayed()->nop();
aoqi@1 1405 __ bind(l_3);
aoqi@1 1406 // __ rep_movl();
aoqi@1 1407 if (is_oop) {
aoqi@1 1408 __ bind(l_stchk);
aoqi@1 1409 // __ movl(edi, Address(esp, 8+ 8));
aoqi@1 1410 __ move(T0, A1);
aoqi@1 1411 // __ movl(ecx, Address(esp, 8+ 12));
aoqi@1 1412 __ move(T1, A2);
aoqi@1 1413 array_store_check();
aoqi@1 1414 }
aoqi@1 1415 // __ cld();
aoqi@1 1416 // __ popl(edi);
aoqi@1 1417 // __ popl(esi);
aoqi@1 1418 // __ ret(0);
aoqi@1 1419 __ pop(T8);
aoqi@1 1420 __ pop(T1);
aoqi@1 1421 __ pop(T0);
aoqi@1 1422 __ pop(T3);
aoqi@1 1423 __ jr(RA);
aoqi@1 1424 __ delayed()->nop();
aoqi@1 1425 return start;
aoqi@1 1426 }
aoqi@1 1427 #if 0
aoqi@1 1428 // Arguments:
aoqi@1 1429 // aligned - true => Input and output aligned on a HeapWord boundary == 8 bytes
aoqi@1 1430 // ignored
aoqi@1 1431 // is_oop - true => oop array, so generate store check code
aoqi@1 1432 // name - stub name string
aoqi@1 1433 //
aoqi@1 1434 // Inputs:
aoqi@1 1435 // c_rarg0 - source array address
aoqi@1 1436 // c_rarg1 - destination array address
aoqi@1 1437 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1438 //
aoqi@1 1439 address generate_conjoint_long_oop_copy(bool aligned, bool is_oop, const char *name) {
aoqi@1 1440 __ align(CodeEntryAlignment);
aoqi@1 1441 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1442 address start = __ pc();
aoqi@1 1443
aoqi@1 1444 Label L_copy_32_bytes, L_copy_8_bytes, L_exit;
aoqi@1 1445 const Register from = rdi; // source array address
aoqi@1 1446 const Register to = rsi; // destination array address
aoqi@1 1447 const Register qword_count = rdx; // elements count
aoqi@1 1448 const Register saved_count = rcx;
aoqi@1 1449
aoqi@1 1450 __ enter(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1451 assert_clean_int(c_rarg2, rax); // Make sure 'count' is clean int.
aoqi@1 1452
aoqi@1 1453 address disjoint_copy_entry = NULL;
aoqi@1 1454 if (is_oop) {
aoqi@1 1455 assert(!UseCompressedOops, "shouldn't be called for compressed oops");
aoqi@1 1456 disjoint_copy_entry = disjoint_oop_copy_entry;
aoqi@1 1457 oop_copy_entry = __ pc();
aoqi@1 1458 array_overlap_test(disjoint_oop_copy_entry, Address::times_8);
aoqi@1 1459 } else {
aoqi@1 1460 disjoint_copy_entry = disjoint_long_copy_entry;
aoqi@1 1461 long_copy_entry = __ pc();
aoqi@1 1462 array_overlap_test(disjoint_long_copy_entry, Address::times_8);
aoqi@1 1463 }
aoqi@1 1464 BLOCK_COMMENT("Entry:");
aoqi@1 1465 // caller can pass a 64-bit byte count here (from Unsafe.copyMemory)
aoqi@1 1466
aoqi@1 1467 array_overlap_test(disjoint_copy_entry, Address::times_8);
aoqi@1 1468 setup_arg_regs(); // from => rdi, to => rsi, count => rdx
aoqi@1 1469 // r9 and r10 may be used to save non-volatile registers
aoqi@1 1470
aoqi@1 1471 // 'from', 'to' and 'qword_count' are now valid
aoqi@1 1472
aoqi@1 1473 if (is_oop) {
aoqi@1 1474 // Save to and count for store barrier
aoqi@1 1475 __ movptr(saved_count, qword_count);
aoqi@1 1476 // No registers are destroyed by this call
aoqi@1 1477 gen_write_ref_array_pre_barrier(to, saved_count);
aoqi@1 1478 }
aoqi@1 1479
aoqi@1 1480 __ jmp(L_copy_32_bytes);
aoqi@1 1481
aoqi@1 1482 // Copy trailing qwords
aoqi@1 1483 __ BIND(L_copy_8_bytes);
aoqi@1 1484 __ movq(rax, Address(from, qword_count, Address::times_8, -8));
aoqi@1 1485 __ movq(Address(to, qword_count, Address::times_8, -8), rax);
aoqi@1 1486 __ decrement(qword_count);
aoqi@1 1487 __ jcc(Assembler::notZero, L_copy_8_bytes);
aoqi@1 1488
aoqi@1 1489 if (is_oop) {
aoqi@1 1490 __ jmp(L_exit);
aoqi@1 1491 } else {
aoqi@1 1492 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr);
aoqi@1 1493 restore_arg_regs();
aoqi@1 1494 __ xorptr(rax, rax); // return 0
aoqi@1 1495 __ leave(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1496 __ ret(0);
aoqi@1 1497 }
aoqi@1 1498
aoqi@1 1499 // Copy in 32-bytes chunks
aoqi@1 1500 copy_32_bytes_backward(from, to, qword_count, rax, L_copy_32_bytes, L_copy_8_bytes);
aoqi@1 1501
aoqi@1 1502 if (is_oop) {
aoqi@1 1503 __ BIND(L_exit);
aoqi@1 1504 __ lea(rcx, Address(to, saved_count, Address::times_8, -8));
aoqi@1 1505 gen_write_ref_array_post_barrier(to, rcx, rax);
aoqi@1 1506 inc_counter_np(SharedRuntime::_oop_array_copy_ctr);
aoqi@1 1507 } else {
aoqi@1 1508 inc_counter_np(SharedRuntime::_jlong_array_copy_ctr);
aoqi@1 1509 }
aoqi@1 1510 restore_arg_regs();
aoqi@1 1511 __ xorptr(rax, rax); // return 0
aoqi@1 1512 __ leave(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1513 __ ret(0);
aoqi@1 1514
aoqi@1 1515 return start;
aoqi@1 1516 }
aoqi@1 1517
aoqi@1 1518
aoqi@1 1519 // Helper for generating a dynamic type check.
aoqi@1 1520 // Smashes no registers.
aoqi@1 1521 void generate_type_check(Register sub_klass,
aoqi@1 1522 Register super_check_offset,
aoqi@1 1523 Register super_klass,
aoqi@1 1524 Label& L_success) {
aoqi@1 1525 assert_different_registers(sub_klass, super_check_offset, super_klass);
aoqi@1 1526
aoqi@1 1527 BLOCK_COMMENT("type_check:");
aoqi@1 1528
aoqi@1 1529 Label L_miss;
aoqi@1 1530
aoqi@1 1531 // a couple of useful fields in sub_klass:
aoqi@1 1532 int ss_offset = (klassOopDesc::header_size() * HeapWordSize +
aoqi@1 1533 Klass::secondary_supers_offset_in_bytes());
aoqi@1 1534 int sc_offset = (klassOopDesc::header_size() * HeapWordSize +
aoqi@1 1535 Klass::secondary_super_cache_offset_in_bytes());
aoqi@1 1536 Address secondary_supers_addr(sub_klass, ss_offset);
aoqi@1 1537 Address super_cache_addr( sub_klass, sc_offset);
aoqi@1 1538
aoqi@1 1539 // if the pointers are equal, we are done (e.g., String[] elements)
aoqi@1 1540 __ cmpptr(super_klass, sub_klass);
aoqi@1 1541 __ jcc(Assembler::equal, L_success);
aoqi@1 1542
aoqi@1 1543 // check the supertype display:
aoqi@1 1544 Address super_check_addr(sub_klass, super_check_offset, Address::times_1, 0);
aoqi@1 1545 __ cmpptr(super_klass, super_check_addr); // test the super type
aoqi@1 1546 __ jcc(Assembler::equal, L_success);
aoqi@1 1547
aoqi@1 1548 // if it was a primary super, we can just fail immediately
aoqi@1 1549 __ cmpl(super_check_offset, sc_offset);
aoqi@1 1550 __ jcc(Assembler::notEqual, L_miss);
aoqi@1 1551
aoqi@1 1552 // Now do a linear scan of the secondary super-klass chain.
aoqi@1 1553 // The repne_scan instruction uses fixed registers, which we must spill.
aoqi@1 1554 // (We need a couple more temps in any case.)
aoqi@1 1555 // This code is rarely used, so simplicity is a virtue here.
aoqi@1 1556 inc_counter_np(SharedRuntime::_partial_subtype_ctr);
aoqi@1 1557 {
aoqi@1 1558 __ push(rax);
aoqi@1 1559 __ push(rcx);
aoqi@1 1560 __ push(rdi);
aoqi@1 1561 assert_different_registers(sub_klass, super_klass, rax, rcx, rdi);
aoqi@1 1562
aoqi@1 1563 __ movptr(rdi, secondary_supers_addr);
aoqi@1 1564 // Load the array length.
aoqi@1 1565 __ movl(rcx, Address(rdi, arrayOopDesc::length_offset_in_bytes()));
aoqi@1 1566 // Skip to start of data.
aoqi@1 1567 __ addptr(rdi, arrayOopDesc::base_offset_in_bytes(T_OBJECT));
aoqi@1 1568 // Scan rcx words at [rdi] for occurance of rax
aoqi@1 1569 // Set NZ/Z based on last compare
aoqi@1 1570 __ movptr(rax, super_klass);
aoqi@1 1571 if (UseCompressedOops) {
aoqi@1 1572 // Compare against compressed form. Don't need to uncompress because
aoqi@1 1573 // looks like orig rax is restored in popq below.
aoqi@1 1574 __ encode_heap_oop(rax);
aoqi@1 1575 __ repne_scanl();
aoqi@1 1576 } else {
aoqi@1 1577 __ repne_scan();
aoqi@1 1578 }
aoqi@1 1579
aoqi@1 1580 // Unspill the temp. registers:
aoqi@1 1581 __ pop(rdi);
aoqi@1 1582 __ pop(rcx);
aoqi@1 1583 __ pop(rax);
aoqi@1 1584
aoqi@1 1585 __ jcc(Assembler::notEqual, L_miss);
aoqi@1 1586 }
aoqi@1 1587
aoqi@1 1588 // Success. Cache the super we found and proceed in triumph.
aoqi@1 1589 __ movptr(super_cache_addr, super_klass); // note: rax is dead
aoqi@1 1590 __ jmp(L_success);
aoqi@1 1591
aoqi@1 1592 // Fall through on failure!
aoqi@1 1593 __ BIND(L_miss);
aoqi@1 1594 }
aoqi@1 1595
aoqi@1 1596 //
aoqi@1 1597 // Generate checkcasting array copy stub
aoqi@1 1598 //
aoqi@1 1599 // Input:
aoqi@1 1600 // c_rarg0 - source array address
aoqi@1 1601 // c_rarg1 - destination array address
aoqi@1 1602 // c_rarg2 - element count, treated as ssize_t, can be zero
aoqi@1 1603 // c_rarg3 - size_t ckoff (super_check_offset)
aoqi@1 1604 // not Win64
aoqi@1 1605 // c_rarg4 - oop ckval (super_klass)
aoqi@1 1606 // Win64
aoqi@1 1607 // rsp+40 - oop ckval (super_klass)
aoqi@1 1608 //
aoqi@1 1609 // Output:
aoqi@1 1610 // rax == 0 - success
aoqi@1 1611 // rax == -1^K - failure, where K is partial transfer count
aoqi@1 1612 //
aoqi@1 1613 address generate_checkcast_copy(const char *name) {
aoqi@1 1614
aoqi@1 1615 Label L_load_element, L_store_element, L_do_card_marks, L_done;
aoqi@1 1616
aoqi@1 1617 // Input registers (after setup_arg_regs)
aoqi@1 1618 const Register from = rdi; // source array address
aoqi@1 1619 const Register to = rsi; // destination array address
aoqi@1 1620 const Register length = rdx; // elements count
aoqi@1 1621 const Register ckoff = rcx; // super_check_offset
aoqi@1 1622 const Register ckval = r8; // super_klass
aoqi@1 1623
aoqi@1 1624 // Registers used as temps (r13, r14 are save-on-entry)
aoqi@1 1625 const Register end_from = from; // source array end address
aoqi@1 1626 const Register end_to = r13; // destination array end address
aoqi@1 1627 const Register count = rdx; // -(count_remaining)
aoqi@1 1628 const Register r14_length = r14; // saved copy of length
aoqi@1 1629 // End pointers are inclusive, and if length is not zero they point
aoqi@1 1630 // to the last unit copied: end_to[0] := end_from[0]
aoqi@1 1631
aoqi@1 1632 const Register rax_oop = rax; // actual oop copied
aoqi@1 1633 const Register r11_klass = r11; // oop._klass
aoqi@1 1634
aoqi@1 1635 //---------------------------------------------------------------
aoqi@1 1636 // Assembler stub will be used for this call to arraycopy
aoqi@1 1637 // if the two arrays are subtypes of Object[] but the
aoqi@1 1638 // destination array type is not equal to or a supertype
aoqi@1 1639 // of the source type. Each element must be separately
aoqi@1 1640 // checked.
aoqi@1 1641
aoqi@1 1642 __ align(CodeEntryAlignment);
aoqi@1 1643 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1644 address start = __ pc();
aoqi@1 1645
aoqi@1 1646 __ enter(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1647
aoqi@1 1648 checkcast_copy_entry = __ pc();
aoqi@1 1649 BLOCK_COMMENT("Entry:");
aoqi@1 1650
aoqi@1 1651 #ifdef ASSERT
aoqi@1 1652 // caller guarantees that the arrays really are different
aoqi@1 1653 // otherwise, we would have to make conjoint checks
aoqi@1 1654 { Label L;
aoqi@1 1655 array_overlap_test(L, TIMES_OOP);
aoqi@1 1656 __ stop("checkcast_copy within a single array");
aoqi@1 1657 __ bind(L);
aoqi@1 1658 }
aoqi@1 1659 #endif //ASSERT
aoqi@1 1660
aoqi@1 1661 // allocate spill slots for r13, r14
aoqi@1 1662 enum {
aoqi@1 1663 saved_r13_offset,
aoqi@1 1664 saved_r14_offset,
aoqi@1 1665 saved_rbp_offset,
aoqi@1 1666 saved_rip_offset,
aoqi@1 1667 saved_rarg0_offset
aoqi@1 1668 };
aoqi@1 1669 __ subptr(rsp, saved_rbp_offset * wordSize);
aoqi@1 1670 __ movptr(Address(rsp, saved_r13_offset * wordSize), r13);
aoqi@1 1671 __ movptr(Address(rsp, saved_r14_offset * wordSize), r14);
aoqi@1 1672 setup_arg_regs(4); // from => rdi, to => rsi, length => rdx
aoqi@1 1673 // ckoff => rcx, ckval => r8
aoqi@1 1674 // r9 and r10 may be used to save non-volatile registers
aoqi@1 1675 #ifdef _WIN64
aoqi@1 1676 // last argument (#4) is on stack on Win64
aoqi@1 1677 const int ckval_offset = saved_rarg0_offset + 4;
aoqi@1 1678 __ movptr(ckval, Address(rsp, ckval_offset * wordSize));
aoqi@1 1679 #endif
aoqi@1 1680
aoqi@1 1681 // check that int operands are properly extended to size_t
aoqi@1 1682 assert_clean_int(length, rax);
aoqi@1 1683 assert_clean_int(ckoff, rax);
aoqi@1 1684
aoqi@1 1685 #ifdef ASSERT
aoqi@1 1686 BLOCK_COMMENT("assert consistent ckoff/ckval");
aoqi@1 1687 // The ckoff and ckval must be mutually consistent,
aoqi@1 1688 // even though caller generates both.
aoqi@1 1689 { Label L;
aoqi@1 1690 int sco_offset = (klassOopDesc::header_size() * HeapWordSize +
aoqi@1 1691 Klass::super_check_offset_offset_in_bytes());
aoqi@1 1692 __ cmpl(ckoff, Address(ckval, sco_offset));
aoqi@1 1693 __ jcc(Assembler::equal, L);
aoqi@1 1694 __ stop("super_check_offset inconsistent");
aoqi@1 1695 __ bind(L);
aoqi@1 1696 }
aoqi@1 1697 #endif //ASSERT
aoqi@1 1698
aoqi@1 1699 // Loop-invariant addresses. They are exclusive end pointers.
aoqi@1 1700 Address end_from_addr(from, length, TIMES_OOP, 0);
aoqi@1 1701 Address end_to_addr(to, length, TIMES_OOP, 0);
aoqi@1 1702 // Loop-variant addresses. They assume post-incremented count < 0.
aoqi@1 1703 Address from_element_addr(end_from, count, TIMES_OOP, 0);
aoqi@1 1704 Address to_element_addr(end_to, count, TIMES_OOP, 0);
aoqi@1 1705
aoqi@1 1706 gen_write_ref_array_pre_barrier(to, count);
aoqi@1 1707
aoqi@1 1708 // Copy from low to high addresses, indexed from the end of each array.
aoqi@1 1709 __ lea(end_from, end_from_addr);
aoqi@1 1710 __ lea(end_to, end_to_addr);
aoqi@1 1711 __ movptr(r14_length, length); // save a copy of the length
aoqi@1 1712 assert(length == count, ""); // else fix next line:
aoqi@1 1713 __ negptr(count); // negate and test the length
aoqi@1 1714 __ jcc(Assembler::notZero, L_load_element);
aoqi@1 1715
aoqi@1 1716 // Empty array: Nothing to do.
aoqi@1 1717 __ xorptr(rax, rax); // return 0 on (trivial) success
aoqi@1 1718 __ jmp(L_done);
aoqi@1 1719
aoqi@1 1720 // ======== begin loop ========
aoqi@1 1721 // (Loop is rotated; its entry is L_load_element.)
aoqi@1 1722 // Loop control:
aoqi@1 1723 // for (count = -count; count != 0; count++)
aoqi@1 1724 // Base pointers src, dst are biased by 8*(count-1),to last element.
aoqi@1 1725 __ align(16);
aoqi@1 1726
aoqi@1 1727 __ BIND(L_store_element);
aoqi@1 1728 __ store_heap_oop(rax_oop, to_element_addr); // store the oop
aoqi@1 1729 __ increment(count); // increment the count toward zero
aoqi@1 1730 __ jcc(Assembler::zero, L_do_card_marks);
aoqi@1 1731
aoqi@1 1732 // ======== loop entry is here ========
aoqi@1 1733 __ BIND(L_load_element);
aoqi@1 1734 __ load_heap_oop(rax_oop, from_element_addr); // load the oop
aoqi@1 1735 __ testptr(rax_oop, rax_oop);
aoqi@1 1736 __ jcc(Assembler::zero, L_store_element);
aoqi@1 1737
aoqi@1 1738 __ load_klass(r11_klass, rax_oop);// query the object klass
aoqi@1 1739 generate_type_check(r11_klass, ckoff, ckval, L_store_element);
aoqi@1 1740 // ======== end loop ========
aoqi@1 1741
aoqi@1 1742 // It was a real error; we must depend on the caller to finish the job.
aoqi@1 1743 // Register rdx = -1 * number of *remaining* oops, r14 = *total* oops.
aoqi@1 1744 // Emit GC store barriers for the oops we have copied (r14 + rdx),
aoqi@1 1745 // and report their number to the caller.
aoqi@1 1746 assert_different_registers(rax, r14_length, count, to, end_to, rcx);
aoqi@1 1747 __ lea(end_to, to_element_addr);
aoqi@1 1748 gen_write_ref_array_post_barrier(to, end_to, rscratch1);
aoqi@1 1749 __ movptr(rax, r14_length); // original oops
aoqi@1 1750 __ addptr(rax, count); // K = (original - remaining) oops
aoqi@1 1751 __ notptr(rax); // report (-1^K) to caller
aoqi@1 1752 __ jmp(L_done);
aoqi@1 1753
aoqi@1 1754 // Come here on success only.
aoqi@1 1755 __ BIND(L_do_card_marks);
aoqi@1 1756 __ addptr(end_to, -wordSize); // make an inclusive end pointer
aoqi@1 1757 gen_write_ref_array_post_barrier(to, end_to, rscratch1);
aoqi@1 1758 __ xorptr(rax, rax); // return 0 on success
aoqi@1 1759
aoqi@1 1760 // Common exit point (success or failure).
aoqi@1 1761 __ BIND(L_done);
aoqi@1 1762 __ movptr(r13, Address(rsp, saved_r13_offset * wordSize));
aoqi@1 1763 __ movptr(r14, Address(rsp, saved_r14_offset * wordSize));
aoqi@1 1764 inc_counter_np(SharedRuntime::_checkcast_array_copy_ctr);
aoqi@1 1765 restore_arg_regs();
aoqi@1 1766 __ leave(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1767 __ ret(0);
aoqi@1 1768
aoqi@1 1769 return start;
aoqi@1 1770 }
aoqi@1 1771
aoqi@1 1772 //
aoqi@1 1773 // Generate 'unsafe' array copy stub
aoqi@1 1774 // Though just as safe as the other stubs, it takes an unscaled
aoqi@1 1775 // size_t argument instead of an element count.
aoqi@1 1776 //
aoqi@1 1777 // Input:
aoqi@1 1778 // c_rarg0 - source array address
aoqi@1 1779 // c_rarg1 - destination array address
aoqi@1 1780 // c_rarg2 - byte count, treated as ssize_t, can be zero
aoqi@1 1781 //
aoqi@1 1782 // Examines the alignment of the operands and dispatches
aoqi@1 1783 // to a long, int, short, or byte copy loop.
aoqi@1 1784 //
aoqi@1 1785 address generate_unsafe_copy(const char *name) {
aoqi@1 1786
aoqi@1 1787 Label L_long_aligned, L_int_aligned, L_short_aligned;
aoqi@1 1788
aoqi@1 1789 // Input registers (before setup_arg_regs)
aoqi@1 1790 const Register from = c_rarg0; // source array address
aoqi@1 1791 const Register to = c_rarg1; // destination array address
aoqi@1 1792 const Register size = c_rarg2; // byte count (size_t)
aoqi@1 1793
aoqi@1 1794 // Register used as a temp
aoqi@1 1795 const Register bits = rax; // test copy of low bits
aoqi@1 1796
aoqi@1 1797 __ align(CodeEntryAlignment);
aoqi@1 1798 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1799 address start = __ pc();
aoqi@1 1800
aoqi@1 1801 __ enter(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1802
aoqi@1 1803 // bump this on entry, not on exit:
aoqi@1 1804 inc_counter_np(SharedRuntime::_unsafe_array_copy_ctr);
aoqi@1 1805
aoqi@1 1806 __ mov(bits, from);
aoqi@1 1807 __ orptr(bits, to);
aoqi@1 1808 __ orptr(bits, size);
aoqi@1 1809
aoqi@1 1810 __ testb(bits, BytesPerLong-1);
aoqi@1 1811 __ jccb(Assembler::zero, L_long_aligned);
aoqi@1 1812
aoqi@1 1813 __ testb(bits, BytesPerInt-1);
aoqi@1 1814 __ jccb(Assembler::zero, L_int_aligned);
aoqi@1 1815
aoqi@1 1816 __ testb(bits, BytesPerShort-1);
aoqi@1 1817 __ jump_cc(Assembler::notZero, RuntimeAddress(byte_copy_entry));
aoqi@1 1818
aoqi@1 1819 __ BIND(L_short_aligned);
aoqi@1 1820 __ shrptr(size, LogBytesPerShort); // size => short_count
aoqi@1 1821 __ jump(RuntimeAddress(short_copy_entry));
aoqi@1 1822
aoqi@1 1823 __ BIND(L_int_aligned);
aoqi@1 1824 __ shrptr(size, LogBytesPerInt); // size => int_count
aoqi@1 1825 __ jump(RuntimeAddress(int_copy_entry));
aoqi@1 1826
aoqi@1 1827 __ BIND(L_long_aligned);
aoqi@1 1828 __ shrptr(size, LogBytesPerLong); // size => qword_count
aoqi@1 1829 __ jump(RuntimeAddress(long_copy_entry));
aoqi@1 1830
aoqi@1 1831 return start;
aoqi@1 1832 }
aoqi@1 1833
aoqi@1 1834 // Perform range checks on the proposed arraycopy.
aoqi@1 1835 // Kills temp, but nothing else.
aoqi@1 1836 // Also, clean the sign bits of src_pos and dst_pos.
aoqi@1 1837 void arraycopy_range_checks(Register src, // source array oop (c_rarg0)
aoqi@1 1838 Register src_pos, // source position (c_rarg1)
aoqi@1 1839 Register dst, // destination array oo (c_rarg2)
aoqi@1 1840 Register dst_pos, // destination position (c_rarg3)
aoqi@1 1841 Register length,
aoqi@1 1842 Register temp,
aoqi@1 1843 Label& L_failed) {
aoqi@1 1844 BLOCK_COMMENT("arraycopy_range_checks:");
aoqi@1 1845
aoqi@1 1846 // if (src_pos + length > arrayOop(src)->length()) FAIL;
aoqi@1 1847 __ movl(temp, length);
aoqi@1 1848 __ addl(temp, src_pos); // src_pos + length
aoqi@1 1849 __ cmpl(temp, Address(src, arrayOopDesc::length_offset_in_bytes()));
aoqi@1 1850 __ jcc(Assembler::above, L_failed);
aoqi@1 1851
aoqi@1 1852 // if (dst_pos + length > arrayOop(dst)->length()) FAIL;
aoqi@1 1853 __ movl(temp, length);
aoqi@1 1854 __ addl(temp, dst_pos); // dst_pos + length
aoqi@1 1855 __ cmpl(temp, Address(dst, arrayOopDesc::length_offset_in_bytes()));
aoqi@1 1856 __ jcc(Assembler::above, L_failed);
aoqi@1 1857
aoqi@1 1858 // Have to clean up high 32-bits of 'src_pos' and 'dst_pos'.
aoqi@1 1859 // Move with sign extension can be used since they are positive.
aoqi@1 1860 __ movslq(src_pos, src_pos);
aoqi@1 1861 __ movslq(dst_pos, dst_pos);
aoqi@1 1862
aoqi@1 1863 BLOCK_COMMENT("arraycopy_range_checks done");
aoqi@1 1864 }
aoqi@1 1865
aoqi@1 1866 //
aoqi@1 1867 // Generate generic array copy stubs
aoqi@1 1868 //
aoqi@1 1869 // Input:
aoqi@1 1870 // c_rarg0 - src oop
aoqi@1 1871 // c_rarg1 - src_pos (32-bits)
aoqi@1 1872 // c_rarg2 - dst oop
aoqi@1 1873 // c_rarg3 - dst_pos (32-bits)
aoqi@1 1874 // not Win64
aoqi@1 1875 // c_rarg4 - element count (32-bits)
aoqi@1 1876 // Win64
aoqi@1 1877 // rsp+40 - element count (32-bits)
aoqi@1 1878 //
aoqi@1 1879 // Output:
aoqi@1 1880 // rax == 0 - success
aoqi@1 1881 // rax == -1^K - failure, where K is partial transfer count
aoqi@1 1882 //
aoqi@1 1883 address generate_generic_copy(const char *name) {
aoqi@1 1884
aoqi@1 1885 Label L_failed, L_failed_0, L_objArray;
aoqi@1 1886 Label L_copy_bytes, L_copy_shorts, L_copy_ints, L_copy_longs;
aoqi@1 1887
aoqi@1 1888 // Input registers
aoqi@1 1889 const Register src = c_rarg0; // source array oop
aoqi@1 1890 const Register src_pos = c_rarg1; // source position
aoqi@1 1891 const Register dst = c_rarg2; // destination array oop
aoqi@1 1892 const Register dst_pos = c_rarg3; // destination position
aoqi@1 1893 // elements count is on stack on Win64
aoqi@1 1894 #ifdef _WIN64
aoqi@1 1895 #define C_RARG4 Address(rsp, 6 * wordSize)
aoqi@1 1896 #else
aoqi@1 1897 #define C_RARG4 c_rarg4
aoqi@1 1898 #endif
aoqi@1 1899
aoqi@1 1900 { int modulus = CodeEntryAlignment;
aoqi@1 1901 int target = modulus - 5; // 5 = sizeof jmp(L_failed)
aoqi@1 1902 int advance = target - (__ offset() % modulus);
aoqi@1 1903 if (advance < 0) advance += modulus;
aoqi@1 1904 if (advance > 0) __ nop(advance);
aoqi@1 1905 }
aoqi@1 1906 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 1907
aoqi@1 1908 // Short-hop target to L_failed. Makes for denser prologue code.
aoqi@1 1909 __ BIND(L_failed_0);
aoqi@1 1910 __ jmp(L_failed);
aoqi@1 1911 assert(__ offset() % CodeEntryAlignment == 0, "no further alignment needed");
aoqi@1 1912
aoqi@1 1913 __ align(CodeEntryAlignment);
aoqi@1 1914 address start = __ pc();
aoqi@1 1915
aoqi@1 1916 __ enter(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 1917
aoqi@1 1918 // bump this on entry, not on exit:
aoqi@1 1919 inc_counter_np(SharedRuntime::_generic_array_copy_ctr);
aoqi@1 1920
aoqi@1 1921 //-----------------------------------------------------------------------
aoqi@1 1922 // Assembler stub will be used for this call to arraycopy
aoqi@1 1923 // if the following conditions are met:
aoqi@1 1924 //
aoqi@1 1925 // (1) src and dst must not be null.
aoqi@1 1926 // (2) src_pos must not be negative.
aoqi@1 1927 // (3) dst_pos must not be negative.
aoqi@1 1928 // (4) length must not be negative.
aoqi@1 1929 // (5) src klass and dst klass should be the same and not NULL.
aoqi@1 1930 // (6) src and dst should be arrays.
aoqi@1 1931 // (7) src_pos + length must not exceed length of src.
aoqi@1 1932 // (8) dst_pos + length must not exceed length of dst.
aoqi@1 1933 //
aoqi@1 1934
aoqi@1 1935 // if (src == NULL) return -1;
aoqi@1 1936 __ testptr(src, src); // src oop
aoqi@1 1937 size_t j1off = __ offset();
aoqi@1 1938 __ jccb(Assembler::zero, L_failed_0);
aoqi@1 1939
aoqi@1 1940 // if (src_pos < 0) return -1;
aoqi@1 1941 __ testl(src_pos, src_pos); // src_pos (32-bits)
aoqi@1 1942 __ jccb(Assembler::negative, L_failed_0);
aoqi@1 1943
aoqi@1 1944 // if (dst == NULL) return -1;
aoqi@1 1945 __ testptr(dst, dst); // dst oop
aoqi@1 1946 __ jccb(Assembler::zero, L_failed_0);
aoqi@1 1947
aoqi@1 1948 // if (dst_pos < 0) return -1;
aoqi@1 1949 __ testl(dst_pos, dst_pos); // dst_pos (32-bits)
aoqi@1 1950 size_t j4off = __ offset();
aoqi@1 1951 __ jccb(Assembler::negative, L_failed_0);
aoqi@1 1952
aoqi@1 1953 // The first four tests are very dense code,
aoqi@1 1954 // but not quite dense enough to put four
aoqi@1 1955 // jumps in a 16-byte instruction fetch buffer.
aoqi@1 1956 // That's good, because some branch predicters
aoqi@1 1957 // do not like jumps so close together.
aoqi@1 1958 // Make sure of this.
aoqi@1 1959 guarantee(((j1off ^ j4off) & ~15) != 0, "I$ line of 1st & 4th jumps");
aoqi@1 1960
aoqi@1 1961 // registers used as temp
aoqi@1 1962 const Register r11_length = r11; // elements count to copy
aoqi@1 1963 const Register r10_src_klass = r10; // array klass
aoqi@1 1964 const Register r9_dst_klass = r9; // dest array klass
aoqi@1 1965
aoqi@1 1966 // if (length < 0) return -1;
aoqi@1 1967 __ movl(r11_length, C_RARG4); // length (elements count, 32-bits value)
aoqi@1 1968 __ testl(r11_length, r11_length);
aoqi@1 1969 __ jccb(Assembler::negative, L_failed_0);
aoqi@1 1970
aoqi@1 1971 __ load_klass(r10_src_klass, src);
aoqi@1 1972 #ifdef ASSERT
aoqi@1 1973 // assert(src->klass() != NULL);
aoqi@1 1974 BLOCK_COMMENT("assert klasses not null");
aoqi@1 1975 { Label L1, L2;
aoqi@1 1976 __ testptr(r10_src_klass, r10_src_klass);
aoqi@1 1977 __ jcc(Assembler::notZero, L2); // it is broken if klass is NULL
aoqi@1 1978 __ bind(L1);
aoqi@1 1979 __ stop("broken null klass");
aoqi@1 1980 __ bind(L2);
aoqi@1 1981 __ load_klass(r9_dst_klass, dst);
aoqi@1 1982 __ cmpq(r9_dst_klass, 0);
aoqi@1 1983 __ jcc(Assembler::equal, L1); // this would be broken also
aoqi@1 1984 BLOCK_COMMENT("assert done");
aoqi@1 1985 }
aoqi@1 1986 #endif
aoqi@1 1987
aoqi@1 1988 // Load layout helper (32-bits)
aoqi@1 1989 //
aoqi@1 1990 // |array_tag| | header_size | element_type | |log2_element_size|
aoqi@1 1991 // 32 30 24 16 8 2 0
aoqi@1 1992 //
aoqi@1 1993 // array_tag: typeArray = 0x3, objArray = 0x2, non-array = 0x0
aoqi@1 1994 //
aoqi@1 1995
aoqi@1 1996 int lh_offset = klassOopDesc::header_size() * HeapWordSize +
aoqi@1 1997 Klass::layout_helper_offset_in_bytes();
aoqi@1 1998
aoqi@1 1999 const Register rax_lh = rax; // layout helper
aoqi@1 2000
aoqi@1 2001 __ movl(rax_lh, Address(r10_src_klass, lh_offset));
aoqi@1 2002
aoqi@1 2003 // Handle objArrays completely differently...
aoqi@1 2004 jint objArray_lh = Klass::array_layout_helper(T_OBJECT);
aoqi@1 2005 __ cmpl(rax_lh, objArray_lh);
aoqi@1 2006 __ jcc(Assembler::equal, L_objArray);
aoqi@1 2007
aoqi@1 2008 // if (src->klass() != dst->klass()) return -1;
aoqi@1 2009 __ load_klass(r9_dst_klass, dst);
aoqi@1 2010 __ cmpq(r10_src_klass, r9_dst_klass);
aoqi@1 2011 __ jcc(Assembler::notEqual, L_failed);
aoqi@1 2012
aoqi@1 2013 // if (!src->is_Array()) return -1;
aoqi@1 2014 __ cmpl(rax_lh, Klass::_lh_neutral_value);
aoqi@1 2015 __ jcc(Assembler::greaterEqual, L_failed);
aoqi@1 2016
aoqi@1 2017 // At this point, it is known to be a typeArray (array_tag 0x3).
aoqi@1 2018 #ifdef ASSERT
aoqi@1 2019 { Label L;
aoqi@1 2020 __ cmpl(rax_lh, (Klass::_lh_array_tag_type_value << Klass::_lh_array_tag_shift));
aoqi@1 2021 __ jcc(Assembler::greaterEqual, L);
aoqi@1 2022 __ stop("must be a primitive array");
aoqi@1 2023 __ bind(L);
aoqi@1 2024 }
aoqi@1 2025 #endif
aoqi@1 2026
aoqi@1 2027 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
aoqi@1 2028 r10, L_failed);
aoqi@1 2029
aoqi@1 2030 // typeArrayKlass
aoqi@1 2031 //
aoqi@1 2032 // src_addr = (src + array_header_in_bytes()) + (src_pos << log2elemsize);
aoqi@1 2033 // dst_addr = (dst + array_header_in_bytes()) + (dst_pos << log2elemsize);
aoqi@1 2034 //
aoqi@1 2035
aoqi@1 2036 const Register r10_offset = r10; // array offset
aoqi@1 2037 const Register rax_elsize = rax_lh; // element size
aoqi@1 2038
aoqi@1 2039 __ movl(r10_offset, rax_lh);
aoqi@1 2040 __ shrl(r10_offset, Klass::_lh_header_size_shift);
aoqi@1 2041 __ andptr(r10_offset, Klass::_lh_header_size_mask); // array_offset
aoqi@1 2042 __ addptr(src, r10_offset); // src array offset
aoqi@1 2043 __ addptr(dst, r10_offset); // dst array offset
aoqi@1 2044 BLOCK_COMMENT("choose copy loop based on element size");
aoqi@1 2045 __ andl(rax_lh, Klass::_lh_log2_element_size_mask); // rax_lh -> rax_elsize
aoqi@1 2046
aoqi@1 2047 // next registers should be set before the jump to corresponding stub
aoqi@1 2048 const Register from = c_rarg0; // source array address
aoqi@1 2049 const Register to = c_rarg1; // destination array address
aoqi@1 2050 const Register count = c_rarg2; // elements count
aoqi@1 2051
aoqi@1 2052 // 'from', 'to', 'count' registers should be set in such order
aoqi@1 2053 // since they are the same as 'src', 'src_pos', 'dst'.
aoqi@1 2054
aoqi@1 2055 __ BIND(L_copy_bytes);
aoqi@1 2056 __ cmpl(rax_elsize, 0);
aoqi@1 2057 __ jccb(Assembler::notEqual, L_copy_shorts);
aoqi@1 2058 __ lea(from, Address(src, src_pos, Address::times_1, 0));// src_addr
aoqi@1 2059 __ lea(to, Address(dst, dst_pos, Address::times_1, 0));// dst_addr
aoqi@1 2060 __ movl2ptr(count, r11_length); // length
aoqi@1 2061 __ jump(RuntimeAddress(byte_copy_entry));
aoqi@1 2062
aoqi@1 2063 __ BIND(L_copy_shorts);
aoqi@1 2064 __ cmpl(rax_elsize, LogBytesPerShort);
aoqi@1 2065 __ jccb(Assembler::notEqual, L_copy_ints);
aoqi@1 2066 __ lea(from, Address(src, src_pos, Address::times_2, 0));// src_addr
aoqi@1 2067 __ lea(to, Address(dst, dst_pos, Address::times_2, 0));// dst_addr
aoqi@1 2068 __ movl2ptr(count, r11_length); // length
aoqi@1 2069 __ jump(RuntimeAddress(short_copy_entry));
aoqi@1 2070
aoqi@1 2071 __ BIND(L_copy_ints);
aoqi@1 2072 __ cmpl(rax_elsize, LogBytesPerInt);
aoqi@1 2073 __ jccb(Assembler::notEqual, L_copy_longs);
aoqi@1 2074 __ lea(from, Address(src, src_pos, Address::times_4, 0));// src_addr
aoqi@1 2075 __ lea(to, Address(dst, dst_pos, Address::times_4, 0));// dst_addr
aoqi@1 2076 __ movl2ptr(count, r11_length); // length
aoqi@1 2077 __ jump(RuntimeAddress(int_copy_entry));
aoqi@1 2078
aoqi@1 2079 __ BIND(L_copy_longs);
aoqi@1 2080 #ifdef ASSERT
aoqi@1 2081 { Label L;
aoqi@1 2082 __ cmpl(rax_elsize, LogBytesPerLong);
aoqi@1 2083 __ jcc(Assembler::equal, L);
aoqi@1 2084 __ stop("must be long copy, but elsize is wrong");
aoqi@1 2085 __ bind(L);
aoqi@1 2086 }
aoqi@1 2087 #endif
aoqi@1 2088 __ lea(from, Address(src, src_pos, Address::times_8, 0));// src_addr
aoqi@1 2089 __ lea(to, Address(dst, dst_pos, Address::times_8, 0));// dst_addr
aoqi@1 2090 __ movl2ptr(count, r11_length); // length
aoqi@1 2091 __ jump(RuntimeAddress(long_copy_entry));
aoqi@1 2092
aoqi@1 2093 // objArrayKlass
aoqi@1 2094 __ BIND(L_objArray);
aoqi@1 2095 // live at this point: r10_src_klass, src[_pos], dst[_pos]
aoqi@1 2096
aoqi@1 2097 Label L_plain_copy, L_checkcast_copy;
aoqi@1 2098 // test array classes for subtyping
aoqi@1 2099 __ load_klass(r9_dst_klass, dst);
aoqi@1 2100 __ cmpq(r10_src_klass, r9_dst_klass); // usual case is exact equality
aoqi@1 2101 __ jcc(Assembler::notEqual, L_checkcast_copy);
aoqi@1 2102
aoqi@1 2103 // Identically typed arrays can be copied without element-wise checks.
aoqi@1 2104 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
aoqi@1 2105 r10, L_failed);
aoqi@1 2106
aoqi@1 2107 __ lea(from, Address(src, src_pos, TIMES_OOP,
aoqi@1 2108 arrayOopDesc::base_offset_in_bytes(T_OBJECT))); // src_addr
aoqi@1 2109 __ lea(to, Address(dst, dst_pos, TIMES_OOP,
aoqi@1 2110 arrayOopDesc::base_offset_in_bytes(T_OBJECT))); // dst_addr
aoqi@1 2111 __ movl2ptr(count, r11_length); // length
aoqi@1 2112 __ BIND(L_plain_copy);
aoqi@1 2113 __ jump(RuntimeAddress(oop_copy_entry));
aoqi@1 2114
aoqi@1 2115 __ BIND(L_checkcast_copy);
aoqi@1 2116 // live at this point: r10_src_klass, !r11_length
aoqi@1 2117 {
aoqi@1 2118 // assert(r11_length == C_RARG4); // will reload from here
aoqi@1 2119 Register r11_dst_klass = r11;
aoqi@1 2120 __ load_klass(r11_dst_klass, dst);
aoqi@1 2121
aoqi@1 2122 // Before looking at dst.length, make sure dst is also an objArray.
aoqi@1 2123 __ cmpl(Address(r11_dst_klass, lh_offset), objArray_lh);
aoqi@1 2124 __ jcc(Assembler::notEqual, L_failed);
aoqi@1 2125
aoqi@1 2126 // It is safe to examine both src.length and dst.length.
aoqi@1 2127 #ifndef _WIN64
aoqi@1 2128 arraycopy_range_checks(src, src_pos, dst, dst_pos, C_RARG4,
aoqi@1 2129 rax, L_failed);
aoqi@1 2130 #else
aoqi@1 2131 __ movl(r11_length, C_RARG4); // reload
aoqi@1 2132 arraycopy_range_checks(src, src_pos, dst, dst_pos, r11_length,
aoqi@1 2133 rax, L_failed);
aoqi@1 2134 __ load_klass(r11_dst_klass, dst); // reload
aoqi@1 2135 #endif
aoqi@1 2136
aoqi@1 2137 // Marshal the base address arguments now, freeing registers.
aoqi@1 2138 __ lea(from, Address(src, src_pos, TIMES_OOP,
aoqi@1 2139 arrayOopDesc::base_offset_in_bytes(T_OBJECT)));
aoqi@1 2140 __ lea(to, Address(dst, dst_pos, TIMES_OOP,
aoqi@1 2141 arrayOopDesc::base_offset_in_bytes(T_OBJECT)));
aoqi@1 2142 __ movl(count, C_RARG4); // length (reloaded)
aoqi@1 2143 Register sco_temp = c_rarg3; // this register is free now
aoqi@1 2144 assert_different_registers(from, to, count, sco_temp,
aoqi@1 2145 r11_dst_klass, r10_src_klass);
aoqi@1 2146 assert_clean_int(count, sco_temp);
aoqi@1 2147
aoqi@1 2148 // Generate the type check.
aoqi@1 2149 int sco_offset = (klassOopDesc::header_size() * HeapWordSize +
aoqi@1 2150 Klass::super_check_offset_offset_in_bytes());
aoqi@1 2151 __ movl(sco_temp, Address(r11_dst_klass, sco_offset));
aoqi@1 2152 assert_clean_int(sco_temp, rax);
aoqi@1 2153 generate_type_check(r10_src_klass, sco_temp, r11_dst_klass, L_plain_copy);
aoqi@1 2154
aoqi@1 2155 // Fetch destination element klass from the objArrayKlass header.
aoqi@1 2156 int ek_offset = (klassOopDesc::header_size() * HeapWordSize +
aoqi@1 2157 objArrayKlass::element_klass_offset_in_bytes());
aoqi@1 2158 __ movptr(r11_dst_klass, Address(r11_dst_klass, ek_offset));
aoqi@1 2159 __ movl(sco_temp, Address(r11_dst_klass, sco_offset));
aoqi@1 2160 assert_clean_int(sco_temp, rax);
aoqi@1 2161
aoqi@1 2162 // the checkcast_copy loop needs two extra arguments:
aoqi@1 2163 assert(c_rarg3 == sco_temp, "#3 already in place");
aoqi@1 2164 __ movptr(C_RARG4, r11_dst_klass); // dst.klass.element_klass
aoqi@1 2165 __ jump(RuntimeAddress(checkcast_copy_entry));
aoqi@1 2166 }
aoqi@1 2167
aoqi@1 2168 __ BIND(L_failed);
aoqi@1 2169 __ xorptr(rax, rax);
aoqi@1 2170 __ notptr(rax); // return -1
aoqi@1 2171 __ leave(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 2172 __ ret(0);
aoqi@1 2173
aoqi@1 2174 return start;
aoqi@1 2175 }
aoqi@1 2176
aoqi@1 2177 #undef length_arg
aoqi@1 2178 #endif
aoqi@1 2179
aoqi@1 2180 //FIXME
aoqi@1 2181 address generate_disjoint_long_copy(bool aligned, const char *name) {
aoqi@1 2182 Label l_1, l_2;
aoqi@1 2183 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 2184 __ align(CodeEntryAlignment);
aoqi@1 2185 address start = __ pc();
aoqi@1 2186
aoqi@1 2187 // __ movl(ecx, Address(esp, 4+8)); // count
aoqi@1 2188 // __ movl(eax, Address(esp, 4+0)); // from
aoqi@1 2189 // __ movl(edx, Address(esp, 4+4)); // to
aoqi@1 2190 __ move(T1, A2);
aoqi@1 2191 __ move(T3, A0);
aoqi@1 2192 __ move(T0, A1);
aoqi@1 2193 __ push(T3);
aoqi@1 2194 __ push(T0);
aoqi@1 2195 __ push(T1);
aoqi@1 2196 //__ subl(edx, eax);
aoqi@1 2197 //__ jmp(l_2);
aoqi@1 2198 __ b(l_2);
aoqi@1 2199 __ delayed()->nop();
aoqi@1 2200 __ align(16);
aoqi@1 2201 __ bind(l_1);
aoqi@1 2202 // if (VM_Version::supports_mmx()) {
aoqi@1 2203 // __ movq(mmx0, Address(eax));
aoqi@1 2204 // __ movq(Address(eax, edx, Address::times_1), mmx0);
aoqi@1 2205 // } else {
aoqi@1 2206 // __ fild_d(Address(eax));
aoqi@1 2207 __ ld(AT, T3, 0);
aoqi@1 2208 // __ fistp_d(Address(eax, edx, Address::times_1));
aoqi@1 2209 __ sd (AT, T0, 0);
aoqi@1 2210 // }
aoqi@1 2211 // __ addl(eax, 8);
aoqi@1 2212 __ addi(T3, T3, 8);
aoqi@1 2213 __ addi(T0, T0, 8);
aoqi@1 2214 __ bind(l_2);
aoqi@1 2215 // __ decl(ecx);
aoqi@1 2216 __ addi(T1, T1, -1);
aoqi@1 2217 // __ jcc(Assembler::greaterEqual, l_1);
aoqi@1 2218 __ bgez(T1, l_1);
aoqi@1 2219 __ delayed()->nop();
aoqi@1 2220 // if (VM_Version::supports_mmx()) {
aoqi@1 2221 // __ emms();
aoqi@1 2222 // }
aoqi@1 2223 // __ ret(0);
aoqi@1 2224 __ pop(T1);
aoqi@1 2225 __ pop(T0);
aoqi@1 2226 __ pop(T3);
aoqi@1 2227 __ jr(RA);
aoqi@1 2228 __ delayed()->nop();
aoqi@1 2229 return start;
aoqi@1 2230 }
aoqi@1 2231
aoqi@1 2232
aoqi@1 2233 address generate_conjoint_long_copy(bool aligned, const char *name) {
aoqi@1 2234 Label l_1, l_2;
aoqi@1 2235 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 2236 __ align(CodeEntryAlignment);
aoqi@1 2237 address start = __ pc();
aoqi@1 2238 address nooverlap_target = aligned ?
aoqi@1 2239 StubRoutines::arrayof_jlong_disjoint_arraycopy() :
aoqi@1 2240 StubRoutines::jlong_disjoint_arraycopy();
aoqi@1 2241 array_overlap_test(nooverlap_target, 3);
aoqi@1 2242
aoqi@1 2243 __ push(T3);
aoqi@1 2244 __ push(T0);
aoqi@1 2245 __ push(T1);
aoqi@1 2246
aoqi@1 2247 /* __ movl(ecx, Address(esp, 4+8)); // count
aoqi@1 2248 __ movl(eax, Address(esp, 4+0)); // from
aoqi@1 2249 __ movl(edx, Address(esp, 4+4)); // to
aoqi@1 2250 __ jmp(l_2);
aoqi@1 2251
aoqi@1 2252 */
aoqi@1 2253 __ move(T1, A2);
aoqi@1 2254 __ move(T3, A0);
aoqi@1 2255 __ move(T0, A1);
aoqi@1 2256 __ sll(AT, T1, Address::times_8);
aoqi@1 2257 __ add(AT, T3, AT);
aoqi@1 2258 __ lea(T3 , Address(AT, -8));
aoqi@1 2259 __ sll(AT, T1, Address::times_8);
aoqi@1 2260 __ add(AT, T0, AT);
aoqi@1 2261 __ lea(T0 , Address(AT, -8));
aoqi@1 2262
aoqi@1 2263
aoqi@1 2264
aoqi@1 2265 __ b(l_2);
aoqi@1 2266 __ delayed()->nop();
aoqi@1 2267 __ align(16);
aoqi@1 2268 __ bind(l_1);
aoqi@1 2269 /* if (VM_Version::supports_mmx()) {
aoqi@1 2270 __ movq(mmx0, Address(eax, ecx, Address::times_8));
aoqi@1 2271 __ movq(Address(edx, ecx,Address::times_8), mmx0);
aoqi@1 2272 } else {
aoqi@1 2273 __ fild_d(Address(eax, ecx, Address::times_8));
aoqi@1 2274 __ fistp_d(Address(edx, ecx,Address::times_8));
aoqi@1 2275 }
aoqi@1 2276 */
aoqi@1 2277 __ ld(AT, T3, 0);
aoqi@1 2278 __ sd (AT, T0, 0);
aoqi@1 2279 __ addi(T3, T3, -8);
aoqi@1 2280 __ addi(T0, T0,-8);
aoqi@1 2281 __ bind(l_2);
aoqi@1 2282 // __ decl(ecx);
aoqi@1 2283 __ addi(T1, T1, -1);
aoqi@1 2284 //__ jcc(Assembler::greaterEqual, l_1);
aoqi@1 2285 __ bgez(T1, l_1);
aoqi@1 2286 __ delayed()->nop();
aoqi@1 2287 // if (VM_Version::supports_mmx()) {
aoqi@1 2288 // __ emms();
aoqi@1 2289 // }
aoqi@1 2290 // __ ret(0);
aoqi@1 2291 __ pop(T1);
aoqi@1 2292 __ pop(T0);
aoqi@1 2293 __ pop(T3);
aoqi@1 2294 __ jr(RA);
aoqi@1 2295 __ delayed()->nop();
aoqi@1 2296 return start;
aoqi@1 2297 }
aoqi@1 2298
aoqi@1 2299 void generate_arraycopy_stubs() {
aoqi@1 2300 if (UseCompressedOops) {
aoqi@1 2301 StubRoutines::_oop_disjoint_arraycopy = generate_disjoint_int_oop_copy(false, true, "oop_disjoint_arraycopy");
aoqi@1 2302 StubRoutines::_oop_arraycopy = generate_conjoint_int_oop_copy(false, true, "oop_arraycopy");
aoqi@1 2303 } else {
aoqi@1 2304 StubRoutines::_oop_disjoint_arraycopy = generate_disjoint_long_oop_copy(false, true, "oop_disjoint_arraycopy");
aoqi@1 2305 StubRoutines::_oop_arraycopy = generate_conjoint_long_oop_copy(false, true, "oop_arraycopy");
aoqi@1 2306 }
aoqi@1 2307
aoqi@1 2308 StubRoutines::_jbyte_disjoint_arraycopy = generate_disjoint_byte_copy(false, "jbyte_disjoint_arraycopy");
aoqi@1 2309 StubRoutines::_jshort_disjoint_arraycopy = generate_disjoint_short_copy(false, "jshort_disjoint_arraycopy");
aoqi@1 2310 StubRoutines::_jint_disjoint_arraycopy = generate_disjoint_int_oop_copy(false, false, "jint_disjoint_arraycopy");
aoqi@1 2311 StubRoutines::_jlong_disjoint_arraycopy = generate_disjoint_long_copy(false, "jlong_disjoint_arraycopy");
aoqi@1 2312 StubRoutines::_arrayof_jbyte_disjoint_arraycopy = generate_disjoint_byte_copy(true, "arrayof_jbyte_disjoint_arraycopy");
aoqi@1 2313
aoqi@1 2314 // if (VM_Version::supports_mmx())
aoqi@1 2315 //if (false)
aoqi@1 2316 // StubRoutines::_arrayof_jshort_disjoint_arraycopy = generate_disjoint_short_mmx_copy_aligned("arrayof_jshort_disjoint_arraycopy");
aoqi@1 2317 // else
aoqi@1 2318 StubRoutines::_arrayof_jshort_disjoint_arraycopy = generate_disjoint_short_copy(true, "arrayof_jshort_disjoint_arraycopy");
aoqi@1 2319 StubRoutines::_arrayof_jint_disjoint_arraycopy = generate_disjoint_int_oop_copy(true, false, "arrayof_jint_disjoint_arraycopy");
aoqi@1 2320 //StubRoutines::_arrayof_oop_disjoint_arraycopy = generate_disjoint_int_oop_copy(true, true, "arrayof_oop_disjoint_arraycopy");
aoqi@1 2321 StubRoutines::_arrayof_jlong_disjoint_arraycopy = generate_disjoint_long_copy(true, "arrayof_jlong_disjoint_arraycopy");
aoqi@1 2322
aoqi@1 2323 StubRoutines::_jbyte_arraycopy = generate_conjoint_byte_copy(false, "jbyte_arraycopy");
aoqi@1 2324 StubRoutines::_jshort_arraycopy = generate_conjoint_short_copy(false, "jshort_arraycopy");
aoqi@1 2325 StubRoutines::_jint_arraycopy = generate_conjoint_int_oop_copy(false, false, "jint_arraycopy");
aoqi@1 2326 StubRoutines::_jlong_arraycopy = generate_conjoint_long_copy(false, "jlong_arraycopy");
aoqi@1 2327
aoqi@1 2328 StubRoutines::_arrayof_jbyte_arraycopy = generate_conjoint_byte_copy(true, "arrayof_jbyte_arraycopy");
aoqi@1 2329 StubRoutines::_arrayof_jshort_arraycopy = generate_conjoint_short_copy(true, "arrayof_jshort_arraycopy");
aoqi@1 2330 StubRoutines::_arrayof_jint_arraycopy = generate_conjoint_int_oop_copy(true, false, "arrayof_jint_arraycopy");
aoqi@1 2331 //StubRoutines::_arrayof_oop_arraycopy = generate_conjoint_int_oop_copy(true, true, "arrayof_oop_arraycopy");
aoqi@1 2332 StubRoutines::_arrayof_jlong_arraycopy = generate_conjoint_long_copy(true, "arrayof_jlong_arraycopy");
aoqi@1 2333
aoqi@1 2334 StubRoutines::_arrayof_oop_disjoint_arraycopy = StubRoutines::_oop_disjoint_arraycopy;
aoqi@1 2335 StubRoutines::_arrayof_oop_arraycopy = StubRoutines::_oop_arraycopy;
aoqi@1 2336 }
aoqi@1 2337
aoqi@1 2338 //Wang: add a function to implement SafeFetch32 and SafeFetchN
aoqi@1 2339 void generate_safefetch(const char* name, int size, address* entry,
aoqi@1 2340 address* fault_pc, address* continuation_pc) {
aoqi@1 2341 // safefetch signatures:
aoqi@1 2342 // int SafeFetch32(int* adr, int errValue);
aoqi@1 2343 // intptr_t SafeFetchN (intptr_t* adr, intptr_t errValue);
aoqi@1 2344 //
aoqi@1 2345 // arguments:
aoqi@1 2346 // A0 = adr
aoqi@1 2347 // A1 = errValue
aoqi@1 2348 //
aoqi@1 2349 // result:
aoqi@1 2350 // PPC_RET = *adr or errValue
aoqi@1 2351
aoqi@1 2352 StubCodeMark mark(this, "StubRoutines", name);
aoqi@1 2353
aoqi@1 2354 // Entry point, pc or function descriptor.
aoqi@1 2355 *entry = __ pc();
aoqi@1 2356
aoqi@1 2357 // Load *adr into A1, may fault.
aoqi@1 2358 *fault_pc = __ pc();
aoqi@1 2359 switch (size) {
aoqi@1 2360 case 4:
aoqi@1 2361 // int32_t
aoqi@1 2362 __ lw(A1, A0, 0);
aoqi@1 2363 break;
aoqi@1 2364 case 8:
aoqi@1 2365 // int64_t
aoqi@1 2366 __ ld(A1, A0, 0);
aoqi@1 2367 break;
aoqi@1 2368 default:
aoqi@1 2369 ShouldNotReachHere();
aoqi@1 2370 }
aoqi@1 2371
aoqi@1 2372 // return errValue or *adr
aoqi@1 2373 *continuation_pc = __ pc();
aoqi@1 2374 __ addu(V0,A1,R0);
aoqi@1 2375 __ jr(RA);
aoqi@1 2376 __ delayed()->nop();
aoqi@1 2377 }
aoqi@1 2378
aoqi@1 2379
aoqi@1 2380 #undef __
aoqi@1 2381 #define __ masm->
aoqi@1 2382
aoqi@1 2383 // Continuation point for throwing of implicit exceptions that are
aoqi@1 2384 // not handled in the current activation. Fabricates an exception
aoqi@1 2385 // oop and initiates normal exception dispatching in this
aoqi@1 2386 // frame. Since we need to preserve callee-saved values (currently
aoqi@1 2387 // only for C2, but done for C1 as well) we need a callee-saved oop
aoqi@1 2388 // map and therefore have to make these stubs into RuntimeStubs
aoqi@1 2389 // rather than BufferBlobs. If the compiler needs all registers to
aoqi@1 2390 // be preserved between the fault point and the exception handler
aoqi@1 2391 // then it must assume responsibility for that in
aoqi@1 2392 // AbstractCompiler::continuation_for_implicit_null_exception or
aoqi@1 2393 // continuation_for_implicit_division_by_zero_exception. All other
aoqi@1 2394 // implicit exceptions (e.g., NullPointerException or
aoqi@1 2395 // AbstractMethodError on entry) are either at call sites or
aoqi@1 2396 // otherwise assume that stack unwinding will be initiated, so
aoqi@1 2397 // caller saved registers were assumed volatile in the compiler.
aoqi@1 2398 address generate_throw_exception(const char* name,
aoqi@1 2399 address runtime_entry,
aoqi@1 2400 bool restore_saved_exception_pc) {
aoqi@1 2401 // Information about frame layout at time of blocking runtime call.
aoqi@1 2402 // Note that we only have to preserve callee-saved registers since
aoqi@1 2403 // the compilers are responsible for supplying a continuation point
aoqi@1 2404 // if they expect all registers to be preserved.
aoqi@1 2405 //#define aoqi_test
aoqi@1 2406 #ifdef aoqi_test
aoqi@1 2407 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2408 #endif
aoqi@1 2409 enum layout {
aoqi@1 2410 thread_off, // last_java_sp
aoqi@1 2411 S7_off, // callee saved register sp + 1
aoqi@1 2412 S6_off, // callee saved register sp + 2
aoqi@1 2413 S5_off, // callee saved register sp + 3
aoqi@1 2414 S4_off, // callee saved register sp + 4
aoqi@1 2415 S3_off, // callee saved register sp + 5
aoqi@1 2416 S2_off, // callee saved register sp + 6
aoqi@1 2417 S1_off, // callee saved register sp + 7
aoqi@1 2418 S0_off, // callee saved register sp + 8
aoqi@1 2419 FP_off,
aoqi@1 2420 ret_address,
aoqi@1 2421 framesize
aoqi@1 2422 };
aoqi@1 2423
aoqi@1 2424 int insts_size = 2048;
aoqi@1 2425 int locs_size = 32;
aoqi@1 2426
aoqi@1 2427 // CodeBuffer* code = new CodeBuffer(insts_size, locs_size, 0, 0, 0, false,
aoqi@1 2428 // NULL, NULL, NULL, false, NULL, name, false);
aoqi@1 2429 CodeBuffer code (name , insts_size, locs_size);
aoqi@1 2430 #ifdef aoqi_test
aoqi@1 2431 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2432 #endif
aoqi@1 2433 OopMapSet* oop_maps = new OopMapSet();
aoqi@1 2434 #ifdef aoqi_test
aoqi@1 2435 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2436 #endif
aoqi@1 2437 MacroAssembler* masm = new MacroAssembler(&code);
aoqi@1 2438 #ifdef aoqi_test
aoqi@1 2439 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2440 #endif
aoqi@1 2441
aoqi@1 2442 address start = __ pc();
aoqi@1 2443 //__ stop("generate_throw_exception");
aoqi@1 2444 /*
aoqi@1 2445 __ move(AT, (int)&jerome1 );
aoqi@1 2446 __ sw(SP, AT, 0);
aoqi@1 2447 __ move(AT, (int)&jerome2 );
aoqi@1 2448 __ sw(FP, AT, 0);
aoqi@1 2449 __ move(AT, (int)&jerome3 );
aoqi@1 2450 __ sw(RA, AT, 0);
aoqi@1 2451 __ move(AT, (int)&jerome4 );
aoqi@1 2452 __ sw(R0, AT, 0);
aoqi@1 2453 __ move(AT, (int)&jerome5 );
aoqi@1 2454 __ sw(R0, AT, 0);
aoqi@1 2455 __ move(AT, (int)&jerome6 );
aoqi@1 2456 __ sw(R0, AT, 0);
aoqi@1 2457 __ move(AT, (int)&jerome7 );
aoqi@1 2458 __ sw(R0, AT, 0);
aoqi@1 2459 __ move(AT, (int)&jerome10 );
aoqi@1 2460 __ sw(R0, AT, 0);
aoqi@1 2461
aoqi@1 2462 __ pushad();
aoqi@1 2463
aoqi@1 2464 //__ enter();
aoqi@1 2465 __ call(CAST_FROM_FN_PTR(address, SharedRuntime::print_call_statistics),
aoqi@1 2466 relocInfo::runtime_call_type);
aoqi@1 2467 __ delayed()->nop();
aoqi@1 2468
aoqi@1 2469 //__ leave();
aoqi@1 2470 __ popad();
aoqi@1 2471
aoqi@1 2472 */
aoqi@1 2473
aoqi@1 2474 // This is an inlined and slightly modified version of call_VM
aoqi@1 2475 // which has the ability to fetch the return PC out of
aoqi@1 2476 // thread-local storage and also sets up last_Java_sp slightly
aoqi@1 2477 // differently than the real call_VM
aoqi@1 2478 #ifndef OPT_THREAD
aoqi@1 2479 Register java_thread = TREG;
aoqi@1 2480 __ get_thread(java_thread);
aoqi@1 2481 #else
aoqi@1 2482 Register java_thread = TREG;
aoqi@1 2483 #endif
aoqi@1 2484 #ifdef aoqi_test
aoqi@1 2485 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2486 #endif
aoqi@1 2487 if (restore_saved_exception_pc) {
aoqi@1 2488 __ ld(RA, java_thread, in_bytes(JavaThread::saved_exception_pc_offset())); // eax
aoqi@1 2489 }
aoqi@1 2490
aoqi@1 2491 __ enter(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 2492
aoqi@1 2493 __ addi(SP, SP, (-1) * (framesize-2) * wordSize); // prolog
aoqi@1 2494 __ sd(S0, SP, S0_off * wordSize);
aoqi@1 2495 __ sd(S1, SP, S1_off * wordSize);
aoqi@1 2496 __ sd(S2, SP, S2_off * wordSize);
aoqi@1 2497 __ sd(S3, SP, S3_off * wordSize);
aoqi@1 2498 __ sd(S4, SP, S4_off * wordSize);
aoqi@1 2499 __ sd(S5, SP, S5_off * wordSize);
aoqi@1 2500 __ sd(S6, SP, S6_off * wordSize);
aoqi@1 2501 __ sd(S7, SP, S7_off * wordSize);
aoqi@1 2502
aoqi@1 2503 int frame_complete = __ pc() - start;
aoqi@1 2504 // push java thread (becomes first argument of C function)
aoqi@1 2505 __ sd(java_thread, SP, thread_off * wordSize);
aoqi@1 2506 if (java_thread!=A0)
aoqi@1 2507 __ move(A0, java_thread);
aoqi@1 2508
aoqi@1 2509 // Set up last_Java_sp and last_Java_fp
aoqi@1 2510 __ set_last_Java_frame(java_thread, SP, FP, NULL);
aoqi@1 2511 __ relocate(relocInfo::internal_pc_type);
aoqi@1 2512 {
aoqi@1 2513 intptr_t save_pc = (intptr_t)__ pc() + NativeMovConstReg::instruction_size + NativeCall::return_address_offset + 4;
aoqi@1 2514 __ li48(AT, save_pc);
aoqi@1 2515 }
aoqi@1 2516 __ sd(AT, java_thread, in_bytes(JavaThread::last_Java_pc_offset()));
aoqi@1 2517
aoqi@1 2518 // Call runtime
aoqi@1 2519 __ call(runtime_entry);
aoqi@1 2520 __ delayed()->nop();
aoqi@1 2521 // Generate oop map
aoqi@1 2522 OopMap* map = new OopMap(framesize, 0);
aoqi@1 2523 oop_maps->add_gc_map(__ offset(), map);
aoqi@1 2524
aoqi@1 2525 // restore the thread (cannot use the pushed argument since arguments
aoqi@1 2526 // may be overwritten by C code generated by an optimizing compiler);
aoqi@1 2527 // however can use the register value directly if it is callee saved.
aoqi@1 2528 #ifndef OPT_THREAD
aoqi@1 2529 __ get_thread(java_thread);
aoqi@1 2530 #endif
aoqi@1 2531
aoqi@1 2532 __ ld(SP, java_thread, in_bytes(JavaThread::last_Java_sp_offset()));
aoqi@1 2533 // __ reset_last_Java_frame(java_thread, true);
aoqi@1 2534 __ reset_last_Java_frame(java_thread, true, true);
aoqi@1 2535
aoqi@1 2536 // Restore callee save registers. This must be done after resetting the Java frame
aoqi@1 2537 __ ld(S0, SP, S0_off * wordSize);
aoqi@1 2538 __ ld(S1, SP, S1_off * wordSize);
aoqi@1 2539 __ ld(S2, SP, S2_off * wordSize);
aoqi@1 2540 __ ld(S3, SP, S3_off * wordSize);
aoqi@1 2541 __ ld(S4, SP, S4_off * wordSize);
aoqi@1 2542 __ ld(S5, SP, S5_off * wordSize);
aoqi@1 2543 __ ld(S6, SP, S6_off * wordSize);
aoqi@1 2544 __ ld(S7, SP, S7_off * wordSize);
aoqi@1 2545
aoqi@1 2546 // discard arguments
aoqi@1 2547 __ addi(SP, SP, (framesize-2) * wordSize); // epilog
aoqi@1 2548 // __ leave(); // required for proper stackwalking of RuntimeStub frame
aoqi@1 2549 __ addi(SP, FP, wordSize);
aoqi@1 2550 __ ld(FP, SP, -1*wordSize);
aoqi@1 2551 // check for pending exceptions
aoqi@1 2552 #ifdef ASSERT
aoqi@1 2553 Label L;
aoqi@1 2554 __ lw(AT, java_thread, in_bytes(Thread::pending_exception_offset()));
aoqi@1 2555 __ bne(AT, R0, L);
aoqi@1 2556 __ delayed()->nop();
aoqi@1 2557 __ should_not_reach_here();
aoqi@1 2558 __ bind(L);
aoqi@1 2559 #endif //ASSERT
aoqi@1 2560 __ jmp(StubRoutines::forward_exception_entry(), relocInfo::runtime_call_type);
aoqi@1 2561 __ delayed()->nop();
aoqi@1 2562 #ifdef aoqi_test
aoqi@1 2563 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2564 #endif
aoqi@1 2565 RuntimeStub* stub = RuntimeStub::new_runtime_stub(name, &code,frame_complete,
aoqi@1 2566 framesize, oop_maps, false);
aoqi@1 2567 #ifdef aoqi_test
aoqi@1 2568 tty->print_cr("%s:%d name:%s", __func__, __LINE__, name);
aoqi@1 2569 #endif
aoqi@1 2570 return stub->entry_point();
aoqi@1 2571 }
aoqi@1 2572
aoqi@1 2573 // Initialization
aoqi@1 2574 void generate_initial() {
aoqi@1 2575 /*
aoqi@1 2576 // Generates all stubs and initializes the entry points
aoqi@1 2577
aoqi@1 2578 // This platform-specific stub is needed by generate_call_stub()
aoqi@1 2579 StubRoutines::mips::_mxcsr_std = generate_fp_mask("mxcsr_std", 0x0000000000001F80);
aoqi@1 2580
aoqi@1 2581 // entry points that exist in all platforms Note: This is code
aoqi@1 2582 // that could be shared among different platforms - however the
aoqi@1 2583 // benefit seems to be smaller than the disadvantage of having a
aoqi@1 2584 // much more complicated generator structure. See also comment in
aoqi@1 2585 // stubRoutines.hpp.
aoqi@1 2586
aoqi@1 2587 StubRoutines::_forward_exception_entry = generate_forward_exception();
aoqi@1 2588
aoqi@1 2589 StubRoutines::_call_stub_entry =
aoqi@1 2590 generate_call_stub(StubRoutines::_call_stub_return_address);
aoqi@1 2591
aoqi@1 2592 // is referenced by megamorphic call
aoqi@1 2593 StubRoutines::_catch_exception_entry = generate_catch_exception();
aoqi@1 2594
aoqi@1 2595 // atomic calls
aoqi@1 2596 StubRoutines::_atomic_xchg_entry = generate_atomic_xchg();
aoqi@1 2597 StubRoutines::_atomic_xchg_ptr_entry = generate_atomic_xchg_ptr();
aoqi@1 2598 StubRoutines::_atomic_cmpxchg_entry = generate_atomic_cmpxchg();
aoqi@1 2599 StubRoutines::_atomic_cmpxchg_long_entry = generate_atomic_cmpxchg_long();
aoqi@1 2600 StubRoutines::_atomic_add_entry = generate_atomic_add();
aoqi@1 2601 StubRoutines::_atomic_add_ptr_entry = generate_atomic_add_ptr();
aoqi@1 2602 StubRoutines::_fence_entry = generate_orderaccess_fence();
aoqi@1 2603
aoqi@1 2604 StubRoutines::_handler_for_unsafe_access_entry =
aoqi@1 2605 generate_handler_for_unsafe_access();
aoqi@1 2606
aoqi@1 2607 // platform dependent
aoqi@1 2608 StubRoutines::mips::_get_previous_fp_entry = generate_get_previous_fp();
aoqi@1 2609
aoqi@1 2610 StubRoutines::mips::_verify_mxcsr_entry = generate_verify_mxcsr();
aoqi@1 2611 */
aoqi@1 2612 // Generates all stubs and initializes the entry points
aoqi@1 2613
aoqi@1 2614 //-------------------------------------------------------------
aoqi@1 2615 //-----------------------------------------------------------
aoqi@1 2616 // entry points that exist in all platforms
aoqi@1 2617 // Note: This is code that could be shared among different platforms - however the benefit seems to be smaller
aoqi@1 2618 // than the disadvantage of having a much more complicated generator structure.
aoqi@1 2619 // See also comment in stubRoutines.hpp.
aoqi@1 2620 StubRoutines::_forward_exception_entry = generate_forward_exception();
aoqi@1 2621 StubRoutines::_call_stub_entry = generate_call_stub(StubRoutines::_call_stub_return_address);
aoqi@1 2622 // is referenced by megamorphic call
aoqi@1 2623 StubRoutines::_catch_exception_entry = generate_catch_exception();
aoqi@1 2624
aoqi@1 2625 StubRoutines::_handler_for_unsafe_access_entry = generate_handler_for_unsafe_access();
aoqi@1 2626
aoqi@1 2627 // platform dependent
aoqi@1 2628 StubRoutines::gs2::_get_previous_fp_entry = generate_get_previous_fp();
aoqi@1 2629 }
aoqi@1 2630
aoqi@1 2631 void generate_all() {
aoqi@1 2632 #ifdef aoqi_test
aoqi@1 2633 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2634 #endif
aoqi@1 2635 // Generates all stubs and initializes the entry points
aoqi@1 2636
aoqi@1 2637 // These entry points require SharedInfo::stack0 to be set up in
aoqi@1 2638 // non-core builds and need to be relocatable, so they each
aoqi@1 2639 // fabricate a RuntimeStub internally.
aoqi@1 2640 /*
aoqi@1 2641 StubRoutines::_throw_AbstractMethodError_entry =
aoqi@1 2642 generate_throw_exception("AbstractMethodError throw_exception",
aoqi@1 2643 CAST_FROM_FN_PTR(address,
aoqi@1 2644 SharedRuntime::
aoqi@1 2645 throw_AbstractMethodError),
aoqi@1 2646 false);
aoqi@1 2647
aoqi@1 2648 StubRoutines::_throw_IncompatibleClassChangeError_entry =
aoqi@1 2649 generate_throw_exception("IncompatibleClassChangeError throw_exception",
aoqi@1 2650 CAST_FROM_FN_PTR(address,
aoqi@1 2651 SharedRuntime::
aoqi@1 2652 throw_IncompatibleClassChangeError),
aoqi@1 2653 false);
aoqi@1 2654
aoqi@1 2655 StubRoutines::_throw_ArithmeticException_entry =
aoqi@1 2656 generate_throw_exception("ArithmeticException throw_exception",
aoqi@1 2657 CAST_FROM_FN_PTR(address,
aoqi@1 2658 SharedRuntime::
aoqi@1 2659 throw_ArithmeticException),
aoqi@1 2660 true);
aoqi@1 2661
aoqi@1 2662 StubRoutines::_throw_NullPointerException_entry =
aoqi@1 2663 generate_throw_exception("NullPointerException throw_exception",
aoqi@1 2664 CAST_FROM_FN_PTR(address,
aoqi@1 2665 SharedRuntime::
aoqi@1 2666 throw_NullPointerException),
aoqi@1 2667 true);
aoqi@1 2668
aoqi@1 2669 StubRoutines::_throw_NullPointerException_at_call_entry =
aoqi@1 2670 generate_throw_exception("NullPointerException at call throw_exception",
aoqi@1 2671 CAST_FROM_FN_PTR(address,
aoqi@1 2672 SharedRuntime::
aoqi@1 2673 throw_NullPointerException_at_call),
aoqi@1 2674 false);
aoqi@1 2675
aoqi@1 2676 StubRoutines::_throw_StackOverflowError_entry =
aoqi@1 2677 generate_throw_exception("StackOverflowError throw_exception",
aoqi@1 2678 CAST_FROM_FN_PTR(address,
aoqi@1 2679 SharedRuntime::
aoqi@1 2680 throw_StackOverflowError),
aoqi@1 2681 false);
aoqi@1 2682
aoqi@1 2683 // entry points that are platform specific
aoqi@1 2684 StubRoutines::mips::_f2i_fixup = generate_f2i_fixup();
aoqi@1 2685 StubRoutines::mips::_f2l_fixup = generate_f2l_fixup();
aoqi@1 2686 StubRoutines::mips::_d2i_fixup = generate_d2i_fixup();
aoqi@1 2687 StubRoutines::mips::_d2l_fixup = generate_d2l_fixup();
aoqi@1 2688
aoqi@1 2689 StubRoutines::mips::_float_sign_mask = generate_fp_mask("float_sign_mask", 0x7FFFFFFF7FFFFFFF);
aoqi@1 2690 StubRoutines::mips::_float_sign_flip = generate_fp_mask("float_sign_flip", 0x8000000080000000);
aoqi@1 2691 StubRoutines::mips::_double_sign_mask = generate_fp_mask("double_sign_mask", 0x7FFFFFFFFFFFFFFF);
aoqi@1 2692 StubRoutines::mips::_double_sign_flip = generate_fp_mask("double_sign_flip", 0x8000000000000000);
aoqi@1 2693
aoqi@1 2694 // support for verify_oop (must happen after universe_init)
aoqi@1 2695 StubRoutines::_verify_oop_subroutine_entry = generate_verify_oop();
aoqi@1 2696
aoqi@1 2697 // arraycopy stubs used by compilers
aoqi@1 2698 generate_arraycopy_stubs();
aoqi@1 2699 */
aoqi@1 2700 #ifdef aoqi_test
aoqi@1 2701 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2702 #endif
aoqi@1 2703 StubRoutines::_throw_AbstractMethodError_entry = generate_throw_exception("AbstractMethodError throw_exception", CAST_FROM_FN_PTR(address, SharedRuntime::throw_AbstractMethodError), false);
aoqi@1 2704 #ifdef aoqi_test
aoqi@1 2705 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2706 #endif
aoqi@1 2707 // StubRoutines::_throw_ArithmeticException_entry = generate_throw_exception("ArithmeticException throw_exception", CAST_FROM_FN_PTR(address, SharedRuntime::throw_ArithmeticException), true);
aoqi@1 2708 #ifdef aoqi_test
aoqi@1 2709 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2710 #endif
aoqi@1 2711 // StubRoutines::_throw_NullPointerException_entry = generate_throw_exception("NullPointerException throw_exception", CAST_FROM_FN_PTR(address, SharedRuntime::throw_NullPointerException), true);
aoqi@1 2712 #ifdef aoqi_test
aoqi@1 2713 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2714 #endif
aoqi@1 2715 StubRoutines::_throw_NullPointerException_at_call_entry= generate_throw_exception("NullPointerException at call throw_exception", CAST_FROM_FN_PTR(address, SharedRuntime::throw_NullPointerException_at_call), false);
aoqi@1 2716 #ifdef aoqi_test
aoqi@1 2717 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2718 #endif
aoqi@1 2719 StubRoutines::_throw_StackOverflowError_entry = generate_throw_exception("StackOverflowError throw_exception", CAST_FROM_FN_PTR(address, SharedRuntime::throw_StackOverflowError), false);
aoqi@1 2720 #ifdef aoqi_test
aoqi@1 2721 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2722 #endif
aoqi@1 2723
aoqi@1 2724 //------------------------------------------------------
aoqi@1 2725 //------------------------------------------------------------------
aoqi@1 2726 // entry points that are platform specific
aoqi@1 2727
aoqi@1 2728 // support for verify_oop (must happen after universe_init)
aoqi@1 2729 #ifdef aoqi_test
aoqi@1 2730 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2731 #endif
aoqi@1 2732 StubRoutines::_verify_oop_subroutine_entry = generate_verify_oop();
aoqi@1 2733 #ifdef aoqi_test
aoqi@1 2734 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2735 #endif
aoqi@1 2736 #ifndef CORE
aoqi@1 2737 // arraycopy stubs used by compilers
aoqi@1 2738 generate_arraycopy_stubs();
aoqi@1 2739 #ifdef aoqi_test
aoqi@1 2740 tty->print_cr("%s:%d", __func__, __LINE__);
aoqi@1 2741 #endif
aoqi@1 2742 #endif
aoqi@1 2743
aoqi@1 2744 // Safefetch stubs.
aoqi@1 2745 generate_safefetch("SafeFetch32", sizeof(int), &StubRoutines::_safefetch32_entry,
aoqi@1 2746 &StubRoutines::_safefetch32_fault_pc,
aoqi@1 2747 &StubRoutines::_safefetch32_continuation_pc);
aoqi@1 2748 generate_safefetch("SafeFetchN", sizeof(intptr_t), &StubRoutines::_safefetchN_entry,
aoqi@1 2749 &StubRoutines::_safefetchN_fault_pc,
aoqi@1 2750 &StubRoutines::_safefetchN_continuation_pc);
aoqi@1 2751 }
aoqi@1 2752
aoqi@1 2753 public:
aoqi@1 2754 StubGenerator(CodeBuffer* code, bool all) : StubCodeGenerator(code) {
aoqi@1 2755 if (all) {
aoqi@1 2756 generate_all();
aoqi@1 2757 } else {
aoqi@1 2758 generate_initial();
aoqi@1 2759 }
aoqi@1 2760 }
aoqi@1 2761 }; // end class declaration
aoqi@1 2762 /*
aoqi@1 2763 address StubGenerator::disjoint_byte_copy_entry = NULL;
aoqi@1 2764 address StubGenerator::disjoint_short_copy_entry = NULL;
aoqi@1 2765 address StubGenerator::disjoint_int_copy_entry = NULL;
aoqi@1 2766 address StubGenerator::disjoint_long_copy_entry = NULL;
aoqi@1 2767 address StubGenerator::disjoint_oop_copy_entry = NULL;
aoqi@1 2768
aoqi@1 2769 address StubGenerator::byte_copy_entry = NULL;
aoqi@1 2770 address StubGenerator::short_copy_entry = NULL;
aoqi@1 2771 address StubGenerator::int_copy_entry = NULL;
aoqi@1 2772 address StubGenerator::long_copy_entry = NULL;
aoqi@1 2773 address StubGenerator::oop_copy_entry = NULL;
aoqi@1 2774
aoqi@1 2775 address StubGenerator::checkcast_copy_entry = NULL;
aoqi@1 2776 */
aoqi@1 2777 void StubGenerator_generate(CodeBuffer* code, bool all) {
aoqi@1 2778 StubGenerator g(code, all);
aoqi@1 2779 }

mercurial