READ 0x01
WRITE 0x02
}
- return [expr ($cmds($cmd) << 26) | ($addr << 16) | ($data << 0)]
+ return [expr {($cmds($cmd) << 26) | ($addr << 16) | ($data << 0)}]
}
# XADC register addresses
proc xadc_xfer {tap cmd addr data} {
set ret [drscan $tap 32 [xadc_cmd $cmd $addr $data]]
runtest 10
- return [expr 0x$ret]
+ return [expr "0x$ret"]
}
# XADC register write