| Index: gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb
|
| diff --git a/gdb/testsuite/gdb.ada/call_pn/foo.adb b/gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb
|
| similarity index 85%
|
| copy from gdb/testsuite/gdb.ada/call_pn/foo.adb
|
| copy to gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb
|
| index e8e8e3df1bc1766d35afe26b596cadef37aa238f..8f29709a210f435543ea1b609dfc4affeb3b4316 100644
|
| --- a/gdb/testsuite/gdb.ada/call_pn/foo.adb
|
| +++ b/gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb
|
| @@ -1,4 +1,4 @@
|
| --- Copyright 2010-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
|
| @@ -16,8 +16,7 @@
|
| with Pck; use Pck;
|
|
|
| procedure Foo is
|
| - New_Node : Node_Id;
|
| + GV : Integer renames Pck.Global_Variable;
|
| begin
|
| - New_Node := Pn (1234); -- STOP
|
| + Increment (GV); -- STOP
|
| end Foo;
|
| -
|
|
|