diff options
Diffstat (limited to 'gcc/ada/g-arrspl.ads')
-rw-r--r-- | gcc/ada/g-arrspl.ads | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gcc/ada/g-arrspl.ads b/gcc/ada/g-arrspl.ads index ac71af5a4bc..fa7e6603c14 100644 --- a/gcc/ada/g-arrspl.ads +++ b/gcc/ada/g-arrspl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2002-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2013, 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- -- @@ -157,8 +157,6 @@ private type Element_Access is access Element_Sequence; - type Counter is access Natural; - type Indexes_Access is access Separators_Indexes; type Slice_Info is record @@ -172,13 +170,18 @@ private -- All indexes for fast access to slices. In the Slice_Set we keep only -- the original array and the indexes where each slice start and stop. - type Slice_Set is new Ada.Finalization.Controlled with record - Ref_Counter : Counter; -- Reference counter, by-address sem + type Data is record + Ref_Counter : Natural; -- Reference counter, by-address sem Source : Element_Access; N_Slice : Slice_Number := 0; -- Number of slices found Indexes : Indexes_Access; Slices : Slices_Access; end record; + type Data_Access is access all Data; + + type Slice_Set is new Ada.Finalization.Controlled with record + D : Data_Access; + end record; procedure Initialize (S : in out Slice_Set); procedure Adjust (S : in out Slice_Set); |