diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-03 15:36:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-03 15:36:44 (GMT) |
| commit | f55f26abe0abebafbf5d09c6247c1bebbbffe63e (patch) | |
| tree | a39f60c8a83ecd2b786d229eb29e3e897e5029c1 | |
| parent | 8da29403d9cd497343e84c27e4202ac2cf126760 (diff) | |
| download | tcl-f55f26abe0abebafbf5d09c6247c1bebbbffe63e.zip tcl-f55f26abe0abebafbf5d09c6247c1bebbbffe63e.tar.gz tcl-f55f26abe0abebafbf5d09c6247c1bebbbffe63e.tar.bz2 | |
TclGetStringFromObj() cannot be used here
| -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 f9b19c2..7155ebb 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2132,7 +2132,7 @@ TclSetBooleanFromAny( badBoolean: if (interp != NULL) { Tcl_Size length; - const char *str = TclGetStringFromObj(objPtr, &length); + const char *str = Tcl_GetStringFromObj(objPtr, &length); Tcl_Obj *msg; TclNewLiteralStringObj(msg, "expected boolean value but got \""); @@ -2151,7 +2151,7 @@ ParseBoolean( int newBool; char lowerCase[6]; Tcl_Size i, length; - const char *str = TclGetStringFromObj(objPtr, &length); + const char *str = Tcl_GetStringFromObj(objPtr, &length); if ((length < 1) || (length > 5)) { /* @@ -4237,7 +4237,7 @@ TclHashObjKey( { Tcl_Obj *objPtr = (Tcl_Obj *)keyPtr; Tcl_Size length; - const char *string = TclGetStringFromObj(objPtr, &length); + const char *string = Tcl_GetStringFromObj(objPtr, &length); size_t result = 0; /* |