| Line 27... |
Line 27... |
#
|
#
|
# Author(s):
|
# Author(s):
|
# - Olivier Girard, olgirard@gmail.com
|
# - Olivier Girard, olgirard@gmail.com
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# $Rev: 163 $
|
# $Rev: 169 $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedDate: 2012-10-26 23:40:17 +0200 (Fri, 26 Oct 2012) $
|
# $LastChangedDate: 2012-12-06 22:11:29 +0100 (Thu, 06 Dec 2012) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
|
|
###############################################################################
|
###############################################################################
|
# #
|
# #
|
# SOURCE LIBRARIES #
|
# SOURCE LIBRARIES #
|
| Line 145... |
Line 145... |
global omsp_conf
|
global omsp_conf
|
global omsp_info
|
global omsp_info
|
global omsp_nr
|
global omsp_nr
|
global CpuNr
|
global CpuNr
|
|
|
set connection_status [GetDevice $CpuNr]
|
set connection_sum 0
|
|
for {set ii 0} {$ii < $omsp_nr} {incr ii} {
|
|
set connection_ok [GetDevice $ii]
|
|
set connection_sum [expr $connection_sum + $connection_ok]
|
|
if {$connection_ok==0} {
|
|
set error_msg "Could not connect to Core $ii"
|
|
}
|
|
}
|
|
if {$connection_sum==$omsp_nr} {
|
|
set connection_status 1
|
|
}
|
|
|
if {$connection_status} {
|
if {$connection_status} {
|
set mem_sizes [GetCPU_ID_SIZE $CpuNr]
|
set mem_sizes [GetCPU_ID_SIZE $CpuNr]
|
|
|
if {[lindex $mem_sizes 0]==-1 | [lindex $mem_sizes 1]==-1 | [lindex $mem_sizes 2]==-1} {
|
if {[lindex $mem_sizes 0]==-1 | [lindex $mem_sizes 1]==-1 | [lindex $mem_sizes 2]==-1} {
|
| Line 264... |
Line 274... |
saveContext 2
|
saveContext 2
|
saveContext 3
|
saveContext 3
|
}
|
}
|
|
|
} else {
|
} else {
|
.ctrl.connect.info.l1.con configure -text "Connection problem" -fg red
|
for {set ii 0} {$ii < $omsp_nr} {incr ii} {
|
|
set omsp_info($ii,connected) 0
|
|
}
|
|
.ctrl.connect.info.l1.con configure -text $error_msg -fg red
|
}
|
}
|
}
|
}
|
|
|
proc displayMore { } {
|
proc displayMore { } {
|
|
|
| Line 1205... |
Line 1218... |
.omsp_adapt_config.main.i2c.cpu2.s configure -state disabled
|
.omsp_adapt_config.main.i2c.cpu2.s configure -state disabled
|
.omsp_adapt_config.main.i2c.cpu3.s configure -state disabled
|
.omsp_adapt_config.main.i2c.cpu3.s configure -state disabled
|
|
|
} elseif {$temp_if=="I2C"} {
|
} elseif {$temp_if=="I2C"} {
|
|
|
.omsp_adapt_config.main.i2c.cpunr.s configure -state disabled
|
.omsp_adapt_config.main.i2c.cpunr.s configure -state normal
|
# .omsp_adapt_config.main.i2c.cpunr.s configure -state normal
|
# .omsp_adapt_config.main.i2c.cpunr.s configure -state normal
|
.omsp_adapt_config.main.i2c.cpu0.s configure -state normal
|
.omsp_adapt_config.main.i2c.cpu0.s configure -state normal
|
|
|
if {$temp_nrcore < 2} {.omsp_adapt_config.main.i2c.cpu1.s configure -state disabled
|
if {$temp_nrcore < 2} {.omsp_adapt_config.main.i2c.cpu1.s configure -state disabled
|
} else {.omsp_adapt_config.main.i2c.cpu1.s configure -state normal}
|
} else {.omsp_adapt_config.main.i2c.cpu1.s configure -state normal}
|
