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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a2b1d7d56919aeabe8cbde0b19ef2a56fb4e4ea2..57709042729e7c4ebaa8d0e3bc64bad4ffbce658 100644 (file)
--- 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 dfff997b133415e94b8e55fd692b68d254afb04e..ff57fa8cbf5cf93d0f1cf720c921c7b98f568c08 100644 (file)
--- 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;
 
    ----------------------------