From: Tom Tromey Date: Sun, 1 Feb 2026 21:42:30 +0000 (-0700) Subject: Convert dw2-case-insensitive.exp to DWARF assembler X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=38515889f00a46ce827383e36f05ca1ea25f9758;p=thirdparty%2Fbinutils-gdb.git Convert dw2-case-insensitive.exp to DWARF assembler I used contrib/dwarf-to-dwarf-assembler.py to convert dw2-case-insensitive.exp to use the DWARF assembler. The output needed some minor changes to fully work, but not really all that much. The .c file also needed a small change, and I went ahead and removed other extraneous code. Approved-by: Kevin Buettner --- diff --git a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive-debug.S b/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive-debug.S deleted file mode 100644 index b0be7e31680..00000000000 --- a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive-debug.S +++ /dev/null @@ -1,137 +0,0 @@ -/* This testcase is part of GDB, the GNU debugger. - - Copyright 2011-2026 Free Software Foundation, Inc. - - 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 . */ - -#if PTRBITS == 64 -# define PTRBYTE .8byte -#elif PTRBITS == 32 -# define PTRBYTE .4byte -#else -# error "Unsupported pointer size" -#endif - - .section .debug_info -.Lcu1_begin: - /* CU header */ - .4byte .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */ -.Lcu1_start: - .2byte 2 /* DWARF Version */ - .4byte .Labbrev1_begin /* Offset into abbrev section */ - .byte PTRBITS / 8 /* Pointer size */ - - /* CU die */ - .uleb128 1 /* Abbrev: DW_TAG_compile_unit */ - .ascii "file1.txt\0" /* DW_AT_name */ - .ascii "GNU C 3.3.3\0" /* DW_AT_producer */ - .byte 8 /* DW_AT_language (DW_LANG_Fortran90) */ - PTRBYTE cu_text_start /* DW_AT_low_pc */ - PTRBYTE cu_text_end /* DW_AT_high_pc */ - - .uleb128 3 /* Abbrev: DW_TAG_subprogram */ - .byte 1 /* DW_AT_external */ - .ascii "FUNC_lang\0" /* DW_AT_name */ - PTRBYTE FUNC_lang_start /* DW_AT_low_pc */ - PTRBYTE FUNC_lang_end /* DW_AT_high_pc */ - .byte 1 /* DW_AT_prototyped */ - .4byte .Ltype - .Lcu1_begin /* DW_AT_type */ - -.Ltype: - .uleb128 0x5 /* Abbrev: DW_TAG_base_type */ - .byte 0x4 /* DW_AT_byte_size */ - .byte 0x5 /* DW_AT_encoding */ - .ascii "foo\0" /* DW_AT_name */ - - .byte 0 /* End of children of CU */ -.Lcu1_end: - - /* The .debug_names-based index support depends on - .debug_aranges generated by GCC. (.gdb_index includes a - gdb-generated map instead.) */ -#ifdef __arm__ - .section .debug_aranges,"",%progbits -#else - .section .debug_aranges,"",@progbits -#endif - .4byte .Laranges_end - .Laranges_start // Length of Address Ranges Info -.Laranges_start: - .2byte 0x2 // DWARF Version - .4byte .Lcu1_begin // .Ldebug_info0 - Offset of Compilation Unit Info - .byte PTRBITS / 8 // Size of Address - .byte 0 // Size of Segment Descriptor - .2byte 0 // Pad to 16 byte boundary - .2byte 0 - PTRBYTE cu_text_start // Address - PTRBYTE 0x1000 // cu_text_end - cu_text_start // Length - PTRBYTE 0 - PTRBYTE 0 -.Laranges_end: - -/* Abbrev table */ - .section .debug_abbrev -.Labbrev1_begin: - .uleb128 1 /* Abbrev code */ - .uleb128 0x11 /* DW_TAG_compile_unit */ - .byte 1 /* has_children */ - .uleb128 0x3 /* DW_AT_name */ - .uleb128 0x8 /* DW_FORM_string */ - .uleb128 0x25 /* DW_AT_producer */ - .uleb128 0x8 /* DW_FORM_string */ - .uleb128 0x13 /* DW_AT_language */ - .uleb128 0xb /* DW_FORM_data1 */ - .uleb128 0x11 /* DW_AT_low_pc */ - .uleb128 0x1 /* DW_FORM_addr */ - .uleb128 0x12 /* DW_AT_high_pc */ - .uleb128 0x1 /* DW_FORM_addr */ - .byte 0x0 /* Terminator */ - .byte 0x0 /* Terminator */ - - .uleb128 3 /* Abbrev code */ - .uleb128 0x2e /* DW_TAG_subprogram */ - .byte 0 /* has_children */ - .uleb128 0x3f /* DW_AT_external */ - .uleb128 0xc /* DW_FORM_flag */ - .uleb128 0x3 /* DW_AT_name */ - .uleb128 0x8 /* DW_FORM_string */ - .uleb128 0x11 /* DW_AT_low_pc */ - .uleb128 0x1 /* DW_FORM_addr */ - .uleb128 0x12 /* DW_AT_high_pc */ - .uleb128 0x1 /* DW_FORM_addr */ - .uleb128 0x27 /* DW_AT_prototyped */ - .uleb128 0xc /* DW_FORM_flag */ - .uleb128 0x49 /* DW_AT_type */ - .uleb128 0x13 /* DW_FORM_ref4 */ - .byte 0x0 /* Terminator */ - .byte 0x0 /* Terminator */ - - .uleb128 0x5 /* Abbrev code */ - .uleb128 0x24 /* DW_TAG_base_type */ - .byte 0x0 /* DW_children_no */ - .uleb128 0xb /* DW_AT_byte_size */ - .uleb128 0xb /* DW_FORM_data1 */ - .uleb128 0x3e /* DW_AT_encoding */ - .uleb128 0xb /* DW_FORM_data1 */ - .uleb128 0x3 /* DW_AT_name */ - .uleb128 0x8 /* DW_FORM_string */ - .byte 0x0 /* Terminator */ - .byte 0x0 /* Terminator */ - - .byte 0x0 /* Terminator */ - .byte 0x0 /* Terminator */ -#ifdef __arm__ - .section .note.GNU-stack,"",%progbits -#else - .section .note.GNU-stack,"",@progbits -#endif diff --git a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.c b/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.c index 635e23a5b1d..f679130b4ee 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.c +++ b/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.c @@ -15,31 +15,12 @@ You should have received a copy of the GNU General Public License along with this program. If not, see . */ -/* Target-specific way of forcing an instruction label. */ -#ifdef __mips__ -#define START_INSNS asm (".insn"); -#else -#define START_INSNS -#endif - -/* Use DW_LANG_Fortran90 for case insensitive DWARF. */ -asm (".globl cu_text_start"); -asm ("cu_text_start:"); -START_INSNS - -asm (".globl FUNC_lang_start"); -asm (".p2align 4"); -asm ("FUNC_lang_start:"); -START_INSNS - void FUNC_lang (void) { + asm ("FUNC_lang_label: .globl FUNC_lang_label"); } -asm (".globl FUNC_lang_end"); -asm ("FUNC_lang_end:"); - /* Symbol is present only in ELF .symtab. */ void @@ -54,6 +35,3 @@ main (void) FUNC_symtab (); return 0; } - -asm (".globl cu_text_end"); -asm ("cu_text_end:"); diff --git a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.exp b/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.exp index 94f7a5971db..cb86e4148cd 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.exp @@ -17,18 +17,50 @@ load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. require dwarf2_support -standard_testfile .c -debug.S +standard_testfile .c -dw.S if {[is_ilp32_target]} { - set ptrbits 32 + set addr_size 4 } else { - set ptrbits 64 + set addr_size 8 +} + +# Make some DWARF for the test. +set asm_file [standard_output_file $srcfile2] +Dwarf::assemble $asm_file { + global addr_size + declare_labels foo + + get_func_info FUNC_lang + cu { + version 2 + addr_size $addr_size + } { + DW_TAG_compile_unit { + DW_AT_name file1.txt DW_FORM_string + DW_AT_producer {GNU C 3.3.3} DW_FORM_string + DW_AT_language @DW_LANG_Fortran90 + } { + DW_TAG_subprogram { + DW_AT_external 1 DW_FORM_flag + DW_AT_name FUNC_lang DW_FORM_string + DW_AT_low_pc $FUNC_lang_start DW_FORM_addr + DW_AT_high_pc $FUNC_lang_end DW_FORM_addr + DW_AT_prototyped 1 DW_FORM_flag + DW_AT_type :$foo + } + foo: DW_TAG_base_type { + DW_AT_byte_size 4 DW_FORM_data1 + DW_AT_encoding @DW_ATE_signed + DW_AT_name foo DW_FORM_string + } + } + } } if { [prepare_for_testing "failed to prepare" ${testfile} \ - [list $srcfile $srcfile2] \ - [list nodebug additional_flags=-DPTRBITS=$ptrbits]] } { - return -1 + [list $srcfile $asm_file] {nodebug}] } { + return } gdb_test "show case-sensitive" {Case sensitivity in name search is "auto; currently on"\.}