summaryrefslogtreecommitdiff
path: root/tcl
diff options
context:
space:
mode:
authorØyvind Harboe <oyvind.harboe@zylin.com>2010-09-20 09:23:24 +0200
committerØyvind Harboe <oyvind.harboe@zylin.com>2010-09-20 09:23:42 +0200
commitf613011aa0232d1cc8a9db1e739fa63ccf5ffcfa (patch)
treecf7cd5bf81344aec839c72c3b33182cd91939a03 /tcl
parent103c1f9525436892b610b37d5efc4f2635f5a832 (diff)
downloadopenocd_libswd-f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa.tar.gz
openocd_libswd-f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa.tar.bz2
openocd_libswd-f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa.tar.xz
openocd_libswd-f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa.zip
tcl: remove incomplete unused tcl file
Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
Diffstat (limited to 'tcl')
-rw-r--r--tcl/readable.tcl24
1 files changed, 0 insertions, 24 deletions
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 } {