Subversion Repositories openrisc_2011-10-31

------------------------------------------------------------------------------

------------------------------------------------------------------------------

--                                                                          --

--                                                                          --

--                         GNAT COMPILER COMPONENTS                         --

--                         GNAT COMPILER COMPONENTS                         --

--                                                                          --

--                                                                          --

--               U N C H E C K E D _ D E A L L O C A T I O N                --

--               U N C H E C K E D _ D E A L L O C A T I O N                --

--                                                                          --

--                                                                          --

--                                 S p e c                                  --

--                                 S p e c                                  --

--                                                                          --

--                                                                          --

-- 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.  In accordance with the copyright of that document, you can freely --

-- GNAT.  In accordance with the copyright of that document, you can freely --

-- copy and modify this specification,  provided that if you redistribute a --

-- copy and modify this specification,  provided that if you redistribute a --

-- modified version,  any changes that you have made are clearly indicated. --

-- modified version,  any changes that you have made are clearly indicated. --

--                                                                          --

--                                                                          --

------------------------------------------------------------------------------

------------------------------------------------------------------------------

generic

generic

   type Object (<>) is limited private;

   type Object (<>) is limited private;

   type Name is access Object;

   type Name is access Object;

procedure Unchecked_Deallocation (X : in out Name);

procedure Unchecked_Deallocation (X : in out Name);

pragma Import (Intrinsic, Unchecked_Deallocation);

pragma Import (Intrinsic, Unchecked_Deallocation);