* gdb.ada/Makefile.in (EXECUTABLES): Update list.
authorJoel Brobecker <brobecker@gnat.com>
Wed, 26 Dec 2007 14:21:53 +0000 (14:21 +0000)
committerJoel Brobecker <brobecker@gnat.com>
Wed, 26 Dec 2007 14:21:53 +0000 (14:21 +0000)
        * gdb.ada/char_param.exp: Do not compile our test program with
        -gnata, this is unnecessary.
        * gdb.ada/char_param/pck.ads: Remove unnecessary "with".

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.ada/Makefile.in
gdb/testsuite/gdb.ada/char_param.exp
gdb/testsuite/gdb.ada/char_param/pck.ads

index 3b816aa..8f561e4 100644 (file)
@@ -1,3 +1,10 @@
+2007-12-26  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/Makefile.in (EXECUTABLES): Update list.
+       * gdb.ada/char_param.exp: Do not compile our test program with
+       -gnata, this is unnecessary.
+       * gdb.ada/char_param/pck.ads: Remove unnecessary "with".
+
 2007-12-24  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.ada/print_chars/pck.ads, gdb.ada/print_chars/pck.adb,
@@ -39,7 +46,6 @@
        * gdb.base/expand-psymtabs.exp: New testcase
        expect file.
 
-
 2007-12-17  Luis Machado  <luisgpm@br.ibm.com>
 
        * testsuite/gdb.base/watch_thread_num.c: New testcase source file.
index 3d2a99c..cbde096 100644 (file)
@@ -1,7 +1,21 @@
 VPATH = @srcdir@
 srcdir = @srcdir@
 
-EXECUTABLES = null_record/null_record fixed_points/fixed_points
+EXECUTABLES = \
+  array_return/p \
+  arrayidx/p \
+  catch_ex/foo \
+  char_param/foo \
+  exec_changed/common \
+  exec_changed/first \
+  exec_changed/second \
+  fixed_points/fixed_points \
+  frame_args/foo \
+  null_record/null_record \
+  packed_array/pa \
+  print_chars/foo \
+  start/dummy \
+  watch_arg/watch
 
 MISCELLANEOUS =
 
index cb66d0e..d1ad947 100644 (file)
@@ -25,7 +25,7 @@ set srcfile ${srcdir}/${subdir}/${testfile}.adb
 set binfile ${objdir}/${subdir}/${testfile}
 
 file mkdir ${objdir}/${subdir}/${testdir}
-if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
+if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
   return -1
 }
 
index 4ad66c6..4c61ae5 100644 (file)
@@ -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 System;
-
 package Pck is
 
    Procedure_Result : Character := ' ';