diff --git a/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rmath.c b/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rmath.c index 493ae1d2452601d88d98fc8ddf329ac32b0f4b75..ce049485772734bbf33acd3edfd56a2093174985 100644 --- a/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rmath.c +++ b/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rmath.c @@ -21,6 +21,7 @@ * questions. */ #include <rffiutils.h> +#include "../common/rffi_upcalls.h" double Rf_dnorm(double a, double b, double c, int d) { unimplemented("Rf_dnorm"); @@ -59,19 +60,19 @@ void Rf_pnorm_both(double a, double * b, double * c, int d, int e) { } double Rf_dunif(double a, double b, double c, int d) { - return ((call_Rf_dunif) callbacks[Rf_dunif])(a, b, c, d); + return ((call_Rf_dunif) callbacks[Rf_dunif_x])(a, b, c, d); } double Rf_punif(double a, double b, double c, int d, int e) { - return ((call_Rf_punif) callbacks[Rf_punif])(a, b, c, d, e); + return ((call_Rf_punif) callbacks[Rf_punif_x])(a, b, c, d, e); } double Rf_qunif(double a, double b, double c, int d, int e) { - return ((call_Rf_qunif) callbacks[Rf_qunif])(a, b, c, d, e); + return ((call_Rf_qunif) callbacks[Rf_qunif_x])(a, b, c, d, e); } double Rf_runif(double a, double b) { - return ((call_Rf_runif) callbacks[Rf_runif])(a, b); + return ((call_Rf_runif) callbacks[Rf_runif_x])(a, b); } double Rf_dgamma(double a, double b, double c, int d) {