17 |
# Please email any bugs, comments, and/or additions to this file to: |
# Please email any bugs, comments, and/or additions to this file to: |
18 |
# bug-dejagnu@gnu.org |
# bug-dejagnu@gnu.org |
19 |
|
|
20 |
load_generic_config "gdb-comm"; |
load_generic_config "gdb-comm" |
21 |
|
|
22 |
proc ${board}_init { args } { |
proc ${board}_init { args } { |
23 |
set linux_box [target_info linux_box]; |
set linux_box [target_info linux_box] |
24 |
set bozo_server [target_info bozo_server]; |
set bozo_server [target_info bozo_server] |
25 |
remote_spawn $linux_box "$bozo_server unknown"; |
remote_spawn $linux_box "$bozo_server unknown" |
26 |
remote_expect $linux_box 60 { |
remote_expect $linux_box 60 { |
27 |
-re "port is (\[0-9\]+)" { |
-re "port is (\[0-9\]+)" { |
28 |
set_currtarget_info netport "${linux_box}:$expect_out(1,string)"; |
set_currtarget_info netport "${linux_box}:$expect_out(1,string)" |
29 |
} |
} |
30 |
} |
} |
31 |
} |
} |
32 |
|
|
33 |
proc ${board}_close { board } { |
proc ${board}_close { board } { |
34 |
set linux_box [board_info $board linux_box]; |
set linux_box [board_info $board linux_box] |
35 |
if [board_info $linux_box exists fileid] { |
if [board_info $linux_box exists fileid] { |
36 |
remote_send $linux_box "\003"; |
remote_send $linux_box "\003" |
37 |
remote_close $linux_box; |
remote_close $linux_box |
38 |
} |
} |
39 |
standard_close $board; |
standard_close $board |
40 |
} |
} |
41 |
|
|
42 |
proc ${board}_reboot { board args } { |
proc ${board}_reboot { board args } { |
43 |
remote_close $board; |
remote_close $board |
44 |
unset_currtarget_info netport; |
unset_currtarget_info netport |
45 |
return 1; |
return 1 |
46 |
} |
} |