Skip to content
Snippets Groups Projects
Commit 410e9aaa authored by stepan's avatar stepan Committed by Zbynek Slajchrt
Browse files

allowAllAccess in unit tests polyglot context

parent 3de8ddeb
No related branches found
No related tags found
No related merge requests found
......@@ -81,7 +81,7 @@ public class REmbedded {
boolean useEmbedded = consoleHandler == embeddedConsoleHandler;
OutputStream stdOut = useEmbedded ? embeddedConsoleHandler.createStdOutputStream(System.out) : System.out;
OutputStream stdErr = useEmbedded ? embeddedConsoleHandler.createErrOutputStream(System.err) : System.err;
context = Context.newBuilder().allowHostAccess(true).arguments("R", options.getArguments()).in(input).out(stdOut).err(stdErr).build();
context = Context.newBuilder().allowAllAccess(true).arguments("R", options.getArguments()).in(input).out(stdOut).err(stdErr).build();
consoleHandler.setContext(context);
context.eval(INIT);
......
......@@ -59,35 +59,18 @@ FFLAGS :=
# uncomment to see exactly where headers are being read from
#CFLAGS := $(CFLAGS) -H
#all: Makefile $(C_OBJECTS) $(GNUR_C_OBJECTS) $(GNUR_F_OBJECTS)
all: Makefile $(C_OBJECTS)
$(C_OBJECTS): | $(OBJ)
#$(GNUR_C_OBJECTS): | $(OBJ)
#$(GNUR_F_OBJECTS): | $(OBJ)
$(OBJ):
mkdir -p $(OBJ)
#$(OBJ)/%.bc: $(GNUR_APPL_SRC)/%.c
# $(CC) $(CFLAGS) $(INCLUDES) $(GNUR_HEADER_DEFS) $(SUPPRESS_WARNINGS) -c $< -o $@
#$(OBJ)/%.bc: $(GNUR_MAIN_SRC)/%.c
# $(CC) $(CFLAGS) $(INCLUDES) $(GNUR_HEADER_DEFS) $(SUPPRESS_WARNINGS) -c $< -o $@
$(OBJ)/%.bc: %.c $(FASTR_NATIVE_DIR)/include/Rinternals.h rffiutils.h $(TRUFFLE_COMMON_H_SOURCES) ../common/rffi_upcallsindex.h
$(CC) $(CFLAGS) $(INCLUDES) $(GNUR_HEADER_DEFS) $(SUPPRESS_WARNINGS) -c $< -o $@
#$(OBJ)/%.bc: ../common/%.c $(FASTR_NATIVE_DIR)/include/Rinternals.h
# $(CC) $(CFLAGS) $(INCLUDES) $(GNUR_HEADER_DEFS) $(SUPPRESS_WARNINGS) -c $< -o $@
$(OBJ)/%.bc: ../truffle_common/%.c
$(CC) $(CFLAGS) $(INCLUDES) $(SUPPRESS_WARNINGS) -c $< -o $@
#$(OBJ)/%.bc: $(GNUR_APPL_SRC)/%.f
# $(F77) $(FFLAGS) $(FPICFLAGS) -c $< -o $@
clean:
rm -rf $(OBJ)
......@@ -147,12 +147,6 @@ function mem2reg_opt() {
fi
}
#function fake_obj() {
# f=`basename $llvm_ir_file`
# d=`dirname $llvm_ir_file`
# runit touch ${d}/${f%%.*}.o
#}
# Input: all the arguments to the original command line
function create_bc_lib() {
bcfiles=""
......
......@@ -52,7 +52,7 @@ public abstract class AbstractMRTest {
@BeforeClass
public static void before() {
context = Context.newBuilder("R", "llvm").build();
context = Context.newBuilder("R", "llvm").allowAllAccess(true).build();
context.eval("R", "1"); // initialize context
context.enter();
}
......
......@@ -134,7 +134,7 @@ public final class FastRSession implements RSession {
ChildContextInfo ctx = ChildContextInfo.create(params, env, contextKind, contextKind == ContextKind.SHARE_NOTHING ? null : mainRContext, input, output, output);
RContext.childInfo = ctx;
return Context.newBuilder("R", "llvm").engine(mainEngine).build();
return Context.newBuilder("R", "llvm").allowAllAccess(true).engine(mainEngine).build();
}
private FastRSession() {
......@@ -154,7 +154,7 @@ public final class FastRSession implements RSession {
ChildContextInfo info = ChildContextInfo.create(params, null, ContextKind.SHARE_NOTHING, null, input, output, output);
RContext.childInfo = info;
mainEngine = Engine.newBuilder().in(input).out(output).err(output).build();
mainContext = Context.newBuilder("R", "llvm").engine(mainEngine).build();
mainContext = Context.newBuilder("R", "llvm").allowAllAccess(true).engine(mainEngine).build();
mainRContext = mainContext.eval(GET_CONTEXT).asHostObject();
} finally {
try {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment