From: Tom de Vries <tdevries@suse.de>
Date: Mon, 24 Apr 2023 20:08:53 +0000 (+0200)
Subject: [gdb/testsuite] Fix auto-indent in gdb.gdb/python-helper.exp
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6d5d644e3cece1b2bbfe50c9b7e5866d656f81fb;p=binutils-gdb.git

[gdb/testsuite] Fix auto-indent in gdb.gdb/python-helper.exp

When editing gdb.gdb/python-helper.exp, auto-indent is broken in my editor
(emacs).

The problem is that this:
...
if { 1 } {
    foo "{" "}"<ENTER>bar
}
...
produces this:
...
if { 1 } {
    foo "{" "}"
bar
}
...

Note that this doesn't happen for "{}".

Fix this by using "\{" and "\}".

Tested on x86_64-linux.
---

diff --git a/gdb/testsuite/gdb.gdb/python-helper.exp b/gdb/testsuite/gdb.gdb/python-helper.exp
index a2dbeee4815..217f123302d 100644
--- a/gdb/testsuite/gdb.gdb/python-helper.exp
+++ b/gdb/testsuite/gdb.gdb/python-helper.exp
@@ -132,22 +132,22 @@ proc test_python_helper {} {
     # pretty printers.
     set answer [multi_line \
 		    "${decimal} = " \
-		    "{pointer_type = 0x0," \
+		    "\{pointer_type = 0x0," \
 		    " reference_type = 0x0," \
 		    " chain = 0x0," \
 		    " instance_flags = 0," \
 		    " length = $decimal," \
-		    " main_type = $hex}"]
+		    " main_type = $hex\}"]
     gdb_test -prompt $outer_prompt_re "print *val->m_type" $answer "pretty print type"
 
     set answer [multi_line \
 		    "$decimal = " \
-		    "{name = $hex \"int\"," \
+		    "\{name = $hex \"int\"," \
 		    " code = TYPE_CODE_INT," \
 		    " flags = \[^\r\n\]+," \
 		    " owner = $hex \\(gdbarch\\)," \
 		    " target_type = 0x0," \
-		    " int_stuff = { bit_size = $decimal, bit_offset = $decimal }}"]
+		    " int_stuff = \{ bit_size = $decimal, bit_offset = $decimal \}\}"]
     gdb_test -prompt $outer_prompt_re "print *val->m_type->main_type" $answer "pretty print type->main_type"
 
     # Send the continue to the outer GDB, which resumes the inner GDB,
@@ -170,12 +170,12 @@ proc test_python_helper {} {
 
     set answer [multi_line \
 		    "$decimal = " \
-		    "{name = $hex \"int\"," \
+		    "\{name = $hex \"int\"," \
 		    " code = TYPE_CODE_INT," \
 		    " flags = \[^\r\n\]+," \
 		    " owner = $hex \\(objfile\\)," \
 		    " target_type = 0x0," \
-		    " int_stuff = { bit_size = $decimal, bit_offset = $decimal }}"]
+		    " int_stuff = \{ bit_size = $decimal, bit_offset = $decimal \}\}"]
     gdb_test -prompt $outer_prompt_re "print *val->m_type->main_type" $answer "pretty print type->main_type for DWARF type"
 
     # Send the continue to the outer GDB, which resumes the inner GDB,
@@ -227,18 +227,18 @@ proc test_python_helper {} {
     if { $cmd_supported } {
 	set answer [multi_line \
 			"$decimal = " \
-			"{name = $hex \"CC\"," \
+			"\{name = $hex \"CC\"," \
 			" code = TYPE_CODE_STRUCT," \
 			" flags = \[^\r\n\]+," \
 			" owner = $hex \\(objfile\\)," \
 			" target_type = 0x0," \
 			" flds_bnds\\.fields\\\[0\\\]:" \
-			"  {m_name = $hex \"m_val\"," \
+			"  \{m_name = $hex \"m_val\"," \
 			"   m_type = $hex," \
 			"   m_loc_kind = FIELD_LOC_KIND_BITPOS," \
 			"   bitsize = 0," \
-			"   bitpos = 0}," \
-			" cplus_stuff = $hex}"]
+			"   bitpos = 0\}," \
+			" cplus_stuff = $hex\}"]
 	gdb_test -prompt $outer_prompt_re $cmd $answer
     } else {
 	unsupported $cmd