OLD | NEW |
1 # This testcase is part of GDB, the GNU debugger. | 1 # This testcase is part of GDB, the GNU debugger. |
2 | 2 |
3 # Copyright 1996-1997, 1999, 2003-2004, 2007-2012 Free Software | 3 # Copyright 1996-1997, 1999, 2003-2004, 2007-2012 Free Software |
4 # Foundation, Inc. | 4 # Foundation, Inc. |
5 | 5 |
6 # This program is free software; you can redistribute it and/or modify | 6 # This program is free software; you can redistribute it and/or modify |
7 # it under the terms of the GNU General Public License as published by | 7 # it under the terms of the GNU General Public License as published by |
8 # the Free Software Foundation; either version 3 of the License, or | 8 # the Free Software Foundation; either version 3 of the License, or |
9 # (at your option) any later version. | 9 # (at your option) any later version. |
10 # | 10 # |
11 # This program is distributed in the hope that it will be useful, | 11 # This program is distributed in the hope that it will be useful, |
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 # GNU General Public License for more details. | 14 # GNU General Public License for more details. |
15 # | 15 # |
16 # You should have received a copy of the GNU General Public License | 16 # You should have received a copy of the GNU General Public License |
17 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 17 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
18 | 18 |
19 if $tracelevel then { | |
20 strace $tracelevel | |
21 } | |
22 | |
23 | 19 |
24 # Some targets can't call functions, so don't even bother with this | 20 # Some targets can't call functions, so don't even bother with this |
25 # test. | 21 # test. |
26 | 22 |
27 if [target_info exists gdb,cannot_call_functions] { | 23 if [target_info exists gdb,cannot_call_functions] { |
28 setup_xfail "*-*-*" | 24 setup_xfail "*-*-*" |
29 fail "This target can not call functions" | 25 fail "This target can not call functions" |
30 continue | 26 continue |
31 } | 27 } |
32 | 28 |
33 set testfile "structs" | 29 set testfile "structs" |
34 set srcfile ${testfile}.c | 30 set srcfile ${testfile}.c |
35 set binfile ${objdir}/${subdir}/${testfile} | 31 set binfile ${objdir}/${subdir}/${testfile} |
36 | 32 |
37 # Regex matching any value of `char' type like: a = 65 'A' | 33 # Regex matching any value of `char' type like: a = 65 'A' |
38 set anychar_re {-?[0-9]{1,3} '(.|\\([0-7]{3}|[a-z]|\\|'))'} | 34 set anychar_re {-?[0-9]{1,3} '(.|\\([0-7]{3}|[a-z]|\\|'))'} |
39 | 35 |
40 # Create and source the file that provides information about the | 36 # Create and source the file that provides information about the |
41 # compiler used to compile the test case. | 37 # compiler used to compile the test case. |
42 | 38 |
43 if [get_compiler_info ${binfile}] { | 39 if [get_compiler_info] { |
44 return -1; | 40 return -1; |
45 } | 41 } |
46 | 42 |
47 # Compile a variant of structs.c using TYPES to specify the type of | 43 # Compile a variant of structs.c using TYPES to specify the type of |
48 # the first N struct elements (the remaining elements take the type of | 44 # the first N struct elements (the remaining elements take the type of |
49 # the last TYPES field). Run the compmiled program up to "main". | 45 # the last TYPES field). Run the compmiled program up to "main". |
50 # Also updates the global "testfile" to reflect the most recent build. | 46 # Also updates the global "testfile" to reflect the most recent build. |
51 | 47 |
52 set first 1 | 48 set first 1 |
53 proc start_structs_test { types } { | 49 proc start_structs_test { types } { |
(...skipping 642 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
696 test_struct_calls 2 | 692 test_struct_calls 2 |
697 test_struct_returns 2 | 693 test_struct_returns 2 |
698 | 694 |
699 # Approx size: (4+4)+8=16, 32, ... | 695 # Approx size: (4+4)+8=16, 32, ... |
700 # d10v: 4+4=8, 12, ... | 696 # d10v: 4+4=8, 12, ... |
701 start_structs_test { tf td } | 697 start_structs_test { tf td } |
702 test_struct_calls 2 | 698 test_struct_calls 2 |
703 test_struct_returns 2 | 699 test_struct_returns 2 |
704 | 700 |
705 return 0 | 701 return 0 |
OLD | NEW |