diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-20 10:20:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-20 10:20:57 (GMT) |
| commit | ef773d518ee5df3377d805762539f0da72c33f36 (patch) | |
| tree | 9686bf4be018af59a09cd011230104297aafdd3f /generic/tclGet.c | |
| parent | c04affa12025f2b856fd5d3148284c1ee03571ab (diff) | |
| parent | b80552437af293244ff1d5c1418ae376c4efd9bd (diff) | |
| download | tcl-ef773d518ee5df3377d805762539f0da72c33f36.zip tcl-ef773d518ee5df3377d805762539f0da72c33f36.tar.gz tcl-ef773d518ee5df3377d805762539f0da72c33f36.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c index b7f0328..f1bba28 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -110,7 +110,7 @@ Tcl_GetDouble( * string. * * Results: - * The return value is normally TCL_OK; in this case *boolPtr will be set + * The return value is normally TCL_OK; in this case *intPtr will be set * to the 0/1 value equivalent to src. If src is improperly formed then * TCL_ERROR is returned and an error message will be left in the * interp's result. @@ -126,7 +126,7 @@ Tcl_GetBoolean( Tcl_Interp *interp, /* Interpreter used for error reporting. */ const char *src, /* String containing one of the boolean values * 1, 0, true, false, yes, no, on, off. */ - int *boolPtr) /* Place to store converted result, which will + int *intPtr) /* Place to store converted result, which will * be 0 or 1. */ { Tcl_Obj obj; @@ -142,7 +142,7 @@ Tcl_GetBoolean( Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } if (code == TCL_OK) { - *boolPtr = obj.internalRep.wideValue != 0; + *intPtr = obj.internalRep.wideValue != 0; } return code; } |