OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [s-spsufi.adb] - Blame information for rev 827

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                         GNAT COMPILER COMPONENTS                         --
4
--                                                                          --
5
--        S Y S T E M . S T O R A G E _ P O O L S . S U B P O O L S .       --
6
--                          F I N A L I Z A T I O N                         --
7
--                                                                          --
8
--                                 B o d y                                  --
9
--                                                                          --
10
--             Copyright (C) 2011, Free Software Foundation, Inc.           --
11
--                                                                          --
12
-- GNAT is free software;  you can  redistribute it  and/or modify it under --
13
-- terms of the  GNU General Public License as published  by the Free Soft- --
14
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
15
-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
16
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
17
-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
18
--                                                                          --
19
-- As a special exception under Section 7 of GPL version 3, you are granted --
20
-- additional permissions described in the GCC Runtime Library Exception,   --
21
-- version 3.1, as published by the Free Software Foundation.               --
22
--                                                                          --
23
-- You should have received a copy of the GNU General Public License and    --
24
-- a copy of the GCC Runtime Library Exception along with this program;     --
25
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
26
-- <http://www.gnu.org/licenses/>.                                          --
27
--                                                                          --
28
-- GNAT was originally developed  by the GNAT team at  New York University. --
29
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
30
--                                                                          --
31
------------------------------------------------------------------------------
32
 
33
package body System.Storage_Pools.Subpools.Finalization is
34
 
35
   -----------------------------
36
   -- Finalize_And_Deallocate --
37
   -----------------------------
38
 
39
   procedure Finalize_And_Deallocate (Subpool : in out Subpool_Handle) is
40
   begin
41
      --  Do nothing if the subpool was never created or never used. The latter
42
      --  case may arise with an array of subpool implementations.
43
 
44
      if Subpool = null
45
        or else Subpool.Owner = null
46
        or else Subpool.Node = null
47
      then
48
         return;
49
      end if;
50
 
51
      --  Clean up all controlled objects allocated through the subpool
52
 
53
      Finalize_Subpool (Subpool);
54
 
55
      --  Dispatch to the user-defined implementation of Deallocate_Subpool
56
 
57
      Deallocate_Subpool (Pool_Of_Subpool (Subpool).all, Subpool);
58
 
59
      Subpool := null;
60
   end Finalize_And_Deallocate;
61
 
62
end System.Storage_Pools.Subpools.Finalization;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.