diff options
Diffstat (limited to 'gcc/ada/sinfo.adb')
-rw-r--r-- | gcc/ada/sinfo.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index b36b930b8c4..440cf02a2e7 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -657,6 +657,7 @@ package body Sinfo is (N : Node_Id) return Node_Id is begin pragma Assert (False + or else NT (N).Nkind = N_Expression_Function or else NT (N).Nkind = N_Package_Body or else NT (N).Nkind = N_Protected_Body or else NT (N).Nkind = N_Subprogram_Body @@ -1572,6 +1573,14 @@ package body Sinfo is return Flag13 (N); end Has_Wide_Wide_Character; + function Header_Size_Added + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Attribute_Reference); + return Flag11 (N); + end Header_Size_Added; + function Hidden_By_Use_Clause (N : Node_Id) return Elist_Id is begin @@ -3729,6 +3738,7 @@ package body Sinfo is (N : Node_Id; Val : Node_Id) is begin pragma Assert (False + or else NT (N).Nkind = N_Expression_Function or else NT (N).Nkind = N_Package_Body or else NT (N).Nkind = N_Protected_Body or else NT (N).Nkind = N_Subprogram_Body @@ -4635,6 +4645,14 @@ package body Sinfo is Set_Flag13 (N, Val); end Set_Has_Wide_Wide_Character; + procedure Set_Header_Size_Added + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Attribute_Reference); + Set_Flag11 (N, Val); + end Set_Header_Size_Added; + procedure Set_Hidden_By_Use_Clause (N : Node_Id; Val : Elist_Id) is begin |