Re: [patch] Enhance debug info for fixed-point types

[Eric Botcazou]

> 2020-11-11  Eric Botcazou  <ebotca...@adacore.com>
> 
>       * exp_dbug.adb (Is_Handled_Scale_Factor): Delete.
>       (Get_Encoded_Name): Do not call it.
>       * gcc-interface/decl.c (gnat_to_gnu_entity) <Fixed_Point_Type>:
>       Tidy up and always use a meaningful description for arbitrary
>       scale factors.
>       * gcc-interface/misc.c (gnat_get_fixed_point_type_info): Remove
>       obsolete block and adjust the description of the scale factor.

There was an oversight in the patch, fixed thus.

        * gcc-interface/decl.c (gnat_to_gnu_entity) <Fixed_Point_Type>: Put
        back the "else" unduly removed.

-- 
Eric Botcazou
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index a0f17b1aafc..7caca6a6fb2 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1764,6 +1764,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 	/* Use the arbitrary scale factor description.  Note that we support
 	   a Small_Value whose magnitude is larger than 64-bit even on 32-bit
 	   platforms, so we unconditionally use a (dummy) 128-bit type.  */
+	else
 	  {
 	    const Uint gnat_num = Norm_Num (gnat_small_value);
 	    const Uint gnat_den = Norm_Den (gnat_small_value);