| Line 26... |
Line 26... |
#
|
#
|
# Author(s):
|
# Author(s):
|
# - Olivier Girard, olgirard@gmail.com
|
# - Olivier Girard, olgirard@gmail.com
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# $Rev: 110 $
|
# $Rev: 114 $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedDate: 2011-05-19 22:33:51 +0200 (Thu, 19 May 2011) $
|
# $LastChangedDate: 2011-05-26 22:18:29 +0200 (Thu, 26 May 2011) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
#
|
#
|
# Description: Main utility functions for the openMSP430 serial debug
|
# Description: Main utility functions for the openMSP430 serial debug
|
# interface.
|
# interface.
|
#
|
#
|
| Line 521... |
Line 521... |
# Arguments : None. #
|
# Arguments : None. #
|
# Result : 0 if error, 1 otherwise. #
|
# Result : 0 if error, 1 otherwise. #
|
#=============================================================================#
|
#=============================================================================#
|
proc VerifyCPU_ID {} {
|
proc VerifyCPU_ID {} {
|
|
|
|
global omsp_info
|
|
|
set cpu_id_full [GetCPU_ID]
|
set cpu_id_full [GetCPU_ID]
|
|
|
if {[string eq "0x00000000" $cpu_id_full] |
|
if {[string eq "0x00000000" $cpu_id_full] |
|
([string length $cpu_id_full]!=10)} {
|
([string length $cpu_id_full]!=10) |
|
|
($omsp_info(cpu_ver) >2) } {
|
|
puts "\n"
|
|
puts "ERROR: cpu_id not valid: $cpu_id_full"
|
|
puts ""
|
|
puts " -------------------------------------------------------------"
|
|
puts " !!!! Make sure that you are properly connectec to the board !!!!"
|
|
puts " !!!! or try reseting the serial debug interface (or CPU). !!!!"
|
|
puts " -------------------------------------------------------------"
|
|
puts ""
|
set result 0
|
set result 0
|
} else {
|
} else {
|
set result 1
|
set result 1
|
}
|
}
|
return $result
|
return $result
|
