-# Copyright 2008 Free Software Foundation, Inc.
+# Copyright 2008, 2009, 2010, 2011 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
return [join $args "\[\r\n\]*"]
}
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
+clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
runto "foo.adb:$bp_location"
"ptype segm"
gdb_test "print segm" \
- "\\(position => 74, width => 8\\)" \
+ "= \\(position => 74, width => 8\\)" \
"print segm"
# Now, test printing of an class-wide object.
"ptype obj"
gdb_test "print obj" \
- "\\(position => 74, width => 8\\)" \
+ "= \\(position => 74, width => 8\\)" \
"print obj"