diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-05-05 19:10:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-05-05 19:10:52 (GMT) |
| commit | 69865e4f837c6364439bcf7b90273ec627bfde96 (patch) | |
| tree | ba64a5cb89b07e6f69ebef43632af419d24af348 /tests/binary.test | |
| parent | b96146d014d39f6f3f55db1ebcb3331c2a32eab0 (diff) | |
| parent | 71a9a4406a6d1f7e004030f8e928d42fa18c3e3c (diff) | |
| download | tcl-69865e4f837c6364439bcf7b90273ec627bfde96.zip tcl-69865e4f837c6364439bcf7b90273ec627bfde96.tar.gz tcl-69865e4f837c6364439bcf7b90273ec627bfde96.tar.bz2 | |
[6015221f59] Segfault after overflow of [binary] field specifier numeric count.
Diffstat (limited to 'tests/binary.test')
| -rw-r--r-- | tests/binary.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/binary.test b/tests/binary.test index 40b1315..2a306a3 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -1506,6 +1506,18 @@ test binary-37.9 {GetFormatSpec: numbers} { binary scan $x f* bla set bla } {1.0 -1.0 2.0 -2.0 0.0} +test binary-37.10 {GetFormatSpec: count overflow} { + binary scan x a[format %ld 0x7fffffff] r +} 0 +test binary-37.11 {GetFormatSpec: count overflow} { + binary scan x a[format %ld 0x10000000] r +} 0 +test binary-37.12 {GetFormatSpec: count overflow} { + binary scan x a[format %ld 0x100000000] r +} 0 +test binary-37.13 {GetFormatSpec: count overflow} { + binary scan x a[format %lld 0x10000000000000000] r +} 0 test binary-38.1 {FormatNumber: word alignment} { set x [binary format c1s1 1 1] |