diff options
| author | Etienne Servais <servais@adacore.com> | 2021-12-03 15:13:07 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:35 +0000 |
| commit | 41a7b9484a39657deab7cac7092c2bf634a39365 (patch) | |
| tree | 2f19782ff911aa4ee3a3473e9f4907310eec6686 /gcc/ada/urealp.adb | |
| parent | 1f26ff11b688e3cec00da85b13f6f33e23fc7410 (diff) | |
| download | gcc-41a7b9484a39657deab7cac7092c2bf634a39365.zip gcc-41a7b9484a39657deab7cac7092c2bf634a39365.tar.gz gcc-41a7b9484a39657deab7cac7092c2bf634a39365.tar.bz2 | |
[Ada] Fix typo in comments found running aspell
gcc/ada/
* atree.adb: Fix typo.
* einfo.ads: Likewise.
* exp_aggr.adb: Likewise.
* exp_ch6.adb: Likewise.
* exp_ch7.adb: Likewise.
* exp_ch9.adb: Likewise.
* exp_prag.adb: Likewise.
* exp_unst.adb: Likewise.
* exp_unst.ads: Likewise.
* exp_util.adb: Likewise.
* par-endh.adb: Likewise.
* par.adb: Likewise.
* restrict.adb: Likewise.
* sem.ads: Likewise.
* sem_ch4.adb: Likewise.
* sem_ch5.adb: Likewise.
* sem_ch6.adb: Likewise.
* sem_ch8.adb: Likewise.
* sem_ch12.adb: Likewise.
* sem_ch13.adb: Likewise.
* sem_dim.adb: Likewise.
* sem_elab.adb: Likewise.
* sem_prag.adb: Likewise.
* sem_res.adb: Likewise.
* sem_util.adb: Likewise.
* sem_util.ads: Likewise.
* sinfo.ads: Likewise.
* sprint.adb: Likewise.
* urealp.adb: Likewise.
Diffstat (limited to 'gcc/ada/urealp.adb')
| -rw-r--r-- | gcc/ada/urealp.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 1367ad3..cd9bc78 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -1520,7 +1520,7 @@ package body Urealp is -- We defer to the implementation of UR_Write in all cases, either directly -- for values that are naturally written in a JSON compatible format, or by - -- first computing a decimal approxixmation for other values. + -- first computing a decimal approximation for other values. procedure UR_Write_To_JSON (Real : Ureal) is Val : constant Ureal_Entry := Ureals.Table (Real); @@ -1561,7 +1561,7 @@ package body Urealp is elsif Val.Rbase = 0 and then Val.Num mod Val.Den = 0 then T := Real; - -- For other constants, compute an approxixmation in base 10 + -- For other constants, compute an approximation in base 10 else declare |