1 -- Copyright 2018-2020 Free Software Foundation, Inc.
3 -- This program is free software; you can redistribute it and/or modify
4 -- it under the terms of the GNU General Public License as published by
5 -- the Free Software Foundation; either version 3 of the License, or
6 -- (at your option) any later version.
8 -- This program is distributed in the hope that it will be useful,
9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 -- GNU General Public License for more details.
13 -- You should have received a copy of the GNU General Public License
14 -- along with this program. If not, see <http://www.gnu.org/licenses/>.
16 package Enum_With_Gap is
18 type Enum_With_Gaps is
27 for Enum_With_Gaps use
35 for Enum_With_Gaps'size use 16;
37 type Enum_Subrange is new Enum_With_Gaps range Lit1 .. Lit3;
39 type MyWord is range 0 .. 16#FFFF# ;
40 for MyWord'Size use 16;
42 type AR is array (Enum_With_Gaps range <>) of MyWord;
43 type AR_Access is access AR;
45 type String_Access is access String;
47 procedure Do_Nothing (E : AR_Access);
48 procedure Do_Nothing (E : String_Access);