diff options
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 58ae0456..033b60f 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1550,14 +1550,6 @@ package body Sinfo is return Flag7 (N); end Is_Asynchronous_Call_Block; - function Is_Coextension - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Allocator); - return Flag18 (N); - end Is_Coextension; - function Is_Component_Left_Opnd (N : Node_Id) return Boolean is begin @@ -1582,6 +1574,14 @@ package body Sinfo is return Flag16 (N); end Is_Controlling_Actual; + function Is_Dynamic_Coextension + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Allocator); + return Flag18 (N); + end Is_Dynamic_Coextension; + function Is_Entry_Barrier_Function (N : Node_Id) return Boolean is begin @@ -4249,14 +4249,6 @@ package body Sinfo is Set_Flag7 (N, Val); end Set_Is_Asynchronous_Call_Block; - procedure Set_Is_Coextension - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Allocator); - Set_Flag18 (N, Val); - end Set_Is_Coextension; - procedure Set_Is_Component_Left_Opnd (N : Node_Id; Val : Boolean := True) is begin @@ -4281,6 +4273,14 @@ package body Sinfo is Set_Flag16 (N, Val); end Set_Is_Controlling_Actual; + procedure Set_Is_Dynamic_Coextension + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Allocator); + Set_Flag18 (N, Val); + end Set_Is_Dynamic_Coextension; + procedure Set_Is_Entry_Barrier_Function (N : Node_Id; Val : Boolean := True) is begin |