Index: gdb/testsuite/gdb.ada/task_bp/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/ptr_typedef/pck.ads b/gdb/testsuite/gdb.ada/task_bp/pck.ads |
similarity index 92% |
copy from gdb/testsuite/gdb.ada/ptr_typedef/pck.ads |
copy to gdb/testsuite/gdb.ada/task_bp/pck.ads |
index f99df3d19b74bb87001331f1685dd4bfa8d2b315..f0e3ff1936004602ac0fe68fe07917497302c4f9 100644 |
--- a/gdb/testsuite/gdb.ada/ptr_typedef/pck.ads |
+++ b/gdb/testsuite/gdb.ada/task_bp/pck.ads |
@@ -13,7 +13,8 @@ |
-- 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); |
+ task Dummy_Task is |
+ entry Start; |
+ end Dummy_Task; |
end Pck; |