diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-26 07:18:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-26 07:18:41 (GMT) |
| commit | 0d55b56ce99bccd691b4413001fab8d7632cdae1 (patch) | |
| tree | 17f6d07fd92ec7976438262eae31087758a820dd /generic/tclZipfs.c | |
| parent | 75b0ad93312b04d4a23746fdde7c4c66e032b0f8 (diff) | |
| parent | e12b1646c6f675cf09d5f1a72d4ecdffa5da7396 (diff) | |
| download | tcl-0d55b56ce99bccd691b4413001fab8d7632cdae1.zip tcl-0d55b56ce99bccd691b4413001fab8d7632cdae1.tar.gz tcl-0d55b56ce99bccd691b4413001fab8d7632cdae1.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index c936a15..61dc615 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -467,7 +467,8 @@ ZipReadInt( Tcl_Panic("out of bounds read(4): start=%p, end=%p, ptr=%p", bufferStart, bufferEnd, ptr); } - return ptr[0] | (ptr[1] << 8) | (ptr[2] << 16) | (ptr[3] << 24); + return ptr[0] | (ptr[1] << 8) | (ptr[2] << 16) | + ((unsigned int)ptr[3] << 24); } static inline unsigned short |