[GR-36909] Implement SET_GROWABLE_BIT.

PullRequest: fastr/2720

Author: Pavel Marek

CHANGELOG.md

@@ -1,5 +1,7 @@
 # 22.2.0
 * `--R.DebugLLVMLibs` is no longer a stable option.
+* Implemented `SET_GROWABLE_BIT` and `IS_GROWABLE` C API functions.
+  * This fixes installation of the `cpp11` 0.2.6 package.
 
 # 22.1.0
 * Improved performance of the `order` and `rank` builtin functions

com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/common/JavaUpCallsRFFIImpl.java

@@ -537,6 +537,16 @@ public int TRUELENGTH(Object x) {
         throw implementedAsNode();
     }
 
+    @Override
+    public int IS_GROWABLE(Object x) {
+        return guaranteeInstanceOf(x, RAbstractVector.class).isGrowable() ? 1 : 0;
+    }
+
+    @Override
+    public void SET_GROWABLE_BIT(Object x) {
+        guaranteeInstanceOf(x, RAbstractVector.class).setGrowable();
+    }
+
     @Override
     public int LEVELS(Object x) {
         if (x instanceof RBaseObject) {

com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/upcalls/StdUpCallsRFFI.java

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2014, 2021, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2022, 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
@@ -314,6 +314,10 @@ public interface StdUpCallsRFFI {
     @RFFIUpCallNode(TRUELENGTHNode.class)
     int TRUELENGTH(Object x);
 
+    int IS_GROWABLE(Object x);
+
+    void SET_GROWABLE_BIT(Object x);
+
     int LEVELS(Object x);
 
     void SETLEVELS(Object x, int gpbits);

com.oracle.truffle.r.native/fficall/src/common/rffi_upcalls.h

@@ -178,6 +178,8 @@ typedef void (*call_SETLENGTH)(SEXP x, int v);
 typedef void (*call_SET_TRUELENGTH)(SEXP x, int v);
 typedef R_xlen_t (*call_XLENGTH)(SEXP x);
 typedef R_xlen_t (*call_XTRUELENGTH)(SEXP x);
+typedef int (*call_IS_GROWABLE)(SEXP x);
+typedef void (*call_SET_GROWABLE_BIT)(SEXP x);
 typedef int (*call_LEVELS)(SEXP x);
 typedef int (*call_IS_LONG_VEC)(SEXP x);
 typedef int (*call_LEVELS)(SEXP x);