diff --git a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/common/JavaUpCallsRFFIImpl.java b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/common/JavaUpCallsRFFIImpl.java index 061fc37d8041dd88e6331abf4430ea91cd99bbc7..f7852a696915fb0e128fb6a90969735fe7a12ddc 100644 --- a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/common/JavaUpCallsRFFIImpl.java +++ b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/common/JavaUpCallsRFFIImpl.java @@ -310,7 +310,7 @@ public abstract class JavaUpCallsRFFIImpl implements UpCallsRFFI { @Override @TruffleBoundary - public int Rf_setAttrib(Object obj, Object name, Object val) { + public Object Rf_setAttrib(Object obj, Object name, Object val) { if (obj instanceof RAttributable) { RAttributable attrObj = (RAttributable) obj; String nameAsString; @@ -335,7 +335,7 @@ public abstract class JavaUpCallsRFFIImpl implements UpCallsRFFI { } else { throw RInternalError.shouldNotReachHere(); } - return 0; + return val; } @TruffleBoundary diff --git a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/upcalls/StdUpCallsRFFI.java b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/upcalls/StdUpCallsRFFI.java index 9138e92393ae206aee397b439c9c9932c1b45a01..50237121f198930541ce26863c986c1336c2ec47 100644 --- a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/upcalls/StdUpCallsRFFI.java +++ b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/upcalls/StdUpCallsRFFI.java @@ -127,7 +127,7 @@ public interface StdUpCallsRFFI { Object Rf_getAttrib(Object obj, Object name); - int /* void */ Rf_setAttrib(Object obj, Object name, Object val); + Object Rf_setAttrib(Object obj, Object name, Object val); int Rf_inherits(Object x, @RFFICstring String clazz); 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 cc43c6ff9c3a6be99e9ca259d73771dfd4ee38fc..9d45df5e3de0f6ef336daf3ac068a5b5c8e2ec1a 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 @@ -158,7 +158,7 @@ void Rf_gsetVar(SEXP symbol, SEXP value, SEXP rho) { } SEXP Rf_coerceVector(SEXP x, SEXPTYPE mode) { - TRACE0(); + TRACE(TARGpp, x, mode); SEXP result = ((call_Rf_coerceVector) callbacks[Rf_coerceVector_x])(x, mode); checkExitCall(); return result; diff --git a/com.oracle.truffle.r.native/version.source b/com.oracle.truffle.r.native/version.source index 87523dd7a0632907d61799465827c3f08825fa47..d81cc0710eb6cf9efd5b920a8453e1e07157b6cd 100644 --- a/com.oracle.truffle.r.native/version.source +++ b/com.oracle.truffle.r.native/version.source @@ -1 +1 @@ -41 +42