URL
https://opencores.org/ocsvn/openmsp430/openmsp430/trunk
Subversion Repositories openmsp430
Compare Revisions
- This comparison shows the changes necessary to convert path
/openmsp430
- from Rev 226 to Rev 227
- ↔ Reverse comparison
Rev 226 → Rev 227
/trunk/tools/lib/tcl-lib/dbg_utils.tcl
96,7 → 96,7
set serial_base "HKEY_LOCAL_MACHINE\\HARDWARE\\DEVICEMAP\\SERIALCOMM" |
set values [registry values $serial_base] |
foreach valueName $values { |
lappend serial_ports "[registry get $serial_base $valueName]:" |
lappend serial_ports "[registry get $serial_base $valueName]" |
} |
} |
default {set serial_ports ""} |
119,9 → 119,16
global serial_ch |
|
# Open device for reading and writing |
if {[catch {open $Device [list RDWR]} serial_ch]} { |
uart_close |
return 0 |
if {[catch {open $Device [list RDWR]} serial_ch]} { |
if {[string eq "Windows NT" $::tcl_platform(os)]} { |
if {[catch {open [join [list $Device ":"] ""] [list RDWR]} serial_ch]} { |
uart_close |
return 0 |
} |
} else { |
uart_close |
return 0 |
} |
} |
|
if {$Configure} { |