diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2015-10-20 12:37:13 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 14:37:13 +0200 |
| commit | 1b1d88b1ac064a407f1c8e177da29f993f895638 (patch) | |
| tree | d8a8702a8e71bae913817467bc0d3f5af5e33092 /gcc/ada/exp_tss.adb | |
| parent | d5c1a5f179880a40c6771372999d6cdefe8393fd (diff) | |
| download | gcc-1b1d88b1ac064a407f1c8e177da29f993f895638.zip gcc-1b1d88b1ac064a407f1c8e177da29f993f895638.tar.gz gcc-1b1d88b1ac064a407f1c8e177da29f993f895638.tar.bz2 | |
sem_aggr.adb, [...]: Fix typos.
2015-10-20 Arnaud Charlet <charlet@adacore.com>
* sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb,
freeze.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnatlink.adb,
par-ch6.adb, exp_tss.adb, exp_ch4.adb, s-shasto.adb, exp_fixd.adb,
sem_ch6.adb, clean.adb, sem_ch8.adb, sem_eval.adb, sem_ch9.adb: Fix
typos.
From-SVN: r229074
Diffstat (limited to 'gcc/ada/exp_tss.adb')
| -rw-r--r-- | gcc/ada/exp_tss.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index 2b6dc92..94c15df 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -517,7 +517,7 @@ package body Exp_Tss is else Elmt := First_Elmt (TSS_Elist (FN)); while Present (Elmt) loop - if Chars (Node (Elmt)) = Nam then + if Chars (Node (Elmt)) = Nam then Subp := Node (Elmt); -- For stream subprograms, the TSS entity may be a renaming- |