diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-12-21 08:37:34 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-04 05:17:29 -0400 |
| commit | c63bb4f3aaa18b5e4c8722c655187d592faecde3 (patch) | |
| tree | bef7b61185e6aa11bbde035d063122c6bfb8f598 /gcc/c | |
| parent | d4b0a294694a145aa33a25d1f923f4085b8f7d99 (diff) | |
| download | gcc-c63bb4f3aaa18b5e4c8722c655187d592faecde3.zip gcc-c63bb4f3aaa18b5e4c8722c655187d592faecde3.tar.gz gcc-c63bb4f3aaa18b5e4c8722c655187d592faecde3.tar.bz2 | |
[Ada] Preliminary cleanup in floating-point output implementation
gcc/ada/
* exp_intr.adb: Remove with/use clauses for Urealp.
(Expand_Is_Negative): Delete.
(Expand_Intrinsic_Call): Do not call it.
* rtsfind.ads (RE_Id): Remove RE_Float_Unsigned.
(RE_Unit_Table): Remove entry for RE_Float_Unsigned.
* snames.ads-tmpl (Name_Is_Negative): Delete.
* libgnat/s-imgrea.ads (Set_Image_Real): Fix mode of S parameter.
* libgnat/s-imgrea.adb: Add with/use clauses for System.Img_Util.
(LLU): New subtype.
(Maxdigs): Use it.
(Is_Negative): Reimplement.
(Image_Floating_Point): Simplify.
(Set_Image_Real): Fix mode of S parameter. Remove the low-level
processing on characters. Flip the sign of the Scale variable.
Compute the maximum number of digits for the straight notation.
Call Set_Decimal_Digits at the end to do the final formatting.
* libgnat/s-imguti.ads (Floating_Invalid_Value): New type.
(Set_Floating_Invalid_Value): New procedure.
* libgnat/s-imguti.adb (Set_Floating_Invalid_Value): Implement it
based on existing code from Set_Image_Real.
* libgnat/s-unstyp.ads (Float_Unsigned): Delete.
Diffstat (limited to 'gcc/c')
0 files changed, 0 insertions, 0 deletions