Line 27... |
Line 27... |
#
|
#
|
# Author(s):
|
# Author(s):
|
# - Olivier Girard, olgirard@gmail.com
|
# - Olivier Girard, olgirard@gmail.com
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# $Rev: 110 $
|
# $Rev: 124 $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedDate: 2011-05-19 22:33:51 +0200 (Thu, 19 May 2011) $
|
# $LastChangedDate: 2011-10-27 09:38:36 +0200 (Thu, 27 Oct 2011) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
|
|
global clients
|
global clients
|
global server
|
global server
|
|
|
Line 96... |
Line 96... |
global omsp_info
|
global omsp_info
|
|
|
# Connect to device
|
# Connect to device
|
if {![GetDevice]} {
|
if {![GetDevice]} {
|
.info.cpu.con configure -text "Connection problem" -fg red
|
.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
|
return 0
|
}
|
}
|
|
|
if {$omsp_info(alias)==""} {
|
if {$omsp_info(alias)==""} {
|
.info.cpu.con configure -text "Connected" -fg "\#00ae00"
|
.info.cpu.con configure -text "Connected" -fg "\#00ae00"
|
Line 125... |
Line 135... |
putsLog "INFO: Hardware Multiplier - No"
|
putsLog "INFO: Hardware Multiplier - No"
|
}
|
}
|
putsLog "INFO: Program Memory Size - $omsp_info(pmem_size) B"
|
putsLog "INFO: Program Memory Size - $omsp_info(pmem_size) B"
|
putsLog "INFO: Data Memory Size - $omsp_info(dmem_size) B"
|
putsLog "INFO: Data Memory Size - $omsp_info(dmem_size) B"
|
putsLog "INFO: Peripheral Address Space - $omsp_info(per_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 ""
|
putsLog ""
|
|
|
# Activate Load TCL script section
|
# Activate Load TCL script section
|
.tclscript.ft.l configure -state normal
|
.tclscript.ft.l configure -state normal
|
.tclscript.ft.file configure -state normal
|
.tclscript.ft.file configure -state normal
|