From 973e9aab63a70311dffa2993dac52bd63ea461ec Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 2 Jun 2017 06:54:06 -0600 Subject: [PATCH] Add some 128-bit integer tests This adds some tests for printing 128-bit integers. 2017-06-12 Tom Tromey * gdb.dwarf2/formdata16.exp: Add tests. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.dwarf2/formdata16.exp | 31 +++++++++++++++++++++++++++++-- 2 files changed, 33 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 340a824..5f6adc5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2017-06-12 Tom Tromey + * gdb.dwarf2/formdata16.exp: Add tests. + +2017-06-12 Tom Tromey + * gdb.arch/altivec-regs.exp: Expect decimal results for uint128. 2017-06-12 Tom Tromey diff --git a/gdb/testsuite/gdb.dwarf2/formdata16.exp b/gdb/testsuite/gdb.dwarf2/formdata16.exp index bba2015..a3ccbd3 100644 --- a/gdb/testsuite/gdb.dwarf2/formdata16.exp +++ b/gdb/testsuite/gdb.dwarf2/formdata16.exp @@ -41,18 +41,22 @@ set high "0x123456789abcdef0" set low "0x0fedcba987654321" if { $endianness == "big" } { set pair $high,$low + set pair2 0x0,$low + set negative 0xffffffffffffffff,$low } else { set pair $low,$high + set pair2 $low,0x0 + set negative $low,0xffffffffffffffff } # Make some DWARF for the test. set asm_file [standard_output_file $srcfile2] Dwarf::assemble $asm_file { - global pair + global pair pair2 negative cu { addr_size 4 } { compile_unit {} { - declare_labels int_label + declare_labels int_label sint_label int_label: DW_TAG_base_type { {DW_AT_byte_size 16 DW_FORM_udata} @@ -60,11 +64,29 @@ Dwarf::assemble $asm_file { {DW_AT_name "__uint128"} } + sint_label: DW_TAG_base_type { + {DW_AT_byte_size 16 DW_FORM_udata} + {DW_AT_encoding @DW_ATE_signed} + {DW_AT_name "__int128"} + } + DW_TAG_variable { {name xxx} {type :$int_label} {const_value $pair DW_FORM_data16} } + + DW_TAG_variable { + {name yyy} + {type :$int_label} + {const_value $pair2 DW_FORM_data16} + } + + DW_TAG_variable { + {name sss} + {type :$sint_label} + {const_value $negative DW_FORM_data16} + } } } } @@ -75,3 +97,8 @@ if { [prepare_for_testing "failed to prepare" ${testfile} \ } gdb_test "p/x xxx" " = 0x123456789abcdef00fedcba987654321" +gdb_test "p xxx" "= 24197857203266734864629346612071973665" +gdb_test "p/x yyy" " = 0xfedcba987654321" +gdb_test "p yyy" "= 1147797409030816545" +gdb_test "p/x sss" " = 0xffffffffffffffff0fedcba987654321" +gdb_test "p sss" "= -17298946664678735071" -- 2.7.4