diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-09-10 11:01:37 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 13:01:37 +0200 |
| commit | 0d57c6f43f9948795a8bd7d35053fe229ea6bacd (patch) | |
| tree | d4e6705fbd48b04ad6efd2b4decba123ab98240d /gcc/ada/sprint.adb | |
| parent | 88df93ce3baa8e070122533b31928d3876138488 (diff) | |
| download | gcc-0d57c6f43f9948795a8bd7d35053fe229ea6bacd.zip gcc-0d57c6f43f9948795a8bd7d35053fe229ea6bacd.tar.gz gcc-0d57c6f43f9948795a8bd7d35053fe229ea6bacd.tar.bz2 | |
repinfo.adb (List_Type_Info): List Small and Range for fixed-point types.
2010-09-10 Robert Dewar <dewar@adacore.com>
* repinfo.adb (List_Type_Info): List Small and Range for fixed-point
types.
* sprint.adb (Write_Ureal_With_Col_Check_Sloc): Use square brackets
rather than parens for fixed constants.
* sprint.ads: Use square brackets rather than parens for fixed constants
* urealp.adb (UR_Write): Use square brackets rather than parens
(UR_Write): Add Brackets argument
(UR_Write): Add many more special cases to output literals
* urealp.ads (UR_Write): Use square brackets rather than parens
(UR_Write): Add Brackets argument
2010-09-10 Robert Dewar <dewar@adacore.com>
* sem_ch4.adb: Minor reformatting.
From-SVN: r164165
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index b1367fb..3c780b5 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -4364,12 +4364,10 @@ package body Sprint is procedure Write_Ureal_With_Col_Check_Sloc (U : Ureal) is D : constant Uint := Denominator (U); N : constant Uint := Numerator (U); - begin - Col_Check - (UI_Decimal_Digits_Hi (D) + UI_Decimal_Digits_Hi (N) + 4); + Col_Check (UI_Decimal_Digits_Hi (D) + UI_Decimal_Digits_Hi (N) + 4); Set_Debug_Sloc; - UR_Write (U); + UR_Write (U, Brackets => True); end Write_Ureal_With_Col_Check_Sloc; end Sprint; |