add nocov

ben-schwen · ben-schwen · commit d217eeed0715 · 2024-12-02T11:21:50.000+01:00
diff --git a/src/assign.c b/src/assign.c
@@ -133,7 +133,7 @@ static int _selfrefok(SEXP x, Rboolean checkNames, Rboolean verbose) {
     // because R copies the original vector's tl over despite allocating length.
   prot = R_ExternalPtrProtected(v);
   if (TYPEOF(prot) != EXTPTRSXP) { // Very rare. Was error(_(".internal.selfref prot is not itself an extptr")).
-    UNPROTECT(2);
+    UNPROTECT(2);                  // # nocov
     return 0;                      // # nocov ; see http://stackoverflow.com/questions/15342227/getting-a-random-internal-selfref-error-in-data-table-for-r
   }
   if (x!=R_ExternalPtrAddr(prot) && !ALTREP(x))

Original file line number	Diff line number	Diff line change
`@@ -133,7 +133,7 @@ static int _selfrefok(SEXP x, Rboolean checkNames, Rboolean verbose) {`
`133`	`133`	`// because R copies the original vector's tl over despite allocating length.`
`134`	`134`	`prot = R_ExternalPtrProtected(v);`
`135`	`135`	`if (TYPEOF(prot) != EXTPTRSXP) { // Very rare. Was error(_(".internal.selfref prot is not itself an extptr")).`
`136`		`- UNPROTECT(2);`
	`136`	`+ UNPROTECT(2); // # nocov`
`137`	`137`	`return 0; // # nocov ; see http://stackoverflow.com/questions/15342227/getting-a-random-internal-selfref-error-in-data-table-for-r`
`138`	`138`	`}`
`139`	`139`	`if (x!=R_ExternalPtrAddr(prot) && !ALTREP(x))`