diff options
Diffstat (limited to 'gdb/gdbarch-selftests.c')
| -rw-r--r-- | gdb/gdbarch-selftests.c | 156 |
1 files changed, 156 insertions, 0 deletions
diff --git a/gdb/gdbarch-selftests.c b/gdb/gdbarch-selftests.c new file mode 100644 index 00000000000..096ba975f75 --- /dev/null +++ b/gdb/gdbarch-selftests.c @@ -0,0 +1,156 @@ +/* Self tests for gdbarch for GDB, the GNU debugger. + + Copyright (C) 2017 Free Software Foundation, Inc. + + This file is part of GDB. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include "defs.h" +#if GDB_SELF_TEST +#include "selftest.h" +#include "selftest-arch.h" +#include "inferior.h" + +namespace selftests { + +/* A read-write regcache which doesn't write the target. */ + +class regcache_test : public regcache +{ +public: + explicit regcache_test (struct gdbarch *gdbarch) + : regcache (gdbarch, NULL, false) + { + set_ptid (inferior_ptid); + + current_regcache.push_front (this); + } + + void raw_write (int regnum, const gdb_byte *buf) override + { + raw_set_cached_value (regnum, buf); + } +}; + +/* Test gdbarch methods register_to_value and value_to_register. */ + +static void +register_to_value_test (struct gdbarch *gdbarch) +{ + const struct builtin_type *builtin = builtin_type (gdbarch); + struct type *types[] = + { + builtin->builtin_void, + builtin->builtin_char, + builtin->builtin_short, + builtin->builtin_int, + builtin->builtin_long, + builtin->builtin_signed_char, + builtin->builtin_unsigned_short, + builtin->builtin_unsigned_int, + builtin->builtin_unsigned_long, + builtin->builtin_float, + builtin->builtin_double, + builtin->builtin_long_double, + builtin->builtin_complex, + builtin->builtin_double_complex, + builtin->builtin_string, + builtin->builtin_bool, + builtin->builtin_long_long, + builtin->builtin_unsigned_long_long, + builtin->builtin_int8, + builtin->builtin_uint8, + builtin->builtin_int16, + builtin->builtin_uint16, + builtin->builtin_int32, + builtin->builtin_uint32, + builtin->builtin_int64, + builtin->builtin_uint64, + builtin->builtin_int128, + builtin->builtin_uint128, + builtin->builtin_char16, + builtin->builtin_char32, + }; + + current_inferior()->gdbarch = gdbarch; + + struct regcache *regcache = new regcache_test (gdbarch); + struct frame_info *frame = create_test_frame (regcache); + const int num_regs = (gdbarch_num_regs (gdbarch) + + gdbarch_num_pseudo_regs (gdbarch)); + + SELF_CHECK (regcache == get_current_regcache ()); + + /* Test gdbarch methods register_to_value and value_to_register with + different combinations of register numbers and types. */ + for (const auto &type : types) + { + for (auto regnum = 0; regnum < num_regs; regnum++) + { + if (gdbarch_convert_register_p (gdbarch, regnum, type)) + { + std::vector<gdb_byte> expected (TYPE_LENGTH (type), 0); + + if (TYPE_CODE (type) == TYPE_CODE_FLT) + { + DOUBLEST d = 1.25; + + /* Generate valid float format. */ + floatformat_from_doublest (floatformat_from_type (type), + &d, expected.data ()); + } + else + { + for (auto j = 0; j < expected.size (); j++) + expected[j] = (regnum + j) % 16; + } + + gdbarch_value_to_register (gdbarch, frame, regnum, type, + expected.data ()); + + /* Allocate two bytes more for overflow check. */ + std::vector<gdb_byte> buf (TYPE_LENGTH (type) + 2, 0); + int optim, unavail, ok; + + /* Set the fingerprint in the last two bytes. */ + buf [TYPE_LENGTH (type)]= 'w'; + buf [TYPE_LENGTH (type) + 1]= 'l'; + ok = gdbarch_register_to_value (gdbarch, frame, regnum, type, + buf.data (), &optim, &unavail); + + SELF_CHECK (ok); + SELF_CHECK (!optim); + SELF_CHECK (!unavail); + + SELF_CHECK (buf[TYPE_LENGTH (type)] == 'w'); + SELF_CHECK (buf[TYPE_LENGTH (type) + 1] == 'l'); + + for (auto k = 0; k < TYPE_LENGTH(type); k++) + SELF_CHECK (buf[k] == expected[k]); + } + } + } +} + +} // namespace selftests +#endif /* GDB_SELF_TEST */ + +void +_initialize_gdbarch_selftests (void) +{ +#if GDB_SELF_TEST + register_self_test_foreach_arch (selftests::register_to_value_test); +#endif +} |