tcl: remove silly ocd_ prefix to array2mem and mem2array

[openocd.git] / tcl / chip / atmel / at91 / aic.tcl

diff --git a/tcl/chip/atmel/at91/aic.tcl b/tcl/chip/atmel/at91/aic.tcl
index 1fe4514b635b1b4f9206f4354c8510d75617d7c5..366be6d07fdf42a3e5498740e4e671d95d80d724 100644 (file)
--- a/tcl/chip/atmel/at91/aic.tcl
+++ b/tcl/chip/atmel/at91/aic.tcl
@@ -54,7 +54,7 @@ proc show_AIC_IMR_helper { NAME ADDR VAL } {
 
 proc show_AIC { } {
     global AIC_SMR
-    if [catch { ocd_mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] {
+    if [catch { mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] {
        error [format "%s (%s)" $msg AIC_SMR]
     }
     puts "AIC_SMR: Mode & Type"
@@ -71,7 +71,7 @@ proc show_AIC { } {
        incr x
     }
     global AIC_SVR
-    if [catch { ocd_mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] {
+    if [catch { mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] {
        error [format "%s (%s)" $msg AIC_SVR]
     }
     puts "AIC_SVR: Vectors"
@@ -85,12 +85,12 @@ proc show_AIC { } {
        incr x
        puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)]
        incr x
-    } 
+    }
 
     foreach REG {
-       AIC_IVR   AIC_FVR  AIC_ISR 
+       AIC_IVR   AIC_FVR  AIC_ISR
        AIC_IPR  AIC_IMR  AIC_CISR  AIC_IECR AIC_IDCR
-       AIC_ICCR AIC_ISCR AIC_EOICR AIC_SPU  AIC_DCR     
+       AIC_ICCR AIC_ISCR AIC_EOICR AIC_SPU  AIC_DCR
        AIC_FFER AIC_FFDR AIC_FFSR } {
        if [catch { show_mmr32_reg $REG } msg ] {
            error $msg