1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
From: Ole Streicher <olebole@debian.org>
Date: Wed, 10 Sep 2025 12:23:25 +0200
Subject: Avoid 'bool' variable name: illegal in C23
Closes: #1098004
---
generic/tkTable.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/generic/tkTable.c b/generic/tkTable.c
index 6b11d10..65a61af 100644
--- a/generic/tkTable.c
+++ b/generic/tkTable.c
@@ -3797,7 +3797,7 @@ TableValidateChange(tablePtr, r, c, old, new, index)
int index; /* index of insert/delete, -1 otherwise */
{
register Tcl_Interp *interp = tablePtr->interp;
- int code, bool;
+ int code, bool_;
Tk_RestrictProc *rstrct;
ClientData cdata;
Tcl_DString script;
@@ -3836,13 +3836,13 @@ TableValidateChange(tablePtr, r, c, old, new, index)
Tcl_BackgroundError(interp);
code = TCL_ERROR;
} else if (Tcl_GetBooleanFromObj(interp, Tcl_GetObjResult(interp),
- &bool) != TCL_OK) {
+ &bool_) != TCL_OK) {
Tcl_AddErrorInfo(interp,
"\n\tboolean not returned by validation command");
Tcl_BackgroundError(interp);
code = TCL_ERROR;
} else {
- code = (bool) ? TCL_OK : TCL_BREAK;
+ code = (bool_) ? TCL_OK : TCL_BREAK;
}
Tcl_SetObjResult(interp, Tcl_NewObj());
|
