2004-02-16 19:49:09 +01:00
|
|
|
/* This testcase is part of GDB, the GNU debugger.
|
|
|
|
|
2018-01-01 05:43:02 +01:00
|
|
|
Copyright 2004-2018 Free Software Foundation, Inc.
|
2004-02-16 19:49:09 +01:00
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-08-23 20:08:50 +02:00
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
2004-02-16 19:49:09 +01:00
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
2007-08-23 20:08:50 +02:00
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
You should have received a copy of the GNU General Public License
|
Fix for PR gdb/1543.
* gdb.base/sep.exp: `sep-proc.c' absolute line numbers replaced with
$LOCATION.
(location): New variable.
* config/cfdbug.exp, config/d10v.exp, config/dve.exp, config/i960.exp,
config/m32r.exp, config/mn10300-eval.exp, config/proelf.exp,
config/rom68k.exp, config/sh.exp, config/unix.exp, config/vr4300.exp,
config/vr5000.exp, config/vxworks.exp, gdb.arch/altivec-regs.exp,
gdb.arch/e500-abi.exp, gdb.arch/e500-regs.exp, gdb.asm/asm-source.exp,
gdb.base/a2-run.exp, gdb.base/advance.exp, gdb.base/all-bin.exp,
gdb.base/args.exp, gdb.base/arithmet.exp, gdb.base/assign.exp,
gdb.base/async.exp, gdb.base/auxv.exp, gdb.base/bigcore.c,
gdb.base/bigcore.exp, gdb.base/bitfields.exp, gdb.base/bitops.exp,
gdb.base/break.c, gdb.base/break.exp, gdb.base/break1.c,
gdb.base/call-ar-st.exp, gdb.base/call-rt-st.exp,
gdb.base/call-strs.exp, gdb.base/callfuncs.c, gdb.base/callfuncs.exp,
gdb.base/checkpoint.exp, gdb.base/chng-syms.exp,
gdb.base/code-expr.exp, gdb.base/commands.exp, gdb.base/completion.exp,
gdb.base/complex.exp, gdb.base/cond-expr.exp, gdb.base/condbreak.exp,
gdb.base/consecutive.exp, gdb.base/corefile.exp, gdb.base/cvexpr.c,
gdb.base/cvexpr.exp, gdb.base/dbx.exp, gdb.base/default.exp,
gdb.base/define.exp, gdb.base/del.c, gdb.base/detach.exp,
gdb.base/display.exp, gdb.base/dump.exp, gdb.base/echo.exp,
gdb.base/environ.exp, gdb.base/eval-skip.exp, gdb.base/exprs.exp,
gdb.base/fileio.exp, gdb.base/find.exp, gdb.base/finish.exp,
gdb.base/funcargs.exp, gdb.base/gcore-buffer-overflow.exp,
gdb.base/gcore.exp, gdb.base/gdb1555.exp, gdb.base/gdbvars.exp,
gdb.base/help.exp, gdb.base/huge.exp, gdb.base/info-proc.exp,
gdb.base/interrupt.exp, gdb.base/jump.exp, gdb.base/langs.exp,
gdb.base/lineinc.exp, gdb.base/list.exp, gdb.base/macscp.exp,
gdb.base/maint.exp, gdb.base/mips_pro.exp, gdb.base/miscexprs.exp,
gdb.base/nodebug.exp, gdb.base/nofield.c, gdb.base/opaque.exp,
gdb.base/overlays.exp, gdb.base/page.exp, gdb.base/pc-fp.exp,
gdb.base/pending.c, gdb.base/pendshr.c, gdb.base/pointers.exp,
gdb.base/psymtab.exp, gdb.base/ptype.exp, gdb.base/randomize.c,
gdb.base/readline.exp, gdb.base/recurse.exp, gdb.base/regs.exp,
gdb.base/relational.exp, gdb.base/relocate.exp, gdb.base/remote.exp,
gdb.base/reread.exp, gdb.base/return.exp, gdb.base/return2.exp,
gdb.base/scope.exp, gdb.base/sect-cmd.exp, gdb.base/sep-proc.c,
gdb.base/sep.c, gdb.base/sep.exp, gdb.base/sepdebug.c,
gdb.base/sepdebug.exp, gdb.base/setshow.exp, gdb.base/shlib-call.exp,
gdb.base/sigaltstack.c, gdb.base/so-indr-cl.exp, gdb.base/solib.exp,
gdb.base/source.exp, gdb.base/start.c, gdb.base/step-bt.c,
gdb.base/step-line.exp, gdb.base/structs.c, gdb.base/structs.exp,
gdb.base/structs2.exp, gdb.base/term.exp, gdb.base/twice.exp,
gdb.base/type-opaque.exp, gdb.base/until.exp,
gdb.base/value-double-free.c, gdb.base/varargs.exp,
gdb.base/watchpoint.exp, gdb.base/whatis-exp.exp, gdb.disasm/am33.exp,
gdb.disasm/h8300s.exp, gdb.disasm/hppa.exp, gdb.disasm/mn10300.exp,
gdb.disasm/sh3.exp, gdb.disasm/t01_mov.exp, gdb.disasm/t02_mova.exp,
gdb.disasm/t03_add.exp, gdb.disasm/t04_sub.exp, gdb.disasm/t05_cmp.exp,
gdb.disasm/t06_ari2.exp, gdb.disasm/t07_ari3.exp,
gdb.disasm/t08_or.exp, gdb.disasm/t09_xor.exp, gdb.disasm/t10_and.exp,
gdb.disasm/t11_logs.exp, gdb.disasm/t12_bit.exp,
gdb.disasm/t13_otr.exp, gdb.fortran/exprs.exp, gdb.fortran/types.exp,
gdb.hp/gdb.aCC/exception.exp, gdb.hp/gdb.aCC/optimize.exp,
gdb.hp/gdb.aCC/watch-cmd.exp, gdb.hp/gdb.base-hp/callfwmall.exp,
gdb.hp/gdb.base-hp/dollar.exp, gdb.hp/gdb.base-hp/hwwatchbus.exp,
gdb.hp/gdb.base-hp/pxdb.exp, gdb.hp/gdb.base-hp/reg-pa64.exp,
gdb.hp/gdb.base-hp/reg.exp, gdb.hp/gdb.base-hp/sized-enum.exp,
gdb.hp/gdb.base-hp/so-thresh.exp, gdb.hp/gdb.compat/xdb1.exp,
gdb.hp/gdb.compat/xdb2.exp, gdb.hp/gdb.compat/xdb3.exp,
gdb.java/jmisc.exp, gdb.java/jv-exp.exp, gdb.java/jv-print.exp,
gdb.mi/gdb669.exp, gdb.mi/gdb680.exp, gdb.mi/gdb701.exp,
gdb.mi/gdb792.exp, gdb.mi/mi-basics.exp, gdb.mi/mi-console.exp,
gdb.mi/mi-hack-cli.exp, gdb.mi/mi-pending.c, gdb.mi/mi-pendshr.c,
gdb.mi/mi-pthreads.exp, gdb.mi/mi-read-memory.exp, gdb.mi/mi-regs.exp,
gdb.mi/mi-syn-frame.exp, gdb.mi/mi-until.exp, gdb.mi/mi2-basics.exp,
gdb.mi/mi2-console.exp, gdb.mi/mi2-hack-cli.exp,
gdb.mi/mi2-pthreads.exp, gdb.mi/mi2-read-memory.exp,
gdb.mi/mi2-regs.exp, gdb.mi/mi2-syn-frame.exp, gdb.mi/mi2-until.exp,
gdb.pascal/types.exp, gdb.stabs/weird.exp,
gdb.threads/gcore-thread.exp, gdb.threads/manythreads.exp,
gdb.threads/print-threads.exp, gdb.threads/pthreads.exp,
gdb.threads/schedlock.exp, gdb.threads/step.exp, gdb.threads/step2.exp,
gdb.threads/switch-threads.exp, gdb.threads/thread-specific.exp,
gdb.threads/thread_check.exp, gdb.threads/thread_events.exp,
gdb.threads/tls-nodebug.exp, gdb.threads/tls-shared.exp,
gdb.threads/tls.exp, gdb.trace/actions.exp, gdb.trace/backtrace.exp,
gdb.trace/circ.exp, gdb.trace/collection.exp, gdb.trace/deltrace.exp,
gdb.trace/infotrace.exp, gdb.trace/limits.exp, gdb.trace/packetlen.exp,
gdb.trace/passc-dyn.exp, gdb.trace/passcount.exp, gdb.trace/report.exp,
gdb.trace/save-trace.exp, gdb.trace/tfind.exp, gdb.trace/tracecmd.exp,
gdb.trace/while-dyn.exp, gdb.trace/while-stepping.exp,
lib/mi-support.exp, lib/trace-support.exp: Remove reference
to bug-gdb@prep.ai.mit.edu .
2008-08-06 14:52:08 +02:00
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
2004-02-16 19:49:09 +01:00
|
|
|
|
2004-09-24 20:44:56 +02:00
|
|
|
/* Get 64-bit stuff if on a GNU system. */
|
|
|
|
#define _GNU_SOURCE
|
|
|
|
|
2004-08-14 22:17:43 +02:00
|
|
|
#include <sys/types.h>
|
|
|
|
#include <sys/time.h>
|
2004-02-16 19:49:09 +01:00
|
|
|
#include <sys/resource.h>
|
2004-09-24 20:44:56 +02:00
|
|
|
#include <sys/stat.h>
|
|
|
|
#include <fcntl.h>
|
2004-02-16 19:49:09 +01:00
|
|
|
|
2004-08-14 22:17:43 +02:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
|
2007-01-20 19:33:27 +01:00
|
|
|
/* This test was written for >2GB core files on 32-bit systems. On
|
|
|
|
current 64-bit systems, generating a >4EB (2 ** 63) core file is
|
|
|
|
not practical, and getting as close as we can takes a lot of
|
|
|
|
useless CPU time. So limit ourselves to a bit bigger than
|
|
|
|
32-bit, which is still a useful test. */
|
|
|
|
#define RLIMIT_CAP (1ULL << 34)
|
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
/* Print routines:
|
|
|
|
|
|
|
|
The following are so that printf et.al. can be avoided. Those
|
|
|
|
might try to use malloc() and that, for this code, would be a
|
|
|
|
disaster. */
|
|
|
|
|
|
|
|
#define printf do not use
|
|
|
|
|
|
|
|
const char digit[] = "0123456789abcdefghijklmnopqrstuvwxyz";
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_char (char c)
|
|
|
|
{
|
|
|
|
write (1, &c, sizeof (c));
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2004-09-24 20:44:56 +02:00
|
|
|
print_unsigned (unsigned long long u)
|
2004-02-16 19:49:09 +01:00
|
|
|
{
|
|
|
|
if (u >= 10)
|
|
|
|
print_unsigned (u / 10);
|
|
|
|
print_char (digit[u % 10]);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2004-09-24 20:44:56 +02:00
|
|
|
print_hex (unsigned long long u)
|
2004-02-16 19:49:09 +01:00
|
|
|
{
|
|
|
|
if (u >= 16)
|
|
|
|
print_hex (u / 16);
|
|
|
|
print_char (digit[u % 16]);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_string (const char *s)
|
|
|
|
{
|
|
|
|
for (; (*s) != '\0'; s++)
|
|
|
|
print_char ((*s));
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_address (const void *a)
|
|
|
|
{
|
|
|
|
print_string ("0x");
|
|
|
|
print_hex ((unsigned long) a);
|
|
|
|
}
|
|
|
|
|
2004-09-24 20:44:56 +02:00
|
|
|
static void
|
|
|
|
print_byte_count (unsigned long long u)
|
|
|
|
{
|
|
|
|
print_unsigned (u);
|
|
|
|
print_string (" (");
|
|
|
|
print_string ("0x");
|
|
|
|
print_hex (u);
|
|
|
|
print_string (") bytes");
|
|
|
|
}
|
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
/* Print the current values of RESOURCE. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_rlimit (int resource)
|
|
|
|
{
|
|
|
|
struct rlimit rl;
|
|
|
|
getrlimit (resource, &rl);
|
|
|
|
print_string ("cur=0x");
|
|
|
|
print_hex (rl.rlim_cur);
|
|
|
|
print_string (" max=0x");
|
|
|
|
print_hex (rl.rlim_max);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
maximize_rlimit (int resource, const char *prefix)
|
|
|
|
{
|
|
|
|
struct rlimit rl;
|
|
|
|
print_string (" ");
|
|
|
|
print_string (prefix);
|
|
|
|
print_string (": ");
|
|
|
|
print_rlimit (resource);
|
|
|
|
getrlimit (resource, &rl);
|
|
|
|
rl.rlim_cur = rl.rlim_max;
|
2007-01-20 19:33:27 +01:00
|
|
|
if (sizeof (rl.rlim_cur) >= sizeof (RLIMIT_CAP))
|
|
|
|
rl.rlim_cur = (rlim_t) RLIMIT_CAP;
|
2004-02-16 19:49:09 +01:00
|
|
|
setrlimit (resource, &rl);
|
|
|
|
print_string (" -> ");
|
|
|
|
print_rlimit (resource);
|
|
|
|
print_string ("\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Maintain a doublely linked list. */
|
|
|
|
struct list
|
|
|
|
{
|
|
|
|
struct list *next;
|
|
|
|
struct list *prev;
|
|
|
|
size_t size;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Put the "heap" in the DATA section. That way it is more likely
|
|
|
|
that the variable will occur early in the core file (an address
|
|
|
|
before the heap) and hence more likely that GDB will at least get
|
|
|
|
its value right.
|
|
|
|
|
|
|
|
To simplify the list append logic, start the heap out with one
|
|
|
|
entry (that lives in the BSS section). */
|
|
|
|
|
|
|
|
static struct list dummy;
|
|
|
|
static struct list heap = { &dummy, &dummy };
|
|
|
|
|
2004-05-10 18:47:40 +02:00
|
|
|
static unsigned long bytes_allocated;
|
|
|
|
|
2004-09-24 20:44:56 +02:00
|
|
|
#ifdef O_LARGEFILE
|
|
|
|
#define large_off_t off64_t
|
|
|
|
#define large_lseek lseek64
|
|
|
|
#else
|
|
|
|
#define large_off_t off_t
|
|
|
|
#define O_LARGEFILE 0
|
|
|
|
#define large_lseek lseek
|
|
|
|
#endif
|
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
int
|
|
|
|
main ()
|
|
|
|
{
|
|
|
|
size_t max_chunk_size;
|
2004-09-24 20:44:56 +02:00
|
|
|
large_off_t max_core_size;
|
2004-02-16 19:49:09 +01:00
|
|
|
|
|
|
|
/* Try to expand all the resource limits beyond the point of sanity
|
|
|
|
- we're after the biggest possible core file. */
|
|
|
|
|
|
|
|
print_string ("Maximize resource limits ...\n");
|
|
|
|
#ifdef RLIMIT_CORE
|
|
|
|
maximize_rlimit (RLIMIT_CORE, "core");
|
|
|
|
#endif
|
|
|
|
#ifdef RLIMIT_DATA
|
|
|
|
maximize_rlimit (RLIMIT_DATA, "data");
|
|
|
|
#endif
|
|
|
|
#ifdef RLIMIT_STACK
|
|
|
|
maximize_rlimit (RLIMIT_STACK, "stack");
|
|
|
|
#endif
|
|
|
|
#ifdef RLIMIT_AS
|
|
|
|
maximize_rlimit (RLIMIT_AS, "stack");
|
|
|
|
#endif
|
|
|
|
|
2004-09-24 20:44:56 +02:00
|
|
|
print_string ("Maximize allocation limits ...\n");
|
|
|
|
|
|
|
|
/* Compute the largest possible corefile size. No point in trying
|
|
|
|
to create a corefile larger than the largest file supported by
|
|
|
|
the file system. What about 64-bit lseek64? */
|
|
|
|
{
|
|
|
|
int fd;
|
|
|
|
large_off_t tmp;
|
|
|
|
unlink ("bigcore.corefile");
|
2005-03-27 01:18:55 +01:00
|
|
|
fd = open ("bigcore.corefile", O_RDWR | O_CREAT | O_TRUNC | O_LARGEFILE,
|
|
|
|
0666);
|
2004-09-24 20:44:56 +02:00
|
|
|
for (tmp = 1; tmp > 0; tmp <<= 1)
|
|
|
|
{
|
|
|
|
if (large_lseek (fd, tmp, SEEK_SET) > 0)
|
|
|
|
max_core_size = tmp;
|
|
|
|
}
|
|
|
|
close (fd);
|
|
|
|
}
|
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
/* Compute an initial chunk size. The math is dodgy but it works
|
2004-09-24 20:44:56 +02:00
|
|
|
for the moment. Perhaphs there's a constant around somewhere.
|
|
|
|
Limit this to max_core_size bytes - no point in trying to
|
|
|
|
allocate more than can be written to the corefile. */
|
2004-02-16 19:49:09 +01:00
|
|
|
{
|
|
|
|
size_t tmp;
|
2004-09-24 20:44:56 +02:00
|
|
|
for (tmp = 1; tmp > 0 && tmp < max_core_size; tmp <<= 1)
|
2004-02-16 19:49:09 +01:00
|
|
|
max_chunk_size = tmp;
|
|
|
|
}
|
|
|
|
|
2004-09-24 20:44:56 +02:00
|
|
|
print_string (" core: ");
|
|
|
|
print_byte_count (max_core_size);
|
|
|
|
print_string ("\n");
|
|
|
|
print_string (" chunk: ");
|
|
|
|
print_byte_count (max_chunk_size);
|
|
|
|
print_string ("\n");
|
|
|
|
print_string (" large? ");
|
|
|
|
if (O_LARGEFILE)
|
|
|
|
print_string ("yes\n");
|
|
|
|
else
|
|
|
|
print_string ("no\n");
|
|
|
|
|
2004-02-16 19:49:09 +01:00
|
|
|
/* Allocate as much memory as possible creating a linked list of
|
|
|
|
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
|
2004-05-10 18:47:40 +02:00
|
|
|
the file for unmodified pages - while others handle this poorly -
|
|
|
|
writing out all pages including those that weren't modified. */
|
2004-02-16 19:49:09 +01:00
|
|
|
|
|
|
|
print_string ("Alocating the entire heap ...\n");
|
|
|
|
{
|
|
|
|
size_t chunk_size;
|
2004-05-10 18:47:40 +02:00
|
|
|
unsigned long chunks_allocated = 0;
|
2004-02-16 19:49:09 +01:00
|
|
|
/* 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
|
|
|
|
been allocated. */
|
|
|
|
for (chunk_size = max_chunk_size;
|
|
|
|
chunk_size >= sizeof (struct list);
|
|
|
|
chunk_size >>= 1)
|
|
|
|
{
|
|
|
|
unsigned long count = 0;
|
|
|
|
print_string (" ");
|
2004-09-24 20:44:56 +02:00
|
|
|
print_byte_count (chunk_size);
|
|
|
|
print_string (" ... ");
|
|
|
|
while (bytes_allocated + (1 + count) * chunk_size
|
|
|
|
< max_core_size)
|
2004-02-16 19:49:09 +01:00
|
|
|
{
|
|
|
|
struct list *chunk = malloc (chunk_size);
|
|
|
|
if (chunk == NULL)
|
|
|
|
break;
|
|
|
|
chunk->size = chunk_size;
|
|
|
|
/* Link it in. */
|
|
|
|
chunk->next = NULL;
|
|
|
|
chunk->prev = heap.prev;
|
|
|
|
heap.prev->next = chunk;
|
|
|
|
heap.prev = chunk;
|
|
|
|
count++;
|
|
|
|
}
|
|
|
|
print_unsigned (count);
|
|
|
|
print_string (" chunks\n");
|
|
|
|
chunks_allocated += count;
|
|
|
|
bytes_allocated += chunk_size * count;
|
|
|
|
}
|
|
|
|
print_string ("Total of ");
|
2004-09-24 20:44:56 +02:00
|
|
|
print_byte_count (bytes_allocated);
|
2004-02-16 19:49:09 +01:00
|
|
|
print_string (" bytes ");
|
|
|
|
print_unsigned (chunks_allocated);
|
|
|
|
print_string (" chunks\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Push everything out to disk. */
|
|
|
|
|
|
|
|
print_string ("Dump core ....\n");
|
|
|
|
*(char*)0 = 0;
|
|
|
|
}
|