WIP: remove Uncached data lib call from RAbstractVector.setData

This is a temporary hack.

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

@@ -44,7 +44,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-class RComplexArrayVectorData implements TruffleObject {
+class RComplexArrayVectorData implements TruffleObject, ShareableVectorData {
     private final double[] data;
     private boolean complete;
 

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RComplexNativeVectorData implements TruffleObject {
+public class RComplexNativeVectorData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -44,7 +44,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RDoubleArrayVectorData implements TruffleObject {
+public class RDoubleArrayVectorData implements TruffleObject, ShareableVectorData {
     private final double[] data;
     private boolean complete;
 

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2019, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2019, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RDoubleNativeVectorData implements TruffleObject {
+public class RDoubleNativeVectorData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -44,7 +44,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RIntArrayVectorData implements TruffleObject {
+public class RIntArrayVectorData implements TruffleObject, ShareableVectorData {
     private final int[] data;
     private boolean complete;
 

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2019, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2019, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RIntNativeVectorData implements TruffleObject {
+public class RIntNativeVectorData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -39,7 +39,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(value = VectorDataLibrary.class, receiverType = Object[].class)
-public class RListArrayDataLibrary {
+public class RListArrayDataLibrary implements ShareableVectorData {
     @ExportMessage
     public static NACheck getNACheck(@SuppressWarnings("unused") Object[] receiver) {
         return NACheck.getEnabled();

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RListNativeData implements TruffleObject {
+public class RListNativeData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -44,7 +44,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-class RLogicalArrayVectorData implements TruffleObject {
+class RLogicalArrayVectorData implements TruffleObject, ShareableVectorData {
     private final byte[] data;
     private boolean complete;
 

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -38,7 +38,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RLogicalNativeVectorData implements TruffleObject {
+public class RLogicalNativeVectorData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -40,7 +40,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-class RRawArrayVectorData implements TruffleObject {
+class RRawArrayVectorData implements TruffleObject, ShareableVectorData {
     private final byte[] data;
 
     RRawArrayVectorData(byte[] data) {

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RRawNativeVectorData implements TruffleObject {
+public class RRawNativeVectorData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -44,7 +44,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-class RStringArrayVectorData implements TruffleObject {
+class RStringArrayVectorData implements TruffleObject, ShareableVectorData {
     private final String[] data;
     private boolean complete;
 

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -36,7 +36,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RStringCharSXPData {
+public class RStringCharSXPData implements ShareableVectorData {
     private final CharSXPWrapper[] data;
 
     public RStringCharSXPData(CharSXPWrapper[] data) {

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

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2020, 2020, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2020, 2021, 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
@@ -37,7 +37,7 @@
 import com.oracle.truffle.r.runtime.ops.na.NACheck;
 
 @ExportLibrary(VectorDataLibrary.class)
-public class RStringVecNativeData implements TruffleObject {
+public class RStringVecNativeData implements TruffleObject, ShareableVectorData {
     // We need the vector, so that we can easily use the existing NativeDataAccess methods
     // TODO: this field should be replaced with address/length fields and
     // the address/length fields and logic should be removed from NativeMirror

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

@@ -0,0 +1,29 @@
+/*
+ * Copyright (c) 2021, 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
+ * under the terms of the GNU General Public License version 3 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 3 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 3 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.r.runtime.data;
+
+/**
+ * A tagging interface for vector data that are shareable, i.e. writeable.
+ */
+public interface ShareableVectorData {
+}

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/model/RAbstractVector.java

@@ -56,6 +56,7 @@
 import com.oracle.truffle.r.runtime.data.RSeq;
 import com.oracle.truffle.r.runtime.data.RSequence;
 import com.oracle.truffle.r.runtime.data.RStringVector;
+import com.oracle.truffle.r.runtime.data.ShareableVectorData;
 import com.oracle.truffle.r.runtime.data.VectorDataLibrary;
 import com.oracle.truffle.r.runtime.data.VectorDataWithOwner;
 import com.oracle.truffle.r.runtime.data.closures.RClosure;
@@ -93,8 +94,14 @@ public final void setData(Object data) {
             // "setOwner" may be a message in the VectorDataLibrary to make this fast
             ((VectorDataWithOwner) data).setOwner(this);
         }
-        // temporary solution to keep isShareable() fast
-        shareable = VectorDataLibrary.getFactory().getUncached().isWriteable(data);
+        // TODO: This is a temporary hack, we should implement this with appropriate messages in
+        // VectorDataLibrary. See GR-28570.
+        if (data instanceof ShareableVectorData || (this instanceof RList && data instanceof Object[])) {
+            shareable = true;
+        } else {
+            shareable = false;
+        }
+        assert shareable == VectorDataLibrary.getFactory().getUncached().isWriteable(data);
         verifyData();
     }