| Index: gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb
|
| diff --git a/gdb/testsuite/gdb.ada/rec_return/foo.adb b/gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb
|
| similarity index 82%
|
| copy from gdb/testsuite/gdb.ada/rec_return/foo.adb
|
| copy to gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb
|
| index 3f24fc5b8be67f13da286fade56b5f226725b272..a8a0b916ddad1ca6ece1ec4904237b22b2fe8d53 100644
|
| --- a/gdb/testsuite/gdb.ada/rec_return/foo.adb
|
| +++ b/gdb/testsuite/gdb.ada/enum_idx_packed/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,9 +16,9 @@
|
| with Pck; use Pck;
|
|
|
| procedure Foo is
|
| - Q: Rec;
|
| + Full : Full_Table := (False, True, False, True, False);
|
| begin
|
| - Q := Bar; -- STOP HERE
|
| - Do_Nothing (Q'Address);
|
| + Do_Nothing (Full'Address); -- STOP
|
| end Foo;
|
|
|
| +
|
|
|