diff --git a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RCommand.java b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RCommand.java
index ee7e0b1aedda41b65891cb4b3a5bc8577e71819d..e57311a77fa0d86af77c5cdba35562896f8a214e 100644
--- a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RCommand.java
+++ b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RCommand.java
@@ -243,15 +243,12 @@ public class RCommand {
* logging the report will go to a file, so we print a message on
* the console as well.
*/
- consoleHandler.println("internal error: " + e.getMessage() + " (see fastr_errors.log)");
RInternalError.reportError(e);
+ consoleHandler.println("internal error: " + e.getMessage() + " (see fastr_errors.log)");
} else {
- /*
- * This should never happen owing to earlier invariants of
- * converting everything else to an RInternalError
- */
- consoleHandler.println("unexpected internal error (" + e.getClass().getSimpleName() + "); " + e.getMessage());
+ // Something else, e.g. NPE
RInternalError.reportError(e);
+ consoleHandler.println("unexpected internal error (" + e.getClass().getSimpleName() + "); " + e.getMessage());
}
}
continue REPL;
diff --git a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/REmbedded.java b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/REmbedded.java
index 2dd95afdfd4df88f31ad901f94fe40fb6a7ef702..7f13d4cc0f93bb2c8b72a004ee5e31b184fadcda 100644
--- a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/REmbedded.java
+++ b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/REmbedded.java
@@ -114,9 +114,12 @@ public class REmbedded {
runRmainloop(vm);
}
+ /**
+ * Upcalled from embedded mode to commit suicide.
+ */
@SuppressWarnings("unused")
private static void R_Suicide(String msg) {
- // TODO implement
+ Utils.exit(2);
}
}
diff --git a/com.oracle.truffle.r.native/fficall/src/jni/Rembedded.c b/com.oracle.truffle.r.native/fficall/src/jni/Rembedded.c
index 6737019c8928e4153987352fe6f507f7e0c6efa7..e1961c8e3a0558b233545f55fbb5971c31e784b7 100644
--- a/com.oracle.truffle.r.native/fficall/src/jni/Rembedded.c
+++ b/com.oracle.truffle.r.native/fficall/src/jni/Rembedded.c
@@ -438,6 +438,10 @@ JNIEXPORT void JNICALL Java_com_oracle_truffle_r_runtime_ffi_jnr_JNI_1REmbed_nat
(*ptr_R_CleanUp)(x, y, z);
}
+JNIEXPORT void JNICALL Java_com_oracle_truffle_r_runtime_ffi_jnr_JNI_1REmbed_nativeSuicide(JNIEnv *jniEnv, jclass c, jstring string) {
+ const char *cbuf = (*jniEnv)->GetStringUTFChars(jniEnv, string, NULL);
+ (*ptr_R_Suicide)(cbuf);
+}
void uR_PolledEvents(void) {
unimplemented("R_PolledEvents");
diff --git a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/RFFIUtils.java b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/RFFIUtils.java
index 07e8dfbf1bd9c0c7335de2aee6b139a4e18e67d8..db771135995605c5808df8fdd139438310cb2452 100644
--- a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/RFFIUtils.java
+++ b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/RFFIUtils.java
@@ -26,8 +26,11 @@ import java.io.FileDescriptor;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.PrintStream;
+import java.nio.file.Path;
+
import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
import com.oracle.truffle.r.runtime.FastROptions;
+import com.oracle.truffle.r.runtime.Utils;
import com.oracle.truffle.r.runtime.context.RContext;
import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.RSymbol;
@@ -58,7 +61,7 @@ public class RFFIUtils {
* In embedded mode can't trust that cwd is writeable, so output placed in /tmp. Also, tag with
* time in event of multiple concurrent instances (which happens with RStudio).
*/
- private static final String tracePathPrefix = "/tmp/fastr_trace_nativecalls.log-";
+ private static final String TRACEFILE = "fastr_trace_nativecalls.log";
private static FileOutputStream traceFileStream;
private static PrintStream traceStream;
@@ -68,9 +71,9 @@ public class RFFIUtils {
if (traceEnabled) {
if (RContext.isEmbedded()) {
if (traceStream == null) {
- String tracePath = tracePathPrefix + Long.toString(System.currentTimeMillis());
+ Path tracePath = Utils.getLogPath(TRACEFILE);
try {
- traceFileStream = new FileOutputStream(tracePath);
+ traceFileStream = new FileOutputStream(tracePath.toString());
traceStream = new PrintStream(traceFileStream);
} catch (IOException ex) {
System.err.println(ex.getMessage());
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RInternalError.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RInternalError.java
index 8208e1a3c4f43fc69596d5e91f8dfa118422e5ee..17fcab5f0bede00e64fd466d767abf374976494a 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RInternalError.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RInternalError.java
@@ -29,13 +29,14 @@ import java.io.PrintStream;
import java.io.PrintWriter;
import java.io.StringWriter;
import java.nio.charset.StandardCharsets;
-import java.nio.file.FileSystems;
import java.nio.file.Files;
+import java.nio.file.Path;
import java.nio.file.StandardOpenOption;
import java.util.Date;
import com.oracle.truffle.api.CompilerDirectives;
import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.r.runtime.context.RContext;
/**
* This class is intended to be used for internal errors that do not correspond to R errors.
@@ -149,7 +150,8 @@ public final class RInternalError extends Error {
System.err.println(verboseStackTrace);
}
if (FastROptions.PrintErrorStacktracesToFile.getBooleanValue()) {
- try (BufferedWriter writer = Files.newBufferedWriter(FileSystems.getDefault().getPath(REnvVars.rHome(), "fastr_errors.log"), StandardCharsets.UTF_8, StandardOpenOption.APPEND,
+ Path logfile = Utils.getLogPath("fastr_errors.log");
+ try (BufferedWriter writer = Files.newBufferedWriter(logfile, StandardCharsets.UTF_8, StandardOpenOption.APPEND,
StandardOpenOption.CREATE)) {
writer.append(new Date().toString()).append('\n');
writer.append(out.toString()).append('\n');
@@ -157,6 +159,9 @@ public final class RInternalError extends Error {
} catch (IOException e) {
e.printStackTrace();
}
+ if (RContext.isEmbedded()) {
+ Utils.rSuicide("FastR internal error");
+ }
}
}
}
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/Utils.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/Utils.java
index c4b71e1c6b205d6762a01225d0694ddaa127c116..b73330f0497ebdce00c34bfa10c358399daf30b0 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/Utils.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/Utils.java
@@ -153,21 +153,17 @@ public final class Utils {
* polyglot context are.
*/
RPerfStats.report();
- if (RContext.getInstance() != null && RContext.getInstance().getStartParams() != null && RContext.getInstance().getStartParams().getDebugInitFile()) {
- throw new DebugExitException();
- } else {
- try {
- /*
- * This is not the proper way to dispose a PolyglotEngine, but it doesn't matter
- * since we're going to System.exit anyway.
- */
- RContext.getInstance().destroy();
- } catch (Throwable t) {
- // ignore
- }
- System.exit(status);
- return null;
+ try {
+ /*
+ * This is not the proper way to dispose a PolyglotEngine, but it doesn't matter since
+ * we're going to System.exit anyway.
+ */
+ RContext.getInstance().destroy();
+ } catch (Throwable t) {
+ // ignore
}
+ System.exit(status);
+ return null;
}
public static RuntimeException fail(String msg) {
@@ -250,6 +246,17 @@ public final class Utils {
wdState().setCurrent(path);
}
+ /**
+ * Returns a {@link Path} for a log file with base name {@code fileName}, taking into account
+ * whether the system is running in embedded mode.
+ */
+ public static Path getLogPath(String fileName) {
+ String root = RContext.isEmbedded() ? "/tmp" : REnvVars.rHome();
+ int pid = RFFIFactory.getRFFI().getBaseRFFI().getpid();
+ String baseName = RContext.isEmbedded() ? fileName + "-" + Integer.toString(pid) : fileName;
+ return FileSystems.getDefault().getPath(root, baseName);
+ }
+
/**
* Performs "~" expansion and also checks whether we need to take special case over relative
* paths due to the curwd having moved from the initial setting. In the latter case, if the path
diff --git a/com.oracle.truffle.r.test.native/embedded/src/main.c b/com.oracle.truffle.r.test.native/embedded/src/main.c
index df885026aeca182dd0357a14c0a86df0efee84fa..5e89d7595d912d11fc3bab1babd3652497ac4112 100644
--- a/com.oracle.truffle.r.test.native/embedded/src/main.c
+++ b/com.oracle.truffle.r.test.native/embedded/src/main.c
@@ -70,6 +70,7 @@ void testR_CleanUp(SA_TYPE x, int y, int z) {
void testR_Suicide(const char *msg) {
printf("testR_Suicide: %s\n",msg);
+ (ptr_stdR_Suicide(msg));
}
int testR_ReadConsole(const char *prompt, unsigned char *buf, int len, int h) {
@@ -101,6 +102,7 @@ int main(int argc, char **argv) {
R_SetParams(Rp);
ptr_stdR_CleanUp = ptr_R_CleanUp;
ptr_R_CleanUp = &testR_CleanUp;
+ ptr_stdR_Suicide = ptr_R_Suicide;
ptr_R_Suicide = &testR_Suicide;
ptr_R_ReadConsole = &testR_ReadConsole;
ptr_R_WriteConsole = &testR_WriteConsole;