From 474e0b79ba07eeeb9157995bd325d12f0d0ba38d Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Fri, 29 Sep 2017 15:20:55 +0200
Subject: [PATCH] Enabled upcall for SET_NAMED.
---
.../fficall/src/truffle_common/Rinternals_truffle_common.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/com.oracle.truffle.r.native/fficall/src/truffle_common/Rinternals_truffle_common.h b/com.oracle.truffle.r.native/fficall/src/truffle_common/Rinternals_truffle_common.h
index 6cfe0a3c21..0417a02db6 100644
--- a/com.oracle.truffle.r.native/fficall/src/truffle_common/Rinternals_truffle_common.h
+++ b/com.oracle.truffle.r.native/fficall/src/truffle_common/Rinternals_truffle_common.h
@@ -1188,8 +1188,8 @@ SEXP SET_TYPEOF_FASTR(SEXP x, int v) {
}
void SET_NAMED(SEXP x, int v) {
- TRACE0();
- unimplemented("SET_NAMED");
+ TRACE(TARGpd, x, v);
+ ((call_SET_NAMED) callbacks[SET_NAMED_FASTR_x])(x, v);
}
void SET_ATTRIB(SEXP x, SEXP v) {
--
GitLab