| Line 26... |
Line 26... |
#
|
#
|
# Author(s):
|
# Author(s):
|
# - Olivier Girard, olgirard@gmail.com
|
# - Olivier Girard, olgirard@gmail.com
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# $Rev: 74 $
|
# $Rev: 77 $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedDate: 2010-08-28 21:53:08 +0200 (Sat, 28 Aug 2010) $
|
# $LastChangedDate: 2010-11-21 20:50:55 +0100 (Sun, 21 Nov 2010) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
#
|
#
|
# Description: Main utility functions for the openMSP430 serial debug
|
# Description: Main utility functions for the openMSP430 serial debug
|
# interface.
|
# interface.
|
#
|
#
|
| Line 367... |
Line 367... |
# Description: Performs a program verification over the given memory range. #
|
# Description: Performs a program verification over the given memory range. #
|
# Arguments : StartAddr - Start address of the memory to be verified. #
|
# Arguments : StartAddr - Start address of the memory to be verified. #
|
# DataArray - List of reference data (in hexadecimal). #
|
# DataArray - List of reference data (in hexadecimal). #
|
# Result : 0 if error, 1 if verification was successful. #
|
# Result : 0 if error, 1 if verification was successful. #
|
#=============================================================================#
|
#=============================================================================#
|
proc VerifyMem {StartAddr DataArray} {
|
proc VerifyMem {StartAddr DataArray {DumpOnError 0}} {
|
|
|
dbg_uart_wr MEM_CNT [expr [llength $DataArray]-1]
|
dbg_uart_wr MEM_CNT [expr [llength $DataArray]-1]
|
dbg_uart_wr MEM_ADDR $StartAddr
|
dbg_uart_wr MEM_ADDR $StartAddr
|
dbg_uart_wr MEM_CTL 0x0001
|
dbg_uart_wr MEM_CTL 0x0001
|
|
|
set mem_val [dbg_uart_rx 0 [expr [llength $DataArray]*2]]
|
set mem_val [dbg_uart_rx 0 [expr [llength $DataArray]*2]]
|
|
|
set return_val [string equal $DataArray $mem_val]
|
set return_val [string equal $DataArray $mem_val]
|
|
|
#if {$return_val==0} {
|
if {($return_val==0) && ($DumpOnError==1)} {
|
# puts $DataArray
|
file delete -force openmsp430-verifymem-debug-original.mem
|
# puts $mem_val
|
file delete -force openmsp430-verifymem-debug-dumped.mem
|
#}
|
set fileId [open openmsp430-verifymem-debug-original.mem "w"]
|
|
foreach hexCode $DataArray {
|
|
puts $fileId $hexCode
|
|
}
|
|
close $fileId
|
|
set fileId [open openmsp430-verifymem-debug-dumped.mem "w"]
|
|
foreach hexCode $mem_val {
|
|
puts $fileId $hexCode
|
|
}
|
|
close $fileId
|
|
}
|
|
|
return $return_val
|
return $return_val
|
}
|
}
|
|
|
#=============================================================================#
|
#=============================================================================#
|
