diff options
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 7842d0d..f7d9dfc 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2161,7 +2161,7 @@ Tcl_GetBoolFromObj( Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* The object from which to get boolean. */ int flags, - char *boolPtr) /* Place to store resulting boolean. */ + char *charPtr) /* Place to store resulting boolean. */ { int result; @@ -2206,8 +2206,8 @@ Tcl_GetBoolFromObj( if (objPtr->typePtr == &tclBignumType) { result = 1; boolEnd: - if (boolPtr != NULL) { - *boolPtr = result; + if (charPtr != NULL) { + *charPtr = result; } return TCL_OK; } |