summaryrefslogtreecommitdiff
path: root/gcc/ada/sprint.ads
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2010-09-10 11:01:37 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2010-09-10 13:01:37 +0200
commit0d57c6f43f9948795a8bd7d35053fe229ea6bacd (patch)
treed4e6705fbd48b04ad6efd2b4decba123ab98240d /gcc/ada/sprint.ads
parent88df93ce3baa8e070122533b31928d3876138488 (diff)
downloadgcc-0d57c6f43f9948795a8bd7d35053fe229ea6bacd.tar.gz
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.ads')
-rw-r--r--gcc/ada/sprint.ads2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads
index 64fe81ae4c5..ffbe2088624 100644
--- a/gcc/ada/sprint.ads
+++ b/gcc/ada/sprint.ads
@@ -76,7 +76,7 @@ package Sprint is
-- Push exception label %push_xxx_exception_label (label)
-- Raise xxx error [xxx_error [when cond]]
-- Raise xxx error with msg [xxx_error [when cond], "msg"]
- -- Rational literal See UR_Write for details
+ -- Rational literal [expression]
-- Rem wi Treat_Fixed_As_Integer x #rem y
-- Reference expression'reference
-- Shift nodes shift_name!(expr, count)