diff options
| 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 |
| commit | f613011aa0232d1cc8a9db1e739fa63ccf5ffcfa (patch) | |
| tree | cf7cd5bf81344aec839c72c3b33182cd91939a03 /tcl | |
| parent | 103c1f9525436892b610b37d5efc4f2635f5a832 (diff) | |
| download | openocd+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.tcl | 24 |
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 } { |