diff options
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 5576645..85b5bb8 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -523,11 +523,11 @@ package body Exp_Ch5 is elsif Has_Controlled_Component (L_Type) then Loop_Required := True; - -- If object is atomic/VFA, we cannot tolerate a loop + -- If object is full access, we cannot tolerate a loop - elsif Is_Atomic_Or_VFA_Object (Act_Lhs) + elsif Is_Full_Access_Object (Act_Lhs) or else - Is_Atomic_Or_VFA_Object (Act_Rhs) + Is_Full_Access_Object (Act_Rhs) then return; @@ -536,8 +536,8 @@ package body Exp_Ch5 is elsif Has_Atomic_Components (L_Type) or else Has_Atomic_Components (R_Type) - or else Is_Atomic_Or_VFA (Component_Type (L_Type)) - or else Is_Atomic_Or_VFA (Component_Type (R_Type)) + or else Is_Full_Access (Component_Type (L_Type)) + or else Is_Full_Access (Component_Type (R_Type)) then Loop_Required := True; |