Browse Source

tcl: remove incomplete unused tcl file

Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
tags/v0.5.0-rc1
Øyvind Harboe 13 years ago
parent
commit
f613011aa0
1 changed files with 0 additions and 24 deletions
  1. +0
    -24
      tcl/readable.tcl

+ 0
- 24
tcl/readable.tcl View File

@@ -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 } {

Loading…
Cancel
Save