]>
Commit | Line | Data |
---|---|---|
1d506c26 | 1 | -- Copyright 2023-2024 Free Software Foundation, Inc. |
26568747 TV |
2 | -- |
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. | |
7 | -- | |
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. | |
12 | -- | |
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/>. | |
15 | ||
16 | package body Pck is | |
8f11ec2d | 17 | subtype Small_Int is Integer range 0 .. 7; |
26568747 TV |
18 | type My_Int is range -2147483648 .. 2147483647; |
19 | ||
20 | #if CRASHGDB = 16 | |
21 | type Index is range 1 .. 16; | |
22 | #end if; | |
23 | #if CRASHGDB = 32 | |
24 | type Index is range 1 .. 32; | |
25 | #end if; | |
26 | #if CRASHGDB = 64 | |
27 | type Index is range 1 .. 64; | |
28 | #end if; | |
29 | #if CRASHGDB = 128 | |
30 | type Index is range 1 .. 128; | |
31 | #end if; | |
32 | #if CRASHGDB = 256 | |
33 | type Index is range 1 .. 256; | |
34 | #end if; | |
35 | #if CRASHGDB = 512 | |
36 | type Index is range 1 .. 512; | |
37 | #end if; | |
38 | #if CRASHGDB = 1024 | |
39 | type Index is range 1 .. 1024; | |
40 | #end if; | |
41 | #if CRASHGDB = 2048 | |
42 | type Index is range 1 .. 2048; | |
43 | #end if; | |
44 | #if CRASHGDB = 4096 | |
45 | type Index is range 1 .. 4096; | |
46 | #end if; | |
47 | #if CRASHGDB = 8192 | |
48 | type Index is range 1 .. 8192; | |
49 | #end if; | |
50 | #if CRASHGDB = 16384 | |
51 | type Index is range 1 .. 16384; | |
52 | #end if; | |
53 | #if CRASHGDB = 32768 | |
54 | type Index is range 1 .. 32768; | |
55 | #end if; | |
56 | #if CRASHGDB = 65536 | |
57 | type Index is range 1 .. 65536; | |
58 | #end if; | |
59 | #if CRASHGDB = 131072 | |
60 | type Index is range 1 .. 131072; | |
61 | #end if; | |
62 | #if CRASHGDB = 262144 | |
63 | type Index is range 1 .. 262144; | |
64 | #end if; | |
65 | #if CRASHGDB = 524288 | |
66 | type Index is range 1 .. 524288; | |
67 | #end if; | |
68 | #if CRASHGDB = 1048576 | |
69 | type Index is range 1 .. 1048576; | |
70 | #end if; | |
71 | #if CRASHGDB = 2097152 | |
72 | type Index is range 1 .. 2097152; | |
73 | #end if; | |
74 | ||
75 | type My_Int_Array is | |
76 | array (Index) of My_Int; | |
77 | Arr : My_Int_Array := (others => 0); | |
78 | ||
8f11ec2d TT |
79 | type My_Packed_Array is array (Index) of Small_Int; |
80 | pragma Pack (My_Packed_Array); | |
81 | ||
82 | Packed_Arr : My_Packed_Array := (others => 0); | |
83 | ||
26568747 TV |
84 | procedure Foo is |
85 | begin | |
86 | null; | |
87 | end Foo; | |
88 | end Pck; |