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

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [tools/] [lib/] [tcl-lib/] [dbg_utils.tcl] - Diff between revs 210 and 227

Rev 210	Rev 227
Line 94...	Line 94...
`{Windows NT} {`	`{Windows NT} {`
`package require registry`	`package require registry`
`set serial_base "HKEY_LOCAL_MACHINE\\HARDWARE\\DEVICEMAP\\SERIALCOMM"`	`set serial_base "HKEY_LOCAL_MACHINE\\HARDWARE\\DEVICEMAP\\SERIALCOMM"`
`set values [registry values $serial_base]`	`set values [registry values $serial_base]`
`foreach valueName $values {`	`foreach valueName $values {`
`lappend serial_ports "[registry get $serial_base $valueName]:"`	`lappend serial_ports "[registry get $serial_base $valueName]"`
`}`	`}`
`}`	`}`
`default {set serial_ports ""}`	`default {set serial_ports ""}`
`}`	`}`

Line 118...	Line 118...

`global serial_ch`	`global serial_ch`

`# Open device for reading and writing`	`# Open device for reading and writing`
`if {[catch {open $Device [list RDWR]} serial_ch]} {`	`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`	`uart_close`
`return 0`	`return 0`
`}`	`}`
	`} else {`
	`uart_close`
	`return 0`
	`}`
	`}`

`if {$Configure} {`	`if {$Configure} {`
`# Setup the baud rate`	`# Setup the baud rate`
`fconfigure $serial_ch -mode "$Baudrate,n,8,1"`	`fconfigure $serial_ch -mode "$Baudrate,n,8,1"`