From fd22cd216b0bb01b882467b4682c7b0f6eee7026 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 30 Nov 2009 14:09:30 +0000 Subject: scans.ads (Wide_Wide_Character_Found): New flag 2009-11-30 Robert Dewar * scans.ads (Wide_Wide_Character_Found): New flag * scn.adb (Post_Scan): Set new flag Has_Wide_Wide_Character * scng.adb (Set_String): Set new flag Wide_Wide_Character_Found (Set_String): Fix failure to reset Wide_Character_Found * sinfo.adb (Has_Wide_Wide_Character): New flag in N_String_Literal * sinfo.ads (Has_Wide_Wide_Character): New flag in N_String_Literal * a-ngelfu.adb: Minor reformatting & code reorganization. * usage.adb: Fix typo in -gnatw.W line From-SVN: r154804 --- gcc/ada/sinfo.adb | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'gcc/ada/sinfo.adb') diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index c075af5ab7a..f4c171cebf7 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1481,6 +1481,14 @@ package body Sinfo is return Flag11 (N); end Has_Wide_Character; + function Has_Wide_Wide_Character + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_String_Literal); + return Flag13 (N); + end Has_Wide_Wide_Character; + function Hidden_By_Use_Clause (N : Node_Id) return Elist_Id is begin @@ -4351,6 +4359,14 @@ package body Sinfo is Set_Flag11 (N, Val); end Set_Has_Wide_Character; + procedure Set_Has_Wide_Wide_Character + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_String_Literal); + Set_Flag13 (N, Val); + end Set_Has_Wide_Wide_Character; + procedure Set_Hidden_By_Use_Clause (N : Node_Id; Val : Elist_Id) is begin -- cgit v1.2.1