[PATCH]: b31e12fe32 tcl/memory: fix syntax errors

[gerrit]

This is an automated email from Gerrit.

"Noah Moroze <noahmor...@gmail.com>" just uploaded a new patch set to Gerrit, 
which you can find at https://review.openocd.org/c/openocd/+/8279

-- gerrit

commit b31e12fe32ed7dafb23491d97dcbaa6c97dc2ae7
Author: Noah Moroze <noahmor...@gmail.com>
Date:   Wed May 15 22:39:12 2024 -0400

    tcl/memory: fix syntax errors
    
    Using a command in an expression requires a bracketed command
    substitution.
    
    Change-Id: I510d46222f4fb02d6ef73121b231d5b2df77e5c0
    Signed-off-by: Noah Moroze <noahmor...@gmail.com>

diff --git a/tcl/memory.tcl b/tcl/memory.tcl
index b111749954..8b93b515eb 100644
--- a/tcl/memory.tcl
+++ b/tcl/memory.tcl
@@ -66,10 +66,10 @@ proc iswithin { ADDRESS BASE LEN } {
 proc address_info { ADDRESS } {
 
     foreach WHERE { FLASH RAM MMREGS XMEM UNKNOWN } {
-       if { info exists $WHERE } {
+       if { [info exists $WHERE] } {
            set lmt [set N_[set WHERE]]
            for { set region 0 } { $region < $lmt } { incr region } {
-               if { iswithin $ADDRESS $WHERE($region,BASE) $WHERE($region,LEN) 
} {
+               if { [iswithin $ADDRESS $WHERE($region,BASE) 
$WHERE($region,LEN)] } {
                    return  "$WHERE $region";
                }
            }

--