From: Tom Tromey <tom@tromey.com>
Date: Fri, 2 Jun 2017 12:54:06 +0000 (-0600)
Subject: Add some 128-bit integer tests
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=973e9aab63a70311dffa2993dac52bd63ea461ec;p=binutils-gdb.git

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 --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 340a8247ae8..5f6adc5488e 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.
diff --git a/gdb/testsuite/gdb.dwarf2/formdata16.exp b/gdb/testsuite/gdb.dwarf2/formdata16.exp
index bba2015e47f..a3ccbd39b50 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"