diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
| commit | 6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d (patch) | |
| tree | 10b477c4f96989d84a5453310c9715aaef2b3413 /generic/tclLink.c | |
| parent | 351ab9f3bf86ea2d971416a759964c836e91c1b9 (diff) | |
| parent | e92ac699c1a4fc8683a61f855f5250c72d12b1c1 (diff) | |
| download | tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.zip tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.gz tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.bz2 | |
merge 8.6
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) { |