| Index: gdb/testsuite/gdb.ada/bp_on_var/pck.ads
|
| diff --git a/gdb/testsuite/gdb.ada/atomic_enum/pck.ads b/gdb/testsuite/gdb.ada/bp_on_var/pck.ads
|
| similarity index 83%
|
| copy from gdb/testsuite/gdb.ada/atomic_enum/pck.ads
|
| copy to gdb/testsuite/gdb.ada/bp_on_var/pck.ads
|
| index b46b582c695a5733ea39b88620a5143dcacea605..af77fd575cbdce2ecb8bb792acc475c6f208bf44 100644
|
| --- a/gdb/testsuite/gdb.ada/atomic_enum/pck.ads
|
| +++ b/gdb/testsuite/gdb.ada/bp_on_var/pck.ads
|
| @@ -1,4 +1,4 @@
|
| --- Copyright 2008-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,8 +14,7 @@
|
| -- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
| package Pck is
|
| -
|
| - procedure Increment;
|
| - function Is_First return Boolean;
|
| -
|
| + My_Global_Variable : Integer := 11;
|
| + procedure Do_Something (I : in out Integer);
|
| end Pck;
|
| +
|
|
|