Commit b9e48541 by Arnaud Charlet

Minor reformatting.

From-SVN: r177106
parent 7394c8cc
......@@ -2064,7 +2064,7 @@ package body Sem_Attr is
end if;
-- In SPARK or ALFA, attributes of private types are only allowed if
-- the full type declaration is visible
-- the full type declaration is visible.
if Formal_Verification_Mode
and then Comes_From_Source (Original_Node (N))
......
......@@ -7613,8 +7613,8 @@ package body Sem_Res is
("string operand for concatenation should be a literal", N);
end if;
-- Do not issue error on an operand that is neither a character nor
-- a string, as the error is issued in Resolve_Op_Concat.
-- Do not issue error on an operand that is neither a character nor a
-- string, as the error is issued in Resolve_Op_Concat.
else
null;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment