yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* gdb.base/bigcore.exp: Correct checks for systems which can

Browse Source 
not dump a large core file.
This commit is contained in:
Daniel Jacobowitz 2005-06-13 18:11:01 +00:00
parent 0e8e484a07
commit 26585198a1
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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> 2005-06-13 Daniel Jacobowitz <dan@codesourcery.com>
* gdb.base/relocate.c: Add a copyright notice. * gdb.base/relocate.c: Add a copyright notice.

12
gdb/testsuite/gdb.base/bigcore.exp
View File

@ -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. # Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify # 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 next_heap [extract_heap next]
set prev_heap [extract_heap prev] 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 # Now create a core dump
# Rename the core file to "TESTFILE.corefile" rather than just "core", # 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} { if {[catch {file size $corefile} core_size] == 0} {
set core_ok 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 $" { -re " = 1\r\n$gdb_prompt $" {
pass "check core size" pass "check core size"
set core_ok 1 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 # Probably failed due to the TCL build having problems with very