X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Fboard%2Fat91cap7a-stk-sdram.cfg;h=8a371e064b3115809a7159372f2ff572802b5ee4;hb=3ba2b515b528094b43d5be5056b9e52f1dc33969;hp=8395ba33bcf02f2fba7e54e15df4299008f9edf8;hpb=5df5e89cf3caf02dc6f49a5d3c8aa8b1349a1dbf;p=fw%2Fopenocd

diff --git a/tcl/board/at91cap7a-stk-sdram.cfg b/tcl/board/at91cap7a-stk-sdram.cfg
index 8395ba33b..8a371e064 100644
--- a/tcl/board/at91cap7a-stk-sdram.cfg
+++ b/tcl/board/at91cap7a-stk-sdram.cfg
@@ -38,7 +38,7 @@ proc peek32 {address} {
 
 # Wait for an expression to be true with a timeout
 proc wait_state {expression} {
-	for {set i 0} {$i < 1000} {set i [expr $i + 1]} {
+	for {set i 0} {$i < 1000} {set i [expr {$i + 1}]} {
 		if {[uplevel 1 $expression] == 0} {
 			return
 		}