Add GROWABLE_BIT_SET function for barrier checking.

git-svn-id: https://svn.r-project.org/R/trunk@89049 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: luke

src/include/Defn.h

@@ -605,6 +605,7 @@ void (UNSET_MAYBEJIT)(SEXP x);
 
 /* Growable vector support */
 int (IS_GROWABLE)(SEXP x);
+int (GROWABLE_BIT_SET)(SEXP x);
 void (SET_GROWABLE_BIT)(SEXP x);
 
 /* Vector Access Functions */

src/main/memory.c

@@ -4051,6 +4051,7 @@ attribute_hidden void (UNSET_MAYBEJIT)(SEXP x) { UNSET_MAYBEJIT(CHK(x)); }
 
 /* Growable vector support */
 int (IS_GROWABLE)(SEXP x) { return IS_GROWABLE(CHK(x)); }
+int (GROWABLE_BIT_SET)(SEXP x) { return GROWABLE_BIT_SET(CHK(x)); }
 void (SET_GROWABLE_BIT)(SEXP x) { SET_GROWABLE_BIT(CHK(x)); }
 
 static int nvec[32] = {