Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright 2010-2020 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 | |
3b11a015 SS |
23 | |
24 | gdb_exit | |
25 | gdb_start | |
497a5eb0 | 26 | standard_testfile actions.c |
8bca2978 SL |
27 | |
28 | if ![gdb_trace_common_supports_arch] { | |
29 | unsupported "no trace-common.h support for arch" | |
30 | return -1 | |
31 | } | |
32 | ||
3b11a015 SS |
33 | if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ |
34 | executable {debug nowarnings}] != "" } { | |
84c93cd5 | 35 | untested "failed to compile" |
3b11a015 SS |
36 | return -1 |
37 | } | |
38 | ||
39 | gdb_load $binfile | |
40 | runto_main | |
41 | gdb_reinitialize_dir $srcdir/$subdir | |
42 | ||
d1e36019 | 43 | gdb_test "maint agent 12" ".*const8 12.*pop.*end.*" |
3b11a015 | 44 | |
d1e36019 | 45 | gdb_test "maint agent gdb_char_test" "" |
3b11a015 | 46 | |
d1e36019 | 47 | gdb_test "maint agent gdb_arr_test\[12\]" "" |
3b11a015 | 48 | |
d1e36019 | 49 | gdb_test "maint agent gdb_arr_test\[gdb_short_test\]" "" |
3b11a015 | 50 | |
d1e36019 | 51 | gdb_test "maint agent gdb_struct1_test" "" |
3b11a015 | 52 | |
d1e36019 | 53 | gdb_test "maint agent gdb_struct1_test.s" "" |
3b11a015 | 54 | |
d1e36019 | 55 | gdb_test "maint agent gdb_struct1_test.arr\[gdb_struct1_test.c\]" "" |
3b11a015 | 56 | |
d1e36019 | 57 | gdb_test "maint agent gdb_structp_test" "" |
3b11a015 | 58 | |
d1e36019 | 59 | gdb_test "maint agent gdb_structp_test->l" "" |
3b11a015 | 60 | |
d1e36019 | 61 | gdb_test "maint agent gdb_structp_test->bfield" "" |
3b11a015 | 62 | |
d1e36019 | 63 | gdb_test "maint agent gdb_long_test + gdb_short_test" "" |
3b11a015 | 64 | |
d1e36019 | 65 | gdb_test "maint agent gdb_long_test - gdb_short_test" "" |
3b11a015 | 66 | |
d1e36019 | 67 | gdb_test "maint agent gdb_long_test * gdb_short_test" "" |
3b11a015 | 68 | |
d1e36019 | 69 | gdb_test "maint agent gdb_long_test / gdb_short_test" "" |
3b11a015 | 70 | |
d1e36019 | 71 | gdb_test "maint agent gdb_structp_test + 1" "" |
3b11a015 | 72 | |
d1e36019 | 73 | gdb_test "maint agent gdb_long_test == gdb_short_test" "" |
3b11a015 | 74 | |
d1e36019 | 75 | gdb_test "maint agent gdb_long_test != gdb_short_test" "" |
3b11a015 | 76 | |
d1e36019 | 77 | gdb_test "maint agent gdb_long_test < gdb_short_test" "" |
3b11a015 | 78 | |
d1e36019 | 79 | gdb_test "maint agent gdb_long_test <= gdb_short_test" "" |
3b11a015 | 80 | |
d1e36019 | 81 | gdb_test "maint agent gdb_long_test > gdb_short_test" "" |
3b11a015 | 82 | |
d1e36019 | 83 | gdb_test "maint agent gdb_long_test >= gdb_short_test" "" |
3b11a015 | 84 | |
d1e36019 | 85 | gdb_test "maint agent &gdb_long_test == &gdb_short_test" "" |
3b11a015 | 86 | |
d1e36019 | 87 | gdb_test "maint agent &gdb_long_test < &gdb_short_test" "" |
3b11a015 | 88 | |
d1e36019 | 89 | gdb_test "maint agent (unsigned char)1L" ".*ext 8.*" |
bcf5c1d9 | 90 | |
3b11a015 SS |
91 | # Now test eval version of agent expressions. |
92 | ||
d1e36019 | 93 | gdb_test "maint agent-eval 12" ".*const8 12.*end.*" |
3b11a015 | 94 | |
d1e36019 | 95 | gdb_test "maint agent-eval gdb_char_test" "" |
3b11a015 | 96 | |
d1e36019 | 97 | gdb_test "maint agent-eval gdb_arr_test\[12\]" "" |
3b11a015 | 98 | |
d1e36019 | 99 | gdb_test "maint agent-eval gdb_arr_test\[gdb_short_test\]" "" |
3b11a015 | 100 | |
d1e36019 | 101 | gdb_test "maint agent-eval gdb_struct1_test" "" |
3b11a015 | 102 | |
d1e36019 | 103 | gdb_test "maint agent-eval gdb_struct1_test.s" "" |
3b11a015 | 104 | |
d1e36019 | 105 | gdb_test "maint agent-eval gdb_struct1_test.arr\[gdb_struct1_test.c\]" "" |
3b11a015 | 106 | |
d1e36019 | 107 | gdb_test "maint agent-eval gdb_structp_test" "" |
3b11a015 | 108 | |
d1e36019 | 109 | gdb_test "maint agent-eval gdb_structp_test->l" "" |
3b11a015 | 110 | |
d1e36019 | 111 | gdb_test "maint agent-eval gdb_structp_test->bfield" "" |
3b11a015 | 112 | |
d1e36019 | 113 | gdb_test "maint agent-eval gdb_long_test + gdb_short_test" "" |
3b11a015 | 114 | |
d1e36019 | 115 | gdb_test "maint agent-eval gdb_long_test - gdb_short_test" "" |
3b11a015 | 116 | |
d1e36019 | 117 | gdb_test "maint agent-eval gdb_long_test * gdb_short_test" "" |
3b11a015 | 118 | |
d1e36019 | 119 | gdb_test "maint agent-eval gdb_long_test / gdb_short_test" "" |
3b11a015 | 120 | |
d1e36019 | 121 | gdb_test "maint agent-eval gdb_structp_test + 1" "" |
3b11a015 | 122 | |
d1e36019 | 123 | gdb_test "maint agent-eval gdb_long_test == gdb_short_test" "" |
3b11a015 | 124 | |
d1e36019 | 125 | gdb_test "maint agent-eval gdb_long_test != gdb_short_test" "" |
3b11a015 | 126 | |
d1e36019 | 127 | gdb_test "maint agent-eval gdb_long_test < gdb_short_test" "" |
3b11a015 | 128 | |
d1e36019 | 129 | gdb_test "maint agent-eval gdb_long_test <= gdb_short_test" "" |
3b11a015 | 130 | |
d1e36019 | 131 | gdb_test "maint agent-eval gdb_long_test > gdb_short_test" "" |
3b11a015 | 132 | |
d1e36019 | 133 | gdb_test "maint agent-eval gdb_long_test >= gdb_short_test" "" |
3b11a015 | 134 | |
d1e36019 | 135 | gdb_test "maint agent-eval &gdb_long_test == &gdb_short_test" ".*equal.*end.*" |
3b11a015 | 136 | |
d1e36019 | 137 | gdb_test "maint agent-eval &gdb_long_test < &gdb_short_test" "" |
3b11a015 | 138 |