FIX: warning: incompatible-pointer-types-discards-qualifiers

Oldes · Oldes · commit 93b62c07eac9 · 2022-12-15T16:06:18.000+01:00
diff --git a/src/core/p-file.c b/src/core/p-file.c
@@ -398,7 +398,7 @@ REBINT Mode_Syms[] = {
 	if (cnt < 0) {
 		cnt = -cnt;
 		if (cnt > file->file.index) {
-			Trap1(RE_OUT_OF_RANGE, D_ARG(arg + 1));
+			Trap1(RE_OUT_OF_RANGE, (REBVAL*)D_ARG(arg + 1));
 			//cnt = file->file.index;
 		}
 		file->file.index -= cnt;

Original file line number	Diff line number	Diff line change
`@@ -398,7 +398,7 @@ REBINT Mode_Syms[] = {`
`398`	`398`	`if (cnt < 0) {`
`399`	`399`	`cnt = -cnt;`
`400`	`400`	`if (cnt > file->file.index) {`
`401`		`- Trap1(RE_OUT_OF_RANGE, D_ARG(arg + 1));`
	`401`	`+ Trap1(RE_OUT_OF_RANGE, (REBVAL*)D_ARG(arg + 1));`
`402`	`402`	`//cnt = file->file.index;`
`403`	`403`	`}`
`404`	`404`	`file->file.index -= cnt;`