Hide LENGTH_EX and unhide IS_CACHED.

git-svn-id: https://svn.r-project.org/R/trunk@86637 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · May 28, 2024 · c20629d · c20629d
1 parent d65ee81
commit c20629d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/include/Rinlinedfuns.h b/src/include/Rinlinedfuns.h
@@ -211,7 +211,7 @@ INLINE_FUN R_xlen_t XTRUELENGTH(SEXP x)
     return ALTREP(x) ? ALTREP_TRUELENGTH(x) : STDVEC_TRUELENGTH(x);
 }
 
-INLINE_FUN int LENGTH_EX(SEXP x, const char *file, int line)
+HIDDEN INLINE_FUN int LENGTH_EX(SEXP x, const char *file, int line)
 {
     if (x == R_NilValue) return 0;
     R_xlen_t len = XLENGTH(x);

diff --git a/src/main/memory.c b/src/main/memory.c
@@ -4724,9 +4724,9 @@ attribute_hidden void (SET_BYTES)(SEXP x) { SET_BYTES(CHK(x)); }
 attribute_hidden void (SET_LATIN1)(SEXP x) { SET_LATIN1(CHK(x)); }
 attribute_hidden void (SET_UTF8)(SEXP x) { SET_UTF8(CHK(x)); }
 attribute_hidden void (SET_ASCII)(SEXP x) { SET_ASCII(CHK(x)); }
-int  (ENC_KNOWN)(SEXP x) { return ENC_KNOWN(CHK(x)); }
+/*attribute_hidden*/ int  (ENC_KNOWN)(SEXP x) { return ENC_KNOWN(CHK(x)); }
 attribute_hidden void (SET_CACHED)(SEXP x) { SET_CACHED(CHK(x)); }
-attribute_hidden int  (IS_CACHED)(SEXP x) { return IS_CACHED(CHK(x)); }
+/*attribute_hidden*/ int  (IS_CACHED)(SEXP x) { return IS_CACHED(CHK(x)); }
 
 /*******************************************/
 /* Non-sampling memory use profiler