From dbbc9c41f7db210b0a4e226540a28e0a8a5019bf Mon Sep 17 00:00:00 2001
From: zwelch <zwelch@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Wed, 27 May 2009 06:49:24 +0000
Subject: Move TCL script files -- Step 2 of 2: - Move src/tcl to tcl/. -
 Update top Makefile.am to use new path name.

git-svn-id: svn://svn.berlios.de/openocd/trunk@1919 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/readable.tcl | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 src/tcl/readable.tcl

(limited to 'src/tcl/readable.tcl')

diff --git a/src/tcl/readable.tcl b/src/tcl/readable.tcl
deleted file mode 100644
index 39f43caa..00000000
--- a/src/tcl/readable.tcl
+++ /dev/null
@@ -1,25 +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 } {
-    
\ No newline at end of file
-- 
cgit v1.2.3-18-g5258