diff options
Diffstat (limited to 'gcc/ada/s-finroo.ads')
| -rw-r--r-- | gcc/ada/s-finroo.ads | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/ada/s-finroo.ads b/gcc/ada/s-finroo.ads index 9d620f1e534..c4d35567d5f 100644 --- a/gcc/ada/s-finroo.ads +++ b/gcc/ada/s-finroo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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 -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,7 +31,11 @@ -- -- ------------------------------------------------------------------------------ +-- This unit provides the basic support for controlled (finalizable) types + with Ada.Streams; +with Unchecked_Conversion; + package System.Finalization_Root is pragma Preelaborate (Finalization_Root); @@ -39,6 +43,12 @@ pragma Preelaborate (Finalization_Root); type Finalizable_Ptr is access all Root_Controlled'Class; + function To_Finalizable_Ptr is + new Unchecked_Conversion (Address, Finalizable_Ptr); + + function To_Addr is + new Unchecked_Conversion (Finalizable_Ptr, Address); + type Empty_Root_Controlled is abstract tagged null record; -- Just for the sake of Controlled equality (see Ada.Finalization) |