]>
Commit | Line | Data |
---|---|---|
1d506c26 | 1 | # Copyright 2010-2024 Free Software Foundation, Inc. |
3b11a015 SS |
2 | # |
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 | |
5 | # the Free Software Foundation; either version 3 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
15 | ||
16 | # Tests of agent expression handling. | |
17 | ||
18 | # The tests that use the maintenance command do not need tracepoint | |
19 | # support on the target, but they do want a live program. | |
20 | ||
4ec70201 | 21 | load_lib "trace-support.exp" |
3b11a015 | 22 | |
497a5eb0 | 23 | standard_testfile actions.c |
8bca2978 | 24 | |
fbee47e0 | 25 | require gdb_trace_common_supports_arch |
8bca2978 | 26 | |
3b11a015 SS |
27 | if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ |
28 | executable {debug nowarnings}] != "" } { | |
84c93cd5 | 29 | untested "failed to compile" |
3b11a015 SS |
30 | return -1 |
31 | } | |
32 | ||
a7e727ae | 33 | clean_restart $binfile |
3b11a015 | 34 | runto_main |
3b11a015 | 35 | |
d1e36019 | 36 | gdb_test "maint agent 12" ".*const8 12.*pop.*end.*" |
3b11a015 | 37 | |
d1e36019 | 38 | gdb_test "maint agent gdb_char_test" "" |
3b11a015 | 39 | |
d1e36019 | 40 | gdb_test "maint agent gdb_arr_test\[12\]" "" |
3b11a015 | 41 | |
d1e36019 | 42 | gdb_test "maint agent gdb_arr_test\[gdb_short_test\]" "" |
3b11a015 | 43 | |
d1e36019 | 44 | gdb_test "maint agent gdb_struct1_test" "" |
3b11a015 | 45 | |
d1e36019 | 46 | gdb_test "maint agent gdb_struct1_test.s" "" |
3b11a015 | 47 | |
d1e36019 | 48 | gdb_test "maint agent gdb_struct1_test.arr\[gdb_struct1_test.c\]" "" |
3b11a015 | 49 | |
d1e36019 | 50 | gdb_test "maint agent gdb_structp_test" "" |
3b11a015 | 51 | |
d1e36019 | 52 | gdb_test "maint agent gdb_structp_test->l" "" |
3b11a015 | 53 | |
d1e36019 | 54 | gdb_test "maint agent gdb_structp_test->bfield" "" |
3b11a015 | 55 | |
d1e36019 | 56 | gdb_test "maint agent gdb_long_test + gdb_short_test" "" |
3b11a015 | 57 | |
d1e36019 | 58 | gdb_test "maint agent gdb_long_test - gdb_short_test" "" |
3b11a015 | 59 | |
d1e36019 | 60 | gdb_test "maint agent gdb_long_test * gdb_short_test" "" |
3b11a015 | 61 | |
d1e36019 | 62 | gdb_test "maint agent gdb_long_test / gdb_short_test" "" |
3b11a015 | 63 | |
d1e36019 | 64 | gdb_test "maint agent gdb_structp_test + 1" "" |
3b11a015 | 65 | |
d1e36019 | 66 | gdb_test "maint agent gdb_long_test == gdb_short_test" "" |
3b11a015 | 67 | |
d1e36019 | 68 | gdb_test "maint agent gdb_long_test != gdb_short_test" "" |
3b11a015 | 69 | |
d1e36019 | 70 | gdb_test "maint agent gdb_long_test < gdb_short_test" "" |
3b11a015 | 71 | |
d1e36019 | 72 | gdb_test "maint agent gdb_long_test <= gdb_short_test" "" |
3b11a015 | 73 | |
d1e36019 | 74 | gdb_test "maint agent gdb_long_test > gdb_short_test" "" |
3b11a015 | 75 | |
d1e36019 | 76 | gdb_test "maint agent gdb_long_test >= gdb_short_test" "" |
3b11a015 | 77 | |
d1e36019 | 78 | gdb_test "maint agent &gdb_long_test == &gdb_short_test" "" |
3b11a015 | 79 | |
d1e36019 | 80 | gdb_test "maint agent &gdb_long_test < &gdb_short_test" "" |
3b11a015 | 81 | |
66beed02 | 82 | gdb_test "maint agent (unsigned char)1L" ".*const.* 1.*" |
bcf5c1d9 | 83 | |
3b11a015 SS |
84 | # Now test eval version of agent expressions. |
85 | ||
d1e36019 | 86 | gdb_test "maint agent-eval 12" ".*const8 12.*end.*" |
3b11a015 | 87 | |
d1e36019 | 88 | gdb_test "maint agent-eval gdb_char_test" "" |
3b11a015 | 89 | |
d1e36019 | 90 | gdb_test "maint agent-eval gdb_arr_test\[12\]" "" |
3b11a015 | 91 | |
d1e36019 | 92 | gdb_test "maint agent-eval gdb_arr_test\[gdb_short_test\]" "" |
3b11a015 | 93 | |
d1e36019 | 94 | gdb_test "maint agent-eval gdb_struct1_test" "" |
3b11a015 | 95 | |
d1e36019 | 96 | gdb_test "maint agent-eval gdb_struct1_test.s" "" |
3b11a015 | 97 | |
d1e36019 | 98 | gdb_test "maint agent-eval gdb_struct1_test.arr\[gdb_struct1_test.c\]" "" |
3b11a015 | 99 | |
d1e36019 | 100 | gdb_test "maint agent-eval gdb_structp_test" "" |
3b11a015 | 101 | |
d1e36019 | 102 | gdb_test "maint agent-eval gdb_structp_test->l" "" |
3b11a015 | 103 | |
d1e36019 | 104 | gdb_test "maint agent-eval gdb_structp_test->bfield" "" |
3b11a015 | 105 | |
d1e36019 | 106 | gdb_test "maint agent-eval gdb_long_test + gdb_short_test" "" |
3b11a015 | 107 | |
d1e36019 | 108 | gdb_test "maint agent-eval gdb_long_test - gdb_short_test" "" |
3b11a015 | 109 | |
d1e36019 | 110 | gdb_test "maint agent-eval gdb_long_test * gdb_short_test" "" |
3b11a015 | 111 | |
d1e36019 | 112 | gdb_test "maint agent-eval gdb_long_test / gdb_short_test" "" |
3b11a015 | 113 | |
d1e36019 | 114 | gdb_test "maint agent-eval gdb_structp_test + 1" "" |
3b11a015 | 115 | |
d1e36019 | 116 | gdb_test "maint agent-eval gdb_long_test == gdb_short_test" "" |
3b11a015 | 117 | |
d1e36019 | 118 | gdb_test "maint agent-eval gdb_long_test != gdb_short_test" "" |
3b11a015 | 119 | |
d1e36019 | 120 | gdb_test "maint agent-eval gdb_long_test < gdb_short_test" "" |
3b11a015 | 121 | |
d1e36019 | 122 | gdb_test "maint agent-eval gdb_long_test <= gdb_short_test" "" |
3b11a015 | 123 | |
d1e36019 | 124 | gdb_test "maint agent-eval gdb_long_test > gdb_short_test" "" |
3b11a015 | 125 | |
d1e36019 | 126 | gdb_test "maint agent-eval gdb_long_test >= gdb_short_test" "" |
3b11a015 | 127 | |
d1e36019 | 128 | gdb_test "maint agent-eval &gdb_long_test == &gdb_short_test" ".*equal.*end.*" |
3b11a015 | 129 | |
d1e36019 | 130 | gdb_test "maint agent-eval &gdb_long_test < &gdb_short_test" "" |
3b11a015 | 131 |