Skip to content

R
riscv-gcc-1
Commit c16fa01e by Arnaud Charlet
Options

Code clean up. 

From-SVN: r247213
parent 7738270b
Showing with 0 additions and 6 deletions
gcc/ada/contracts.adb
...@@ -878,12 +878,6 @@ package body Contracts is ...@@ -878,12 +878,6 @@ package body Contracts is
then then
Error_Msg_N Error_Msg_N
("discriminated object & cannot be volatile", Obj_Id); ("discriminated object & cannot be volatile", Obj_Id);
-- An object of a tagged type cannot be effectively volatile
-- (SPARK RM C.6(5)).
elsif Is_Tagged_Type (Obj_Typ) then
Error_Msg_N ("tagged object & cannot be volatile", Obj_Id);
end if; end if;
-- The object is not effectively volatile -- The object is not effectively volatile
......
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