mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-11-19 20:42:22 +01:00
98 lines
2.2 KiB
C
98 lines
2.2 KiB
C
/* External C functions */
|
|
|
|
/* | ~erf_float~ | Error function ~erf~ from =libm= | */
|
|
/* | ~erfc_float~ | Complementary error function ~erfc~ from =libm= | */
|
|
/* | ~gamma_float~ | Gamma function ~gamma~ from =libm= | */
|
|
/* | ~popcnt~ | ~popcnt~ instruction | */
|
|
/* | ~trailz~ | ~ctz~ instruction | */
|
|
/* | ~leadz~ | ~bsf~ instruction | */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*External%20C%20functions][External C functions:1]] */
|
|
#include <math.h>
|
|
#include <caml/mlvalues.h>
|
|
#include <caml/alloc.h>
|
|
/* External C functions:1 ends here */
|
|
|
|
/* Erf */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Erf][Erf:1]] */
|
|
CAMLprim value erf_float_bytecode(value x) {
|
|
return copy_double(erf(Double_val(x)));
|
|
}
|
|
|
|
CAMLprim double erf_float(double x) {
|
|
return erf(x);
|
|
}
|
|
/* Erf:1 ends here */
|
|
|
|
/* Erfc */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Erfc][Erfc:1]] */
|
|
CAMLprim value erfc_float_bytecode(value x) {
|
|
return copy_double(erfc(Double_val(x)));
|
|
}
|
|
|
|
CAMLprim double erfc_float(double x) {
|
|
return erfc(x);
|
|
}
|
|
/* Erfc:1 ends here */
|
|
|
|
/* Gamma */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Gamma][Gamma:1]] */
|
|
CAMLprim value gamma_float_bytecode(value x) {
|
|
return copy_double(tgamma(Double_val(x)));
|
|
}
|
|
|
|
|
|
CAMLprim double gamma_float(double x) {
|
|
return tgamma(x);
|
|
}
|
|
/* Gamma:1 ends here */
|
|
|
|
/* Popcnt */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Popcnt][Popcnt:1]] */
|
|
CAMLprim int32_t popcnt(int64_t i) {
|
|
return __builtin_popcountll (i);
|
|
}
|
|
|
|
|
|
CAMLprim value popcnt_bytecode(value i) {
|
|
return caml_copy_int32(__builtin_popcountll (Int64_val(i)));
|
|
}
|
|
/* Popcnt:1 ends here */
|
|
|
|
/* Trailz */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Trailz][Trailz:1]] */
|
|
CAMLprim int32_t trailz(int64_t i) {
|
|
return __builtin_ctzll (i);
|
|
}
|
|
|
|
|
|
CAMLprim value trailz_bytecode(value i) {
|
|
return caml_copy_int32(__builtin_ctzll (Int64_val(i)));
|
|
}
|
|
/* Trailz:1 ends here */
|
|
|
|
/* Leadz */
|
|
|
|
|
|
/* [[file:~/QCaml/common/util.org::*Leadz][Leadz:1]] */
|
|
CAMLprim int32_t leadz(int64_t i) {
|
|
return __builtin_clzll(i);
|
|
}
|
|
|
|
|
|
CAMLprim value leadz_bytecode(value i) {
|
|
return caml_copy_int32(__builtin_clzll (Int64_val(i)));
|
|
}
|
|
/* Leadz:1 ends here */
|