From 211d0b4f036313148c4da5e88b520c451a803172 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 1 Dec 2020 20:18:12 +0100 Subject: [PATCH] [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. --- gcc/ada/exp_dbug.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); -- 2.30.2