OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s-ficobl.ads: Declare AFCB as a tagged incomplete type...

Browse Source 
2007-08-14  Ed Schonberg  <schonberg@adacore.com>

	* s-ficobl.ads: Declare AFCB as a tagged incomplete type, to prevent
	obsolescent warning on application of 'Class to an incomplete type.

	* s-finroo.ads: Declare Root_Controlled as a tagged incomplete type, to
	prevent obsolescent warning on application of 'Class to an incomplete
	type.

From-SVN: r127460
This commit is contained in:
Ed Schonberg 2007-08-14 10:49:26 +02:00 committed by Arnaud Charlet
parent f9c0d38ccd
commit b1b1010fb7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/s-ficobl.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- 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- --
@ -78,7 +78,7 @@ package System.File_Control_Block is
-- stream with the semantics specified in the RM for file sharing. All
-- files opened with "shared=no" will have their own stream.
type AFCB;
type AFCB is tagged;
type AFCB_Ptr is access all AFCB'Class;
type AFCB is abstract new Ada.Streams.Root_Stream_Type with record

2
gcc/ada/s-finroo.ads
View File

@ -39,7 +39,7 @@ with Ada.Unchecked_Conversion;
package System.Finalization_Root is
pragma Preelaborate;
type Root_Controlled;
type Root_Controlled is tagged;
type Finalizable_Ptr is access all Root_Controlled'Class;