roland/xo-alloc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-jit: supply llvmintrinsic to primitives

Browse source
This commit is contained in:
Roland Conybeare 2024-06-21 14:07:43 -04:00
commit 52ec4f09a5
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
example/ex1/ex1.cpp
View file

@ -38,6 +38,7 @@ main() {
using xo::jit::MachPipeline;
using xo::ast::make_constant;
using xo::ast::make_primitive;
using xo::ast::llvmintrinsic;
using xo::ast::make_apply;
using xo::ast::make_var;
using xo::ast::make_lambda;
@ -82,7 +83,8 @@ main() {
{
auto expr = make_primitive("sqrt", &sqrt,
false /*!explicit_symbol_def*/);
false /*!explicit_symbol_def*/,
llvmintrinsic::fp_sqrt);
log && log(xtag("expr", expr));
@ -104,7 +106,8 @@ main() {
/* (sqrt 2) */
auto fn = make_primitive("sqrt", &sqrt,
false /*!explicit_symbol_def*/);
false /*!explicit_symbol_def*/,
llvmintrinsic::fp_sqrt);
auto arg = make_constant(2.0);
auto call = make_apply(fn, {arg});
@ -128,10 +131,14 @@ main() {
{
/* (lambda (x) (sin (cos x))) */
auto sin = make_primitive("sin", ::sin,
false /*!explicit_symbol_def*/);
auto cos = make_primitive("cos", ::cos,
false /*!explicit_symbol_def*/);
auto sin = make_primitive("sin",
::sin,
false /*!explicit_symbol_def*/,
llvmintrinsic::fp_sin);
auto cos = make_primitive("cos",
::cos,
false /*!explicit_symbol_def*/,
llvmintrinsic::fp_cos);
auto x_var = make_var("x", Reflect::require<double>());
auto call1 = make_apply(cos, {x_var}); /* (cos x) */