| Index: gdb/testsuite/gdb.ada/O2_float_param/callee.ads
|
| diff --git a/gdb/testsuite/gdb.ada/bp_on_var/foo.adb b/gdb/testsuite/gdb.ada/O2_float_param/callee.ads
|
| similarity index 82%
|
| copy from gdb/testsuite/gdb.ada/bp_on_var/foo.adb
|
| copy to gdb/testsuite/gdb.ada/O2_float_param/callee.ads
|
| index 56b75fc61bd10bfe8d44ef74be4775cb612f9604..92d97c3add38589caaada0b0a550c3ed8b9d0615 100644
|
| --- a/gdb/testsuite/gdb.ada/bp_on_var/foo.adb
|
| +++ b/gdb/testsuite/gdb.ada/O2_float_param/callee.ads
|
| @@ -1,4 +1,4 @@
|
| --- Copyright 2012 Free Software Foundation, Inc.
|
| +-- Copyright 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,8 +13,6 @@
|
| -- 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 Pck; use Pck;
|
| -procedure Foo is
|
| -begin
|
| - Do_Something (My_Global_Variable);
|
| -end Foo;
|
| +package Callee is
|
| + procedure Increment (Val : in out Float; Msg : String);
|
| +end Callee;
|
|
|