This is the mail archive of the
gdb-cvs@sourceware.org
mailing list for the GDB project.
[binutils-gdb] Add some 128-bit integer tests
- From: Tom Tromey <tromey at sourceware dot org>
- To: gdb-cvs at sourceware dot org
- Date: 12 Jun 2017 21:44:06 -0000
- Subject: [binutils-gdb] Add some 128-bit integer tests
https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=973e9aab63a70311dffa2993dac52bd63ea461ec
commit 973e9aab63a70311dffa2993dac52bd63ea461ec
Author: Tom Tromey <tom@tromey.com>
Date: Fri Jun 2 06:54:06 2017 -0600
Add some 128-bit integer tests
This adds some tests for printing 128-bit integers.
2017-06-12 Tom Tromey <tom@tromey.com>
* gdb.dwarf2/formdata16.exp: Add tests.
Diff:
---
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 <tom@tromey.com>
+ * gdb.dwarf2/formdata16.exp: Add tests.
+
+2017-06-12 Tom Tromey <tom@tromey.com>
+
* gdb.arch/altivec-regs.exp: Expect decimal results for uint128.
2017-06-12 Tom Tromey <tom@tromey.com>
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"