diff options
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; ---------------------------- |