aboutsummaryrefslogtreecommitdiff
path: root/tcl/readable.tcl
blob: 39f43caada18fe89aef545b460a82a69704cfce1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 } {