diff options
| author | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-28 12:56:08 +0000 |
|---|---|---|
| committer | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-28 12:56:08 +0000 |
| commit | da253936ab1342aaac88586a88a2861ca092aba2 (patch) | |
| tree | fbb57f6a0d3c44ef1d9fbad080ccc7b3dba33605 /gcc/ada/urealp.adb | |
| parent | dd5b4b36c6c82b6018d550a469311d9c80bda0d2 (diff) | |
| download | gcc-da253936ab1342aaac88586a88a2861ca092aba2.tar.gz | |
* 86numaux.adb, a-tigeau.ads, a-wtgeau.ads, decl.c, exp_ch6.adb,
exp_ch9.adb, exp_util.adb, fname-sf.ads, freeze.ads, g-awk.adb,
g-comlin.ads, g-dirope.adb, g-dyntab.ads, g-socket.ads,
g-table.ads, g-traceb.ads, gnat-style.texi, gnatchop.adb, init.c,
layout.adb, layout.ads, mdllfile.ads, mlib-fil.ads, osint.ads,
s-fatgen.adb, s-imgrea.adb, s-taprop.ads, s-tasdeb.ads,
sem_aggr.adb, sem_attr.adb, sem_case.ads, sem_ch13.adb,
sem_ch3.adb, sem_elab.adb, sem_maps.ads, sem_res.adb,
sem_util.ads, sinfo.ads, sinput.ads, table.adb, table.ads,
types.ads, urealp.adb: Fix spelling errors.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46581 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/urealp.adb')
| -rw-r--r-- | gcc/ada/urealp.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 941af169647..bb2d510cffa 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.60 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -162,7 +162,7 @@ package body Urealp is -- For based numbers, just subtract the decimal exponent from the -- high estimate of the number of digits in the numerator and add - -- one to accomodate possible round off errors for non-decimal + -- one to accommodate possible round off errors for non-decimal -- bases. For example: -- 1_500_000 / 10**4 = 1.50E-2 @@ -202,7 +202,7 @@ package body Urealp is -- For based numbers, just subtract the decimal exponent from the -- low estimate of the number of digits in the numerator and subtract - -- one to accomodate possible round off errors for non-decimal + -- one to accommodate possible round off errors for non-decimal -- bases. For example: -- 1_500_000 / 10**4 = 1.50E-2 @@ -988,7 +988,7 @@ package body Urealp is return UR_Is_Negative (Left); -- If we fall through, full gruesome test is required. This happens - -- if the numbers are close together, or in some wierd (/=10) base. + -- if the numbers are close together, or in some weird (/=10) base. else declare |