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
-- --
-- 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- --
-- 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
package System.Finalization_Root is
pragma Preelaborate;
- type Root_Controlled;
+ type Root_Controlled is tagged;
type Finalizable_Ptr is access all Root_Controlled'Class;