triton/lib/codegen.cpp

#include <functional>
#include "ast.h"
#include "codegen.h"
#include "llvm/IR/DerivedTypes.h"
#include "llvm/IR/Module.h"

using namespace llvm;

namespace tdl{

/* Context */
context::context() { }

LLVMContext *context::handle() {
  return &handle_;
}

/* Module */
module::module(const std::string &name, context *ctx)
  : handle_(name.c_str(), *ctx->handle()), builder_(*ctx->handle()) {
}

llvm::Module* module::handle() {
  return &handle_;
}

llvm::IRBuilder<>& module::builder() {
  return builder_;
}

void module::value(ast::node* node, llvm::Value* value){
  values_[node] = value;
}

llvm::Value *module::value(ast::node* node){
  return values_[node];
}


namespace ast{

/* Translation unit */
Value* translation_unit::codegen(module *mod) const{
  decls_->codegen(mod);
  return nullptr;
}

/* Declaration specifier */
Type* declaration_specifier::type(module *mod) const {
  LLVMContext &ctx = mod->handle()->getContext();
  switch (spec_) {
  case VOID_T:      return Type::getVoidTy(ctx);
  case INT8_T:      return IntegerType::get(ctx, 8);
  case INT16_T:     return IntegerType::get(ctx, 16);
  case INT32_T:     return IntegerType::get(ctx, 32);
  case INT64_T:     return IntegerType::get(ctx, 64);
  case FLOAT32_T:   return Type::getFloatTy(ctx);
  case FLOAT64_T:   return Type::getDoubleTy(ctx);
  default: assert(false && "unreachable"); throw;
  }
}

/* Parameter */
Type* parameter::type(module *mod) const {
  return decl_->type(mod, spec_->type(mod));
}

std::string parameter::name() const {
  if(auto id = decl_->id())
    return id->name();
  return "";
}

/* Declarators */
Type* declarator::type(module *mod, Type *type) const{
  if(ptr_)
    return type_impl(mod, ptr_->type(mod, type));
  return type_impl(mod, type);
}

// Identifier
Type* identifier::type_impl(module *, Type *type) const{
  return type;
}

const std::string &identifier::name() const{
  return name_;
}


// Tile
Type* tile::type_impl(module*, Type *type) const{
  return TileType::get(type, shapes_->values().size());
}

// Initializer
Type* initializer::type_impl(module *mod, Type *type) const{
  return decl_->type(mod, type);
}

// Pointer
Type* pointer::type_impl(module*, Type *type) const{
  return PointerType::get(type, 1);
}

// Function
void function::bind_parameters(module *mod, Function *fn) const{
  std::vector<llvm::Value*> args;
  std::transform(fn->arg_begin(), fn->arg_end(), std::back_inserter(args), [&](llvm::Argument& x){ return &x;});
  assert(args.size() == args_->values().size());
  for(size_t i = 0; i < args.size(); i++){
    parameter *param_i = args_->values().at(i);
    args[i]->setName(param_i->name());
    mod->value(param_i, args[i]);
  }
}

Type* function::type_impl(module*mod, Type *type) const{
  SmallVector<Type*, 8> types;
  for(parameter* param: args_->values()){
    types.push_back(param->type(mod));
  }
  return FunctionType::get(type, types, false);
}

/* Function definition */
Value* function_definition::codegen(module *mod) const{
  FunctionType *prototype = (FunctionType *)header_->type(mod, spec_->type(mod));
  const std::string &name = header_->id()->name();
  Function *fn = Function::Create(prototype, Function::ExternalLinkage, name, mod->handle());
  header_->bind_parameters(mod, fn);
  BasicBlock *entry = BasicBlock::Create(mod->handle()->getContext(), "entry", fn);
  mod->builder().SetInsertPoint(entry);
  body_->codegen(mod);
  return nullptr;
}

/* Statements */
Value* compound_statement::codegen(module* mod) const{
  decls_->codegen(mod);
//  statements_->codegen(mod);
  return nullptr;
}

/* Declaration */
Value* declaration::codegen(module* mod) const{
  for(initializer *init: init_->values())
    init->specifier(spec_);
  init_->codegen(mod);
  return nullptr;
}

/* Initializer */
void initializer::specifier(const declaration_specifier *spec) {
  spec_ = spec;
}

Value* initializer::codegen(module * mod) const{
  Type *ty = decl_->type(mod, spec_->type(mod));
  std::string name = decl_->id()->name();
  Value *value = llvm::UndefValue::get(ty);
  value->setName(name);
  return nullptr;
}

/*------------------*/
/*    Expression    */
/*------------------*/

/* Binary operator */
Value *binary_operator::llvm_op(llvm::IRBuilder<> &builder, Value *lhs, Value *rhs, const std::string &name) const
{
  Type *ltype = lhs->getType();
  Type *rtype = rhs->getType();
  bool is_float = ltype->isFloatingPointTy() || rtype->isFloatingPointTy();
  bool is_ptr = ltype->isPointerTy() || rtype->isPointerTy();
  bool is_int = ltype->isIntegerTy() || rtype->isIntegerTy();
  bool is_signed = false;
  // Mul
  if(op_==MUL && is_float)
    return builder.CreateFMul(lhs, rhs, name);
  if(op_==MUL && is_int)
    return builder.CreateMul(lhs, rhs, name);
  // Div
  if(op_==DIV && is_float)
    return builder.CreateFDiv(lhs, rhs, name);
  if(op_==DIV && is_int && is_signed)
    return builder.CreateSDiv(lhs, rhs, name);
  if(op_==DIV && is_int && !is_signed)
    return builder.CreateUDiv(lhs, rhs, name);
  // Mod
  if(op_==MOD && is_float)
    return builder.CreateFRem(lhs, rhs, name);
  if(op_==MOD && is_int && is_signed)
    return builder.CreateSRem(lhs, rhs, name);
  if(op_==MOD && is_int && !is_signed)
    return builder.CreateURem(lhs, rhs, name);
  // Add
  if(op_==ADD && is_float)
    return builder.CreateFAdd(lhs, rhs, name);
  if(op_==ADD && is_int)
    return builder.CreateAdd(lhs, rhs);
  if(op_==ADD && is_ptr)
    return builder.CreateGEP(lhs, {rhs});
  // Sub
  if(op_==SUB && is_float)
    return builder.CreateFSub(lhs, rhs, name);
  if(op_==SUB && is_int)
    return builder.CreateSub(lhs, rhs, name);
  if(op_==SUB && is_ptr)
    return builder.CreateGEP(lhs, {builder.CreateNeg(rhs)});
  // Left shift
  if(op_==LEFT_SHIFT){
    assert(is_int);
    return builder.CreateLShr(lhs, rhs, name);
  }
  // Right shift
  if(op_==RIGHT_SHIFT){
    assert(is_int);
    return builder.CreateAShr(lhs, rhs, name);
  }
  // LT
  if(op_ == LT && is_float)
    return builder.CreateFCmpOLT(lhs, rhs, name);
  if(op_ == LT && is_int && is_signed)
    return builder.CreateICmpSLT(lhs, rhs, name);
  if(op_ == LT && is_int && !is_signed)
    return builder.CreateICmpULT(lhs, rhs, name);
  // GT
  if(op_ == GT && is_float)
    return builder.CreateFCmpOGT(lhs, rhs, name);
  if(op_ == GT && is_int && is_signed)
    return builder.CreateICmpSGT(lhs, rhs, name);
  if(op_ == GT && is_int && !is_signed)
    return builder.CreateICmpUGT(lhs, rhs, name);
  // LE
  if(op_ == LE && is_float)
    return builder.CreateFCmpOLE(lhs, rhs, name);
  if(op_ == LE && is_int && is_signed)
    return builder.CreateICmpSLE(lhs, rhs, name);
  if(op_ == LE && is_int && !is_signed)
    return builder.CreateICmpULE(lhs, rhs, name);
  // GE
  if(op_ == GE && is_float)
    return builder.CreateFCmpOGE(lhs, rhs, name);
  if(op_ == GE && is_int && is_signed)
    return builder.CreateICmpSGE(lhs, rhs, name);
  if(op_ == GE && is_int && !is_signed)
    return builder.CreateICmpUGE(lhs, rhs, name);
  // EQ
  if(op_ == EQ && is_float)
    return builder.CreateFCmpOEQ(lhs, rhs, name);
  if(op_ == EQ && is_int)
    return builder.CreateICmpEQ(lhs, rhs, name);
  // NE
  if(op_ == NE && is_float)
    return builder.CreateFCmpONE(lhs, rhs, name);
  if(op_ == NE && is_int)
    return builder.CreateICmpNE(lhs, rhs, name);
  // AND
  if(op_ == AND){
    assert(is_int);
    return builder.CreateAnd(lhs, rhs, name);
  }
  if(op_ == XOR){
    assert(is_int);
    return builder.CreateXor(lhs, rhs, name);
  }
  if(op_ == OR){
    assert(is_int);
    return builder.CreateOr(lhs, rhs, name);
  }
  if(op_ == LAND){
    assert(is_int);
    return builder.CreateAnd(lhs, rhs, name);
  }
  if(op_ == LOR){
    assert(is_int);
    return builder.CreateOr(lhs, rhs, name);
  }
  assert(false && "unreachable");
  throw;
}

Value* binary_operator::codegen(module *mod) const{
  Value *lhs = lhs_->codegen(mod);
  Value *rhs = rhs_->codegen(mod);
  Value *result = llvm_op(mod->builder(), lhs, rhs, "");
  return result;
}

/* Unary operator */
Value *unary_operator::llvm_op(llvm::IRBuilder<> &builder, Value *arg, const std::string &name) const{
  Type *atype = arg->getType();
  bool is_float = atype->isFloatingPointTy();
  bool is_int = atype->isIntegerTy();
  if(op_ == INC){
    assert(is_int);
    return builder.CreateAdd(arg, builder.getInt32(1), name);
  }
  if(op_ == DEC){
    assert(is_int);
    return builder.CreateSub(arg, builder.getInt32(1), name);
  }
  if(op_ == PLUS)
    return arg;
  if(op_ == MINUS && is_float)
    return builder.CreateFNeg(arg, name);
  if(op_ == MINUS && is_int)
    return builder.CreateNeg(arg, name);
  if(op_ == ADDR)
    throw std::runtime_error("not supported");
  if(op_ == DEREF)
    return builder.CreateLoad(arg, name);
  if(op_ == COMPL)
    throw std::runtime_error("not supported");
  if(op_ == NOT)
    return builder.CreateNot(arg, name);
  assert(false && "unrechable");
  throw;
}

Value* unary_operator::codegen(module *mod) const{
  Value *arg = arg_->codegen(mod);
  Value *result = llvm_op(mod->builder(), arg, "");
  return result;
}

/* Cast operator */
Value *cast_operator::llvm_op(IRBuilder<> &builder, Type *T, Value *arg, const std::string &name) const{
  return nullptr;
}

Value* cast_operator::codegen(module *mod) const{
  Value *arg = arg_->codegen(mod);
  Type *T = T_->type(mod);
  return llvm_op(mod->builder(), T, arg, "");
}

/* Conditional expression */
Value *conditional_expression::llvm_op(IRBuilder<> &builder, Value *cond, Value *true_value, Value *false_value, const std::string &name) const{
  return nullptr;
}

Value *conditional_expression::codegen(module *mod) const{
  Value *cond = cond_->codegen(mod);
  Value *true_value = true_value_->codegen(mod);
  Value *false_value = false_value_->codegen(mod);
  return llvm_op(mod->builder(), cond, true_value, false_value, "");
}

/* Assignment expression */
Value *assignment_expression::llvm_op(llvm::IRBuilder<> &builder, Value *lvalue, Value *rvalue, const std::string &name) const{
  return nullptr;
}

Value *assignment_expression::codegen(module *mod) const{
  Value *lvalue = lvalue_->codegen(mod);
  Value *rvalue = rvalue_->codegen(mod);
  return llvm_op(mod->builder(), lvalue, rvalue, "");
}

/* Type name */
llvm::Type *type_name::type(module *mod) const{
  return decl_->type(mod, spec_->type(mod));
}

/* String literal */
llvm::Value* string_literal::codegen(module *mod) const{
  return ConstantDataArray::getString(mod->handle()->getContext(), value_);
}

/* Constant */
llvm::Value* constant::codegen(module *mod) const{
  return mod->builder().getInt32(value_);
}

}

}