From: Daniel Jacobowitz <drow@false.org>
Date: Mon, 13 Jun 2005 18:11:01 +0000 (+0000)
Subject: 	* gdb.base/bigcore.exp: Correct checks for systems which can
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=26585198a17552fde8fa6387586978be9e7a7201;p=binutils-gdb.git

	* gdb.base/bigcore.exp: Correct checks for systems which can
	not dump a large core file.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e8580dbf0f0..60d4a84dfd1 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -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>
 
 	* gdb.base/relocate.c: Add a copyright notice.
diff --git a/gdb/testsuite/gdb.base/bigcore.exp b/gdb/testsuite/gdb.base/bigcore.exp
index af3098c5f9d..d972e46f0af 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