4 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
5 |
# the Free Software Foundation; either version 2 of the License, or |
# the Free Software Foundation; either version 2 of the License, or |
6 |
# (at your option) any later version. |
# (at your option) any later version. |
7 |
# |
# |
8 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
9 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
12 |
# |
# |
13 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
14 |
# along with this program; if not, write to the Free Software |
# along with this program; if not, write to the Free Software |
15 |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
16 |
|
|
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 |
30 |
set do_reboot 0 |
set do_reboot 0 |
31 |
|
|
32 |
set desired_kernel [board_info $dest "kernel,$target_os"] |
set desired_kernel [board_info $dest "kernel,$target_os"] |
33 |
|
|
34 |
if { $desired_kernel == "" } { |
if { $desired_kernel == "" } { |
35 |
vxworks_final_init $dest |
vxworks_final_init $dest |
36 |
# Nothing to see here, nothing to do. Move along. |
# Nothing to see here, nothing to do. Move along. |
47 |
remote_send $dest "\n" |
remote_send $dest "\n" |
48 |
exp_continue |
exp_continue |
49 |
} |
} |
50 |
-re "VxWorks Boot" { |
-re "VxWorks Boot" { |
51 |
set boot_mon 0 |
set boot_mon 0 |
52 |
set boot_mon_prompt "VxWorks Boot" |
set boot_mon_prompt "VxWorks Boot" |
53 |
} |
} |
264 |
# 1 - failed (eg: link failed so testcase should fail) |
# 1 - failed (eg: link failed so testcase should fail) |
265 |
# -1 - unresolved (eg: timeout), may be fixed by rebooting |
# -1 - unresolved (eg: timeout), may be fixed by rebooting |
266 |
# |
# |
267 |
proc vxworks_ld { dest prog } { |
proc vxworks_ld { dest prog } { |
268 |
global decimal hex |
global decimal hex |
269 |
global board_info |
global board_info |
270 |
|
|
312 |
perror "Need to set the user and password." |
perror "Need to set the user and password." |
313 |
set result 1 |
set result 1 |
314 |
} |
} |
315 |
-re "Stale NFS file handle.*$shell_prompt $" { |
-re "Stale NFS file handle.*$shell_prompt $" { |
316 |
# Need to retry. |
# Need to retry. |
317 |
} |
} |
318 |
-re "undefined symbol:.*$shell_prompt $" { |
-re "undefined symbol:.*$shell_prompt $" { |
336 |
-re "(.*)$shell_prompt $" { |
-re "(.*)$shell_prompt $" { |
337 |
warning "Load failed: $expect_out(1,string)" |
warning "Load failed: $expect_out(1,string)" |
338 |
} |
} |
339 |
timeout { |
timeout { |
340 |
warning "Timed out trying load $prog." |
warning "Timed out trying load $prog." |
341 |
set result -1 |
set result -1 |
342 |
} |
} |
343 |
} |
} |
344 |
} |
} |
345 |
|
|
346 |
if { $result && [info exists expect_out(buffer)] } { |
if { $result && [info exists expect_out(buffer)] } { |
347 |
send_log "$expect_out(buffer)" |
send_log "$expect_out(buffer)" |
348 |
} |
} |