Natools

Check-in [f3bcd34a8a]
Login
Overview
Comment:s_expressions-atom_buffers: use Natools.Storage_Pools instead of local dummy access type
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f3bcd34a8ade650831675785af905e88d1ade745
User & Date: nat on 2014-04-02 20:33:55
Other Links: manifest | tags
Context
2014-04-03
20:21
Adjustments to pass GNAT 4.9 compilatiion without warning check-in: b8364499b7 user: nat tags: trunk
2014-04-02
20:33
s_expressions-atom_buffers: use Natools.Storage_Pools instead of local dummy access type check-in: f3bcd34a8a user: nat tags: trunk
2014-04-01
20:58
s_expressions-parsers: catch up with new version in overview comment check-in: a4503d0ae7 user: nat tags: trunk
Changes

Modified src/natools-s_expressions-atom_buffers.ads from [7705bae62c] to [8b05d08348].

19
20
21
22
23
24
25

26
27
28
29
30
31
32
33
34



35
36
37
38
39
40
41
19
20
21
22
23
24
25
26
27
28
29
30



31

32
33
34
35
36
37
38
39
40
41







+




-
-
-

-
+
+
+







-- to be used as an input buffer, accumulating data and extracting it as a  --
-- single Atom object.                                                      --
-- It also provides an individual Octet accessor, used in parser internal   --
-- recursive buffer.                                                        --
------------------------------------------------------------------------------

with Natools.References;
with Natools.Storage_Pools;

package Natools.S_Expressions.Atom_Buffers is
   pragma Preelaborate (Atom_Buffers);

   type Dummy_Access is access Boolean;
      --  Used to access default storage pool

   package Atom_Refs is new Natools.References
     (Atom, Dummy_Access'Storage_Pool, Dummy_Access'Storage_Pool);
     (Atom,
      Storage_Pools.Access_In_Default_Pool'Storage_Pool,
      Storage_Pools.Access_In_Default_Pool'Storage_Pool);

   type Atom_Buffer is tagged private;

   procedure Preallocate (Buffer : in out Atom_Buffer; Length : in Count);
      --  Preallocate enough memory to append Length octets without
      --  any further allocation.