1 /*
   2  * Copyright (c) 2015, 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 "utilities/endian.hpp"
  27 #include "utilities/bytes.hpp"
  28 
  29 #ifndef bswap_16
  30 extern "C" inline u2 bswap_16(u2 x) {
  31   return ((x & 0xFF) << 8) |
  32          ((x >> 8) & 0xFF);
  33 }
  34 #endif
  35 
  36 #ifndef bswap_32
  37 extern "C" inline u4 bswap_32(u4 x) {
  38   return ((x & 0xFF) << 24) |
  39        ((x & 0xFF00) << 8) |
  40        ((x >> 8) & 0xFF00) |
  41        ((x >> 24) & 0xFF);
  42 }
  43 #endif
  44 
  45 #ifndef bswap_64
  46 extern "C" inline u8 bswap_64(u8 x) {
  47   return (u8)bswap_32((u4)x) << 32 |
  48          (u8)bswap_32((u4)(x >> 32));
  49 }
  50 #endif
  51 
  52 u2 NativeEndian::get(u2 x) { return x; }
  53 u4 NativeEndian::get(u4 x) { return x; }
  54 u8 NativeEndian::get(u8 x) { return x; }
  55 s2 NativeEndian::get(s2 x) { return x; }
  56 s4 NativeEndian::get(s4 x) { return x; }
  57 s8 NativeEndian::get(s8 x) { return x; }
  58 
  59 void NativeEndian::set(u2& x, u2 y) { x = y; }
  60 void NativeEndian::set(u4& x, u4 y) { x = y; }
  61 void NativeEndian::set(u8& x, u8 y) { x = y; }
  62 void NativeEndian::set(s2& x, s2 y) { x = y; }
  63 void NativeEndian::set(s4& x, s4 y) { x = y; }
  64 void NativeEndian::set(s8& x, s8 y) { x = y; }
  65 
  66 NativeEndian NativeEndian::_native;
  67 
  68 u2 SwappingEndian::get(u2 x) { return bswap_16(x); }
  69 u4 SwappingEndian::get(u4 x) { return bswap_32(x); }
  70 u8 SwappingEndian::get(u8 x) { return bswap_64(x); }
  71 s2 SwappingEndian::get(s2 x) { return bswap_16(x); }
  72 s4 SwappingEndian::get(s4 x) { return bswap_32(x); }
  73 s8 SwappingEndian::get(s8 x) { return bswap_64(x); }
  74 
  75 void SwappingEndian::set(u2& x, u2 y) { x = bswap_16(y); }
  76 void SwappingEndian::set(u4& x, u4 y) { x = bswap_32(y); }
  77 void SwappingEndian::set(u8& x, u8 y) { x = bswap_64(y); }
  78 void SwappingEndian::set(s2& x, s2 y) { x = bswap_16(y); }
  79 void SwappingEndian::set(s4& x, s4 y) { x = bswap_32(y); }
  80 void SwappingEndian::set(s8& x, s8 y) { x = bswap_64(y); }
  81 
  82 SwappingEndian SwappingEndian::_swapping;
  83 
  84 Endian* Endian::get_handler(bool big_endian) {
  85   // If requesting little endian on a little endian machine or
  86   // big endian on a big endian machine use native handler
  87   if (big_endian == is_big_endian()) {
  88     return NativeEndian::get_native();
  89   } else {
  90     // Use swapping handler.
  91     return SwappingEndian::get_swapping();
  92   }
  93 }
  94 
  95 Endian* Endian::get_native_handler() {
  96   return NativeEndian::get_native();
  97 }