Mercurial > hg > truffle
annotate src/cpu/sparc/vm/jniFastGetField_sparc.cpp @ 12355:cefad50507d8
Merge with hs25-b53
| author | Gilles Duboscq <duboscq@ssw.jku.at> |
|---|---|
| date | Fri, 11 Oct 2013 10:38:03 +0200 |
| parents | f0c2369fda5a |
| children |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 1748 | 2 * Copyright (c) 2004, 2010, Oracle and/or its affiliates. All rights reserved. |
| 0 | 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
| 4 * | |
| 5 * This code is free software; you can redistribute it and/or modify it | |
| 6 * under the terms of the GNU General Public License version 2 only, as | |
| 7 * published by the Free Software Foundation. | |
| 8 * | |
| 9 * This code is distributed in the hope that it will be useful, but WITHOUT | |
| 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 12 * version 2 for more details (a copy is included in the LICENSE file that | |
| 13 * accompanied this code). | |
| 14 * | |
| 15 * You should have received a copy of the GNU General Public License version | |
| 16 * 2 along with this work; if not, write to the Free Software Foundation, | |
| 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. | |
| 18 * | |
|
1552
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
727
diff
changeset
|
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
|
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
727
diff
changeset
|
20 * or visit www.oracle.com if you need additional information or have any |
|
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
727
diff
changeset
|
21 * questions. |
| 0 | 22 * |
| 23 */ | |
| 24 | |
| 1972 | 25 #include "precompiled.hpp" |
|
7204
f0c2369fda5a
8003250: SPARC: move MacroAssembler into separate file
twisti
parents:
1972
diff
changeset
|
26 #include "asm/macroAssembler.inline.hpp" |
| 1972 | 27 #include "memory/resourceArea.hpp" |
| 28 #include "prims/jniFastGetField.hpp" | |
| 29 #include "prims/jvm_misc.hpp" | |
| 30 #include "runtime/safepoint.hpp" | |
| 0 | 31 |
| 32 // TSO ensures that loads are blocking and ordered with respect to | |
| 33 // to earlier loads, so we don't need LoadLoad membars. | |
| 34 | |
| 35 #define __ masm-> | |
| 36 | |
| 37 #define BUFFER_SIZE 30*sizeof(jint) | |
| 38 | |
| 39 // Common register usage: | |
| 40 // O0: env | |
| 41 // O1: obj | |
| 42 // O2: jfieldID | |
| 43 // O4: offset (O2 >> 2) | |
| 44 // G4: old safepoint counter | |
| 45 | |
| 46 address JNI_FastGetField::generate_fast_get_int_field0(BasicType type) { | |
| 47 const char *name; | |
| 48 switch (type) { | |
| 49 case T_BOOLEAN: name = "jni_fast_GetBooleanField"; break; | |
| 50 case T_BYTE: name = "jni_fast_GetByteField"; break; | |
| 51 case T_CHAR: name = "jni_fast_GetCharField"; break; | |
| 52 case T_SHORT: name = "jni_fast_GetShortField"; break; | |
| 53 case T_INT: name = "jni_fast_GetIntField"; break; | |
| 54 default: ShouldNotReachHere(); | |
| 55 } | |
| 56 ResourceMark rm; | |
| 1748 | 57 BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize); |
| 58 CodeBuffer cbuf(blob); | |
| 0 | 59 MacroAssembler* masm = new MacroAssembler(&cbuf); |
| 1748 | 60 address fast_entry = __ pc(); |
| 0 | 61 |
| 62 Label label1, label2; | |
| 63 | |
| 727 | 64 AddressLiteral cnt_addrlit(SafepointSynchronize::safepoint_counter_addr()); |
| 65 __ sethi (cnt_addrlit, O3); | |
| 66 Address cnt_addr(O3, cnt_addrlit.low10()); | |
| 67 __ ld (cnt_addr, G4); | |
| 0 | 68 __ andcc (G4, 1, G0); |
| 69 __ br (Assembler::notZero, false, Assembler::pn, label1); | |
| 70 __ delayed()->srl (O2, 2, O4); | |
| 71 __ ld_ptr (O1, 0, O5); | |
| 72 | |
| 73 assert(count < LIST_CAPACITY, "LIST_CAPACITY too small"); | |
| 74 speculative_load_pclist[count] = __ pc(); | |
| 75 switch (type) { | |
| 76 case T_BOOLEAN: __ ldub (O5, O4, G3); break; | |
| 77 case T_BYTE: __ ldsb (O5, O4, G3); break; | |
| 78 case T_CHAR: __ lduh (O5, O4, G3); break; | |
| 79 case T_SHORT: __ ldsh (O5, O4, G3); break; | |
| 80 case T_INT: __ ld (O5, O4, G3); break; | |
| 81 default: ShouldNotReachHere(); | |
| 82 } | |
| 83 | |
| 727 | 84 __ ld (cnt_addr, O5); |
| 0 | 85 __ cmp (O5, G4); |
| 86 __ br (Assembler::notEqual, false, Assembler::pn, label2); | |
| 87 __ delayed()->mov (O7, G1); | |
| 88 __ retl (); | |
| 89 __ delayed()->mov (G3, O0); | |
| 90 | |
| 91 slowcase_entry_pclist[count++] = __ pc(); | |
| 92 __ bind (label1); | |
| 93 __ mov (O7, G1); | |
| 94 | |
| 95 address slow_case_addr; | |
| 96 switch (type) { | |
| 97 case T_BOOLEAN: slow_case_addr = jni_GetBooleanField_addr(); break; | |
| 98 case T_BYTE: slow_case_addr = jni_GetByteField_addr(); break; | |
| 99 case T_CHAR: slow_case_addr = jni_GetCharField_addr(); break; | |
| 100 case T_SHORT: slow_case_addr = jni_GetShortField_addr(); break; | |
| 101 case T_INT: slow_case_addr = jni_GetIntField_addr(); break; | |
| 102 default: ShouldNotReachHere(); | |
| 103 } | |
| 104 __ bind (label2); | |
| 105 __ call (slow_case_addr, relocInfo::none); | |
| 106 __ delayed()->mov (G1, O7); | |
| 107 | |
| 108 __ flush (); | |
| 109 | |
| 110 return fast_entry; | |
| 111 } | |
| 112 | |
| 113 address JNI_FastGetField::generate_fast_get_boolean_field() { | |
| 114 return generate_fast_get_int_field0(T_BOOLEAN); | |
| 115 } | |
| 116 | |
| 117 address JNI_FastGetField::generate_fast_get_byte_field() { | |
| 118 return generate_fast_get_int_field0(T_BYTE); | |
| 119 } | |
| 120 | |
| 121 address JNI_FastGetField::generate_fast_get_char_field() { | |
| 122 return generate_fast_get_int_field0(T_CHAR); | |
| 123 } | |
| 124 | |
| 125 address JNI_FastGetField::generate_fast_get_short_field() { | |
| 126 return generate_fast_get_int_field0(T_SHORT); | |
| 127 } | |
| 128 | |
| 129 address JNI_FastGetField::generate_fast_get_int_field() { | |
| 130 return generate_fast_get_int_field0(T_INT); | |
| 131 } | |
| 132 | |
| 133 address JNI_FastGetField::generate_fast_get_long_field() { | |
| 134 const char *name = "jni_fast_GetLongField"; | |
| 135 ResourceMark rm; | |
| 1748 | 136 BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize); |
| 137 CodeBuffer cbuf(blob); | |
| 0 | 138 MacroAssembler* masm = new MacroAssembler(&cbuf); |
| 1748 | 139 address fast_entry = __ pc(); |
| 0 | 140 |
| 141 Label label1, label2; | |
| 142 | |
| 727 | 143 AddressLiteral cnt_addrlit(SafepointSynchronize::safepoint_counter_addr()); |
| 144 __ sethi (cnt_addrlit, G3); | |
| 145 Address cnt_addr(G3, cnt_addrlit.low10()); | |
| 146 __ ld (cnt_addr, G4); | |
| 0 | 147 __ andcc (G4, 1, G0); |
| 148 __ br (Assembler::notZero, false, Assembler::pn, label1); | |
| 149 __ delayed()->srl (O2, 2, O4); | |
| 150 __ ld_ptr (O1, 0, O5); | |
| 151 __ add (O5, O4, O5); | |
| 152 | |
| 153 #ifndef _LP64 | |
| 154 assert(count < LIST_CAPACITY-1, "LIST_CAPACITY too small"); | |
| 155 speculative_load_pclist[count++] = __ pc(); | |
| 156 __ ld (O5, 0, G2); | |
| 157 | |
| 158 speculative_load_pclist[count] = __ pc(); | |
| 159 __ ld (O5, 4, O3); | |
| 160 #else | |
| 161 assert(count < LIST_CAPACITY, "LIST_CAPACITY too small"); | |
| 162 speculative_load_pclist[count] = __ pc(); | |
| 163 __ ldx (O5, 0, O3); | |
| 164 #endif | |
| 165 | |
| 727 | 166 __ ld (cnt_addr, G1); |
| 0 | 167 __ cmp (G1, G4); |
| 168 __ br (Assembler::notEqual, false, Assembler::pn, label2); | |
| 169 __ delayed()->mov (O7, G1); | |
| 170 | |
| 171 #ifndef _LP64 | |
| 172 __ mov (G2, O0); | |
| 173 __ retl (); | |
| 174 __ delayed()->mov (O3, O1); | |
| 175 #else | |
| 176 __ retl (); | |
| 177 __ delayed()->mov (O3, O0); | |
| 178 #endif | |
| 179 | |
| 180 #ifndef _LP64 | |
| 181 slowcase_entry_pclist[count-1] = __ pc(); | |
| 182 slowcase_entry_pclist[count++] = __ pc() ; | |
| 183 #else | |
| 184 slowcase_entry_pclist[count++] = __ pc(); | |
| 185 #endif | |
| 186 | |
| 187 __ bind (label1); | |
| 188 __ mov (O7, G1); | |
| 189 | |
| 190 address slow_case_addr = jni_GetLongField_addr(); | |
| 191 __ bind (label2); | |
| 192 __ call (slow_case_addr, relocInfo::none); | |
| 193 __ delayed()->mov (G1, O7); | |
| 194 | |
| 195 __ flush (); | |
| 196 | |
| 197 return fast_entry; | |
| 198 } | |
| 199 | |
| 200 address JNI_FastGetField::generate_fast_get_float_field0(BasicType type) { | |
| 201 const char *name; | |
| 202 switch (type) { | |
| 203 case T_FLOAT: name = "jni_fast_GetFloatField"; break; | |
| 204 case T_DOUBLE: name = "jni_fast_GetDoubleField"; break; | |
| 205 default: ShouldNotReachHere(); | |
| 206 } | |
| 207 ResourceMark rm; | |
| 1748 | 208 BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize); |
| 209 CodeBuffer cbuf(blob); | |
| 0 | 210 MacroAssembler* masm = new MacroAssembler(&cbuf); |
| 1748 | 211 address fast_entry = __ pc(); |
| 0 | 212 |
| 213 Label label1, label2; | |
| 214 | |
| 727 | 215 AddressLiteral cnt_addrlit(SafepointSynchronize::safepoint_counter_addr()); |
| 216 __ sethi (cnt_addrlit, O3); | |
| 217 Address cnt_addr(O3, cnt_addrlit.low10()); | |
| 218 __ ld (cnt_addr, G4); | |
| 0 | 219 __ andcc (G4, 1, G0); |
| 220 __ br (Assembler::notZero, false, Assembler::pn, label1); | |
| 221 __ delayed()->srl (O2, 2, O4); | |
| 222 __ ld_ptr (O1, 0, O5); | |
| 223 | |
| 224 assert(count < LIST_CAPACITY, "LIST_CAPACITY too small"); | |
| 225 speculative_load_pclist[count] = __ pc(); | |
| 226 switch (type) { | |
| 227 case T_FLOAT: __ ldf (FloatRegisterImpl::S, O5, O4, F0); break; | |
| 228 case T_DOUBLE: __ ldf (FloatRegisterImpl::D, O5, O4, F0); break; | |
| 229 default: ShouldNotReachHere(); | |
| 230 } | |
| 231 | |
| 727 | 232 __ ld (cnt_addr, O5); |
| 0 | 233 __ cmp (O5, G4); |
| 234 __ br (Assembler::notEqual, false, Assembler::pn, label2); | |
| 235 __ delayed()->mov (O7, G1); | |
| 236 | |
| 237 __ retl (); | |
| 238 __ delayed()-> nop (); | |
| 239 | |
| 240 slowcase_entry_pclist[count++] = __ pc(); | |
| 241 __ bind (label1); | |
| 242 __ mov (O7, G1); | |
| 243 | |
| 244 address slow_case_addr; | |
| 245 switch (type) { | |
| 246 case T_FLOAT: slow_case_addr = jni_GetFloatField_addr(); break; | |
| 247 case T_DOUBLE: slow_case_addr = jni_GetDoubleField_addr(); break; | |
| 248 default: ShouldNotReachHere(); | |
| 249 } | |
| 250 __ bind (label2); | |
| 251 __ call (slow_case_addr, relocInfo::none); | |
| 252 __ delayed()->mov (G1, O7); | |
| 253 | |
| 254 __ flush (); | |
| 255 | |
| 256 return fast_entry; | |
| 257 } | |
| 258 | |
| 259 address JNI_FastGetField::generate_fast_get_float_field() { | |
| 260 return generate_fast_get_float_field0(T_FLOAT); | |
| 261 } | |
| 262 | |
| 263 address JNI_FastGetField::generate_fast_get_double_field() { | |
| 264 return generate_fast_get_float_field0(T_DOUBLE); | |
| 265 } |