[Ada] Do not generate encodings for fixed-point types by default
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 1 Dec 2020 19:18:12 +0000 (20:18 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 17 Dec 2020 10:49:21 +0000 (05:49 -0500)
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

index dc6cd265af438320bb57ec5edaf0a077a6fde0e5..bb0003d1c0b7ed523e5ae0e42dfb153aeab47502 100644 (file)
@@ -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));