vss_24.0.0_b4d0be7c/source/streams/implementation/vss-stream_element_vectors-internals.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
--
--  Copyright (C) 2020-2022, AdaCore
--
--  SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
--

--  @private
--
--  This package is for internal use only.

with Ada.Streams;

package VSS.Stream_Element_Vectors.Internals is

   pragma Preelaborate;

   type Stream_Element_Array_Access is
     access constant Ada.Streams.Stream_Element_Array
                      (1 .. Ada.Streams.Stream_Element_Offset'Last);

   procedure Data_Constant_Access
     (Self    : Stream_Element_Vector'Class;
      Length  : out Ada.Streams.Stream_Element_Count;
      Storage : out Stream_Element_Array_Access);

end VSS.Stream_Element_Vectors.Internals;