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 
  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;
  57   BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize);
  58   CodeBuffer cbuf(blob);
  59   MacroAssembler* masm = new MacroAssembler(&cbuf);
  60   address fast_entry = __ pc();
  61 
  62   Label label1, label2;
  63 
  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);
  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 
  84   __ ld (cnt_addr, O5);
  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;
 136   BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize);
 137   CodeBuffer cbuf(blob);
 138   MacroAssembler* masm = new MacroAssembler(&cbuf);
 139   address fast_entry = __ pc();
 140 
 141   Label label1, label2;
 142 
 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);
 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 
 166   __ ld (cnt_addr, G1);
 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;
 208   BufferBlob* blob = BufferBlob::create(name, BUFFER_SIZE*wordSize);
 209   CodeBuffer cbuf(blob);
 210   MacroAssembler* masm = new MacroAssembler(&cbuf);
 211   address fast_entry = __ pc();
 212 
 213   Label label1, label2;
 214 
 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);
 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 
 232   __ ld (cnt_addr, O5);
 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 }
--- EOF ---