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 mookie
15 hours ago
tcl by ACfromTX
11 days ago
tcl by emiliano
12 days ago
tcl by mookie
13 days ago
tcl by schelte
17 days ago
tcl by oldlaptop
30 days ago
tcl by mookie
36 days ago
tcl by dandyn
42 days ago
tcl by Bradipo
42 days ago
tcl by Bradipo
42 days ago
Submit
New paste
Documentation
From Jabber