From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1499) id D3037385F015; Thu, 25 Aug 2022 22:08:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org D3037385F015 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1661465297; bh=0t41JQQKwoiZ03z9g+TrFapcFWQ/i+zv5BmlSq4/oi8=; h=From:To:Subject:Date:From; b=EI/hvK1+h/5+QcLfj1QcJy9fF2AdXwkvolOQogAPoNmHZJYd2YdMAuOkB7W3f8hh4 OAlmKmrUn9mOb1nFO/nLSr8bc4qjlqd+2/N/ebsm1eCxD7AuBentWcqxSMnmWExo5f wPl+FmCWVGYPCYvZXMsRUlymV84fUOLi5R2q+ETY= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Gaius Mulley To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/modula-2] gcc/dwarf2out.cc detect and set language to Modula-2. X-Act-Checkin: gcc X-Git-Author: Gaius Mulley X-Git-Refname: refs/heads/devel/modula-2 X-Git-Oldrev: 846d4284eab86ed49e51ed1e5d1bff0c1e3d1dab X-Git-Newrev: 6ed0a391b3fbaf14cd83a1bfd61976378c94ba7a Message-Id: <20220825220817.D3037385F015@sourceware.org> Date: Thu, 25 Aug 2022 22:08:17 +0000 (GMT) List-Id: https://gcc.gnu.org/g:6ed0a391b3fbaf14cd83a1bfd61976378c94ba7a commit 6ed0a391b3fbaf14cd83a1bfd61976378c94ba7a Author: Gaius Mulley Date: Thu Aug 25 23:07:15 2022 +0100 gcc/dwarf2out.cc detect and set language to Modula-2. Set language to Modula-2 in the debugging output. gcc/ChangeLog: * gcc/dwarf2out.cc (gen_compile_unit_die): Add clause to set language to DW_LANG_Modula2 if language_string is "GNU Modula-2". Signed-off-by: Gaius Mulley Diff: --- gcc/dwarf2out.cc | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/dwarf2out.cc b/gcc/dwarf2out.cc index e3920c898f5..240e947ff03 100644 --- a/gcc/dwarf2out.cc +++ b/gcc/dwarf2out.cc @@ -25201,6 +25201,8 @@ gen_compile_unit_die (const char *filename) } else if (strcmp (language_string, "GNU F77") == 0) language = DW_LANG_Fortran77; + else if (strcmp (language_string, "GNU Modula-2") == 0) + language = DW_LANG_Modula2; else if (dwarf_version >= 3 || !dwarf_strict) { if (strcmp (language_string, "GNU Ada") == 0)