From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from simark.ca by simark.ca with LMTP id bEjnB9fXf2n/RyMAWB0awg (envelope-from ) for ; Sun, 01 Feb 2026 17:46:47 -0500 Authentication-Results: simark.ca; dkim=fail reason="signature verification failed" (768-bit key; unprotected) header.d=tromey.com header.i=@tromey.com header.a=rsa-sha256 header.s=default header.b=mjSIBwSu; dkim-atps=neutral Received: by simark.ca (Postfix, from userid 112) id 0D7A71E089; Sun, 01 Feb 2026 17:46:47 -0500 (EST) X-Spam-Checker-Version: SpamAssassin 4.0.1 (2024-03-25) on simark.ca X-Spam-Level: X-Spam-Status: No, score=-2.1 required=5.0 tests=ARC_SIGNED,ARC_VALID,BAYES_00, DKIM_INVALID,DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED, RCVD_IN_VALIDITY_CERTIFIED_BLOCKED,RCVD_IN_VALIDITY_RPBL_BLOCKED, RCVD_IN_VALIDITY_SAFE_BLOCKED autolearn=ham autolearn_force=no version=4.0.1 Received: from vm01.sourceware.org (vm01.sourceware.org [38.145.34.32]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange x25519 server-signature ECDSA (prime256v1) server-digest SHA256) (No client certificate requested) by simark.ca (Postfix) with ESMTPS id 9277B1E089 for ; Sun, 01 Feb 2026 17:46:45 -0500 (EST) Received: from vm01.sourceware.org (localhost [127.0.0.1]) by sourceware.org (Postfix) with ESMTP id DE9ED4BB58D4 for ; Sun, 1 Feb 2026 22:46:44 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org DE9ED4BB58D4 Authentication-Results: sourceware.org; dkim=fail reason="signature verification failed" (768-bit key, unprotected) header.d=tromey.com header.i=@tromey.com header.a=rsa-sha256 header.s=default header.b=mjSIBwSu Received: from omta040.useast.a.cloudfilter.net (omta040.useast.a.cloudfilter.net [44.202.169.39]) by sourceware.org (Postfix) with ESMTPS id 04E494BAD17F for ; Sun, 1 Feb 2026 22:46:15 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 04E494BAD17F Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=tromey.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=tromey.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 04E494BAD17F Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=44.202.169.39 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1769985976; cv=none; b=fKojA9VTboF60Jh7GAZ07fbQSzXWqtxjOGJp2Bsywj8WILaOYiXxkNj+xVm9NULNJowOC+/yYCAzZDzOMD3q9X6R13jHJiewt553MEUpRog6vAzLV+gfnpUVzDO9NM9qXnU33jG3crXzd714PERK2m4b3RbjwOLort8gGbJ5tHo= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1769985976; c=relaxed/simple; bh=p3tDBQm260OjKtffNHhzsqbxtnrGphLpObH+4uaqc6U=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=QPbyVXyo8qcp+fucFDISLHNcDvocjXhGLXkSNQMmhekAP/c/bdXWpLYZZmWmTUPaIIODqCjXdWlNYHUIMTigqxpQ8t+ai8/DzwkluB9QDBkq6oQMZYCYVgxtFNweR2vASYBjfIFPcjzLCX4hwp2+qax+yXVif3QQcTimv+jn+hM= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 04E494BAD17F Received: from eig-obgw-6006b.ext.cloudfilter.net ([10.0.30.211]) by cmsmtp with ESMTPS id mcvhv2xEaCxrGmgCtvo9Vb; Sun, 01 Feb 2026 22:46:15 +0000 Received: from box5379.bluehost.com ([162.241.216.53]) by cmsmtp with ESMTPS id mgCsvPnlqvXvHmgCtvGKUZ; Sun, 01 Feb 2026 22:46:15 +0000 X-Authority-Analysis: v=2.4 cv=e4IGSbp/ c=1 sm=1 tr=0 ts=697fd7b7 a=ApxJNpeYhEAb1aAlGBBbmA==:117 a=ApxJNpeYhEAb1aAlGBBbmA==:17 a=HzLeVaNsDn8A:10 a=ItBw4LHWJt0A:10 a=mDV3o1hIAAAA:8 a=BYdNCrXBQiyOY9Q7zRQA:9 a=DCx65vhANUyCzuf5D8fC:22 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=tromey.com; s=default; h=Content-Transfer-Encoding:MIME-Version:Message-ID:Date:Subject: Cc:To:From:Sender:Reply-To:Content-Type:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=fSa5dXlJQe5ecvT8JJcVcOSHmZQZE+/ynHtwm7kMVC0=; b=mjSIBwSuAqjAtxifQoqP2CFCgB z8J0sZ8jsarq+aT613r9Ul4sxgIKHa18O5o4Fgu7W/KpQKeIwcrK+gh8QOQuk/jE6mwr5U55lM8Wy SamKGCAsnomHb9pH7956a2gNf; Received: from 97-118-49-200.hlrn.qwest.net ([97.118.49.200]:47860 helo=localhost.localdomain) by box5379.bluehost.com with esmtpsa (TLS1.3) tls TLS_AES_256_GCM_SHA384 (Exim 4.98.2) (envelope-from ) id 1vmgCs-000000013AF-2c2Y; Sun, 01 Feb 2026 15:46:14 -0700 From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [PATCH] Convert dw2-case-insensitive.exp to DWARF assembler Date: Sun, 1 Feb 2026 15:46:07 -0700 Message-ID: <20260201224607.172087-1-tom@tromey.com> X-Mailer: git-send-email 2.49.0 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - box5379.bluehost.com X-AntiAbuse: Original Domain - sourceware.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - tromey.com X-BWhitelist: no X-Source-IP: 97.118.49.200 X-Source-L: No X-Exim-ID: 1vmgCs-000000013AF-2c2Y X-Source: X-Source-Args: X-Source-Dir: X-Source-Sender: 97-118-49-200.hlrn.qwest.net (localhost.localdomain) [97.118.49.200]:47860 X-Source-Auth: tom+tromey.com X-Email-Count: 1 X-Org: HG=bhshared;ORG=bluehost; X-Source-Cap: ZWx5bnJvYmk7ZWx5bnJvYmk7Ym94NTM3OS5ibHVlaG9zdC5jb20= X-Local-Domain: yes X-CMAE-Envelope: MS4xfGgSTAONe7fxe2KnhBBqWPnv1yN12hVlCC4avGdHvPgk96NTcFi6G6n38LGvRL2nYy41P59GdNK/HTMJCAh1jRE4FeojGMHQ6mTCGd2TsZjVug3zwqbH hUg/GBJN4E0jzChm+5TesW5saoOhukdrRtCSP2IWgRKByGBkLVZj6gM8mFjXvqDVQGYGGaY6IkBkyQ/CXEYOSj9yUPA+8Q7qeiY= X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gdb-patches-bounces~public-inbox=simark.ca@sourceware.org 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. --- .../gdb.dwarf2/dw2-case-insensitive-debug.S | 137 ------------------ .../gdb.dwarf2/dw2-case-insensitive.c | 24 +-- .../gdb.dwarf2/dw2-case-insensitive.exp | 44 +++++- 3 files changed, 39 insertions(+), 166 deletions(-) delete mode 100644 gdb/testsuite/gdb.dwarf2/dw2-case-insensitive-debug.S 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"\.} -- 2.49.0