diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 12:01:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 12:01:01 (GMT) |
| commit | a755c6601a9ede64e9e928be91f095c4954cf399 (patch) | |
| tree | a321fdf66f4d6709dfae793e38f7e380e706baec /generic/tclBinary.c | |
| parent | e718ec6850dc7cfe52d3e172833e65a1f927aa22 (diff) | |
| parent | e20374dc6289dbcbd8a89d665c7aa418934ef59b (diff) | |
| download | tcl-a755c6601a9ede64e9e928be91f095c4954cf399.zip tcl-a755c6601a9ede64e9e928be91f095c4954cf399.tar.gz tcl-a755c6601a9ede64e9e928be91f095c4954cf399.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 8eea58c..f82d21e 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2273,12 +2273,12 @@ ScanNumber( value = (long) (buffer[0] + (buffer[1] << 8) + (buffer[2] << 16) - + (((long)buffer[3]) << 24)); + + (((unsigned long)buffer[3]) << 24)); } else { value = (long) (buffer[3] + (buffer[2] << 8) + (buffer[1] << 16) - + (((long) buffer[0]) << 24)); + + (((unsigned long) buffer[0]) << 24)); } /* |