diff options
Diffstat (limited to 'gcc/ada/urealp.ads')
| -rw-r--r-- | gcc/ada/urealp.ads | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads index 05b847d..57bc0fa 100644 --- a/gcc/ada/urealp.ads +++ b/gcc/ada/urealp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -139,12 +139,13 @@ package Urealp is -- during Gigi processing. procedure Tree_Read; - -- Initializes internal tables from current tree file using Tree_Read. - -- Note that Initialize should not be called if Tree_Read is used. - -- Tree_Read includes all necessary initialization. + -- Initializes internal tables from current tree file using the relevant + -- Table.Tree_Read routines. Note that Initialize should not be called if + -- Tree_Read is used. Tree_Read includes all necessary initialization. procedure Tree_Write; - -- Writes out internal tables to current tree file using Tree_Write + -- Writes out internal tables to current tree file using the relevant + -- Table.Tree_Write routines. function Rbase (Real : Ureal) return Nat; -- Return the base of the universal real. |