Index: gdb.ada/ptype_arith_binop.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/ptype_arith_binop.exp,v
retrieving revision 1.1
diff -u -p -r1.1 ptype_arith_binop.exp
--- gdb.ada/ptype_arith_binop.exp	13 Mar 2009 02:15:36 -0000	1.1
+++ gdb.ada/ptype_arith_binop.exp	13 Mar 2009 02:23:54 -0000
@@ -17,28 +17,9 @@ if $tracelevel then {
     strace $tracelevel
 }
 
-load_lib "ada.exp"
-
-# set testdir "array_bounds"
-# set testfile "${testdir}/bar"
-# 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 ]] != "" } {
-#   return -1
-# }
-
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
-# gdb_load ${binfile}
-
-#set bp_location [gdb_get_line_number "STOP" ${testdir}/bar.adb]
-#if ![runto "bar.adb:$bp_location" ] then {
-#  perror "Couldn't run ${testfile}"
-#  return
-#} 
 
 gdb_test "set lang ada" \
          "" \
Index: ChangeLog
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/ChangeLog,v
retrieving revision 1.1824
diff -u -p -r1.1824 ChangeLog
--- ChangeLog	13 Mar 2009 02:15:36 -0000	1.1824
+++ ChangeLog	13 Mar 2009 02:24:00 -0000
@@ -1,5 +1,11 @@
 2009-03-12  Joel Brobecker  <brobecker@adacore.com>
 
+	* gdb.ada/ptype_arith_binop.exp: Remove some commented-out code
+	that was checked in by mistake. Remove loading of ada.exp, since
+	this is not necessary in this case.
+
+2009-03-12  Joel Brobecker  <brobecker@adacore.com>
+
 	* gdb.ada/ptype_arith_binop.exp: New testcase.
 
 2009-03-12  Joel Brobecker  <brobecker@adacore.com>