From 8b791e67d78e4a8b8ae1ba6ca05d956bc3b23272 Mon Sep 17 00:00:00 2001
From: Mick Jordan <mick.jordan@oracle.com>
Date: Thu, 7 Jul 2016 14:40:32 -0700
Subject: [PATCH] add Rf_translateChar variants
---
.../fficall/src/jni/Rinternals.c | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c b/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
index d8a81d9a96..65c94ff94d 100644
--- a/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
+++ b/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
@@ -664,21 +664,24 @@ SEXP Rf_classgets(SEXP x, SEXP y) {
}
const char *Rf_translateChar(SEXP x) {
-// unimplemented("Rf_translateChar");
// TODO: proper implementation
+ TRACE(TARGp, x);
const char *result = CHAR(x);
-// printf("translateChar: '%s'\n", result);
return result;
}
const char *Rf_translateChar0(SEXP x) {
- unimplemented("Rf_translateChar0");
- return NULL;
+ // TODO: proper implementation
+ TRACE(TARGp, x);
+ const char *result = CHAR(x);
+ return result;
}
const char *Rf_translateCharUTF8(SEXP x) {
- unimplemented("Rf_translateCharUTF8");
- return NULL;
+ // TODO: proper implementation
+ TRACE(TARGp, x);
+ const char *result = CHAR(x);
+ return result;
}
SEXP Rf_lengthgets(SEXP x, R_len_t y) {
--
GitLab