read register value into variable

Kind of a tricky thing. reg pc does not return anything... Why even should it?^^ would be useful -.-

How ever, this one works with credit to the mailinglist!

set real_pc  [lindex [ocd_reg pc] 2]

# following executed returns the pc at (here) 0x1FC
ocd_reg pc
# returns: "pc (/32): 0x000001FC "

# Now I can check for my pc in tcl =)!
if { $expected_pc == $real_pc } { \
    echo "reg pc is correct! at $real_pc"
}

This looks to me like the string is split in 3 chunks. Taken is chunk 2, count starts by 0. In tcl everything is a string. So this works!