diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 4862518137c..05f9713f9da 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2246,13 +2246,13 @@ package body Freeze is and then RM_Size (Rec) >= Scalar_Component_Total_RM_Size - -- Never do implicit packing in CodePeer or ALFA modes since + -- Never do implicit packing in CodePeer or Alfa modes since -- we don't do any packing in these modes, since this generates -- over-complex code that confuses static analysis, and in -- general, neither CodePeer not GNATprove care about the -- internal representation of objects. - and then not (CodePeer_Mode or ALFA_Mode) + and then not (CodePeer_Mode or Alfa_Mode) then -- If implicit packing enabled, do it @@ -3066,7 +3066,7 @@ package body Freeze is and then not Is_Limited_Composite (E) and then not Is_Packed (Root_Type (E)) and then not Has_Component_Size_Clause (Root_Type (E)) - and then not (CodePeer_Mode or ALFA_Mode) + and then not (CodePeer_Mode or Alfa_Mode) then Get_Index_Bounds (First_Index (E), Lo, Hi); |