protect use of RCPP_NO_MASK in attributes

Author: Enchufa2

inst/tinytest/testRcppInterfaceExporter/src/RcppExports.cpp

@@ -43,7 +43,11 @@ RcppExport SEXP _testRcppInterfaceExporter_test_cpp_interface(SEXP xSEXP, SEXP f
     if (rcpp_isError_gen) {
         SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
         UNPROTECT(1);
+    #ifdef RCPP_NO_MASK
         RCPP_NO_MASK(Rf_error)("%s", CHAR(rcpp_msgSEXP_gen));
+    #else
+        Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
+    #endif
     }
     UNPROTECT(1);
     return rcpp_result_gen;

src/attributes.cpp

@@ -2953,7 +2953,11 @@ namespace attributes {
                      << "    if (rcpp_isError_gen) {" << std::endl
                      << "        SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);" << std::endl
                      << "        UNPROTECT(1);" << std::endl
+                     << "    #ifdef RCPP_NO_MASK" << std::endl
                      << "        RCPP_NO_MASK(Rf_error)(\"%s\", CHAR(rcpp_msgSEXP_gen));" << std::endl
+                     << "    #else" << std::endl
+                     << "        Rf_error(\"%s\", CHAR(rcpp_msgSEXP_gen));" << std::endl
+                     << "    #endif" << std::endl
                      << "    }" << std::endl
                      << "    UNPROTECT(1);" << std::endl
                      << "    return rcpp_result_gen;" << std::endl