diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 14:16:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 14:16:00 (GMT) |
| commit | 1f35ddfe6233a4a056ba3c4e67a4a7563f6d681f (patch) | |
| tree | 3afe4b5df55ecf6a66c76c924335bff13b9c2658 /generic/tclIORChan.c | |
| parent | 110e6cae5e332cfbbbf35253b9dea01162a96975 (diff) | |
| download | tcl-1f35ddfe6233a4a056ba3c4e67a4a7563f6d681f.zip tcl-1f35ddfe6233a4a056ba3c4e67a4a7563f6d681f.tar.gz tcl-1f35ddfe6233a4a056ba3c4e67a4a7563f6d681f.tar.bz2 | |
Use Tcl_NewWideIntObj() for values that might be bigger than 32-bit
Diffstat (limited to 'generic/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 2e25182..3e2bcbe 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -2111,7 +2111,7 @@ ReflectTruncate( Tcl_Preserve(rcPtr); - lenObj = Tcl_NewIntObj(length); + lenObj = Tcl_NewWideIntObj(length); Tcl_IncrRefCount(lenObj); if (InvokeTclMethod(rcPtr,METH_TRUNCATE,lenObj,NULL,&resObj)!=TCL_OK) { @@ -3361,7 +3361,7 @@ ForwardProc( break; case ForwardedTruncate: { - Tcl_Obj *lenObj = Tcl_NewIntObj(paramPtr->truncate.length); + Tcl_Obj *lenObj = Tcl_NewWideIntObj(paramPtr->truncate.length); Tcl_IncrRefCount(lenObj); Tcl_Preserve(rcPtr); |