Index: gdb/testsuite/gdb.ada/rdv_wait/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/char_enum/pck.ads b/gdb/testsuite/gdb.ada/rdv_wait/pck.ads |
similarity index 79% |
copy from gdb/testsuite/gdb.ada/char_enum/pck.ads |
copy to gdb/testsuite/gdb.ada/rdv_wait/pck.ads |
index 89f7a4ad408489fdb1d0dd313649f908b0c82974..8f88c9d386532f3d26e31fbca69266f75a919fb3 100644 |
--- a/gdb/testsuite/gdb.ada/char_enum/pck.ads |
+++ b/gdb/testsuite/gdb.ada/rdv_wait/pck.ads |
@@ -1,4 +1,4 @@ |
--- Copyright 2011-2012 Free Software Foundation, Inc. |
+-- Copyright 2012-2013 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,9 +13,10 @@ |
-- 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); |
-end Pck; |
+ procedure Break_Me; |
+ -- A procedure doing nothing, but which is a convenient anchor |
+ -- for inserting breakpoints. |
+ |
+end Pck; |