OLD | NEW |
1 # Copyright 1997-1999, 2001, 2003-2004, 2006-2012 Free Software | 1 # Copyright 1997-2013 Free Software Foundation, Inc. |
2 # Foundation, Inc. | |
3 | 2 |
4 # This program is free software; you can redistribute it and/or modify | 3 # This program is free software; you can redistribute it and/or modify |
5 # it under the terms of the GNU General Public License as published by | 4 # it under the terms of the GNU General Public License as published by |
6 # the Free Software Foundation; either version 3 of the License, or | 5 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 6 # (at your option) any later version. |
8 # | 7 # |
9 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
(...skipping 273 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
286 return -1 | 285 return -1 |
287 } | 286 } |
288 | 287 |
289 remote_file build delete ${srcfile} | 288 remote_file build delete ${srcfile} |
290 | 289 |
291 # Start with a fresh gdb | 290 # Start with a fresh gdb |
292 gdb_exit | 291 gdb_exit |
293 gdb_start | 292 gdb_start |
294 gdb_reinitialize_dir $srcdir/$subdir | 293 gdb_reinitialize_dir $srcdir/$subdir |
295 | 294 |
296 set binfile [remote_download host ${binfile} object.o] | 295 set binfile [gdb_remote_download host ${binfile} \ |
| 296 » » [standard_output_file object.o]] |
297 send_gdb "file $binfile\n" | 297 send_gdb "file $binfile\n" |
298 # If $binfile is very long, a \r (but not a \n) will echo in the | 298 # If $binfile is very long, a \r (but not a \n) will echo in the |
299 # middle of the echo of the command. So to match the echo, we | 299 # middle of the echo of the command. So to match the echo, we |
300 # would like to match anything not containing \n | 300 # would like to match anything not containing \n |
301 # (we would prefer to be sure not to match any warning message). | 301 # (we would prefer to be sure not to match any warning message). |
302 # But \[^\n\]* doesn't seem to work, so instead use the heuristic | 302 # But \[^\n\]* doesn't seem to work, so instead use the heuristic |
303 # that a filename won't contain a space and a warning message will. | 303 # that a filename won't contain a space and a warning message will. |
304 # But spaces following by backspaces aren't really spaces. | 304 # But spaces following by backspaces aren't really spaces. |
305 gdb_expect 60 { | 305 gdb_expect 60 { |
306 -re "^file (\[^ \]| +\008)*\r*\n" { | 306 -re "^file (\[^ \]| +\008)*\r*\n" { |
(...skipping 14 matching lines...) Expand all Loading... |
321 return -1 | 321 return -1 |
322 } | 322 } |
323 eof { fail "(eof) cannot read weirdx.o" } | 323 eof { fail "(eof) cannot read weirdx.o" } |
324 } | 324 } |
325 | 325 |
326 do_tests | 326 do_tests |
327 | 327 |
328 remote_file host delete ${binfile} | 328 remote_file host delete ${binfile} |
329 | 329 |
330 return 0 | 330 return 0 |
OLD | NEW |