Unhide functions used in functions available for inlining (so that an

external version is available when the latter are inlined).


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

src/include/Rinlinedfuns.h

@@ -100,7 +100,7 @@ SEXP CAR(SEXP e);
 #endif
 
 #ifdef STRICT_TYPECHECK
-HIDDEN INLINE_FUN void CHKVEC(SEXP x) {
+/*HIDDEN*/ INLINE_FUN void CHKVEC(SEXP x) {
  switch (TYPEOF(x)) {
  case CHARSXP:
  case LGLSXP:
@@ -324,7 +324,7 @@ INLINE_FUN R_xlen_t XTRUELENGTH(SEXP x)
 # define CHECK_VECTOR_RAW_ELT(x, i) do { } while(0)
 #endif
 
-HIDDEN INLINE_FUN int *LOGICAL0(SEXP x) {
+/*HIDDEN*/ INLINE_FUN int *LOGICAL0(SEXP x) {
  CHECK_STDVEC_LGL(x);
  return (int *) STDVEC_DATAPTR(x);
 }
@@ -337,15 +337,15 @@ HIDDEN INLINE_FUN void SET_SCALAR_LVAL(SEXP x, Rboolean v) {
  LOGICAL0(x)[0] = v;
 }
 
-HIDDEN INLINE_FUN int *INTEGER0(SEXP x) {
+/*HIDDEN*/ INLINE_FUN int *INTEGER0(SEXP x) {
  CHECK_STDVEC_INT(x);
  return (int *) STDVEC_DATAPTR(x);
 }
 HIDDEN INLINE_FUN int SCALAR_IVAL(SEXP x) {
  CHECK_SCALAR_INT(x);
  return INTEGER0(x)[0];
 }
-HIDDEN INLINE_FUN void SET_SCALAR_IVAL(SEXP x, int v) {
+/*HIDDEN*/ INLINE_FUN void SET_SCALAR_IVAL(SEXP x, int v) {
  CHECK_SCALAR_INT(x);
  INTEGER0(x)[0] = v;
 }
@@ -358,7 +358,7 @@ HIDDEN INLINE_FUN double SCALAR_DVAL(SEXP x) {
  CHECK_SCALAR_REAL(x);
  return REAL0(x)[0];
 }
-HIDDEN INLINE_FUN void SET_SCALAR_DVAL(SEXP x, double v) {
+/*HIDDEN*/ INLINE_FUN void SET_SCALAR_DVAL(SEXP x, double v) {
  CHECK_SCALAR_REAL(x);
  REAL0(x)[0] = v;
 }
@@ -371,20 +371,20 @@ HIDDEN INLINE_FUN Rcomplex SCALAR_CVAL(SEXP x) {
  CHECK_SCALAR_CPLX(x);
  return COMPLEX0(x)[0];
 }
-HIDDEN INLINE_FUN void SET_SCALAR_CVAL(SEXP x, Rcomplex v) {
+/*HIDDEN*/ INLINE_FUN void SET_SCALAR_CVAL(SEXP x, Rcomplex v) {
  CHECK_SCALAR_CPLX(x);
  COMPLEX0(x)[0] = v;
 }
 
-HIDDEN INLINE_FUN Rbyte *RAW0(SEXP x) {
+/*HIDDEN*/ INLINE_FUN Rbyte *RAW0(SEXP x) {
  CHECK_STDVEC_RAW(x);
  return (Rbyte *) STDVEC_DATAPTR(x);
 }
 HIDDEN INLINE_FUN Rbyte SCALAR_BVAL(SEXP x) {
  CHECK_SCALAR_RAW(x);
  return RAW0(x)[0];
 }
-HIDDEN INLINE_FUN void SET_SCALAR_BVAL(SEXP x, Rbyte v) {
+/*HIDDEN*/ INLINE_FUN void SET_SCALAR_BVAL(SEXP x, Rbyte v) {
  CHECK_SCALAR_RAW(x);
  RAW0(x)[0] = v;
 }