From edefee988045558d5d306453ce352dc06bcb7a03 Mon Sep 17 00:00:00 2001 From: Antonio Borneo Date: Tue, 21 Sep 2010 16:06:37 +0800 Subject: TCL scripts: collect duplicated procedures TCL procedures mrw and mmw, originally in DaVinci target code, are duplicated in other TCL scripts. Moved in a common helper file, and added help/usage description. Signed-off-by: Antonio Borneo --- tcl/target/davinci.cfg | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) (limited to 'tcl/target/davinci.cfg') diff --git a/tcl/target/davinci.cfg b/tcl/target/davinci.cfg index 6e9091e5..9e9369dc 100644 --- a/tcl/target/davinci.cfg +++ b/tcl/target/davinci.cfg @@ -7,20 +7,7 @@ proc davinci_pinmux {soc reg value} { mww [expr [dict get $soc sysbase] + 4 * $reg] $value } -# mrw: "memory read word", returns value of $reg -proc mrw {reg} { - set value "" - mem2array value 32 $reg 1 - return $value(0) -} - -# mmw: "memory modify word", updates value of $reg -# $reg <== ((value & ~$clearbits) | $setbits) -proc mmw {reg setbits clearbits} { - set old [mrw $reg] - set new [expr ($old & ~$clearbits) | $setbits] - mww $reg $new -} +source [find mem_helper.tcl] # # pll_setup: initialize PLL -- cgit v1.2.3