diff options
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 6a6142d4121..39d73027840 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -2832,10 +2832,10 @@ package body Errout is elsif Msg = "size for& too small, minimum allowed is ^" then - -- Suppress "size too small" errors in CodePeer mode, since pragma - -- Pack is also ignored in this configuration. + -- Suppress "size too small" errors in CodePeer mode and ALFA mode, + -- since pragma Pack is also ignored in these configurations. - if CodePeer_Mode then + if CodePeer_Mode or ALFA_Mode then return True; -- When a size is wrong for a frozen type there is no explicit size |