right-shift bits
Posted to
tcl
by karen at Sun Jan 31 19:06:11 GMT 2021
view raw
for
{
set
val
expr
{2**10}} {
$val
>=0} {val >> 1}
after
100
write_source_data -instance_index 1 -value
$val
}
Recent Posts
tcl by oldlaptop
1 days ago
tcl by mookie
7 days ago
tcl by dandyn
14 days ago
tcl by Bradipo
14 days ago
tcl by Bradipo
14 days ago
tcl by oldlaptop
38 days ago
tcl by oldlaptop
39 days ago
tcl by mookie
43 days ago
tcl by mookie
44 days ago
tcl by georgtree
45 days ago
Submit
New paste
Documentation
From Jabber