summaryrefslogtreecommitdiffstats
path: root/generic/tclObj.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-10-23 10:43:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-10-23 10:43:04 (GMT)
commita8896d0fd007bb6b3d32e5404838b449b4f53351 (patch)
tree4826132e5bfe9373636e2bc42d49284878b82346 /generic/tclObj.c
parent9cfb05d5b2abc38b205ed1c41781ffde314f72b6 (diff)
parent72bac6d72c25a6da77c3a97d653e93ee13160187 (diff)
downloadtcl-a8896d0fd007bb6b3d32e5404838b449b4f53351.zip
tcl-a8896d0fd007bb6b3d32e5404838b449b4f53351.tar.gz
tcl-a8896d0fd007bb6b3d32e5404838b449b4f53351.tar.bz2
TIP #641: Let Tcl_GetBoolean(FromObj) handle (C99) bool
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r--generic/tclObj.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 4a660b2..ce8e610 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -2217,6 +2217,8 @@ Tcl_GetBoolFromObj(
} else if (flags == (int)sizeof(short)) {
*(short *)charPtr = result;
return TCL_OK;
+ } else {
+ Tcl_Panic("Wrong bool var for %s", "Tcl_GetBoolFromObj");
}
}
*charPtr = result;