diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-12-12 17:00:59 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-12-12 17:00:59 (GMT) |
| commit | 1ce78346fbd0daa8d65e02d2d1f59c74fc02f95d (patch) | |
| tree | 664d6c4757c86f9b33466ab6b6719237f6972f5c /generic/tclCmdMZ.c | |
| parent | c60e1a679dc096b076279e0ef80a82fe41223a51 (diff) | |
| download | tcl-1ce78346fbd0daa8d65e02d2d1f59c74fc02f95d.zip tcl-1ce78346fbd0daa8d65e02d2d1f59c74fc02f95d.tar.gz tcl-1ce78346fbd0daa8d65e02d2d1f59c74fc02f95d.tar.bz2 | |
better fix for [3e0a2d99f3], considering [string first] could return a value larger that INT_MAX for x64
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 1654e5a..216fa0e 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1338,7 +1338,7 @@ StringFirstCmd( return TCL_ERROR; } } - Tcl_SetObjResult(interp, Tcl_NewIntObj(TclStringFirst(objv[1], + Tcl_SetObjResult(interp, Tcl_NewWideIntObjFromSize(TclStringFirst(objv[1], objv[2], start))); return TCL_OK; } |