From bf08c2a10fc7a38d7bcdc33f578da56815391c98 Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Mon, 10 May 2004 16:47:40 +0000 Subject: [PATCH] PR external/1568 * gdb.base/bigcore.exp: Check the size of the dumped core file. XFAIL if it is smaller than bytes_allocated. * gdb.base/bigcore.c (bytes_allocated): Make static and unsigned. (main): Make chunks_allocated unsigned. Correct comment. --- gdb/testsuite/ChangeLog | 8 ++++++++ gdb/testsuite/gdb.base/bigcore.c | 9 +++++---- gdb/testsuite/gdb.base/bigcore.exp | 28 ++++++++++++++++++++++++---- 3 files changed, 37 insertions(+), 8 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index ae1099bbd42..5276de71d7c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2004-05-10 Daniel Jacobowitz + + PR external/1568 + * gdb.base/bigcore.exp: Check the size of the dumped core file. + XFAIL if it is smaller than bytes_allocated. + * gdb.base/bigcore.c (bytes_allocated): Make static and unsigned. + (main): Make chunks_allocated unsigned. Correct comment. + 2004-05-07 Joel Brobecker * gdb.arch/powerpc-aix-prologue.c: New file. diff --git a/gdb/testsuite/gdb.base/bigcore.c b/gdb/testsuite/gdb.base/bigcore.c index 8cd1b5f98d2..bbf37fbaf62 100644 --- a/gdb/testsuite/gdb.base/bigcore.c +++ b/gdb/testsuite/gdb.base/bigcore.c @@ -117,6 +117,8 @@ struct list static struct list dummy; static struct list heap = { &dummy, &dummy }; +static unsigned long bytes_allocated; + int main () { @@ -151,14 +153,13 @@ main () each section. The linking ensures that some, but not all, the memory is allocated. NB: Some kernels handle this efficiently - only allocating and writing out referenced pages leaving holes in - the file for unreferend pages - while others handle this poorly - - writing out all pages including those that wern't referenced. */ + the file for unmodified pages - while others handle this poorly - + writing out all pages including those that weren't modified. */ print_string ("Alocating the entire heap ...\n"); { size_t chunk_size; - long bytes_allocated = 0; - long chunks_allocated = 0; + unsigned long chunks_allocated = 0; /* Create a linked list of memory chunks. Start with MAX_CHUNK_SIZE blocks of memory and then try allocating smaller and smaller amounts until all (well at least most) memory has diff --git a/gdb/testsuite/gdb.base/bigcore.exp b/gdb/testsuite/gdb.base/bigcore.exp index a14817e94de..adedb399751 100644 --- a/gdb/testsuite/gdb.base/bigcore.exp +++ b/gdb/testsuite/gdb.base/bigcore.exp @@ -105,9 +105,30 @@ gdb_test "tbreak $print_core_line" gdb_test continue ".*print_string.*" gdb_test next ".*0 = 0.*" +# Check that the corefile is plausibly large enough. We're trying to +# detect the case where the operating system has truncated the file +# just before signed wraparound. TCL, unfortunately, has a similar +# problem - so use catch. It can handle the "bad" size but not necessarily +# the "good" one. And we must use GDB for the comparison, similarly. + +if {[catch {file size $corefile} core_size] == 0} { + set core_ok 0 + 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 $" { + xfail "check core size (system does not support large corefiles)" + } + } + if {$core_ok == 0} { + return 0 + } +} + # Traverse part of bigcore's linked list of memory chunks (forward or -# backward), saving each chunk's address. I don't know why but -# expect_out didn't work with gdb_test_multiple. +# backward), saving each chunk's address. proc extract_heap { dir } { global gdb_prompt @@ -115,8 +136,7 @@ proc extract_heap { dir } { set heap "" set test "extract ${dir} heap" set lim 0 - send_gdb "print heap.${dir}\n" - gdb_expect { + gdb_test_multiple "print heap.${dir}" "$test" { -re " = \\(struct list \\*\\) 0x0.*$gdb_prompt $" { pass "$test" } -- 2.30.2