Fix UB for non-integer RTYPEs in comparator (#1453)

Author: Enchufa2

ChangeLog

@@ -1,3 +1,8 @@
+2026-02-17  Iñaki Ucar <iucar@fedoraproject.org>
+
+	* inst/include/Rcpp/sugar/operators/Comparator_With_One_Value.h: Fix UB
+	for non-integer RTYPEs in comparator
+
 2026-01-23  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/include/Rcpp/DataFrame.h (nrow): Use R_nrow() with R >= 4.6.0

inst/include/Rcpp/sugar/operators/Comparator_With_One_Value.h

@@ -2,7 +2,8 @@
 //
 // LessThan.h: Rcpp R/C++ interface class library -- vector operators
 //
-// Copyright (C) 2010 - 2011 Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2010 - 2025 Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2026        Dirk Eddelbuettel, Romain Francois and Iñaki Ucar
 //
 // This file is part of Rcpp.
 //
@@ -56,7 +57,7 @@ class Comparator_With_One_Value : public ::Rcpp::VectorBase< LGLSXP, true, Compa
 	inline int rhs_is_na(int i) const { return rhs ; }
 	inline int rhs_is_not_na(int i) const {
 		STORAGE x = lhs[i] ;
-		return Rcpp::traits::is_na<RTYPE>(x) ? x : op( x, rhs ) ;
+		return Rcpp::traits::is_na<RTYPE>(x) ? NA_INTEGER : op( x, rhs ) ;
 	}
 
 } ;