Roland Conybeare
aecabbb144
git-subtree-dir: xo-expression git-subtree-mainline:d0f5ccc1cegit-subtree-split:5ac3c03a0c
89 lines
2.2 KiB
C++
89 lines
2.2 KiB
C++
/* @file Primitive.cpp */
|
|
|
|
#include "Primitive.hpp"
|
|
|
|
extern "C" {
|
|
double
|
|
add2_f64(double x, double y) {
|
|
return x + y;
|
|
}
|
|
|
|
double
|
|
sub2_f64(double x, double y) {
|
|
return x - y;
|
|
}
|
|
|
|
double
|
|
mul2_f64(double x, double y) {
|
|
return x * y;
|
|
}
|
|
|
|
double
|
|
div2_f64(double x, double y) {
|
|
return x / y;
|
|
}
|
|
}
|
|
|
|
namespace xo {
|
|
namespace ast {
|
|
auto
|
|
Primitive_f64::make_add2_f64() -> rp<PrimitiveType>
|
|
{
|
|
static rp<PrimitiveType> s_retval;
|
|
|
|
if (!s_retval)
|
|
s_retval = Primitive::make("add2_f64",
|
|
&add2_f64,
|
|
true /*explicit_symbol_def*/,
|
|
llvmintrinsic::fp_add);
|
|
|
|
return s_retval;
|
|
}
|
|
|
|
auto
|
|
Primitive_f64::make_sub2_f64() -> rp<PrimitiveType>
|
|
{
|
|
static rp<PrimitiveType> s_retval;
|
|
|
|
if (!s_retval)
|
|
s_retval = Primitive::make("sub2_f64",
|
|
&sub2_f64,
|
|
true /*explicit_symbol_def*/,
|
|
llvmintrinsic::fp_sub);
|
|
|
|
return s_retval;
|
|
}
|
|
|
|
auto
|
|
Primitive_f64::make_mul2_f64() -> rp<PrimitiveType>
|
|
{
|
|
static rp<PrimitiveType> s_retval;
|
|
|
|
if (!s_retval)
|
|
s_retval = Primitive::make("mul2_f64",
|
|
&mul2_f64,
|
|
true /*explicit_symbol_def*/,
|
|
llvmintrinsic::fp_mul);
|
|
|
|
return s_retval;
|
|
}
|
|
|
|
auto
|
|
Primitive_f64::make_div2_f64() -> rp<PrimitiveType>
|
|
{
|
|
static rp<PrimitiveType> s_retval;
|
|
|
|
if (!s_retval)
|
|
s_retval = Primitive::make("div2_f64",
|
|
&div2_f64,
|
|
true /*explicit_symbol_def*/,
|
|
llvmintrinsic::fp_div);
|
|
|
|
return s_retval;
|
|
}
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
|
|
/* end Primitive.cpp */
|