2016-09-26 07:00:19 +00:00
|
|
|
|
2016-10-01 09:47:21 +00:00
|
|
|
#include "r_compiler/llvm_include.h"
|
2016-09-26 07:00:19 +00:00
|
|
|
#include "ssa_int.h"
|
|
|
|
#include "ssa_float.h"
|
2016-09-30 05:27:25 +00:00
|
|
|
#include "ssa_bool.h"
|
2016-09-26 07:00:19 +00:00
|
|
|
#include "ssa_scope.h"
|
|
|
|
|
|
|
|
SSAInt::SSAInt()
|
|
|
|
: v(0)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt::SSAInt(int constant)
|
|
|
|
: v(0)
|
|
|
|
{
|
|
|
|
v = llvm::ConstantInt::get(SSAScope::context(), llvm::APInt(32, constant, true));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt::SSAInt(SSAFloat f)
|
|
|
|
: v(0)
|
|
|
|
{
|
|
|
|
v = SSAScope::builder().CreateFPToSI(f.v, llvm::Type::getInt32Ty(SSAScope::context()), SSAScope::hint());
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt::SSAInt(llvm::Value *v)
|
|
|
|
: v(v)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
llvm::Type *SSAInt::llvm_type()
|
|
|
|
{
|
|
|
|
return llvm::Type::getInt32Ty(SSAScope::context());
|
|
|
|
}
|
|
|
|
|
2016-09-30 05:27:25 +00:00
|
|
|
SSAInt SSAInt::MIN(SSAInt a, SSAInt b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateSelect((a < b).v, a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt SSAInt::MAX(SSAInt a, SSAInt b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateSelect((a > b).v, a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
2016-09-26 07:00:19 +00:00
|
|
|
SSAInt operator+(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateAdd(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator-(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateSub(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator*(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateMul(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator/(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateSDiv(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator%(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateSRem(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator+(int a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt(a) + b;
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator-(int a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt(a) - b;
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator*(int a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt(a) * b;
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator/(int a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt(a) / b;
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator%(int a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt(a) % b;
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator+(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return a + SSAInt(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator-(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return a - SSAInt(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator*(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return a * SSAInt(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator/(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return a / SSAInt(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator%(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return a % SSAInt(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator<<(const SSAInt &a, int bits)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateShl(a.v, bits, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator>>(const SSAInt &a, int bits)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateLShr(a.v, bits, SSAScope::hint()));
|
|
|
|
}
|
2016-09-27 20:53:20 +00:00
|
|
|
|
|
|
|
SSAInt operator<<(const SSAInt &a, const SSAInt &bits)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateShl(a.v, bits.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator>>(const SSAInt &a, const SSAInt &bits)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateLShr(a.v, bits.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator&(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateAnd(a.v, b, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator&(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateAnd(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator|(const SSAInt &a, int b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateOr(a.v, b, SSAScope::hint()));
|
|
|
|
}
|
|
|
|
|
|
|
|
SSAInt operator|(const SSAInt &a, const SSAInt &b)
|
|
|
|
{
|
|
|
|
return SSAInt::from_llvm(SSAScope::builder().CreateOr(a.v, b.v, SSAScope::hint()));
|
|
|
|
}
|