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

gcc/ada/ChangeLog

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

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