fix for 64 bit machines

This commit is contained in:
zimoch
2015-08-17 13:34:00 +00:00
parent cefa460a0d
commit d763a64f03

View File

@ -225,7 +225,11 @@ send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "0xffffffff\n"
assure "ffffffff\n"
if {$tcl_platform(wordSize) == 8} {
assure "ffffffffffffffff\n"
} else {
assure "ffffffff\n"
}
ioccmd {dbpf DZ:test4.PROC 1}
send "-0xffffffff\n"
assure "mismatch\n"