From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 29 Aug 2011 09:00:59 +0000 (+0000)
Subject: exp_ch3.adb (In_Runtime): Fix typo.
X-Git-Tag: releases/gcc-4.7.0~4214
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8abdac292019f1581c057a98ca044953c05b345a;p=thirdparty%2Fgcc.git

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 a2b1d7d56919..57709042729e 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 dfff997b1334..ff57fa8cbf5c 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;
 
    ----------------------------