From f24783f137633d35fa157a60b14ce19b6af7e220 Mon Sep 17 00:00:00 2001
From: Mick Jordan <mick.jordan@oracle.com>
Date: Wed, 19 Apr 2017 11:42:57 -0700
Subject: [PATCH] TruffleNFI: implement more Rinternals
---
.../fficall/src/truffle_nfi/Rinternals.c | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rinternals.c b/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rinternals.c
index 026f9f5ba7..db41b21bcc 100644
--- a/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rinternals.c
+++ b/com.oracle.truffle.r.native/fficall/src/truffle_nfi/Rinternals.c
@@ -906,7 +906,7 @@ SEXP *VECTOR_PTR(SEXP x){
}
SEXP Rf_asChar(SEXP x){
- return unimplemented("Rf_asChar");
+ return ((call_Rf_asChar) callbacks[Rf_asChar_x])(x);
}
SEXP Rf_PairToVectorList(SEXP x){
@@ -931,8 +931,7 @@ int Rf_asInteger(SEXP x) {
}
double Rf_asReal(SEXP x) {
- unimplemented("Rf_asReal");
- return 0.0;
+ return ((call_Rf_asReal) callbacks[Rf_asReal_x])(x);
}
Rcomplex Rf_asComplex(SEXP x){
--
GitLab