target/tcl: Add set_reg function