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