text: /*
   * Copyright (C) 2015 The Android Open Source Project
   *
   * Licensed under the Apache License, Version 2.0 (the "License");
   * you may not use this file except in compliance with the License.
   * You may obtain a copy of the License at
   *
   *      http://www.apache.org/licenses/LICENSE-2.0
   *
   * Unless required by applicable law or agreed to in writing, software
   * distributed under the License is distributed on an "AS IS" BASIS,
   * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   * See the License for the specific language governing permissions and
   * limitations under the License.
   */
  
  #include "luni/src/main/native/libcore_io_Memory.cpp"
  
  #include <stdlib.h>
  
  #include <functional>
  
  #include <gtest/gtest.h>
  
  #define ALIGNMENT 8
  
  template<typename T, size_t NUM_ELEMENTS>
  void swap_align_test(void (*swap_func)(T*, const T*, size_t),
                       std::function<void (T*, T*, uint64_t)> init_func) {
    uint8_t* dst = nullptr;
    uint8_t* src = nullptr;
    ASSERT_EQ(0, posix_memalign(reinterpret_cast<void**>(&dst), ALIGNMENT,
                                sizeof(T) * NUM_ELEMENTS + ALIGNMENT));
    ASSERT_EQ(0, posix_memalign(reinterpret_cast<void**>(&src), ALIGNMENT,
                                sizeof(T) * NUM_ELEMENTS + ALIGNMENT));
  
    T src_buf[NUM_ELEMENTS];
    T dst_buf[NUM_ELEMENTS];
    for (uint64_t i = 0; i < NUM_ELEMENTS; i++) {
      init_func(&src_buf[i], &dst_buf[i], i);
    }
  
    // Vary a few alignments.
    for (size_t dst_align = 0; dst_align < ALIGNMENT; dst_align++) {
      T* dst_aligned = reinterpret_cast<T*>(&dst[dst_align]);
      for (size_t src_align = 0; src_align < ALIGNMENT; src_align++) {
        T* src_aligned = reinterpret_cast<T*>(&src[src_align]);
        memset(dst_aligned, 0, sizeof(T) * NUM_ELEMENTS);
        memcpy(src_aligned, src_buf, sizeof(T) * NUM_ELEMENTS);
        swap_func(dst_aligned, src_aligned, NUM_ELEMENTS);
        ASSERT_EQ(0, memcmp(dst_buf, dst_aligned, sizeof(T) * NUM_ELEMENTS))
            << "Failed at dst align " << dst_align << " src align " << src_align;
      }
    }
    free(dst);
    free(src);
  }
  
  TEST(libcore, swapShorts_align_test) {
    // Use an odd number to guarantee that the last 16-bit swap code
    // is executed.
    swap_align_test<jshort, 9> (swapShorts, [] (jshort* src, jshort* dst, uint64_t i) {
      *src = ((2*i) << 8) | (2*(i+1));
      *dst = (2*i) | ((2*(i+1)) << 8);
    });
  }
  
  TEST(libcore, swapInts_align_test) {
    swap_align_test<jint, 10> (swapInts, [] (jint* src, jint* dst, uint64_t i) {
      *src = ((4*i) << 24) | ((4*(i+1)) << 16) | ((4*(i+2)) << 8) | (4*(i+3));
      *dst = (4*i) | ((4*(i+1)) << 8) | ((4*(i+2)) << 16) | ((4*(i+3)) << 24);
    });
  }
  
  TEST(libcore, swapLongs_align_test) {
    swap_align_test<jlong, 10> (swapLongs, [] (jlong* src, jlong* dst, uint64_t i) {
      *src = ((8*i) << 56) | ((8*(i+1)) << 48) | ((8*(i+2)) << 40) | ((8*(i+3)) << 32) |
          ((8*(i+4)) << 24) | ((8*(i+5)) << 16) | ((8*(i+6)) << 8) | (8*(i+7));
      *dst = (8*i) | ((8*(i+1)) << 8) | ((8*(i+2)) << 16) | ((8*(i+3)) << 24) |
          ((8*(i+4)) << 32) | ((8*(i+5)) << 40) | ((8*(i+6)) << 48) | ((8*(i+7)) << 56);
    });
  }
  
  template<typename T>
  void memory_peek_test(T (*peek_func)(JNIEnv*, jclass, jlong), T value) {
    T* src = nullptr;
    ASSERT_EQ(0, posix_memalign(reinterpret_cast<void**>(&src), ALIGNMENT,
                                sizeof(T) + ALIGNMENT));
    for (size_t i = 0; i < ALIGNMENT; i++) {
      jlong src_aligned = reinterpret_cast<jlong>(src) + i;
      memcpy(reinterpret_cast<void*>(src_aligned), &value, sizeof(T));
      T result = peek_func(nullptr, nullptr, src_aligned);
      ASSERT_EQ(value, result);
    }
    free(src);
  }
  
  TEST(libcore, Memory_peekShortNative_align_check) {
    memory_peek_test<jshort>(Memory_peekShortNative, 0x0102);
  }
  
  TEST(libcore, Memory_peekIntNative_align_check) {
    memory_peek_test<jint>(Memory_peekIntNative, 0x01020304);
  }
  
  TEST(libcore, Memory_peekLongNative_align_check) {
    memory_peek_test<jlong>(Memory_peekLongNative, 0x01020405060708ULL);
  }
  
  template<typename T>
  void memory_poke_test(void (*poke_func)(JNIEnv*, jclass, jlong, T), T value) {
    T* dst = nullptr;
    ASSERT_EQ(0, posix_memalign(reinterpret_cast<void**>(&dst), ALIGNMENT,
                                sizeof(T) + ALIGNMENT));
    for(size_t i = 0; i < ALIGNMENT; i++) {
      memset(dst, 0, sizeof(T) + ALIGNMENT);
      jlong dst_aligned = reinterpret_cast<jlong>(dst) + i;
      poke_func(nullptr, nullptr, dst_aligned, value);
      ASSERT_EQ(0, memcmp(reinterpret_cast<void*>(dst_aligned), &value, sizeof(T)));
    }
    free(dst);
  }
  
  TEST(libcore, Memory_pokeShortNative_align_check) {
    memory_poke_test<jshort>(Memory_pokeShortNative, 0x0102);
  }
  
  TEST(libcore, Memory_pokeIntNative_align_check) {
    memory_poke_test<jint>(Memory_pokeIntNative, 0x01020304);
  }
  
  TEST(libcore, Memory_pokeLongNative_align_check) {
    memory_poke_test<jlong>(Memory_pokeLongNative, 0x0102030405060708ULL);
  }
  