27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
set result
} {byteOrder machine os osVersion platform user wordSize}
# Test assumes twos-complement arithmetic, which is true of virtually
# everything these days. Note that this does *not* use wide(), and
# this is intentional since that could make Tcl's numbers wider than
# the machine-integer on some platforms...
test platform-2.1 {tcl_platform(wordSize) indicates size of native word} {
set result [expr {1 << (8 * $tcl_platform(wordSize) - 1)}]
# Result must be the largest bit in a machine word, which this checks
# without assuming how wide the word really is
list [expr {$result < 0}] [expr {$result ^ ($result - 1)}]
} {1 -1}
# On Windows, test that the CPU ID works
|
|
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
set result
} {byteOrder machine os osVersion platform user wordSize}
# Test assumes twos-complement arithmetic, which is true of virtually
# everything these days. Note that this does *not* use wide(), and
# this is intentional since that could make Tcl's numbers wider than
# the machine-integer on some platforms...
test platform-2.1 {tcl_platform(wordSize) indicates size of native word} knownBug {
set result [expr {1 << (8 * $tcl_platform(wordSize) - 1)}]
# Result must be the largest bit in a machine word, which this checks
# without assuming how wide the word really is
list [expr {$result < 0}] [expr {$result ^ ($result - 1)}]
} {1 -1}
# On Windows, test that the CPU ID works
|