Skip to content

R
riscv-gcc-1
Commit 59705c38 by Arnaud Charlet
Options

a-filico.ads, [...]: fix incorrect header. 

	* a-filico.ads, a-filico.adb: fix incorrect header.
	* a-ststio.ads: Fix typo in identifier
	* sem_ch4.adb: Minor reformatting.

From-SVN: r89644
parent 910a2e4d
Showing with 7 additions and 7 deletions
gcc/ada/a-filico.adb
...@@ -2,11 +2,11 @@ ...@@ -2,11 +2,11 @@
-- -- -- --
-- GNAT COMPILER COMPONENTS -- -- GNAT COMPILER COMPONENTS --
-- -- -- --
-- S Y S T E M . L I S T _ F I N A L I Z A T I O N -- -- A D A . F I N A L I Z A T I O N . L I S T _ C O N T R O L L E R --
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
......
gcc/ada/a-filico.ads
...@@ -4,9 +4,9 @@ ...@@ -4,9 +4,9 @@
-- -- -- --
-- A D A . F I N A L I Z A T I O N . L I S T _ C O N T R O L L E R -- -- A D A . F I N A L I Z A T I O N . L I S T _ C O N T R O L L E R --
-- -- -- --
-- B o d y -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- Copyright (C) 1992-1997, 2004 Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
......
gcc/ada/a-ststio.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -51,7 +51,7 @@ package Ada.Streams.Stream_IO is ...@@ -51,7 +51,7 @@ package Ada.Streams.Stream_IO is
-- used in this package and System.File_IO. -- used in this package and System.File_IO.
for File_Mode use for File_Mode use
(In_File => 0, -- System.FIle_IO.File_Mode'Pos (In_File) (In_File => 0, -- System.File_IO.File_Mode'Pos (In_File)
Out_File => 2, -- System.File_IO.File_Mode'Pos (Out_File) Out_File => 2, -- System.File_IO.File_Mode'Pos (Out_File)
Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File)
......
gcc/ada/sem_ch4.adb
...@@ -1603,7 +1603,7 @@ package body Sem_Ch4 is ...@@ -1603,7 +1603,7 @@ package body Sem_Ch4 is
then then
U_N := Entity (P); U_N := Entity (P);
if Ekind (U_N) in Type_Kind then if Ekind (U_N) in Type_Kind then
-- Reformat node as a type conversion -- Reformat node as a type conversion
......
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