git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Arnaud Charlet 2011-08-29 09:00:59 +00:00 committed by Arnaud Charlet
parent df17060504
commit 8abdac2920
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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.

2
gcc/ada/exp_ch3.adb
View File

@ -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;
----------------------------