From f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=98yvind=20Harboe?= <oyvind.harboe@zylin.com>
Date: Mon, 20 Sep 2010 09:23:24 +0200
Subject: [PATCH] tcl: remove incomplete unused tcl file
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
---
 tcl/readable.tcl | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 tcl/readable.tcl

diff --git a/tcl/readable.tcl b/tcl/readable.tcl
deleted file mode 100644
index bd2dc7f8..00000000
--- a/tcl/readable.tcl
+++ /dev/null
@@ -1,24 +0,0 @@
-proc iswithin { ADDRESS BASE LEN } {
-    return [expr ((($ADDRESS - $BASE) > 0) && (($ADDRESS - $BASE + $LEN) > 0))]
-}
-
-proc memorytype { ADDRESS } {
-    for { set chip 0 } { $chip < $N_CHIP } { incr chip } {
-	if { iswithin $ADDRESS $FLASH($chip,BASE) $FLASH($chip,LEN) } {
-	    return "flash"
-	}
-    }
-
-    for { set chip 0 } { $chip < $N_RAM } { incr chip } {
-	if { iswithin $ADDRESS $RAM($chip,BASE) $RAM($chip,LEN) } {
-	    return "ram"
-	}
-    }
-}
-
-# default to 32bit reads.
-proc isreadable { ADDRESS } {
-     return isreadable32 $ADDRESS
-}
-
-proc isreadable32 { ADDRESS } {
-- 
2.39.5