tcl: [1/3] prepare for jimtcl 0.81 'expr' syntax change

[fw/openocd] / tcl / target / snps_em_sk_fpga.cfg

diff --git a/tcl/target/snps_em_sk_fpga.cfg b/tcl/target/snps_em_sk_fpga.cfg
index 2f7fecbe32cd3a5ad04fab936bf480a7ebc923c8..d09561f3879cde576062e1f2bba74c305936964a 100644 (file)
--- a/tcl/target/snps_em_sk_fpga.cfg
+++ b/tcl/target/snps_em_sk_fpga.cfg
@@ -20,7 +20,7 @@ jtag newtap $_CHIPNAME cpu -irlen 4 -ircapture 0x1 -expected-id 0x200444b1 \
   -expected-id 0x200044b1
 
 set _coreid 0
-set _dbgbase [expr 0x00000000 | ($_coreid << 13)]
+set _dbgbase [expr {0x00000000 | ($_coreid << 13)}]
 
 target create $_TARGETNAME arcv2 -chain-position $_TARGETNAME \
   -coreid 0 -dbgbase $_dbgbase -endian little