logical inversion

MichaelChirico · MichaelChirico · commit 545b78b131a8 · 2024-11-26T23:40:35.000Z
diff --git a/src/utils.c b/src/utils.c
@@ -23,7 +23,7 @@ bool isRealReallyInt32(SEXP x) {
          (within_int32_repres(dx[i]) && dx[i]==(int)(dx[i])))) {
     i++;
   }
-  return i!=n;
+  return i==n;
 }
 
 SEXP isRealReallyInt32R(SEXP x) {
@@ -40,7 +40,7 @@ bool isRealReallyInt64(SEXP x) {
          (within_int64_repres(dx[i]) && dx[i]==(int64_t)(dx[i])))) {
     i++;
   }
-  return i!=n;
+  return i==n;
 }
 
 SEXP isRealReallyInt64R(SEXP x) {

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ bool isRealReallyInt32(SEXP x) {`
`23`	`23`	`(within_int32_repres(dx[i]) && dx[i]==(int)(dx[i])))) {`
`24`	`24`	`i++;`
`25`	`25`	`}`
`26`		`- return i!=n;`
	`26`	`+ return i==n;`
`27`	`27`	`}`
`28`	`28`
`29`	`29`	`SEXP isRealReallyInt32R(SEXP x) {`
`@@ -40,7 +40,7 @@ bool isRealReallyInt64(SEXP x) {`
`40`	`40`	`(within_int64_repres(dx[i]) && dx[i]==(int64_t)(dx[i])))) {`
`41`	`41`	`i++;`
`42`	`42`	`}`
`43`		`- return i!=n;`
	`43`	`+ return i==n;`
`44`	`44`	`}`
`45`	`45`
`46`	`46`	`SEXP isRealReallyInt64R(SEXP x) {`