From dd594c2e3d326af9ea3e1715699e27da343178a2 Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Fri, 11 Aug 2017 15:56:43 +0200
Subject: [PATCH] Added missing include and fixed typo causing compilation
errors.
---
.../fficall/src/truffle_nfi/Rmath.c | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
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 493ae1d245..ce04948577 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) {
--
GitLab