diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-28 12:54:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-28 12:54:10 (GMT) |
| commit | 1d4129053c945df851f6eb8e124b08ba4b2b8519 (patch) | |
| tree | 67026e900024baef745315932775f87f8d226270 /generic/tclOOBasic.c | |
| parent | d89d16950d0f96afc68a1828744b804f7d509415 (diff) | |
| parent | 2356a95cada8ca1dff56b2d430a26e515f40245f (diff) | |
| download | tcl-1d4129053c945df851f6eb8e124b08ba4b2b8519.zip tcl-1d4129053c945df851f6eb8e124b08ba4b2b8519.tar.gz tcl-1d4129053c945df851f6eb8e124b08ba4b2b8519.tar.bz2 | |
Eliminate some unnecessary type-casts. Tcl_GetString -> TclGetString where appropriate
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 7bffcb1..b5b3265 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -744,7 +744,7 @@ TclOO_Object_VarName( return TCL_ERROR; } argPtr = objv[objc-1]; - arg = Tcl_GetString(argPtr); + arg = TclGetString(argPtr); /* * Convert the variable name to fully-qualified form if it wasn't already. @@ -781,8 +781,8 @@ TclOO_Object_VarName( if (mPtr->declaringObjectPtr == oPtr) { FOREACH_STRUCT(pvPtr, oPtr->privateVariables) { - if (!strcmp(Tcl_GetString(pvPtr->variableObj), - Tcl_GetString(argPtr))) { + if (!strcmp(TclGetString(pvPtr->variableObj), + TclGetString(argPtr))) { argPtr = pvPtr->fullNameObj; break; } @@ -803,8 +803,8 @@ TclOO_Object_VarName( } if (isInstance) { FOREACH_STRUCT(pvPtr, clsPtr->privateVariables) { - if (!strcmp(Tcl_GetString(pvPtr->variableObj), - Tcl_GetString(argPtr))) { + if (!strcmp(TclGetString(pvPtr->variableObj), + TclGetString(argPtr))) { argPtr = pvPtr->fullNameObj; break; } |