URL
https://opencores.org/ocsvn/openmsp430/openmsp430/trunk
Subversion Repositories openmsp430
Compare Revisions
- This comparison shows the changes necessary to convert path
/openmsp430/trunk/tools/openmsp430-gdbproxy
- from Rev 119 to Rev 124
- ↔ Reverse comparison
Rev 119 → Rev 124
/commands.tcl
353,10 → 353,13
# Clear status |
ClrStatus |
|
# Read current PC value |
set pc [ReadReg 0] |
|
# Incremental step |
StepCPU |
|
return [rsp_stop_reply $sock "s"] |
return [rsp_stop_reply $sock "s" $pc] |
} |
|
|
365,7 → 368,7
# packets can receive any of the below as a reply. Except for `?' and # |
# `vStopped', that reply is only returned when the target halts. # |
#-----------------------------------------------------------------------------# |
proc rsp_stop_reply {sock cmd} { |
proc rsp_stop_reply {sock cmd {opt_val "0"}} { |
|
# Wait until halted |
while {![IsHalted]} { |
391,8 → 394,16
set r4 [ReadReg 4] |
regexp {0x(..)(..)} $r4 match r4_hi r4_lo |
|
# return "S05" |
return "T0500:$pc_lo$pc_hi;04:$r4_lo$r4_hi;" |
# In case of a single step command, make sure that the PC |
# value changes. If not, return an error otherwise GDB will |
# end-up in an infinite loop. |
if {$cmd == "s"} { |
if {$opt_val == $pc} { |
return "E05" |
} |
} |
#return "S05" |
return "T0500:$pc_lo$pc_hi;04:$r4_lo$r4_hi;" |
} |
|
|
/server.tcl
98,7 → 98,17
# Connect to device |
if {![GetDevice]} { |
.info.cpu.con configure -text "Connection problem" -fg red |
putsLog "ERROR: Could not open $serial_device" |
putsLog "ERROR: Could not open \"$serial_device\"" |
putsLog "" |
putsLog " -------------------------------------------------------------" |
putsLog " !!!! Please consider the following options: !!!!" |
putsLog " !!!! !!!!" |
putsLog " !!!! - check the physical connection to the board. !!!!" |
putsLog " !!!! - adjust the serial connection baudrate. !!!!" |
putsLog " !!!! - don't forget to reset the serial debug interface !!!!" |
putsLog " !!!! between each attempt. !!!!" |
putsLog " -------------------------------------------------------------" |
putsLog "" |
return 0 |
} |
|
127,7 → 137,7
putsLog "INFO: Program Memory Size - $omsp_info(pmem_size) B" |
putsLog "INFO: Data Memory Size - $omsp_info(dmem_size) B" |
putsLog "INFO: Peripheral Address Space - $omsp_info(per_size) B" |
putsLog "INFO: $hw_break(num) Hardware Brea/Watch-point unit(s) detected" |
putsLog "INFO: $hw_break(num) Hardware Break/Watch-point unit(s) detected" |
putsLog "" |
|
# Activate Load TCL script section |