2010-09-10 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sprint.ads

diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads
index 64fe81a..ffbe208 100644 (file)
--- 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)