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; |
- |