Tue, 02 Sep 2014 12:48:45 -0700
8055494: Add C2 x86 intrinsic for BigInteger::multiplyToLen() method
Summary: Add new C2 intrinsic for BigInteger::multiplyToLen() on x86 in 64-bit VM.
Reviewed-by: roland
duke@435 | 1 | /* |
jiangli@4936 | 2 | * Copyright (c) 1997, 2013, Oracle and/or its affiliates. All rights reserved. |
duke@435 | 3 | * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
duke@435 | 4 | * |
duke@435 | 5 | * This code is free software; you can redistribute it and/or modify it |
duke@435 | 6 | * under the terms of the GNU General Public License version 2 only, as |
duke@435 | 7 | * published by the Free Software Foundation. |
duke@435 | 8 | * |
duke@435 | 9 | * This code is distributed in the hope that it will be useful, but WITHOUT |
duke@435 | 10 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
duke@435 | 11 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
duke@435 | 12 | * version 2 for more details (a copy is included in the LICENSE file that |
duke@435 | 13 | * accompanied this code). |
duke@435 | 14 | * |
duke@435 | 15 | * You should have received a copy of the GNU General Public License version |
duke@435 | 16 | * 2 along with this work; if not, write to the Free Software Foundation, |
duke@435 | 17 | * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
duke@435 | 18 | * |
trims@1907 | 19 | * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
trims@1907 | 20 | * or visit www.oracle.com if you need additional information or have any |
trims@1907 | 21 | * questions. |
duke@435 | 22 | * |
duke@435 | 23 | */ |
duke@435 | 24 | |
duke@435 | 25 | #ifndef CC_INTERP |
duke@435 | 26 | protected: |
duke@435 | 27 | // Interpreter specific version of call_VM_base |
duke@435 | 28 | virtual void call_VM_leaf_base( |
duke@435 | 29 | address entry_point, |
duke@435 | 30 | int number_of_arguments |
duke@435 | 31 | ); |
duke@435 | 32 | |
duke@435 | 33 | virtual void call_VM_base( |
duke@435 | 34 | Register oop_result, |
duke@435 | 35 | Register java_thread, |
duke@435 | 36 | Register last_java_sp, |
duke@435 | 37 | address entry_point, |
duke@435 | 38 | int number_of_arguments, |
duke@435 | 39 | bool check_exceptions |
duke@435 | 40 | ); |
duke@435 | 41 | |
duke@435 | 42 | virtual void check_and_handle_popframe(Register java_thread); |
duke@435 | 43 | virtual void check_and_handle_earlyret(Register java_thread); |
duke@435 | 44 | |
duke@435 | 45 | // base routine for all dispatches |
duke@435 | 46 | void dispatch_base(TosState state, address* table, bool verifyoop = true); |
duke@435 | 47 | #endif /* CC_INTERP */ |
duke@435 | 48 | |
duke@435 | 49 | public: |
roland@5987 | 50 | InterpreterMacroAssembler(CodeBuffer* code) : MacroAssembler(code), _locals_register(rdi), _bcp_register(rsi) {} |
duke@435 | 51 | |
duke@435 | 52 | void load_earlyret_value(TosState state); |
duke@435 | 53 | |
duke@435 | 54 | // Interpreter-specific registers |
duke@435 | 55 | #ifdef CC_INTERP |
duke@435 | 56 | void save_bcp() { /* not needed in c++ interpreter and harmless */ } |
duke@435 | 57 | void restore_bcp() { /* not needed in c++ interpreter and harmless */ } |
duke@435 | 58 | |
duke@435 | 59 | // Helpers for runtime call arguments/results |
duke@435 | 60 | void get_method(Register reg); |
duke@435 | 61 | |
duke@435 | 62 | #else |
duke@435 | 63 | |
never@739 | 64 | void save_bcp() { movptr(Address(rbp, frame::interpreter_frame_bcx_offset * wordSize), rsi); } |
never@739 | 65 | void restore_bcp() { movptr(rsi, Address(rbp, frame::interpreter_frame_bcx_offset * wordSize)); } |
never@739 | 66 | void restore_locals() { movptr(rdi, Address(rbp, frame::interpreter_frame_locals_offset * wordSize)); } |
duke@435 | 67 | |
duke@435 | 68 | // Helpers for runtime call arguments/results |
never@739 | 69 | void get_method(Register reg) { movptr(reg, Address(rbp, frame::interpreter_frame_method_offset * wordSize)); } |
coleenp@4037 | 70 | void get_const(Register reg) { get_method(reg); movptr(reg, Address(reg, Method::const_offset())); } |
coleenp@4037 | 71 | void get_constant_pool(Register reg) { get_const(reg); movptr(reg, Address(reg, ConstMethod::constants_offset())); } |
coleenp@4037 | 72 | void get_constant_pool_cache(Register reg) { get_constant_pool(reg); movptr(reg, Address(reg, ConstantPool::cache_offset_in_bytes())); } |
coleenp@4037 | 73 | void get_cpool_and_tags(Register cpool, Register tags) { get_constant_pool(cpool); movptr(tags, Address(cpool, ConstantPool::tags_offset_in_bytes())); |
duke@435 | 74 | } |
duke@435 | 75 | void get_unsigned_2_byte_index_at_bcp(Register reg, int bcp_offset); |
jrose@1920 | 76 | void get_cache_and_index_at_bcp(Register cache, Register index, int bcp_offset, size_t index_size = sizeof(u2)); |
twisti@3050 | 77 | void get_cache_and_index_and_bytecode_at_bcp(Register cache, Register index, Register bytecode, int byte_no, int bcp_offset, size_t index_size = sizeof(u2)); |
jrose@1920 | 78 | void get_cache_entry_pointer_at_bcp(Register cache, Register tmp, int bcp_offset, size_t index_size = sizeof(u2)); |
jrose@1920 | 79 | void get_cache_index_at_bcp(Register index, int bcp_offset, size_t index_size = sizeof(u2)); |
jiangli@4936 | 80 | void get_method_counters(Register method, Register mcs, Label& skip); |
duke@435 | 81 | |
coleenp@4037 | 82 | // load cpool->resolved_references(index); |
coleenp@4037 | 83 | void load_resolved_reference_at_index(Register result, Register index); |
coleenp@4037 | 84 | |
duke@435 | 85 | // Expression stack |
duke@435 | 86 | void f2ieee(); // truncate ftos to 32bits |
duke@435 | 87 | void d2ieee(); // truncate dtos to 64bits |
duke@435 | 88 | |
duke@435 | 89 | void pop_ptr(Register r = rax); |
duke@435 | 90 | void pop_i(Register r = rax); |
duke@435 | 91 | void pop_l(Register lo = rax, Register hi = rdx); |
duke@435 | 92 | void pop_f(); |
duke@435 | 93 | void pop_d(); |
duke@435 | 94 | |
duke@435 | 95 | void push_ptr(Register r = rax); |
duke@435 | 96 | void push_i(Register r = rax); |
duke@435 | 97 | void push_l(Register lo = rax, Register hi = rdx); |
duke@435 | 98 | void push_d(Register r = rax); |
duke@435 | 99 | void push_f(); |
duke@435 | 100 | |
duke@435 | 101 | void pop(TosState state); // transition vtos -> state |
duke@435 | 102 | void push(TosState state); // transition state -> vtos |
duke@435 | 103 | |
never@739 | 104 | void pop(Register r ) { ((MacroAssembler*)this)->pop(r); } |
never@739 | 105 | |
never@739 | 106 | void push(Register r ) { ((MacroAssembler*)this)->push(r); } |
never@739 | 107 | void push(int32_t imm ) { ((MacroAssembler*)this)->push(imm); } |
never@739 | 108 | |
never@739 | 109 | // These are dummies to prevent surprise implicit conversions to Register |
never@739 | 110 | void pop(void* v ); // Add unimplemented ambiguous method |
never@739 | 111 | void push(void* v ); // Add unimplemented ambiguous method |
never@739 | 112 | |
twisti@1861 | 113 | void empty_expression_stack() { |
twisti@1861 | 114 | movptr(rsp, Address(rbp, frame::interpreter_frame_monitor_block_top_offset * wordSize)); |
twisti@1861 | 115 | // NULL last_sp until next java call |
twisti@1861 | 116 | movptr(Address(rbp, frame::interpreter_frame_last_sp_offset * wordSize), NULL_WORD); |
duke@435 | 117 | } |
duke@435 | 118 | |
twisti@1861 | 119 | // Helpers for swap and dup |
twisti@1861 | 120 | void load_ptr(int n, Register val); |
twisti@1861 | 121 | void store_ptr(int n, Register val); |
duke@435 | 122 | |
duke@435 | 123 | // Generate a subtype check: branch to ok_is_subtype if sub_klass is |
duke@435 | 124 | // a subtype of super_klass. EAX holds the super_klass. Blows ECX |
duke@435 | 125 | // and EDI. Register sub_klass cannot be any of the above. |
duke@435 | 126 | void gen_subtype_check( Register sub_klass, Label &ok_is_subtype ); |
duke@435 | 127 | |
duke@435 | 128 | // Dispatching |
duke@435 | 129 | void dispatch_prolog(TosState state, int step = 0); |
duke@435 | 130 | void dispatch_epilog(TosState state, int step = 0); |
duke@435 | 131 | void dispatch_only(TosState state); // dispatch via rbx, (assume rbx, is loaded already) |
duke@435 | 132 | void dispatch_only_normal(TosState state); // dispatch normal table via rbx, (assume rbx, is loaded already) |
duke@435 | 133 | void dispatch_only_noverify(TosState state); |
duke@435 | 134 | void dispatch_next(TosState state, int step = 0); // load rbx, from [esi + step] and dispatch via rbx, |
duke@435 | 135 | void dispatch_via (TosState state, address* table); // load rbx, from [esi] and dispatch via rbx, and table |
duke@435 | 136 | |
duke@435 | 137 | |
duke@435 | 138 | // jump to an invoked target |
jrose@1145 | 139 | void prepare_to_jump_from_interpreted(); |
duke@435 | 140 | void jump_from_interpreted(Register method, Register temp); |
duke@435 | 141 | |
duke@435 | 142 | // Returning from interpreted functions |
duke@435 | 143 | // |
duke@435 | 144 | // Removes the current activation (incl. unlocking of monitors) |
duke@435 | 145 | // and sets up the return address. This code is also used for |
duke@435 | 146 | // exception unwindwing. In that case, we do not want to throw |
duke@435 | 147 | // IllegalMonitorStateExceptions, since that might get us into an |
duke@435 | 148 | // infinite rethrow exception loop. |
duke@435 | 149 | // Additionally this code is used for popFrame and earlyReturn. |
duke@435 | 150 | // In popFrame case we want to skip throwing an exception, |
duke@435 | 151 | // installing an exception, and notifying jvmdi. |
duke@435 | 152 | // In earlyReturn case we only want to skip throwing an exception |
duke@435 | 153 | // and installing an exception. |
duke@435 | 154 | void remove_activation(TosState state, Register ret_addr, |
duke@435 | 155 | bool throw_monitor_exception = true, |
duke@435 | 156 | bool install_monitor_exception = true, |
duke@435 | 157 | bool notify_jvmdi = true); |
duke@435 | 158 | #endif /* !CC_INTERP */ |
duke@435 | 159 | |
duke@435 | 160 | // Debugging |
duke@435 | 161 | void verify_oop(Register reg, TosState state = atos); // only if +VerifyOops && state == atos |
duke@435 | 162 | #ifndef CC_INTERP |
duke@435 | 163 | void verify_FPU(int stack_depth, TosState state = ftos); // only if +VerifyFPU && (state == ftos || state == dtos) |
duke@435 | 164 | |
duke@435 | 165 | #endif /* !CC_INTERP */ |
duke@435 | 166 | |
duke@435 | 167 | // Object locking |
duke@435 | 168 | void lock_object (Register lock_reg); |
duke@435 | 169 | void unlock_object(Register lock_reg); |
duke@435 | 170 | |
duke@435 | 171 | #ifndef CC_INTERP |
duke@435 | 172 | |
duke@435 | 173 | // Interpreter profiling operations |
duke@435 | 174 | void set_method_data_pointer_for_bcp(); |
duke@435 | 175 | void test_method_data_pointer(Register mdp, Label& zero_continue); |
duke@435 | 176 | void verify_method_data_pointer(); |
duke@435 | 177 | |
duke@435 | 178 | void set_mdp_data_at(Register mdp_in, int constant, Register value); |
duke@435 | 179 | void increment_mdp_data_at(Address data, bool decrement = false); |
duke@435 | 180 | void increment_mdp_data_at(Register mdp_in, int constant, |
duke@435 | 181 | bool decrement = false); |
duke@435 | 182 | void increment_mdp_data_at(Register mdp_in, Register reg, int constant, |
duke@435 | 183 | bool decrement = false); |
iveresov@2138 | 184 | void increment_mask_and_jump(Address counter_addr, |
iveresov@2138 | 185 | int increment, int mask, |
iveresov@2138 | 186 | Register scratch, bool preloaded, |
iveresov@2138 | 187 | Condition cond, Label* where); |
duke@435 | 188 | void set_mdp_flag_at(Register mdp_in, int flag_constant); |
duke@435 | 189 | void test_mdp_data_at(Register mdp_in, int offset, Register value, |
duke@435 | 190 | Register test_value_out, |
duke@435 | 191 | Label& not_equal_continue); |
duke@435 | 192 | |
duke@435 | 193 | void record_klass_in_profile(Register receiver, Register mdp, |
kvn@1641 | 194 | Register reg2, bool is_virtual_call); |
duke@435 | 195 | void record_klass_in_profile_helper(Register receiver, Register mdp, |
kvn@1641 | 196 | Register reg2, int start_row, |
kvn@1641 | 197 | Label& done, bool is_virtual_call); |
duke@435 | 198 | |
duke@435 | 199 | void update_mdp_by_offset(Register mdp_in, int offset_of_offset); |
duke@435 | 200 | void update_mdp_by_offset(Register mdp_in, Register reg, int offset_of_disp); |
duke@435 | 201 | void update_mdp_by_constant(Register mdp_in, int constant); |
duke@435 | 202 | void update_mdp_for_ret(Register return_bci); |
duke@435 | 203 | |
duke@435 | 204 | void profile_taken_branch(Register mdp, Register bumped_count); |
duke@435 | 205 | void profile_not_taken_branch(Register mdp); |
duke@435 | 206 | void profile_call(Register mdp); |
duke@435 | 207 | void profile_final_call(Register mdp); |
jrose@1161 | 208 | void profile_virtual_call(Register receiver, Register mdp, Register scratch2, |
jrose@1161 | 209 | bool receiver_can_be_null = false); |
duke@435 | 210 | void profile_ret(Register return_bci, Register mdp); |
duke@435 | 211 | void profile_null_seen(Register mdp); |
duke@435 | 212 | void profile_typecheck(Register mdp, Register klass, Register scratch); |
duke@435 | 213 | void profile_typecheck_failed(Register mdp); |
duke@435 | 214 | void profile_switch_default(Register mdp); |
duke@435 | 215 | void profile_switch_case(Register index_in_scratch, Register mdp, Register scratch2); |
duke@435 | 216 | |
duke@435 | 217 | #endif /* !CC_INTERP */ |
duke@435 | 218 | |
duke@435 | 219 | typedef enum { NotifyJVMTI, SkipNotifyJVMTI } NotifyMethodExitMode; |
duke@435 | 220 | |
duke@435 | 221 | // support for jvmti |
duke@435 | 222 | void notify_method_entry(); |
duke@435 | 223 | void notify_method_exit(TosState state, NotifyMethodExitMode mode); |