Ticket #11891: base_src_port_port.tcl.diff
File base_src_port_port.tcl.diff, 758 bytes (added by blb@…, 16 years ago) |
---|
-
base/src/port/port.tcl
2001 2001 2002 2002 array unset portinfo 2003 2003 array set portinfo [lindex $result 1] 2004 if {[catch {set mport [mportopen $portinfo(porturl) [array get options] [array get variations]]} result]} { 2005 ui_debug "$::errorInfo" 2006 break_softcontinue "Unable to open port: $result" 1 status 2007 } 2008 array unset portinfo 2009 array set portinfo [mportinfo $mport] 2010 mportclose $mport 2004 2011 # set portname again since the one we were passed may not have had the correct case 2005 2012 set portname $portinfo(name) 2006 2013