1
- // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
2
- //
1
+
3
2
// exceptions.h: Rcpp R/C++ interface class library -- exceptions
4
3
//
5
- // Copyright (C) 2010 - 2017 Dirk Eddelbuettel and Romain Francois
4
+ // Copyright (C) 2010 - 2020 Dirk Eddelbuettel and Romain Francois
6
5
//
7
6
// This file is part of Rcpp.
8
7
//
@@ -130,7 +129,7 @@ inline SEXP longjumpSentinel(SEXP token) {
130
129
return sentinel;
131
130
}
132
131
133
- inline bool isLongjumpSentinel (SEXP x) {
132
+ inline bool isLongjumpSentinel (SEXP x) { // #nocov start
134
133
return
135
134
Rf_inherits (x, " Rcpp:longjumpSentinel" ) &&
136
135
TYPEOF (x) == VECSXP &&
@@ -148,7 +147,7 @@ inline void resumeJump(SEXP token) {
148
147
::R_ReleaseObject (token);
149
148
#if (defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))
150
149
::R_ContinueUnwind (token);
151
- #endif
150
+ #endif // #nocov end
152
151
Rf_error (" Internal error: Rcpp longjump failed to resume" );
153
152
}
154
153
@@ -200,7 +199,7 @@ namespace Rcpp {
200
199
virtual const char * what () const throw() { return __MESSAGE__ ; } \
201
200
} ;
202
201
203
- RCPP_SIMPLE_EXCEPTION_CLASS (not_a_matrix, " Not a matrix." ) // #nocov start
202
+ RCPP_SIMPLE_EXCEPTION_CLASS (not_a_matrix, " Not a matrix." ) // #nocov start
204
203
RCPP_SIMPLE_EXCEPTION_CLASS (parse_error, " Parse error." )
205
204
RCPP_SIMPLE_EXCEPTION_CLASS (not_s4, " Not an S4 object." )
206
205
RCPP_SIMPLE_EXCEPTION_CLASS (not_reference, " Not an S4 object of a reference class." )
@@ -221,10 +220,10 @@ namespace Rcpp {
221
220
RCPP_EXCEPTION_CLASS (binding_is_locked, " Binding is locked" )
222
221
RCPP_EXCEPTION_CLASS (no_such_namespace, " No such namespace" )
223
222
RCPP_EXCEPTION_CLASS (function_not_exported, " Function not exported" )
224
- RCPP_EXCEPTION_CLASS (eval_error, " Evaluation error" ) // #nocov end
223
+ RCPP_EXCEPTION_CLASS (eval_error, " Evaluation error" )
225
224
226
225
// Promoted
227
- RCPP_ADVANCED_EXCEPTION_CLASS (not_compatible, " Not compatible" )
226
+ RCPP_ADVANCED_EXCEPTION_CLASS (not_compatible, " Not compatible" ) // #nocov end
228
227
RCPP_ADVANCED_EXCEPTION_CLASS (index_out_of_bounds, " Index is out of bounds" )
229
228
230
229
#undef RCPP_SIMPLE_EXCEPTION_CLASS
0 commit comments