From d7a6a93673bfbcc763d44230c0f2d43d54bccb10 Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Fri, 29 Sep 2017 15:56:22 +0200
Subject: [PATCH] Add 'checkExitCall' and increase native version.
---
.../fficall/src/truffle_common/Rinternals_truffle_common.h | 1 +
com.oracle.truffle.r.native/version.source | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
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 0417a02db6..809858dbd9 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
@@ -1190,6 +1190,7 @@ SEXP SET_TYPEOF_FASTR(SEXP x, int v) {
void SET_NAMED(SEXP x, int v) {
TRACE(TARGpd, x, v);
((call_SET_NAMED) callbacks[SET_NAMED_FASTR_x])(x, v);
+ checkExitCall();
}
void SET_ATTRIB(SEXP x, SEXP v) {
diff --git a/com.oracle.truffle.r.native/version.source b/com.oracle.truffle.r.native/version.source
index a2720097dc..425151f3a4 100644
--- a/com.oracle.truffle.r.native/version.source
+++ b/com.oracle.truffle.r.native/version.source
@@ -1 +1 @@
-39
+40
--
GitLab