| Index: gdb/testsuite/gdb.ada/enum_idx_packed/pck.ads
|
| diff --git a/gdb/testsuite/gdb.ada/same_enum/pck.ads b/gdb/testsuite/gdb.ada/enum_idx_packed/pck.ads
|
| similarity index 86%
|
| copy from gdb/testsuite/gdb.ada/same_enum/pck.ads
|
| copy to gdb/testsuite/gdb.ada/enum_idx_packed/pck.ads
|
| index 9b5cc5de389b62e9885cc8bb016ca1e7956634a0..cba9eda95eb2cdaf9de2c4432c8d149c8354d7e7 100644
|
| --- a/gdb/testsuite/gdb.ada/same_enum/pck.ads
|
| +++ b/gdb/testsuite/gdb.ada/enum_idx_packed/pck.ads
|
| @@ -1,4 +1,4 @@
|
| --- Copyright 2011-2012 Free Software Foundation, Inc.
|
| +-- Copyright 2012 Free Software Foundation, Inc.
|
| --
|
| -- This program is free software; you can redistribute it and/or modify
|
| -- it under the terms of the GNU General Public License as published by
|
| @@ -14,11 +14,10 @@
|
| -- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
| with System;
|
| -
|
| package Pck is
|
| type Color is (Black, Red, Green, Blue, White);
|
| - type RGB_Color is new Color range Red .. Blue;
|
| + type Full_Table is array (Color) of Boolean;
|
| + pragma Pack (Full_Table);
|
|
|
| procedure Do_Nothing (A : System.Address);
|
| end Pck;
|
| -
|
|
|