diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:05:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:05:56 +0200 |
| commit | 88f47280999b57fce68aeee692d1820f12fc8264 (patch) | |
| tree | 819e74e1eae21599af6257ee886a18c2d95fca63 /gcc/ada/urealp.adb | |
| parent | 05c53a690494d5188cef77a8aef9adb54683bb9a (diff) | |
| download | gcc-88f47280999b57fce68aeee692d1820f12fc8264.tar.gz | |
[multiple changes]
2011-08-04 Pascal Obry <obry@adacore.com>
* urealp.adb: Minor reformatting.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* exp_ch7.adb (build_finalizer.process_declarations.processing_actions):
Handle the case when Cleanup_Protected_Object returns Empty.
2011-08-04 Yannick Moy <moy@adacore.com>
* frontend.adb (Frontend): only qualify names in non-ALFA mode
2011-08-04 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Try_Class_Wide_Operation): if the context is a procedure
call, ignore functions.
From-SVN: r177377
Diffstat (limited to 'gcc/ada/urealp.adb')
| -rw-r--r-- | gcc/ada/urealp.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index e11235f3769..029789938f1 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -149,7 +149,7 @@ package body Urealp is function Store_Ureal_Normalized (Val : Ureal_Entry) return Ureal; pragma Inline (Store_Ureal_Normalized); - -- Like Store_Ureal, but normalizes its operand first. + -- Like Store_Ureal, but normalizes its operand first ------------------------- -- Decimal_Exponent_Hi -- @@ -276,6 +276,10 @@ package body Urealp is function Scale (X : Int; R : Ratio) return Int; -- Compute the value of X scaled by R + ----------- + -- Scale -- + ----------- + function Scale (X : Int; R : Ratio) return Int is type Wide_Int is range -2**63 .. 2**63 - 1; |