File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -3219,10 +3219,10 @@ package body Errout is
3219
3219
-- compilation. Even when the configurations match, this message
3220
3220
-- may be issued on correct code, because pragma Pack is ignored
3221
3221
-- in CodePeer mode.
3222
- -- TJJ 5-may -2020 ASVAT: It seems that SPARK and gnat2goto
3222
+ -- TJJ 05-May -2020 ASVAT: It seems that SPARK and gnat2goto
3223
3223
-- also generate this message and abort compilation even if
3224
- -- a composite type is not packed even if the configuration
3225
- -- pragma Implicit_Packing (or Profile (Rational)) is applied.
3224
+ -- the configuration pragma Implicit_Packing
3225
+ -- (or Profile (Rational)) is applied.
3226
3226
-- So, Gnatprove_Mode added to the test below.
3227
3227
3228
3228
if CodePeer_Mode or GNATprove_Mode then
You can’t perform that action at this time.
0 commit comments