diff options
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; |