OpenCores
URL https://opencores.org/ocsvn/openmsp430/openmsp430/trunk

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [tools/] [openmsp430-gdbproxy/] [commands.tcl] - Diff between revs 172 and 198

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

Rev 172 Rev 198
Line 27... Line 27...
# 
# 
# Author(s):
# Author(s):
#             - Olivier Girard,    olgirard@gmail.com
#             - Olivier Girard,    olgirard@gmail.com
#
#
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
# $Rev: 172 $
# $Rev: 198 $
# $LastChangedBy: olivier.girard $
# $LastChangedBy: olivier.girard $
# $LastChangedDate: 2012-12-28 00:06:56 +0100 (Fri, 28 Dec 2012) $
# $LastChangedDate: 2014-10-07 21:30:05 +0200 (Tue, 07 Oct 2014) $
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
 
 
global mem_breakpoint
global mem_breakpoint
global mem_mapping
global mem_mapping
global breakSelect
global breakSelect
Line 418... Line 418...
# packets can receive any of the below as a reply. Except for `?' and         #
# packets can receive any of the below as a reply. Except for `?' and         #
# `vStopped', that reply is only returned when the target halts.              #
# `vStopped', that reply is only returned when the target halts.              #
#-----------------------------------------------------------------------------#
#-----------------------------------------------------------------------------#
proc rsp_stop_reply {CpuNr sock cmd {opt_val "0"}} {
proc rsp_stop_reply {CpuNr sock cmd {opt_val "0"}} {
 
 
 
    global mspgcc_compat_mode
 
 
    # Wait until halted
    # Wait until halted
    while {![IsHalted $CpuNr]} {
    while {![IsHalted $CpuNr]} {
 
 
        # Wait a few milliseconds to prevent the gui from freezing
        # Wait a few milliseconds to prevent the gui from freezing
        after 100 {set end 1}
        after 100 {set end 1}
Line 450... Line 452...
        if {$cmd == "s"} {
        if {$cmd == "s"} {
                if {$opt_val == $pc} {
                if {$opt_val == $pc} {
                        return "E05"
                        return "E05"
                }
                }
        }
        }
        #return "S05"
 
        return "T0500:$pc_lo$pc_hi;04:$r4_lo$r4_hi;"
    if {$mspgcc_compat_mode} {
 
        return "T0500:$pc_lo$pc_hi;04:$r4_lo$r4_hi;"               ;# 16bit word Response for older MSPGCC versions
 
    } else {
 
        return "T0500:$pc_lo${pc_hi}0000;04:$r4_lo${r4_hi}0000;"   ;# 32bit word Response starting with TI/RedHat GCC port
 
    }
}
}
 
 
 
 
#-----------------------------------------------------------------------------#
#-----------------------------------------------------------------------------#
#                                                                             #
#                                                                             #

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.