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 mjanssen
3 days ago
tcl by mjanssen
4 days ago
tcl by mjanssen
4 days ago
tcl by mjanssen
4 days ago
tcl by b0t
4 days ago
tcl by oldlaptop
4 days ago
tcl by aku
5 days ago
tcl by kbk
5 days ago
tcl by kbk
5 days ago
tcl by Jack
5 days ago
Submit
New paste
Documentation
From Jabber