diff options
| author | Daniel Jacobowitz <drow@false.org> | 2005-06-13 18:11:01 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2005-06-13 18:11:01 +0000 |
| commit | 26585198a17552fde8fa6387586978be9e7a7201 (patch) | |
| tree | 7e99d44b0f7a478e1953cc359b60f7a21d14fa53 /gdb/testsuite | |
| parent | 0e8e484a076d85112a22272a8972b96627e3f5da (diff) | |
| download | gdb-26585198a17552fde8fa6387586978be9e7a7201.zip gdb-26585198a17552fde8fa6387586978be9e7a7201.tar.gz gdb-26585198a17552fde8fa6387586978be9e7a7201.tar.bz2 | |
* gdb.base/bigcore.exp: Correct checks for systems which can
not dump a large core file.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/bigcore.exp | 12 |
2 files changed, 15 insertions, 2 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e8580db..60d4a84 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2005-06-13 Daniel Jacobowitz <dan@codesourcery.com> + * gdb.base/bigcore.exp: Correct checks for systems which can + not dump a large core file. + +2005-06-13 Daniel Jacobowitz <dan@codesourcery.com> + * gdb.base/relocate.c: Add a copyright notice. (dummy): Remove. * gdb.base/relocate.exp: Test printing the values of variables diff --git a/gdb/testsuite/gdb.base/bigcore.exp b/gdb/testsuite/gdb.base/bigcore.exp index af3098c..d972e46 100644 --- a/gdb/testsuite/gdb.base/bigcore.exp +++ b/gdb/testsuite/gdb.base/bigcore.exp @@ -1,4 +1,4 @@ -# Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2004 +# Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2004, 2005 # Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify @@ -118,6 +118,10 @@ proc extract_heap { dir } { set next_heap [extract_heap next] set prev_heap [extract_heap prev] +# Save the total allocated size within GDB so that we can check +# the core size later. +gdb_test "set \$bytes_allocated = bytes_allocated" "" "save heap size" + # Now create a core dump # Rename the core file to "TESTFILE.corefile" rather than just "core", @@ -171,11 +175,15 @@ if { $file == "" } { if {[catch {file size $corefile} core_size] == 0} { set core_ok 0 - gdb_test_multiple "print bytes_allocated < $core_size" "check core size" { + gdb_test_multiple "print \$bytes_allocated < $core_size" "check core size" { -re " = 1\r\n$gdb_prompt $" { pass "check core size" set core_ok 1 } + -re " = 0\r\n$gdb_prompt $" { + pass "check core size" + set core_ok 0 + } } } { # Probably failed due to the TCL build having problems with very |