Avoid a narrowing warning via explicit cast

eddelbuettel · eddelbuettel · commit 8057b0467212 · 2025-09-04T08:46:36.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2025-09-04  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/include/Rcpp/internal/wrap.h (make_charsexp__impl__cstring):
+	Avoid a narrowing warning by casting explicitly
+
 2025-08-26  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/tinytest/test_sugar.R: For r-devel, use apply(x, DIM, mean,
diff --git a/inst/include/Rcpp/internal/wrap.h b/inst/include/Rcpp/internal/wrap.h
@@ -68,7 +68,7 @@ namespace Rcpp {
 
 #if __cplusplus >= 201703L
         inline SEXP make_charsexp__impl__cstring(std::string_view st) {
-            return Rf_mkCharLen(st.data(), st.size());
+            return Rf_mkCharLen(st.data(), static_cast<int>(st.size()));
         }
 #endif
 

-Original file line number
+Diff line change
@@ @@ -1,3 +1,8 @@ @@
 +2025-09-04  Dirk Eddelbuettel  <[email protected]>
++
 +	* inst/include/Rcpp/internal/wrap.h (make_charsexp__impl__cstring):
 +	Avoid a narrowing warning by casting explicitly
++
 -08-26  Dirk Eddelbuettel  <[email protected]>
 	* inst/tinytest/test_sugar.R: For r-devel, use apply(x, DIM, mean,
Original file line number	Diff line number	Diff line change
`@@ -68,7 +68,7 @@ namespace Rcpp {`
`68`	`68`
`69`	`69`	`#if __cplusplus >= 201703L`
`70`	`70`	`inline SEXP make_charsexp__impl__cstring(std::string_view st) {`
`71`		`- return Rf_mkCharLen(st.data(), st.size());`
	`71`	`+ return Rf_mkCharLen(st.data(), static_cast<int>(st.size()));`
`72`	`72`	`}`
`73`	`73`	`#endif`
`74`	`74`