/*

 * Copyright (c) 1999, 2011, Oracle and/or its affiliates. All rights reserved.

 * Copyright 2009, 2010 Red Hat, Inc.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 *

 */

#include "precompiled.hpp"

#include "shark/llvmHeaders.hpp"

#include "shark/sharkNativeWrapper.hpp"

#include "shark/sharkType.hpp"

using namespace llvm;

void SharkNativeWrapper::initialize(const char *name) {

  // Create the function

  _function = Function::Create(

    SharkType::entry_point_type(),

    GlobalVariable::InternalLinkage,

    name);

  // Get our arguments

  Function::arg_iterator ai = function()->arg_begin();

  Argument *method = ai++;

  method->setName("method");

  Argument *base_pc = ai++;

  base_pc->setName("base_pc");

  code_buffer()->set_base_pc(base_pc);

  Argument *thread = ai++;

  thread->setName("thread");

  set_thread(thread);

  // Create and push our stack frame

  builder()->SetInsertPoint(CreateBlock());

  _stack = SharkStack::CreateBuildAndPushFrame(this, method);

  NOT_PRODUCT(method = NULL);

  // Create the oopmap.  We use the one oopmap for every call site in

  // the wrapper, which results in the odd mild inefficiency but is a

  // damn sight easier to code.

  OopMap *oopmap = new OopMap(

    SharkStack::oopmap_slot_munge(stack()->oopmap_frame_size()),

    SharkStack::oopmap_slot_munge(arg_size()));

  // Set up the oop_tmp slot if required:

  //  - For static methods we use it to handlize the class argument

  //    for the call, and to protect the same during slow path locks

  //    (if synchronized).

  //  - For methods returning oops, we use it to protect the return

  //    value across safepoints or slow path unlocking.

  if (is_static() || is_returning_oop()) {

    _oop_tmp_slot = stack()->slot_addr(

      stack()->oop_tmp_slot_offset(),

      SharkType::oop_type(),

      "oop_tmp_slot");

    oopmap->set_oop(SharkStack::slot2reg(stack()->oop_tmp_slot_offset()));

  }

  // Set up the monitor slot, for synchronized methods

  if (is_synchronized()) {

    Unimplemented();

    _lock_slot_offset = 23;

  }

  // Start building the argument list

  std::vector<Value*> param_values;

  // First argument is the JNIEnv

  param_types.push_back(SharkType::jniEnv_type());

  param_values.push_back(

    builder()->CreateAddressOfStructEntry(

      thread,

      JavaThread::jni_environment_offset(),

      SharkType::jniEnv_type(),

      "jni_environment"));

  // For static methods, the second argument is the class

  if (is_static()) {

    builder()->CreateStore(

      builder()->CreateInlineOop(

        JNIHandles::make_local(

          target()->method_holder()->java_mirror())),

      oop_tmp_slot());

    param_types.push_back(box_type);

    param_values.push_back(oop_tmp_slot());

    _receiver_slot_offset = stack()->oop_tmp_slot_offset();

  }

  else if (is_returning_oop()) {

    // The oop_tmp slot is registered in the oopmap,

    // so we need to clear it.  This is one of the

    // mild inefficiencies I mentioned earlier.

    builder()->CreateStore(LLVMValue::null(), oop_tmp_slot());

  }

  // Parse the arguments

  for (int i = 0; i < arg_size(); i++) {

    int slot_offset = stack()->locals_slots_offset() + arg_size() - 1 - i;

    int adjusted_offset = slot_offset;

    BasicBlock *null, *not_null, *merge;

    Value *box;

    PHINode *phi;

    switch (arg_type(i)) {

    case T_VOID:

      break;

    case T_OBJECT:

    case T_ARRAY:

      null     = CreateBlock("null");

      not_null = CreateBlock("not_null");

      merge    = CreateBlock("merge");

      box = stack()->slot_addr(slot_offset, SharkType::oop_type());

      builder()->CreateCondBr(

        builder()->CreateICmp(

          ICmpInst::ICMP_EQ,

          builder()->CreateLoad(box),

          LLVMValue::null()),

        null, not_null);

      builder()->SetInsertPoint(null);

      builder()->CreateBr(merge);

      builder()->SetInsertPoint(not_null);

      builder()->CreateBr(merge);

      builder()->SetInsertPoint(merge);

      phi->addIncoming(ConstantPointerNull::get(box_type), null);

      phi->addIncoming(box, not_null);

      box = phi;

      param_types.push_back(box_type);

      param_values.push_back(box);

      oopmap->set_oop(SharkStack::slot2reg(slot_offset));

      if (i == 0 && !is_static())

        _receiver_slot_offset = slot_offset;

      break;

    case T_LONG:

    case T_DOUBLE:

      adjusted_offset--;

      // fall through

    default:

      param_types.push_back(param_type);

      param_values.push_back(

        builder()->CreateLoad(stack()->slot_addr(adjusted_offset, param_type)));

    }

  }

  // The oopmap is now complete, and everything is written

  // into the frame except the PC.

  int pc_offset = code_buffer()->create_unique_offset();

  _oop_maps = new OopMapSet();

  oop_maps()->add_gc_map(pc_offset, oopmap);

  builder()->CreateStore(

    builder()->code_buffer_address(pc_offset),

    stack()->slot_addr(stack()->pc_slot_offset()));

  // Set up the Java frame anchor

  stack()->CreateSetLastJavaFrame();

  // Lock if necessary

  if (is_synchronized())

    Unimplemented();

  // Change the thread state to _thread_in_native

  CreateSetThreadState(_thread_in_native);

  // Make the call

  BasicType result_type = target()->result_type();

  if (result_type == T_VOID)

    return_type = SharkType::void_type();

  else if (is_returning_oop())

    return_type = box_type;

  else

    return_type = SharkType::to_arrayType(result_type);

  Value* native_function = builder()->CreateIntToPtr(

     LLVMValue::intptr_constant((intptr_t) target()->native_function()),

     PointerType::getUnqual(

       FunctionType::get(return_type, param_types, false)));

  Value *result = builder()->CreateCall(

  // Start the transition back to _thread_in_Java

  CreateSetThreadState(_thread_in_native_trans);

  // Make sure new state is visible in the GC thread

  if (os::is_MP()) {

    if (UseMembar)

    else

      CreateWriteMemorySerializePage();

  }

  // Handle safepoint operations, pending suspend requests,

  // and pending asynchronous exceptions.

  BasicBlock *check_thread = CreateBlock("check_thread");

  BasicBlock *do_safepoint = CreateBlock("do_safepoint");

  BasicBlock *safepointed  = CreateBlock("safepointed");

  Value *global_state = builder()->CreateLoad(

    builder()->CreateIntToPtr(

      LLVMValue::intptr_constant(

        (intptr_t) SafepointSynchronize::address_of_state()),

      PointerType::getUnqual(SharkType::jint_type())),

    "global_state");

  builder()->CreateCondBr(

    builder()->CreateICmpNE(

      global_state,

      LLVMValue::jint_constant(SafepointSynchronize::_not_synchronized)),

    do_safepoint, check_thread);

  builder()->SetInsertPoint(check_thread);

  Value *thread_state = builder()->CreateValueOfStructEntry(

    thread,

    JavaThread::suspend_flags_offset(),

    SharkType::jint_type(),

    "thread_state");

  builder()->CreateCondBr(

    builder()->CreateICmpNE(

      thread_state,

      LLVMValue::jint_constant(0)),

    do_safepoint, safepointed);

  builder()->SetInsertPoint(do_safepoint);

  builder()->CreateCall(

    builder()->check_special_condition_for_native_trans(), thread);

  builder()->CreateBr(safepointed);

  // Finally we can change the thread state to _thread_in_Java

  builder()->SetInsertPoint(safepointed);

  CreateSetThreadState(_thread_in_Java);

  // Clear the frame anchor

  stack()->CreateResetLastJavaFrame();

  // If there is a pending exception then we can just unwind and

  // return.  It seems totally wrong that unlocking is skipped here

  // but apparently the template interpreter does this so we do too.

  BasicBlock *exception    = CreateBlock("exception");

  BasicBlock *no_exception = CreateBlock("no_exception");

  builder()->CreateCondBr(

    builder()->CreateICmpEQ(

      CreateLoadPendingException(),

      LLVMValue::null()),

    no_exception, exception);

  builder()->SetInsertPoint(exception);

  CreateResetHandleBlock();

  stack()->CreatePopFrame(0);

  builder()->CreateRet(LLVMValue::jint_constant(0));

  builder()->SetInsertPoint(no_exception);

  // If the result was an oop then unbox it before

  // releasing the handle it might be protected by

  if (is_returning_oop()) {

    BasicBlock *null     = builder()->GetInsertBlock();

    BasicBlock *not_null = CreateBlock("not_null");

    BasicBlock *merge    = CreateBlock("merge");

    builder()->CreateCondBr(

      builder()->CreateICmpNE(result, ConstantPointerNull::get(box_type)),

      not_null, merge);

    builder()->SetInsertPoint(not_null);

    Value *unboxed_result = builder()->CreateLoad(result);

    builder()->CreateBr(merge);

    builder()->SetInsertPoint(merge);

    phi->addIncoming(LLVMValue::null(), null);

    phi->addIncoming(unboxed_result, not_null);

    result = phi;

  }

  // Reset handle block

  CreateResetHandleBlock();

  // Unlock if necessary.

  if (is_synchronized())

    Unimplemented();

  // Unwind and return

  Value *result_addr = stack()->CreatePopFrame(type2size[result_type]);

  if (result_type != T_VOID) {

    bool needs_cast = false;

    bool is_signed = false;

    switch (result_type) {

    case T_BOOLEAN:

      result = builder()->CreateICmpNE(result, LLVMValue::jbyte_constant(0));

      needs_cast = true;

      break;

    case T_CHAR:

      needs_cast = true;

      break;

    case T_BYTE:

    case T_SHORT:

      needs_cast = true;

      is_signed = true;

      break;

    }

    if (needs_cast) {

      result = builder()->CreateIntCast(

        result, SharkType::to_stackType(result_type), is_signed);

    }

    builder()->CreateStore(

      result,

      builder()->CreateIntToPtr(

        result_addr,

        PointerType::getUnqual(SharkType::to_stackType(result_type))));

  }

  builder()->CreateRet(LLVMValue::jint_constant(0));

}