diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2011-08-29 09:00:59 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 11:00:59 +0200 |
| commit | 8abdac292019f1581c057a98ca044953c05b345a (patch) | |
| tree | e8aacbc826a383e3d75b8e3d3c72f2b3cfe6d0e2 /gcc | |
| parent | df17060504b871c522e85dffada60756790352ac (diff) | |
| download | gcc-8abdac292019f1581c057a98ca044953c05b345a.zip gcc-8abdac292019f1581c057a98ca044953c05b345a.tar.gz gcc-8abdac292019f1581c057a98ca044953c05b345a.tar.bz2 | |
exp_ch3.adb (In_Runtime): Fix typo.
2011-08-29 Arnaud Charlet <charlet@adacore.com>
* exp_ch3.adb (In_Runtime): Fix typo.
From-SVN: r178171
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a2b1d7d..5770904 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-08-29 Arnaud Charlet <charlet@adacore.com> + + * exp_ch3.adb (In_Runtime): Fix typo. + 2011-08-29 Bob Duff <duff@adacore.com> * sem_ch4.adb (Analyze_Allocator): Analyze the subpool specification. diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index dfff997..ff57fa8 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -7079,7 +7079,7 @@ package body Exp_Ch3 is S1 := Scope (S1); end loop; - return Is_RTU (S1, RU_System) or else Is_RTU (S1, RU_Ada); + return Chars (S1) = Name_System or else Chars (S1) = Name_Ada; end In_Runtime; ---------------------------- |