Index: gdb/testsuite/gdb.ada/bp_enum_homonym/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/print_chars/pck.ads b/gdb/testsuite/gdb.ada/bp_enum_homonym/pck.ads |
similarity index 82% |
copy from gdb/testsuite/gdb.ada/print_chars/pck.ads |
copy to gdb/testsuite/gdb.ada/bp_enum_homonym/pck.ads |
index 9bfe2ed30163cf43990abe878fc040db728f92cb..2a0c60626840bc598b078d0fe1a8fc5bbbcaa8f7 100644 |
--- a/gdb/testsuite/gdb.ada/print_chars/pck.ads |
+++ b/gdb/testsuite/gdb.ada/bp_enum_homonym/pck.ads |
@@ -1,4 +1,4 @@ |
--- Copyright 2007-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 |
@@ -13,10 +13,11 @@ |
-- You should have received a copy of the GNU General Public License |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
-with System; |
- |
package Pck is |
- procedure Do_Nothing (A : System.Address); |
+ procedure Archive; |
+ |
+ type Action is (Archive, Extract); |
+ function Get_Action return Action; |
end Pck; |