From 8abdac292019f1581c057a98ca044953c05b345a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 29 Aug 2011 09:00:59 +0000 Subject: [PATCH] exp_ch3.adb (In_Runtime): Fix typo. 2011-08-29 Arnaud Charlet * exp_ch3.adb (In_Runtime): Fix typo. From-SVN: r178171 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_ch3.adb | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a2b1d7d5691..57709042729 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-08-29 Arnaud Charlet + + * exp_ch3.adb (In_Runtime): Fix typo. + 2011-08-29 Bob Duff * sem_ch4.adb (Analyze_Allocator): Analyze the subpool specification. diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index dfff997b133..ff57fa8cbf5 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; ---------------------------- -- 2.30.2