diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-01 20:38:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-01 20:38:09 (GMT) |
| commit | 27027cc682f4bdbf40ee66671cb0576e6c65e1da (patch) | |
| tree | 83f8be45953ee6b72afb7e8ffdde2bbe626aaa45 /generic/tclZlib.c | |
| parent | 983e7511fa5555567bdf27214ef363ca149075a0 (diff) | |
| parent | 384b9de6bb83732c6055c5d1a880898399579ecf (diff) | |
| download | tcl-27027cc682f4bdbf40ee66671cb0576e6c65e1da.zip tcl-27027cc682f4bdbf40ee66671cb0576e6c65e1da.tar.gz tcl-27027cc682f4bdbf40ee66671cb0576e6c65e1da.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index f69c84d..30a35d5 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -423,6 +423,7 @@ GenerateHeader( Tcl_Obj *value; int len, result = TCL_ERROR; size_t length; + Tcl_WideInt wideValue; const char *valueStr; Tcl_Encoding latin1enc; static const char *const types[] = { @@ -486,10 +487,11 @@ GenerateHeader( if (GetValue(interp, dictObj, "time", &value) != TCL_OK) { goto error; - } else if (value != NULL && Tcl_GetLongFromObj(interp, value, - (long *) &headerPtr->header.time) != TCL_OK) { + } else if (value != NULL && Tcl_GetWideIntFromObj(interp, value, + &wideValue) != TCL_OK) { goto error; } + headerPtr->header.time = wideValue; if (GetValue(interp, dictObj, "type", &value) != TCL_OK) { goto error; |