[GR-6432] Disable browser for children contexts.

PullRequest: fastr/1255

com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BrowserFunctions.java

@@ -79,12 +79,12 @@ public class BrowserFunctions {
         @Specialization
         protected RNull browser(VirtualFrame frame, Object text, RNull condition, boolean expr, int skipCalls) {
             if (expr) {
-                RContext instance = RContext.getInstance();
-                if (instance.getKind() == ContextKind.SHARE_NOTHING) {
+                RContext curContext = RContext.getInstance();
+                if (!curContext.isInitial() && curContext.getKind() == ContextKind.SHARE_ALL && curContext.getParent().getKind() == ContextKind.SHARE_NOTHING) {
                     return RNull.instance;
                 }
 
-                BrowserState browserState = instance.stateInstrumentation.getBrowserState();
+                BrowserState browserState = curContext.stateInstrumentation.getBrowserState();
                 try {
                     browserState.push(new HelperState(text, condition));
                     MaterializedFrame mFrame = frame.materialize();

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/context/RContext.java

@@ -598,6 +598,8 @@ public final class RContext implements RTruffleObject {
             }
             state = EnumSet.of(State.DISPOSED);
 
+            assert !initial || EvalThread.threadCnt.get() == 0 : "Did not close all children contexts";
+
             this.allocationReporter.removePropertyChangeListener(ALLOCATION_ACTIVATION_LISTENER);
         }
     }