diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-23 10:43:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-23 10:43:04 (GMT) |
commit | a8896d0fd007bb6b3d32e5404838b449b4f53351 (patch) | |
tree | 4826132e5bfe9373636e2bc42d49284878b82346 /generic/tclObj.c | |
parent | 9cfb05d5b2abc38b205ed1c41781ffde314f72b6 (diff) | |
parent | 72bac6d72c25a6da77c3a97d653e93ee13160187 (diff) | |
download | tcl-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.c | 2 |
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; |