X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Fmemory.tcl;h=3066c11139b5620d6f85bffdf67683356ef3f5c9;hb=307fe3730f1e8e48f41501b7f631e95f9dfc2a0d;hp=83c96d6c9deacd0cad754d86acc06f4ae73823fa;hpb=918de0be13b73e8e1d48726a91520b5e3589d66d;p=fw%2Fopenocd

diff --git a/tcl/memory.tcl b/tcl/memory.tcl
index 83c96d6c9..3066c1113 100644
--- a/tcl/memory.tcl
+++ b/tcl/memory.tcl
@@ -58,7 +58,7 @@ set ACCESS_WIDTH_ANY  [expr $ACCESS_WIDTH_8 + $ACCESS_WIDTH_16 + $ACCESS_WIDTH_3
 set UNKNOWN(0,ACCESS_WIDTH) $ACCESS_WIDTH_NONE
 
 proc iswithin { ADDRESS BASE LEN } {
-    return [expr ((($ADDRESS - $BASE) > 0) && (($ADDRESS - $BASE + $LEN) > 0))]
+    return [expr ((($ADDRESS - $BASE) >= 0) && (($BASE + $LEN - $ADDRESS) > 0))]
 }
 
 proc address_info { ADDRESS } {