diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-28 12:38:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-28 12:38:44 (GMT) |
| commit | 7d54d1c504996494afe53a0d900d64e0e4aecafa (patch) | |
| tree | 5f92f698a302365fe77b6414c1dc9fe29b743df1 /generic/tclLink.c | |
| parent | 1f059c4f281d63894b3daf5e67a0b5166ed2e491 (diff) | |
| download | tcl-7d54d1c504996494afe53a0d900d64e0e4aecafa.zip tcl-7d54d1c504996494afe53a0d900d64e0e4aecafa.tar.gz tcl-7d54d1c504996494afe53a0d900d64e0e4aecafa.tar.bz2 | |
Make TclGlob() a static function. Sentinel/indenting/comment improvements (all backported from 8.7)
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index d93e4cb..6c5d0d2 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -513,7 +513,7 @@ LinkTraceProc( case TCL_LINK_ULONG: if ((Tcl_GetWideIntFromObj(NULL, valueObj, &valueWide) != TCL_OK && GetInvalidWideFromObj(valueObj, &valueWide) != TCL_OK) - || valueWide < 0 || (Tcl_WideUInt) valueWide > ULONG_MAX) { + || valueWide < 0 || (Tcl_WideUInt)valueWide > ULONG_MAX) { Tcl_ObjSetVar2(interp, linkPtr->varName, NULL, ObjValue(linkPtr), TCL_GLOBAL_ONLY); return (char *) "variable must have unsigned long value"; @@ -612,13 +612,13 @@ ObjValue( return Tcl_NewIntObj(linkPtr->lastValue.us); case TCL_LINK_UINT: linkPtr->lastValue.ui = LinkedVar(unsigned int); - return Tcl_NewWideIntObj((Tcl_WideInt) linkPtr->lastValue.ui); + return Tcl_NewWideIntObj(linkPtr->lastValue.ui); case TCL_LINK_LONG: linkPtr->lastValue.l = LinkedVar(long); - return Tcl_NewWideIntObj((Tcl_WideInt) linkPtr->lastValue.l); + return Tcl_NewWideIntObj(linkPtr->lastValue.l); case TCL_LINK_ULONG: linkPtr->lastValue.ul = LinkedVar(unsigned long); - return Tcl_NewWideIntObj((Tcl_WideInt) linkPtr->lastValue.ul); + return Tcl_NewWideIntObj(linkPtr->lastValue.ul); case TCL_LINK_FLOAT: linkPtr->lastValue.f = LinkedVar(float); return Tcl_NewDoubleObj(linkPtr->lastValue.f); @@ -627,7 +627,7 @@ ObjValue( /* * FIXME: represent as a bignum. */ - return Tcl_NewWideIntObj((Tcl_WideInt) linkPtr->lastValue.uw); + return Tcl_NewWideIntObj(linkPtr->lastValue.uw); case TCL_LINK_STRING: p = LinkedVar(char *); if (p == NULL) { |