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 |