[GR-2798] Add missing Truffle boundaries.

PullRequest: fastr/1377

com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nodes/AttributesAccessNodes.java

@@ -126,7 +126,7 @@ public final class AttributesAccessNodes {
         public Object doArgs(RArgsValuesAndNames obj) {
             ArgumentsSignature signature = obj.getSignature();
             if (signature.getLength() > 0 && signature.getName(0) != null) {
-                return RDataFactory.createSymbol(signature.getName(0));
+                return getSymbol(signature.getName(0));
             }
             return RNull.instance;
         }
@@ -141,7 +141,7 @@ public final class AttributesAccessNodes {
                         @Cached("create()") GetNamesAttributeNode getNamesAttributeNode) {
             RStringVector names = getNamesAttributeNode.getNames(obj);
             if (names != null && names.getLength() > 0) {
-                return RDataFactory.createSymbol(names.getDataAt(0));
+                return getSymbol(names.getDataAt(0));
             }
             return RNull.instance;
         }
@@ -152,6 +152,11 @@ public final class AttributesAccessNodes {
             throw RInternalError.unimplemented("TAG is not implemented for type " + obj.getClass().getSimpleName());
         }
 
+        @TruffleBoundary
+        private Object getSymbol(String name) {
+            return RDataFactory.createSymbol(name);
+        }
+
         public static TAG create() {
             return TAGNodeGen.create();
         }

com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nodes/DuplicateNodes.java

 /*
- * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -22,6 +22,7 @@
  */
 package com.oracle.truffle.r.ffi.impl.nodes;
 
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.dsl.Specialization;
 import com.oracle.truffle.r.ffi.impl.nodes.DuplicateNodesFactory.DuplicateNodeGen;
 import com.oracle.truffle.r.runtime.data.RExternalPtr;
@@ -36,6 +37,7 @@ public final class DuplicateNodes {
     public abstract static class DuplicateNode extends FFIUpCallNode.Arg2 {
 
         @Specialization
+        @TruffleBoundary
         public Object duplicateShareable(RShareable x, int deep) {
             assert !isReusableForDuplicate(x);
             return deep == 1 ? x.deepCopy() : x.copy();

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

@@ -171,7 +171,7 @@ public abstract class IsNA extends RBuiltinNode.Arg1 {
 
     @Fallback
     protected byte isNA(Object value) {
-        warning(RError.Message.IS_NA_TO_NON_VECTOR, Predef.typeName().apply(value));
+        warning(RError.Message.IS_NA_TO_NON_VECTOR, Predef.getTypeName(value));
         return RRuntime.LOGICAL_FALSE;
     }
 }

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

 /*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -29,6 +29,7 @@ import static com.oracle.truffle.r.runtime.builtins.RBehavior.PURE;
 import static com.oracle.truffle.r.runtime.builtins.RBehavior.READS_STATE;
 import static com.oracle.truffle.r.runtime.builtins.RBuiltinKind.INTERNAL;
 
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.r.nodes.builtin.NodeWithArgumentCasts.Casts;
 import com.oracle.truffle.api.dsl.Fallback;
 import com.oracle.truffle.api.dsl.Specialization;
@@ -115,6 +116,7 @@ public class NamespaceFunctions {
         }
 
         @Specialization
+        @TruffleBoundary
         protected byte doIsNamespaceEnv(REnvironment env) {
             return RRuntime.asLogical(env.isNamespaceEnv());
         }
@@ -180,6 +182,7 @@ public class NamespaceFunctions {
             return RNull.instance;
         }
 
+        @TruffleBoundary
         private void doUnregisterNamespace(String name) {
             Object ns = REnvironment.unregisterNamespace(name);
             if (ns == null) {

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

@@ -4,7 +4,7 @@
  * http://www.gnu.org/licenses/gpl-2.0.html
  *
  * Copyright (c) 2014, Purdue University
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2014, 2018, Oracle and/or its affiliates
  *
  * All rights reserved.
  */
@@ -154,7 +154,7 @@ public abstract class Prod extends RBuiltinNode.Arg2 {
         if (i == length) {
             return complexValue;
         }
-        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.typeName().apply(args.getArgument(i)));
+        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.getTypeName(args.getArgument(i)));
     }
 
     protected static double prodDouble(Object v, VectorAccess access, boolean naRm) {
@@ -193,6 +193,6 @@ public abstract class Prod extends RBuiltinNode.Arg2 {
 
     @Fallback
     protected Object prod(Object v, @SuppressWarnings("unused") Object naRm) {
-        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.typeName().apply(v));
+        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.getTypeName(v));
     }
 }

com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/fastr/FastRTrace.java

 /*
- * Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2015, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -50,6 +50,7 @@ import com.oracle.truffle.r.runtime.ArgumentsSignature;
 import com.oracle.truffle.r.runtime.RError;
 import com.oracle.truffle.r.runtime.RRuntime;
 import com.oracle.truffle.r.runtime.RType;
+import com.oracle.truffle.r.runtime.Utils;
 import com.oracle.truffle.r.runtime.builtins.RBuiltin;
 import com.oracle.truffle.r.runtime.data.Closure;
 import com.oracle.truffle.r.runtime.data.RDataFactory;
@@ -164,7 +165,7 @@ public class FastRTrace {
             }
             complexCase(func, tracer, exit, at, print, signature);
             visibility.execute(frame, true);
-            return func.toString();
+            return Utils.toString(func);
         }
 
         @SuppressWarnings("unused")
@@ -217,7 +218,7 @@ public class FastRTrace {
                 throw RError.nyi(this, "method tracing");
             }
 
-            return func.toString();
+            return Utils.toString(func);
         }
     }
 }

com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/helpers/DebugHandling.java

@@ -52,6 +52,7 @@ import com.oracle.truffle.r.runtime.RArguments;
 import com.oracle.truffle.r.runtime.RDeparse;
 import com.oracle.truffle.r.runtime.RError;
 import com.oracle.truffle.r.runtime.RSource;
+import com.oracle.truffle.r.runtime.Utils;
 import com.oracle.truffle.r.runtime.conn.StdConnections;
 import com.oracle.truffle.r.runtime.context.RContext;
 import com.oracle.truffle.r.runtime.context.RContext.ConsoleIO;
@@ -750,7 +751,7 @@ public class DebugHandling {
         }
 
         private boolean isEnabled(EventContext ctx) {
-            return !disabled() && loopSourceSection != null && loopSourceSection.equals(ctx.getInstrumentedNode().getSourceSection());
+            return !disabled() && loopSourceSection != null && Utils.equals(loopSourceSection, ctx.getInstrumentedNode().getSourceSection());
         }
 
         private void returnCleanup() {

com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/helpers/TraceHandling.java

 /*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -27,6 +27,7 @@ import java.io.IOException;
 
 import com.oracle.truffle.api.CompilerDirectives.CompilationFinal;
 import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.frame.MaterializedFrame;
 import com.oracle.truffle.api.frame.VirtualFrame;
 import com.oracle.truffle.api.instrumentation.EventBinding;
 import com.oracle.truffle.api.instrumentation.EventContext;
@@ -208,15 +209,26 @@ public class TraceHandling {
         @Override
         public void onEnter(EventContext context, VirtualFrame frame) {
             if (!disabled()) {
+                MaterializedFrame materializedFrame = frame.materialize();
                 if (print) {
-                    try {
-                        String callString = getCallSource(frame);
-                        outputHandler.writeString("Tracing " + callString + " on entry", true);
-                    } catch (IOException ex) {
-                        throw RError.ioError(RError.SHOW_CALLER2, ex);
-                    }
+                    printEnter(materializedFrame);
                 }
-                RContext.getEngine().eval(tracer, frame.materialize());
+                evalTracer(materializedFrame);
+            }
+        }
+
+        @TruffleBoundary
+        private void evalTracer(MaterializedFrame frame) {
+            RContext.getEngine().eval(tracer, frame);
+        }
+
+        @TruffleBoundary
+        private void printEnter(MaterializedFrame frame) {
+            try {
+                String callString = getCallSource(frame);
+                outputHandler.writeString("Tracing " + callString + " on entry", true);
+            } catch (IOException ex) {
+                throw RError.ioError(RError.SHOW_CALLER2, ex);
             }
         }
 

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/AccessSlotNode.java

@@ -6,12 +6,13 @@
  * Copyright (c) 1995, 1996, 1997  Robert Gentleman and Ross Ihaka
  * Copyright (c) 1995-2014, The R Core Team
  * Copyright (c) 2002-2008, The R Foundation
- * Copyright (c) 2015, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2015, 2018, Oracle and/or its affiliates
  *
  * All rights reserved.
  */
 package com.oracle.truffle.r.nodes.access;
 
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.dsl.Cached;
 import com.oracle.truffle.api.dsl.Fallback;
 import com.oracle.truffle.api.dsl.Specialization;
@@ -67,9 +68,8 @@ public abstract class AccessSlotNode extends BaseAccessSlotNode {
         return RContext.getEngine().evalFunction(dataPart, methodsNamespace.getFrame(), RCaller.create(null, RASTUtils.getOriginalCall(this)), true, null, object);
     }
 
-    // this is really a fallback specialization but @Fallback does not work here (because of the
-    // type of "object"?)
     @Specialization(guards = {"!slotAccessAllowed(object)", "!isDotData(name)"})
+    @TruffleBoundary
     protected Object getSlot(RAttributable object, String name,
                     @Cached("create()") GetClassAttributeNode getClassNode) {
         RStringVector classAttr = getClassNode.getClassAttr(object);
@@ -84,6 +84,7 @@ public abstract class AccessSlotNode extends BaseAccessSlotNode {
     }
 
     @Fallback
+    @TruffleBoundary
     protected Object getSlot(Object object, String name) {
         throw error(RError.Message.SLOT_CANNOT_GET, name, RRuntime.getRTypeName(object));
     }

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/vector/ExtractVectorNode.java

 /*
- * Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2015, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -363,6 +363,6 @@ public abstract class ExtractVectorNode extends RBaseNode {
     @Fallback
     protected Object access(Object object, Object[] positions, Object exact, Object dropDimensions) {
         CompilerDirectives.transferToInterpreter();
-        throw error(RError.Message.OBJECT_NOT_SUBSETTABLE, Predef.typeName().apply(object));
+        throw error(RError.Message.OBJECT_NOT_SUBSETTABLE, Predef.getTypeName(object));
     }
 }

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/vector/ReplaceVectorNode.java

 /*
- * Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2015, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -351,6 +351,6 @@ public abstract class ReplaceVectorNode extends RBaseNode {
     @Fallback
     protected Object access(Object object, Object[] positions, Object value) {
         CompilerDirectives.transferToInterpreter();
-        throw error(RError.Message.OBJECT_NOT_SUBSETTABLE, Predef.typeName().apply(object));
+        throw error(RError.Message.OBJECT_NOT_SUBSETTABLE, Predef.getTypeName(object));
     }
 }

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/binary/BinaryBooleanNode.java

 /*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -234,6 +234,7 @@ public abstract class BinaryBooleanNode extends RBuiltinNode.Arg2 {
     }
 
     @Specialization(guards = {"(isRMissing(left) || isRMissing(right))"})
+    @TruffleBoundary
     protected Object doOneArg(@SuppressWarnings("unused") Object left, @SuppressWarnings("unused") Object right) {
         throw error(RError.Message.IS_OF_WRONG_ARITY, 1, factory.createOperation().opName(), 2);
     }

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/CastBuilder.java

 /*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -25,7 +25,9 @@ package com.oracle.truffle.r.nodes.builtin;
 import java.util.Arrays;
 import java.util.function.Function;
 
+import com.oracle.truffle.api.CompilerAsserts;
 import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.interop.TruffleObject;
 import com.oracle.truffle.r.nodes.builtin.casts.Filter;
 import com.oracle.truffle.r.nodes.builtin.casts.Filter.AndFilter;
@@ -789,7 +791,13 @@ public final class CastBuilder {
          * @return a function returning the type name of its argument
          */
         public static Function<Object, String> typeName() {
+            CompilerAsserts.neverPartOfCompilation();
             return arg -> RRuntime.getRTypeName(arg);
         }
+
+        @TruffleBoundary
+        public static String getTypeName(Object arg) {
+            return RRuntime.getRTypeName(arg);
+        }
     }
 }

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/EnvironmentNodes.java

 /*
- * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -23,6 +23,7 @@
 package com.oracle.truffle.r.nodes.builtin;
 
 import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.dsl.Cached;
 import com.oracle.truffle.api.dsl.Specialization;
 import com.oracle.truffle.api.frame.Frame;
 import com.oracle.truffle.api.frame.FrameDescriptor;
@@ -61,15 +62,16 @@ public final class EnvironmentNodes {
         public abstract REnvironment execute(Object listOrNull, REnvironment target, String envName, REnvironment parentEnv);
 
         @Specialization(guards = "isEmpty(list)")
-        protected REnvironment doEmptyList(@SuppressWarnings("unused") RAbstractListVector list, REnvironment target, String envName, REnvironment parentEnv) {
-            REnvironment createNewEnv;
-            if (target == null) {
-                createNewEnv = RDataFactory.createNewEnv(envName);
-                RArguments.initializeEnclosingFrame(createNewEnv.getFrame(), parentEnv.getFrame());
-                createNewEnv.setParent(parentEnv);
-            } else {
-                createNewEnv = target;
-            }
+        protected REnvironment doEmptyList(@SuppressWarnings("unused") RAbstractListVector list, REnvironment target, String envName, REnvironment parentEnv,
+                        @Cached("createBinaryProfile()") ConditionProfile nullTargetProfile) {
+            return nullTargetProfile.profile(target == null) ? createNewEnv(envName, parentEnv) : target;
+        }
+
+        @TruffleBoundary
+        private REnvironment createNewEnv(String envName, REnvironment parentEnv) {
+            REnvironment createNewEnv = RDataFactory.createNewEnv(envName);
+            RArguments.initializeEnclosingFrame(createNewEnv.getFrame(), parentEnv.getFrame());
+            createNewEnv.setParent(parentEnv);
             return createNewEnv;
         }
 

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/UnaryArithmeticReduceNode.java

@@ -419,7 +419,7 @@ public abstract class UnaryArithmeticReduceNode extends RBaseNode {
 
     @Fallback
     protected Object doFallback(Object obj, @SuppressWarnings("unused") boolean naRm, @SuppressWarnings("unused") boolean infinite) {
-        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.typeName().apply(obj));
+        throw error(RError.Message.INVALID_TYPE_ARGUMENT, Predef.getTypeName(obj));
     }
 
     protected UnaryArithmeticReduceNode createRecursive() {

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/Utils.java

 /*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -700,6 +700,11 @@ public final class Utils {
         return obj.toString();
     }
 
+    @TruffleBoundary
+    public static boolean equals(Object a, Object b) {
+        return a.equals(b);
+    }
+
     @TruffleBoundary
     public static String stringFormat(String format, Object... objects) {
         return String.format(format, objects);

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RPairList.java

 /*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -271,6 +271,7 @@ public final class RPairList extends RSharingAttributeStorage implements RAbstra
     }
 
     @Override
+    @TruffleBoundary
     public RPairList copy() {
         BaseVectorFactory dataFactory = RDataFactory.getInstance();
         RPairList curr = dataFactory.createPairList();

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RSymbol.java

@@ -28,6 +28,7 @@ import java.util.function.Function;
 
 import com.oracle.truffle.api.CompilerAsserts;
 import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.CompilerDirectives.ValueType;
 import com.oracle.truffle.r.runtime.RType;
 
@@ -51,8 +52,8 @@ public final class RSymbol extends RAttributeStorage {
         this.name = name;
     }
 
+    @TruffleBoundary
     public static RSymbol install(String name) {
-        CompilerAsserts.neverPartOfCompilation();
         return symbolTable.computeIfAbsent(name, RSymbol::new);
     }
 

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/nodes/FastPathVectorAccess.java

 /*
- * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -22,7 +22,8 @@
  */
 package com.oracle.truffle.r.runtime.data.nodes;
 
-import com.oracle.truffle.api.CompilerAsserts;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.profiles.BranchProfile;
 import com.oracle.truffle.r.runtime.RError;
 import com.oracle.truffle.r.runtime.RError.Message;
 import com.oracle.truffle.r.runtime.RInternalError;
@@ -43,6 +44,7 @@ import com.oracle.truffle.r.runtime.data.model.RAbstractContainer;
 public abstract class FastPathVectorAccess extends VectorAccess {
 
     protected boolean naReported; // TODO: move this into the iterator
+    private final BranchProfile warningReportedProfile = BranchProfile.create();
 
     protected FastPathVectorAccess(Object value) {
         super(value.getClass(), value instanceof RAbstractContainer ? ((RAbstractContainer) value).getInternalStore() != null : true);
@@ -54,8 +56,8 @@ public abstract class FastPathVectorAccess extends VectorAccess {
     }
 
     protected final void warning(RError.Message message) {
-        CompilerAsserts.neverPartOfCompilation();
         if (!naReported) {
+            warningReportedProfile.enter();
             RError.warning(RError.SHOW_CALLER, message);
             naReported = true;
         }

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/nodes/SlowPathVectorAccess.java

 /*
- * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2018, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -23,6 +23,8 @@
 package com.oracle.truffle.r.runtime.data.nodes;
 
 import com.oracle.truffle.api.CompilerAsserts;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.profiles.BranchProfile;
 import com.oracle.truffle.r.runtime.RError;
 import com.oracle.truffle.r.runtime.RError.Message;
 import com.oracle.truffle.r.runtime.RInternalError;
@@ -41,6 +43,7 @@ import com.oracle.truffle.r.runtime.data.model.RAbstractContainer;
 public abstract class SlowPathVectorAccess extends VectorAccess {
 
     protected boolean naReported; // TODO: move this into the iterator
+    private final BranchProfile warningReportedProfile = BranchProfile.create();
 
     protected SlowPathVectorAccess() {
         // VectorAccess.supports has an assertion that relies on this being Object.class
@@ -53,8 +56,8 @@ public abstract class SlowPathVectorAccess extends VectorAccess {
     }
 
     protected final void warning(RError.Message message) {
-        CompilerAsserts.neverPartOfCompilation();
         if (!naReported) {
+            warningReportedProfile.enter();
             RError.warning(RError.SHOW_CALLER, message);
             naReported = true;
         }