another const_cast

RcppCore · Jul 7, 2024 · 1cb485b · 1cb485b
1 parent cd0f41a
commit 1cb485b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/barrier.cpp b/src/barrier.cpp
@@ -54,7 +54,8 @@ void char_set_string_elt(SEXP x, R_xlen_t i, const char* value) {
 
 // [[Rcpp::register]]
 SEXP* get_string_ptr(SEXP x) {
-    return RCPP_STRING_PTR(x);
+    // TODO: should we deprecate this?
+    return const_cast<SEXP*>(RCPP_STRING_PTR(x));
 }
 
 // [[Rcpp::register]]