| Index: gdb/testsuite/gdb.ada/task_bp/pck.adb
|
| diff --git a/gdb/testsuite/gdb.ada/ptr_typedef/pck.adb b/gdb/testsuite/gdb.ada/task_bp/pck.adb
|
| similarity index 90%
|
| copy from gdb/testsuite/gdb.ada/ptr_typedef/pck.adb
|
| copy to gdb/testsuite/gdb.ada/task_bp/pck.adb
|
| index f2dfe8d504490314fffdc921a6c54211e92baa2c..c17d67be6602173cda1da3dec784c855934989fc 100644
|
| --- a/gdb/testsuite/gdb.ada/ptr_typedef/pck.adb
|
| +++ b/gdb/testsuite/gdb.ada/task_bp/pck.adb
|
| @@ -14,8 +14,8 @@
|
| -- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
| package body Pck is
|
| - procedure Do_Nothing (A : System.Address) is
|
| + task body Dummy_Task is
|
| begin
|
| - null;
|
| - end Do_Nothing;
|
| + accept Start;
|
| + end Dummy_Task;
|
| end Pck;
|
|
|