diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 13:05:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 13:05:56 +0000 |
| commit | e0b2c764476478c895fcf755ea8ad7562a834f6e (patch) | |
| tree | 819e74e1eae21599af6257ee886a18c2d95fca63 /gcc/ada/urealp.adb | |
| parent | 7f6a3c27e0676cf088717ddadb5e76a97abd9ecd (diff) | |
| download | gcc-e0b2c764476478c895fcf755ea8ad7562a834f6e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177377 138bc75d-0d04-0410-961f-82ee72b054a4
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; |