gdb/testsuite/gdb.ada/big_packed_array/pck.ads

   1 --  Copyright 2019-2023 Free Software Foundation, Inc.
   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 with System;
  17
  18 package Pck is
  19    type Enum_Idx is
  20       (e_000, e_001, e_002, e_003, e_004, e_005, e_006, e_007, e_008,
  21        e_009, e_010, e_011, e_012, e_013, e_014, e_015, e_016, e_017,
  22        e_018, e_019, e_020, e_021, e_022, e_023, e_024, e_025, e_026,
  23        e_027, e_028, e_029, e_030, e_031, e_032, e_033, e_034, e_035,
  24        e_036, e_037, e_038, e_039, e_040, e_041, e_042, e_043, e_044,
  25        e_045, e_046, e_047, e_048, e_049, e_050, e_051, e_052, e_053,
  26        e_054, e_055, e_056, e_057, e_058, e_059, e_060, e_061, e_062,
  27        e_063, e_064, e_065, e_066, e_067, e_068, e_069, e_070, e_071,
  28        e_072, e_073, e_074, e_075, e_076, e_077, e_078, e_079, e_080,
  29        e_081, e_082, e_083, e_084, e_085, e_086, e_087, e_088, e_089,
  30        e_090, e_091, e_092, e_093, e_094, e_095, e_096, e_097, e_098,
  31        e_099, e_100, e_101, e_102, e_103, e_104, e_105, e_106, e_107,
  32        e_108, e_109, e_110, e_111, e_112, e_113, e_114, e_115, e_116,
  33        e_117, e_118, e_119, e_120, e_121, e_122, e_123, e_124, e_125,
  34        e_126, e_127, e_128, e_129, e_130, e_131, e_132, e_133, e_134,
  35        e_135, e_136, e_137, e_138, e_139, e_140, e_141, e_142, e_143,
  36        e_144, e_145, e_146, e_147, e_148, e_149, e_150, e_151, e_152,
  37        e_153, e_154, e_155, e_156, e_157, e_158, e_159, e_160, e_161,
  38        e_162, e_163, e_164, e_165, e_166, e_167, e_168, e_169, e_170,
  39        e_171, e_172, e_173, e_174, e_175, e_176, e_177, e_178, e_179,
  40        e_180, e_181, e_182, e_183, e_184, e_185, e_186, e_187, e_188,
  41        e_189, e_190, e_191, e_192, e_193, e_194, e_195);
  42
  43    type PA is array (Enum_Idx) of Boolean;
  44    pragma Pack (PA);
  45
  46    type T is array (Enum_Idx) of Boolean;
  47    pragma Pack (T);
  48    T_Empty : constant T := (others => False);
  49
  50    type Bad_Packed_Table is new T;
  51
  52    Procedure Do_Nothing (A : System.Address);
  53 end Pck;