Differences From Artifact [24525cb69b]:
- File src/natools-s_expressions-atom_buffers.adb — part of check-in [8c650fd927] at 2014-04-12 16:19:43 on branch trunk — natools-references: add support of references to constant (user: nat, size: 6340) [annotate] [blame] [check-ins using]
To Artifact [eb31f6f60f]:
- File src/natools-s_expressions-atom_buffers.adb — part of check-in [43ab20ac63] at 2014-08-09 10:37:32 on branch trunk — s_expressions-atom_buffers: add a capacity accessor (user: nat, size: 6459) [annotate] [blame] [check-ins using]
| ︙ | |||
118 119 120 121 122 123 124 125 126 127 128 129 130 131 | 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | + + + + + + |
function Length (Buffer : Atom_Buffer) return Count is
begin
return Buffer.Used;
end Length;
function Capacity (Buffer : Atom_Buffer) return Count is
begin
return Buffer.Available;
end Capacity;
function Data (Buffer : Atom_Buffer) return Atom is
begin
if Buffer.Ref.Is_Empty then
pragma Assert (Buffer.Available = 0 and Buffer.Used = 0);
return Null_Atom;
else
|
| ︙ |