Merge GDB 7.5.1

gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.ads

Index: gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.ads
diff --git a/gdb/testsuite/gdb.ada/arrayptr/pck.ads b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.ads
similarity index 75%
copy from gdb/testsuite/gdb.ada/arrayptr/pck.ads
copy to gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.ads
index e331e60df90b22175dfa9dfa48487b6fcaf53135..6be95e2cbce5037e707aa1eb25bd2b2a375435e6 100644
--- a/gdb/testsuite/gdb.ada/arrayptr/pck.ads
+++ b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/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
@@ -13,10 +13,10 @@
 --  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 System;
-
 package Pck is
+   type Small is new Integer range 0 .. 2 ** 6 - 1;
+   type Simple_Array is array (1 .. 4) of Small;
+   pragma Pack (Simple_Array);
 
-   procedure Do_Nothing (A : System.Address);
-
+   procedure Update_Small (S : in out Small);
 end Pck;