12 lines
315 B
Tcl
12 lines
315 B
Tcl
|
% format %lx -1 ;# all bits set
|
||
|
|
ffffffffffffffff
|
||
|
|
|
||
|
|
% regsub f 0x[format %lx -1] 7 ;# unset the sign bit for positive
|
||
|
|
0x7fffffffffffffff
|
||
|
|
|
||
|
|
% set ii [expr [regsub f 0x[format %lx -1] 7]] ;# show as decimal
|
||
|
|
9223372036854775807
|
||
|
|
|
||
|
|
% incr ii
|
||
|
|
9223372036854775808 ;# silently upgrade to unbounded integer, still positive
|