118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
function Length (Buffer : Atom_Buffer) return Count is
begin
return Buffer.Used;
end Length;
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
|
>
>
>
>
>
>
|
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
|