1with Interfaces.C; use Interfaces.C;
2with System;
3
4package Warn12_Pkg is
5
6   Anysize_Array: constant := 0;
7
8   type Sid_And_Attributes is record
9      Sid        : System.Address;
10      Attributes : Interfaces.C.Unsigned_Long;
11   end record;
12
13   type Sid_And_Attributes_Array
14      is array (Integer range 0..Anysize_Array) of aliased Sid_And_Attributes;
15
16   type Token_Groups is record
17      GroupCount : Interfaces.C.Unsigned_Long;
18      Groups     : Sid_And_Attributes_Array;
19   end record;
20
21end Warn12_Pkg;
22