13 |
puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist" |
puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist" |
14 |
} |
} |
15 |
|
|
16 |
set file $srcdir/../lib/remote.exp |
set file $srcdir/../lib/remote.exp |
17 |
if [ file exists $file] { |
if [ file exists $file] { |
18 |
source $file |
source $file |
19 |
} else { |
} else { |
128 |
|
|
129 |
# |
# |
130 |
# Connect to the configured target |
# Connect to the configured target |
131 |
# |
# |
132 |
set target_info(target,netport) $target_info(idp,netport) |
set target_info(target,netport) $target_info(idp,netport) |
133 |
set target_info(target,target) localhost |
set target_info(target,target) localhost |
134 |
set target_info(target,connect) rlogin |
set target_info(target,connect) rlogin |
165 |
|
|
166 |
# |
# |
167 |
# Connect to the configured host |
# Connect to the configured host |
168 |
# |
# |
169 |
set target_info(host,connect) rlogin |
set target_info(host,connect) rlogin |
170 |
set target_info(host,netport) $target_info(idp,netport) |
set target_info(host,netport) $target_info(idp,netport) |
171 |
set target_info(host,target) localhost |
set target_info(host,target) localhost |