1 /* Self tests for gdbarch for GDB, the GNU debugger.
3 Copyright (C) 2017-2020 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "gdbsupport/selftest.h"
23 #include "selftest-arch.h"
25 #include "gdbthread.h"
27 #include "test-target.h"
28 #include "target-float.h"
29 #include "gdbsupport/def-vector.h"
34 /* Test gdbarch methods register_to_value and value_to_register. */
37 register_to_value_test (struct gdbarch
*gdbarch
)
39 const struct builtin_type
*builtin
= builtin_type (gdbarch
);
40 struct type
*types
[] =
42 builtin
->builtin_void
,
43 builtin
->builtin_char
,
44 builtin
->builtin_short
,
46 builtin
->builtin_long
,
47 builtin
->builtin_signed_char
,
48 builtin
->builtin_unsigned_short
,
49 builtin
->builtin_unsigned_int
,
50 builtin
->builtin_unsigned_long
,
51 builtin
->builtin_float
,
52 builtin
->builtin_double
,
53 builtin
->builtin_long_double
,
54 builtin
->builtin_complex
,
55 builtin
->builtin_double_complex
,
56 builtin
->builtin_string
,
57 builtin
->builtin_bool
,
58 builtin
->builtin_long_long
,
59 builtin
->builtin_unsigned_long_long
,
60 builtin
->builtin_int8
,
61 builtin
->builtin_uint8
,
62 builtin
->builtin_int16
,
63 builtin
->builtin_uint16
,
64 builtin
->builtin_int32
,
65 builtin
->builtin_uint32
,
66 builtin
->builtin_int64
,
67 builtin
->builtin_uint64
,
68 builtin
->builtin_int128
,
69 builtin
->builtin_uint128
,
70 builtin
->builtin_char16
,
71 builtin
->builtin_char32
,
74 /* Create a mock environment. An inferior with a thread, with a
75 process_stratum target pushed. */
77 test_target_ops mock_target
;
78 ptid_t
mock_ptid (1, 1);
79 inferior
mock_inferior (mock_ptid
.pid ());
80 address_space mock_aspace
{};
81 mock_inferior
.gdbarch
= gdbarch
;
82 mock_inferior
.aspace
= &mock_aspace
;
83 thread_info
mock_thread (&mock_inferior
, mock_ptid
);
85 scoped_restore restore_thread_list
86 = make_scoped_restore (&mock_inferior
.thread_list
, &mock_thread
);
88 /* Add the mock inferior to the inferior list so that look ups by
89 target+ptid can find it. */
90 scoped_restore restore_inferior_list
91 = make_scoped_restore (&inferior_list
);
92 inferior_list
= &mock_inferior
;
94 /* Switch to the mock inferior. */
95 scoped_restore_current_inferior restore_current_inferior
;
96 set_current_inferior (&mock_inferior
);
98 /* Push the process_stratum target so we can mock accessing
100 push_target (&mock_target
);
102 /* Pop it again on exit (return/exception). */
103 SCOPE_EXIT
{ pop_all_targets_at_and_above (process_stratum
); };
105 /* Switch to the mock thread. */
106 scoped_restore restore_inferior_ptid
107 = make_scoped_restore (&inferior_ptid
, mock_ptid
);
109 struct frame_info
*frame
= get_current_frame ();
110 const int num_regs
= gdbarch_num_cooked_regs (gdbarch
);
112 /* Test gdbarch methods register_to_value and value_to_register with
113 different combinations of register numbers and types. */
114 for (const auto &type
: types
)
116 for (auto regnum
= 0; regnum
< num_regs
; regnum
++)
118 if (gdbarch_convert_register_p (gdbarch
, regnum
, type
))
120 std::vector
<gdb_byte
> expected (TYPE_LENGTH (type
), 0);
122 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
124 /* Generate valid float format. */
125 target_float_from_string (expected
.data (), type
, "1.25");
129 for (auto j
= 0; j
< expected
.size (); j
++)
130 expected
[j
] = (regnum
+ j
) % 16;
133 gdbarch_value_to_register (gdbarch
, frame
, regnum
, type
,
136 /* Allocate two bytes more for overflow check. */
137 std::vector
<gdb_byte
> buf (TYPE_LENGTH (type
) + 2, 0);
138 int optim
, unavail
, ok
;
140 /* Set the fingerprint in the last two bytes. */
141 buf
[TYPE_LENGTH (type
)]= 'w';
142 buf
[TYPE_LENGTH (type
) + 1]= 'l';
143 ok
= gdbarch_register_to_value (gdbarch
, frame
, regnum
, type
,
144 buf
.data (), &optim
, &unavail
);
148 SELF_CHECK (!unavail
);
150 SELF_CHECK (buf
[TYPE_LENGTH (type
)] == 'w');
151 SELF_CHECK (buf
[TYPE_LENGTH (type
) + 1] == 'l');
153 for (auto k
= 0; k
< TYPE_LENGTH(type
); k
++)
154 SELF_CHECK (buf
[k
] == expected
[k
]);
160 } // namespace selftests
161 #endif /* GDB_SELF_TEST */
163 void _initialize_gdbarch_selftests ();
165 _initialize_gdbarch_selftests ()
168 selftests::register_test_foreach_arch ("register_to_value",
169 selftests::register_to_value_test
);