| OLD | NEW |
| 1 # Test macro handling of #included files. | 1 # Test macro handling of #included files. |
| 2 # Copyright 2003, 2007-2012 Free Software Foundation, Inc. | 2 # Copyright 2003, 2007-2012 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 # This program is free software; you can redistribute it and/or modify | 4 # 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 | 5 # 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 | 6 # the Free Software Foundation; either version 3 of the License, or |
| 7 # (at your option) any later version. | 7 # (at your option) any later version. |
| 8 # | 8 # |
| 9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
| 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| (...skipping 59 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 70 # #included by a given source file in a list sorted by the line at | 70 # #included by a given source file in a list sorted by the line at |
| 71 # which they were #included; this gives GDB the chance to detect | 71 # which they were #included; this gives GDB the chance to detect |
| 72 # multiple #inclusions at the same line, complain, and assign | 72 # multiple #inclusions at the same line, complain, and assign |
| 73 # distinct, albiet incorrect, line numbers to each #inclusion. | 73 # distinct, albiet incorrect, line numbers to each #inclusion. |
| 74 # | 74 # |
| 75 # However, at one point GDB was sorting the list in reverse order, | 75 # However, at one point GDB was sorting the list in reverse order, |
| 76 # while the code to assign new, distinct line numbers assumed it was | 76 # while the code to assign new, distinct line numbers assumed it was |
| 77 # sorted in ascending order; GDB would get an internal error trying to | 77 # sorted in ascending order; GDB would get an internal error trying to |
| 78 # read the above debugging info. | 78 # read the above debugging info. |
| 79 | 79 |
| 80 if $tracelevel then { | |
| 81 strace $tracelevel | |
| 82 } | |
| 83 | |
| 84 | 80 |
| 85 set testfile "lineinc" | 81 set testfile "lineinc" |
| 86 set binfile ${objdir}/${subdir}/${testfile} | 82 set binfile ${objdir}/${subdir}/${testfile} |
| 87 | 83 |
| 88 | 84 |
| 89 if {[gdb_compile "${srcdir}/${subdir}/${testfile}.c" ${binfile} executable {debu
g}] != ""} { | 85 if {[gdb_compile "${srcdir}/${subdir}/${testfile}.c" ${binfile} executable {debu
g}] != ""} { |
| 90 untested lineinc.exp | 86 untested lineinc.exp |
| 91 return -1 | 87 return -1 |
| 92 } | 88 } |
| 93 | 89 |
| (...skipping 18 matching lines...) Expand all Loading... |
| 112 exp_continue | 108 exp_continue |
| 113 } | 109 } |
| 114 -re "$gdb_prompt" { | 110 -re "$gdb_prompt" { |
| 115 } | 111 } |
| 116 timeout { | 112 timeout { |
| 117 fail "$test_name (timeout)" | 113 fail "$test_name (timeout)" |
| 118 } | 114 } |
| 119 } | 115 } |
| 120 } | 116 } |
| 121 } | 117 } |
| OLD | NEW |