add casts, comments

ripley · ripley · commit 4d9da26ee81e · 2025-03-12T15:41:17.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87948 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/appl/interv.c b/src/appl/interv.c
@@ -40,7 +40,11 @@ int F77_SUB(interv)(double *xt, int *n, double *x,
 		    int *rightmost_closed, int *all_inside,
 		    int *ilo, int *mflag)
 {
-  return findInterval(xt, *n, *x, *rightmost_closed, *all_inside, *ilo, mflag);
+    // This has an int return value which is ignored here
+    return findInterval(xt, *n, *x,
+			(Rboolean) *rightmost_closed,
+			(Rboolean) *all_inside,
+			*ilo, mflag);
 }
 
 /* In API header R_ext/Utils.h */

Original file line number	Diff line number	Diff line change
`@@ -40,7 +40,11 @@ int F77_SUB(interv)(double xt, int n, double *x,`
`40`	`40`	`int rightmost_closed, int all_inside,`
`41`	`41`	`int ilo, int mflag)`
`42`	`42`	`{`
`43`		`- return findInterval(xt, n, x, rightmost_closed, all_inside, *ilo, mflag);`
	`43`	`+ // This has an int return value which is ignored here`
	`44`	`+ return findInterval(xt, n, x,`
	`45`	`+ (Rboolean) *rightmost_closed,`
	`46`	`+ (Rboolean) *all_inside,`
	`47`	`+ *ilo, mflag);`
`44`	`48`	`}`
`45`	`49`
`46`	`50`	`/* In API header R_ext/Utils.h */`