| 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 |