diff options
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 4aae39d..a453e12 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1552,6 +1552,16 @@ package body Sinfo is return Flag13 (N); end Has_Self_Reference; + function Has_SP_Choice + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Case_Expression_Alternative + or else NT (N).Nkind = N_Case_Statement_Alternative + or else NT (N).Nkind = N_Variant); + return Flag15 (N); + end Has_SP_Choice; + function Has_Storage_Size_Pragma (N : Node_Id) return Boolean is begin @@ -4680,6 +4690,16 @@ package body Sinfo is Set_Flag13 (N, Val); end Set_Has_Self_Reference; + procedure Set_Has_SP_Choice + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Case_Expression_Alternative + or else NT (N).Nkind = N_Case_Statement_Alternative + or else NT (N).Nkind = N_Variant); + Set_Flag15 (N, Val); + end Set_Has_SP_Choice; + procedure Set_Has_Storage_Size_Pragma (N : Node_Id; Val : Boolean := True) is begin |