1 /*
   2  * Copyright (c) 1997, 2012, 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 #ifndef SHARE_VM_OOPS_TYPEARRAYOOP_HPP
  26 #define SHARE_VM_OOPS_TYPEARRAYOOP_HPP
  27 
  28 #include "oops/arrayOop.hpp"
  29 #include "oops/typeArrayKlass.hpp"
  30 #include "runtime/orderAccess.inline.hpp"
  31 
  32 // A typeArrayOop is an array containing basic types (non oop elements).
  33 // It is used for arrays of {characters, singles, doubles, bytes, shorts, integers, longs}
  34 #include <limits.h>
  35 
  36 class typeArrayOopDesc : public arrayOopDesc {
  37  protected:
  38   jchar*    char_base()   const { return (jchar*)   base(T_CHAR); }
  39   jboolean* bool_base()   const { return (jboolean*)base(T_BOOLEAN); }
  40   jbyte*    byte_base()   const { return (jbyte*)   base(T_BYTE); }
  41   jint*     int_base()    const { return (jint*)    base(T_INT); }
  42   jlong*    long_base()   const { return (jlong*)   base(T_LONG); }
  43   jshort*   short_base()  const { return (jshort*)  base(T_SHORT); }
  44   jfloat*   float_base()  const { return (jfloat*)  base(T_FLOAT); }
  45   jdouble*  double_base() const { return (jdouble*) base(T_DOUBLE); }
  46 
  47   friend class TypeArrayKlass;
  48 
  49  public:
  50   jbyte* byte_at_addr(int which) const {
  51     assert(is_within_bounds(which), "index out of bounds");
  52     return &byte_base()[which];
  53   }
  54 
  55   jboolean* bool_at_addr(int which) const {
  56     assert(is_within_bounds(which), "index out of bounds");
  57     return &bool_base()[which];
  58   }
  59 
  60   jchar* char_at_addr(int which) const {
  61     assert(is_within_bounds(which), "index out of bounds");
  62     return &char_base()[which];
  63   }
  64 
  65   jint* int_at_addr(int which) const {
  66     assert(is_within_bounds(which), "index out of bounds");
  67     return &int_base()[which];
  68   }
  69 
  70   jshort* short_at_addr(int which) const {
  71     assert(is_within_bounds(which), "index out of bounds");
  72     return &short_base()[which];
  73   }
  74 
  75   jushort* ushort_at_addr(int which) const {  // for field descriptor arrays
  76     assert(is_within_bounds(which), "index out of bounds");
  77     return (jushort*) &short_base()[which];
  78   }
  79 
  80   jlong* long_at_addr(int which) const {
  81     assert(is_within_bounds(which), "index out of bounds");
  82     return &long_base()[which];
  83   }
  84 
  85   jfloat* float_at_addr(int which) const {
  86     assert(is_within_bounds(which), "index out of bounds");
  87     return &float_base()[which];
  88   }
  89 
  90   jdouble* double_at_addr(int which) const {
  91     assert(is_within_bounds(which), "index out of bounds");
  92     return &double_base()[which];
  93   }
  94 
  95   jbyte byte_at(int which) const                  {
  96     return *byte_at_addr(which);
  97   }
  98   void byte_at_put(int which, jbyte contents)     {
  99     *byte_at_addr(which) = contents;
 100   }
 101 
 102   jboolean bool_at(int which) const               {
 103     return *bool_at_addr(which);
 104   }
 105   void bool_at_put(int which, jboolean contents)  {
 106     *bool_at_addr(which) = (((jint)contents) & 1);
 107   }
 108 
 109   jchar char_at(int which) const                  {
 110     return *char_at_addr(which);
 111   }
 112   void char_at_put(int which, jchar contents)     {
 113     *char_at_addr(which) = contents;
 114   }
 115 
 116   jint int_at(int which) const                    {
 117     return *int_at_addr(which);
 118   }
 119   void int_at_put(int which, jint contents)       {
 120     *int_at_addr(which) = contents;
 121   }
 122 
 123   jshort short_at(int which) const                {
 124     return *short_at_addr(which);
 125   }
 126   void short_at_put(int which, jshort contents)   {
 127     *short_at_addr(which) = contents;
 128   }
 129 
 130   jushort ushort_at(int which) const              {
 131     return *ushort_at_addr(which);
 132   }
 133   void ushort_at_put(int which, jushort contents) {
 134     *ushort_at_addr(which) = contents;
 135   }
 136 
 137   jlong long_at(int which) const                  {
 138     return *long_at_addr(which);
 139   }
 140   void long_at_put(int which, jlong contents)     {
 141     *long_at_addr(which) = contents;
 142   }
 143 
 144   jfloat float_at(int which) const                {
 145     return *float_at_addr(which);
 146   }
 147   void float_at_put(int which, jfloat contents)   {
 148     *float_at_addr(which) = contents;
 149   }
 150 
 151   jdouble double_at(int which) const              {
 152     return *double_at_addr(which);
 153   }
 154   void double_at_put(int which, jdouble contents) {
 155     *double_at_addr(which) = contents;
 156   }
 157 
 158   jbyte byte_at_acquire(int which) const              {
 159     return OrderAccess::load_acquire(byte_at_addr(which));
 160   }
 161   void release_byte_at_put(int which, jbyte contents) {
 162     OrderAccess::release_store(byte_at_addr(which), contents);
 163   }
 164 
 165   // Java thinks metadata arrays are just arrays of either long or int, since
 166   // there doesn't seem to be T_ADDRESS, so this is a bit of unfortunate
 167   // casting
 168 #ifdef _LP64
 169   Metadata* metadata_at(int which) const {
 170     return (Metadata*)*long_at_addr(which);
 171   }
 172   void metadata_at_put(int which, Metadata* contents) {
 173     *long_at_addr(which) = (jlong)contents;
 174   }
 175 #else
 176   Metadata* metadata_at(int which) const {
 177     return (Metadata*)*int_at_addr(which);
 178   }
 179   void metadata_at_put(int which, Metadata* contents) {
 180     *int_at_addr(which) = (int)contents;
 181   }
 182 #endif // _LP64
 183 
 184   // Sizing
 185 
 186   // Returns the number of words necessary to hold an array of "len"
 187   // elements each of the given "byte_size".
 188  private:
 189   static int object_size(int lh, int length) {
 190     int instance_header_size = Klass::layout_helper_header_size(lh);
 191     int element_shift = Klass::layout_helper_log2_element_size(lh);
 192     DEBUG_ONLY(BasicType etype = Klass::layout_helper_element_type(lh));
 193     assert(length <= arrayOopDesc::max_array_length(etype), "no overflow");
 194 
 195     julong size_in_bytes = (juint)length;
 196     size_in_bytes <<= element_shift;
 197     size_in_bytes += instance_header_size;
 198     julong size_in_words = ((size_in_bytes + (HeapWordSize-1)) >> LogHeapWordSize);
 199     assert(size_in_words <= (julong)max_jint, "no overflow");
 200 
 201     return align_object_size((intptr_t)size_in_words);
 202   }
 203 
 204  public:
 205   int object_size() {
 206     TypeArrayKlass* tk = TypeArrayKlass::cast(klass());
 207     return object_size(tk->layout_helper(), length());
 208   }
 209 };
 210 
 211 #endif // SHARE_VM_OOPS_TYPEARRAYOOP_HPP