From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 1 Dec 2020 19:18:12 +0000 (+0100)
Subject: [Ada] Do not generate encodings for fixed-point types by default
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=211d0b4f036313148c4da5e88b520c451a803172;p=gcc.git

[Ada] Do not generate encodings for fixed-point types by default

gcc/ada/

	* exp_dbug.adb (Get_Encoded_Name): Generate encodings for fixed
	point types only if -fgnat-encodings=all is specified.
---

diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb
index dc6cd265af4..bb0003d1c0b 100644
--- a/gcc/ada/exp_dbug.adb
+++ b/gcc/ada/exp_dbug.adb
@@ -648,7 +648,7 @@ package body Exp_Dbug is
       --  Fixed-point case: generate GNAT encodings when asked to
 
       if Is_Fixed_Point_Type (E)
-        and then GNAT_Encodings /= DWARF_GNAT_Encodings_Minimal
+        and then GNAT_Encodings = DWARF_GNAT_Encodings_All
       then
          Get_External_Name (E, True, "XF_");
          Add_Real_To_Buffer (Delta_Value (E));