diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:37:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:37:45 +0000 |
| commit | 443bdccbfd72aca4e18fa2d59455d0abf4c1e1a6 (patch) | |
| tree | 108280e98ba067a9d39a1fc8f26ead3efb7a2711 /gcc/ada/s-fatgen.adb | |
| parent | 7e89ad833260a023e115508db597bb98fe4e1406 (diff) | |
| download | gcc-443bdccbfd72aca4e18fa2d59455d0abf4c1e1a6.tar.gz | |
2014-07-17 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, a-ztexio.ads, exp_imgv.adb, casing.adb, casing.ads,
einfo.ads, checks.adb, sem_ch12.adb, a-textio.ads, freeze.adb,
repinfo.adb, exp_ch6.adb, sem_ch4.adb, a-witeio.ads, sem_ch8.adb,
sem_warn.adb, exp_aggr.adb, exp_dist.adb, par-tchk.adb, s-fatgen.adb,
treepr.adb, lib-xref.adb: Remove the word kludge from ada sources.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212726 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-fatgen.adb')
| -rw-r--r-- | gcc/ada/s-fatgen.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb index f68dc76204f..2644e675bd6 100644 --- a/gcc/ada/s-fatgen.adb +++ b/gcc/ada/s-fatgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -832,9 +832,8 @@ package body System.Fat_Gen is Boolean'Pos (Most_Significant_Word /= 2) + Boolean'Pos (Most_Significant_Word = 2); -- Factor that the extracted exponent needs to be divided by to be in - -- range 0 .. IEEE_Emax - IEEE_Emin + 2. Special kludge: Exponent_Factor - -- is 1 for x86/IA64 double extended as GCC adds unused bits to the - -- type. + -- range 0 .. IEEE_Emax - IEEE_Emin + 2. Special case: Exponent_Factor + -- is 1 for x86/IA64 double extended (GCC adds unused bits to the type). Exponent_Mask : constant Float_Word := Float_Word (IEEE_Emax - IEEE_Emin + 2) * |