diff options
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 72e3a521..269e9ff 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -3388,13 +3388,6 @@ package body Sem_Ch5 is -- The following exception is raised by routine Prepare_Loop_Statement -- to avoid further analysis of a transformed loop. - function Disable_Constant (N : Node_Id) return Traverse_Result; - -- If N represents an E_Variable entity, set Is_True_Constant To False - - procedure Disable_Constants is new Traverse_Proc (Disable_Constant); - -- Helper for Analyze_Loop_Statement, to unset Is_True_Constant on - -- variables referenced within an OpenACC construct. - procedure Prepare_Loop_Statement (Iter : Node_Id; Stop_Processing : out Boolean); @@ -3402,22 +3395,6 @@ package body Sem_Ch5 is -- transformed prior to analysis, and if so, perform it. -- If Stop_Processing is set to True, should stop further processing. - ---------------------- - -- Disable_Constant -- - ---------------------- - - function Disable_Constant (N : Node_Id) return Traverse_Result is - begin - if Is_Entity_Name (N) - and then Present (Entity (N)) - and then Ekind (Entity (N)) = E_Variable - then - Set_Is_True_Constant (Entity (N), False); - end if; - - return OK; - end Disable_Constant; - ---------------------------- -- Prepare_Loop_Statement -- ---------------------------- @@ -4035,15 +4012,6 @@ package body Sem_Ch5 is if No (Iter) and then not Has_Exit (Ent) then Check_Unreachable_Code (Stmt); end if; - - -- Variables referenced within a loop subject to possible OpenACC - -- offloading may be implicitly written to as part of the OpenACC - -- transaction. Clear flags possibly conveying that they are constant, - -- set for example when the code does not explicitly assign them. - - if Is_OpenAcc_Environment (Stmt) then - Disable_Constants (Stmt); - end if; end Analyze_Loop_Statement; ---------------------------- |