OpenCores

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [tools/] [lib/] [tcl-lib/] [dbg_functions.tcl] - Diff between revs 110 and 114

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 110 Rev 114
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

powered by: WebSVN 2.1.0

© copyright 1999-2014 OpenCores.org, equivalent to ORSoC AB, all rights reserved. OpenCores®, registered trademark.