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
|