# Defines basic Tcl procs for OpenOCD flash module
-# Show flash in human readable form
-# This is an example of a human readable form of a low level fn
-proc flash_banks {} {
- set i 0
- set result ""
- foreach {a} [ocd_flash_banks] {
- if {$i > 0} {
- set result "$result\n"
- }
- set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)]
- set i [expr $i+1]
- }
- return $result
+# ease migration to updated flash driver
+proc stm32x args {
+ echo "DEPRECATED! use 'stm32f1x $args' not 'stm32x $args'"
+ eval stm32f1x $args
}
+
+proc stm32f2xxx args {
+ echo "DEPRECATED! use 'stm32f2x $args' not 'stm32f2xxx $args'"
+ eval stm32f2x $args
+}
+