diff options
Diffstat (limited to 'gcc/ada/s-chepoo.ads')
| -rw-r--r-- | gcc/ada/s-chepoo.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/s-chepoo.ads b/gcc/ada/s-chepoo.ads index 7f614ec67d0..a4a717f80b0 100644 --- a/gcc/ada/s-chepoo.ads +++ b/gcc/ada/s-chepoo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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,13 +31,14 @@ with System.Storage_Elements; with System.Storage_Pools; + package System.Checked_Pools is type Checked_Pool is abstract new System.Storage_Pools.Root_Storage_Pool with private; -- Equivalent of storage pools with the addition that Dereference is -- called on each implicit or explicit dereference of a pointer which - -- has such a storage pool + -- has such a storage pool. procedure Dereference (Pool : in out Checked_Pool; |