pull out len neatly

r-lib · Apr 29, 2024 · 2f72845 · 2f72845
1 parent 33dbebf
commit 2f72845
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/altrep-sparse-real.c b/src/altrep-sparse-real.c
@@ -137,14 +137,15 @@ Rboolean altrep_sparse_real_Inspect(SEXP x,
 // ALTREAL
 
 static double altrep_sparse_real_Elt(SEXP x, R_xlen_t i) {
-
-  if (i > Rf_asReal(VECTOR_ELT(R_altrep_data1(x), 2))) {
-    return NA_REAL;
-  }
-
   SEXP data1 = R_altrep_data1(x);
   SEXP val = VECTOR_ELT(data1, 0);
   SEXP pos = VECTOR_ELT(data1, 1);
+  SEXP len = VECTOR_ELT(data1, 2);
+  R_xlen_t c_len = (R_xlen_t) INTEGER_ELT(len, 0);
+
+  if (i > c_len) {
+    return NA_REAL;
+  }
 
   const R_xlen_t n = Rf_xlength(val);