Commit b9e48541 by Arnaud Charlet

Minor reformatting.

From-SVN: r177106
parent 7394c8cc
...@@ -2064,7 +2064,7 @@ package body Sem_Attr is ...@@ -2064,7 +2064,7 @@ package body Sem_Attr is
end if; end if;
-- In SPARK or ALFA, attributes of private types are only allowed 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 if Formal_Verification_Mode
and then Comes_From_Source (Original_Node (N)) and then Comes_From_Source (Original_Node (N))
......
...@@ -7613,8 +7613,8 @@ package body Sem_Res is ...@@ -7613,8 +7613,8 @@ package body Sem_Res is
("string operand for concatenation should be a literal", N); ("string operand for concatenation should be a literal", N);
end if; end if;
-- Do not issue error on an operand that is neither a character nor -- Do not issue error on an operand that is neither a character nor a
-- a string, as the error is issued in Resolve_Op_Concat. -- string, as the error is issued in Resolve_Op_Concat.
else else
null; 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