OLD | NEW |
1 # Copyright 1998-1999, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 1998-1999, 2007-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # 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 |
4 # 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 |
5 # the Free Software Foundation; either version 3 of the License, or | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # 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, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 10 matching lines...) Expand all Loading... |
21 # tests to cover evaluate_subexp_standard with the EVAL_SKIP flag set. | 21 # tests to cover evaluate_subexp_standard with the EVAL_SKIP flag set. |
22 # this happens for instance when there is short circuit evaluation in the && and
|| | 22 # this happens for instance when there is short circuit evaluation in the && and
|| |
23 # operators, or in the non returned part of a (x ? y: z) expression. | 23 # operators, or in the non returned part of a (x ? y: z) expression. |
24 # the part that is not evaluated is parsed and evaluated anyway, but with | 24 # the part that is not evaluated is parsed and evaluated anyway, but with |
25 # the EVAL_SKIP flag set | 25 # the EVAL_SKIP flag set |
26 # | 26 # |
27 # source file "int-type.c" | 27 # source file "int-type.c" |
28 # | 28 # |
29 | 29 |
30 | 30 |
31 if $tracelevel then { | |
32 strace $tracelevel | |
33 } | |
34 | |
35 # Check to see if we have an executable to test. If not, then either we | 31 # Check to see if we have an executable to test. If not, then either we |
36 # haven't tried to compile one, or the compilation failed for some reason. | 32 # haven't tried to compile one, or the compilation failed for some reason. |
37 # In either case, just notify the user and skip the tests in this file. | 33 # In either case, just notify the user and skip the tests in this file. |
38 | 34 |
39 set testfile "int-type" | 35 set testfile "int-type" |
40 set srcfile ${testfile}.c | 36 set srcfile ${testfile}.c |
41 set binfile ${objdir}/${subdir}/${testfile} | 37 set binfile ${objdir}/${subdir}/${testfile} |
42 | 38 |
43 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug nowarnings}] != "" } { | 39 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug nowarnings}] != "" } { |
44 untested eval-skip.exp | 40 untested eval-skip.exp |
45 return -1 | 41 return -1 |
46 } | 42 } |
47 | 43 |
48 if [get_compiler_info $binfile] { | 44 if [get_compiler_info] { |
49 return -1 | 45 return -1 |
50 } | 46 } |
51 | 47 |
52 gdb_exit | 48 gdb_exit |
53 gdb_start | 49 gdb_start |
54 gdb_reinitialize_dir $srcdir/$subdir | 50 gdb_reinitialize_dir $srcdir/$subdir |
55 gdb_load ${binfile} | 51 gdb_load ${binfile} |
56 | 52 |
57 | 53 |
58 if ![runto_main] then { | 54 if ![runto_main] then { |
(...skipping 90 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
149 | 145 |
150 gdb_exit | 146 gdb_exit |
151 return 0 | 147 return 0 |
152 | 148 |
153 | 149 |
154 | 150 |
155 | 151 |
156 | 152 |
157 | 153 |
158 | 154 |
OLD | NEW |