* gdb.ada/int_deref.exp: Convert the addresses into long_integer

        rather than integer, as integer might not be big enough when
        on 64bit targets.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ba11df1946c68e4689b972ba0f85edba2219bf68..ba8a24012726193564148be9da9ac54ad6ab1db4 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-28  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/int_deref.exp: Convert the addresses into long_integer
+        rather than integer, as integer might not be big enough when
+        on 64bit targets.
+
 2008-11-27  Jerome Guitton  <guitton@adacore.com>
 
        * gdb.cp/formatted-ref.exp: Add equality test.

diff --git a/gdb/testsuite/gdb.ada/int_deref.exp b/gdb/testsuite/gdb.ada/int_deref.exp
index f0bba3a35765c679f6b7812c0aac98757d9ab53e..1becdb1cb1e5bfd5303abdadc2081c092f80f340 100644 (file)
--- a/gdb/testsuite/gdb.ada/int_deref.exp
+++ b/gdb/testsuite/gdb.ada/int_deref.exp
@@ -37,9 +37,9 @@ gdb_load ${binfile}
 set bp_location [gdb_get_line_number "Pck.Watch" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
-gdb_test "print *integer(watch'address)" \
+gdb_test "print *long_integer(watch'address)" \
          " = 4874"
 
-gdb_test "print integer(watch'address).all" \
+gdb_test "print long_integer(watch'address).all" \
          " = 4874"