Skip to content

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

* sem_ch3.adb: Minor reformatting 

From-SVN: r135991
parent c7867d82
Showing with 4 additions and 4 deletions
gcc/ada/sem_ch3.adb
...@@ -13054,7 +13054,7 @@ package body Sem_Ch3 is ...@@ -13054,7 +13054,7 @@ package body Sem_Ch3 is
Prev_Par : Node_Id; Prev_Par : Node_Id;
procedure Tag_Mismatch; procedure Tag_Mismatch;
-- Diagnose a tagged partial view whose full view is untagged; -- Diagnose a tagged partial view whose full view is untagged.
-- We post the message on the full view, with a reference to -- We post the message on the full view, with a reference to
-- the previous partial view. The partial view can be private -- the previous partial view. The partial view can be private
-- or incomplete, and these are handled in a different manner, -- or incomplete, and these are handled in a different manner,
...@@ -13235,9 +13235,9 @@ package body Sem_Ch3 is ...@@ -13235,9 +13235,9 @@ package body Sem_Ch3 is
end if; end if;
-- A prior untagged partial view can have an associated class-wide -- A prior untagged partial view can have an associated class-wide
-- type due to use of the class attribute, and in this case also the -- type due to use of the class attribute, and in this case the full
-- full type is required to be tagged. This Ada95 usage is deprecated -- type must also be tagged. This Ada 95 usage is deprecated in favor
-- in favor of incomplete tagged declarations but we check for it. -- of incomplete tagged declarations, but we check for it.
if Is_Type (Prev) if Is_Type (Prev)
and then (Is_Tagged_Type (Prev) and then (Is_Tagged_Type (Prev)
......
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