Jason Molenda
27 years ago
46 changed files with 2658 additions and 1073 deletions
@ -0,0 +1,28 @@ |
|||
/* Target machine description for VxWorks on the 80[3456]86,
|
|||
for GDB, the GNU debugger. |
|||
Copyright (C) 1999 Free Software Foundation, Inc. |
|||
|
|||
This file is part of GDB. |
|||
|
|||
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 |
|||
the Free Software Foundation; either version 2 of the License, or |
|||
(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. |
|||
|
|||
You should have received a copy of the GNU General Public License |
|||
along with this program; if not, write to the Free Software |
|||
Foundation, Inc., 59 Temple Place - Suite 330, |
|||
Boston, MA 02111-1307, USA. */ |
|||
|
|||
#ifndef TM_VXWORKS_H |
|||
#define TM_VXWORKS_H |
|||
|
|||
#include "i386/tm-i386v.h" |
|||
#include "tm-vxworks.h" |
|||
|
|||
#endif /* ifndef TM_VXWORKS_H */ |
|||
@ -0,0 +1,3 @@ |
|||
# Target: i386 running VxWorks |
|||
TDEPFILES= i386-tdep.o i387-tdep.o |
|||
TM_FILE= tm-vxworks.h |
|||
@ -0,0 +1,4 @@ |
|||
# Target: HP PA-RISC 2.0 running HPUX 11.00 in wide mode |
|||
TDEPFILES= hppa-tdep.o # pa64-solib.o |
|||
TM_FILE= tm-hppa64.h |
|||
TM_CLIBS= # $(srcdir)/libxpdl.a |
|||
@ -0,0 +1,320 @@ |
|||
/* Parameters for execution on any Hewlett-Packard PA-RISC machine.
|
|||
Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1995 |
|||
Free Software Foundation, Inc. |
|||
|
|||
Contributed by the Center for Software Science at the |
|||
University of Utah (pa-gdb-bugs@cs.utah.edu). |
|||
|
|||
This file is part of GDB. |
|||
|
|||
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 |
|||
the Free Software Foundation; either version 2 of the License, or |
|||
(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. |
|||
|
|||
You should have received a copy of the GNU General Public License |
|||
along with this program; if not, write to the Free Software |
|||
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|||
|
|||
/* PA 64-bit specific definitions. Override those which are in
|
|||
tm-hppa.h */ |
|||
|
|||
#include "pa/tm-hppah.h" |
|||
|
|||
#define HPUX_1100 1 |
|||
|
|||
/* jimb: this must go. I'm just using it to disable code I haven't
|
|||
gotten working yet. */ |
|||
#define GDB_TARGET_IS_HPPA_20W |
|||
|
|||
/* The low two bits of the IA are the privilege level of the instruction. */ |
|||
#define ADDR_BITS_REMOVE(addr) ((CORE_ADDR)addr & (CORE_ADDR)~3) |
|||
|
|||
/* Say how long (ordinary) registers are. This is used in
|
|||
push_word and a few other places, but REGISTER_RAW_SIZE is |
|||
the real way to know how big a register is. */ |
|||
|
|||
#undef REGISTER_SIZE |
|||
#define REGISTER_SIZE 8 |
|||
|
|||
/* Number of bytes of storage in the actual machine representation
|
|||
for register N. On the PA-RISC 2.0, all regs are 8 bytes, including |
|||
the FP registers (they're accessed as two 4 byte halves). */ |
|||
|
|||
#undef REGISTER_RAW_SIZE |
|||
#define REGISTER_RAW_SIZE(N) 8 |
|||
|
|||
/* Largest value REGISTER_RAW_SIZE can have. */ |
|||
|
|||
#undef MAX_REGISTER_RAW_SIZE |
|||
#define MAX_REGISTER_RAW_SIZE 8 |
|||
|
|||
/* Total amount of space needed to store our copies of the machine's
|
|||
register state, the array `registers'. */ |
|||
|
|||
#undef REGISTER_BYTES |
|||
#define REGISTER_BYTES (NUM_REGS * 8) |
|||
|
|||
/* Index within `registers' of the first byte of the space for
|
|||
register N. */ |
|||
|
|||
#undef REGISTER_BYTE |
|||
#define REGISTER_BYTE(N) ((N) * 8) |
|||
|
|||
#undef REGISTER_VIRTUAL_TYPE |
|||
#define REGISTER_VIRTUAL_TYPE(N) \ |
|||
((N) < FP4_REGNUM ? builtin_type_unsigned_long_long : builtin_type_double) |
|||
|
|||
|
|||
/* Number of machine registers */ |
|||
#undef NUM_REGS |
|||
#define NUM_REGS 96 |
|||
|
|||
/* Initializer for an array of names of registers.
|
|||
There should be NUM_REGS strings in this initializer. |
|||
They are in rows of eight entries */ |
|||
#undef REGISTER_NAMES |
|||
#define REGISTER_NAMES \ |
|||
{"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", \ |
|||
"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", \ |
|||
"r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", \ |
|||
"r24", "r25", "r26", "dp", "ret0", "ret1", "sp", "r31", \ |
|||
"sar", "pcoqh", "pcsqh", "pcoqt", "pcsqt", "eiem", "iir", "isr", \ |
|||
"ior", "ipsw", "goto", "sr4", "sr0", "sr1", "sr2", "sr3", \ |
|||
"sr5", "sr6", "sr7", "cr0", "cr8", "cr9", "ccr", "cr12", \ |
|||
"cr13", "cr24", "cr25", "cr26", "mpsfu_high","mpsfu_low","mpsfu_ovflo","pad",\ |
|||
"fpsr", "fpe1", "fpe2", "fpe3", "fr4", "fr5", "fr6", "fr7", \ |
|||
"fr8", "fr9", "fr10", "fr11", "fr12", "fr13", "fr14", "fr15", \ |
|||
"fr16", "fr17", "fr18", "fr19", "fr20", "fr21", "fr22", "fr23", \ |
|||
"fr24", "fr25", "fr26", "fr27", "fr28", "fr29", "fr30", "fr31"} |
|||
|
|||
#undef FP0_REGNUM |
|||
#undef FP4_REGNUM |
|||
#define FP0_REGNUM 64 /* floating point reg. 0 (fspr)*/ |
|||
#define FP4_REGNUM 68 |
|||
|
|||
/* Redefine some target bit sizes from the default. */ |
|||
|
|||
/* Number of bits in a long or unsigned long for the target machine. */ |
|||
|
|||
#define TARGET_LONG_BIT 64 |
|||
|
|||
/* Number of bits in a long long or unsigned long long for the
|
|||
target machine. */ |
|||
|
|||
#define TARGET_LONG_LONG_BIT 64 |
|||
|
|||
/* Number of bits in a pointer for the target machine */ |
|||
|
|||
#define TARGET_PTR_BIT 64 |
|||
|
|||
/* Argument Pointer Register */ |
|||
#define AP_REGNUM 29 |
|||
|
|||
#define DP_REGNUM 27 |
|||
|
|||
#define FP5_REGNUM 70 |
|||
|
|||
#define SR5_REGNUM 48 |
|||
|
|||
#undef FRAME_ARGS_ADDRESS |
|||
#define FRAME_ARGS_ADDRESS(fi) ((fi)->ap) |
|||
|
|||
/* We access locals from SP. This may not work for frames which call
|
|||
alloca; for those, we may need to consult unwind tables. |
|||
jimb: FIXME. */ |
|||
#undef FRAME_LOCALS_ADDRESS |
|||
#define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) |
|||
|
|||
#define INIT_FRAME_AP init_frame_ap |
|||
|
|||
#define EXTRA_FRAME_INFO \ |
|||
CORE_ADDR ap; |
|||
|
|||
/* For a number of horrible reasons we may have to adjust the location
|
|||
of variables on the stack. Ugh. jimb: why? */ |
|||
#define HPREAD_ADJUST_STACK_ADDRESS(ADDR) hpread_adjust_stack_address(ADDR) |
|||
|
|||
extern int hpread_adjust_stack_address PARAMS ((CORE_ADDR)); |
|||
|
|||
|
|||
/* jimb: omitted dynamic linking stuff here */ |
|||
|
|||
/* This sequence of words is the instructions
|
|||
|
|||
; Call stack frame has already been built by gdb. Since we could be calling |
|||
; a varargs function, and we do not have the benefit of a stub to put things in |
|||
; the right place, we load the first 8 word of arguments into both the general |
|||
; and fp registers. |
|||
call_dummy |
|||
copy %r4,%r29 |
|||
copy %r5,%r22 |
|||
copy %r6,%r27 |
|||
fldd -64(0,%r29),%fr4 |
|||
fldd -56(0,%r29),%fr5 |
|||
fldd -48(0,%r29),%fr6 |
|||
fldd -40(0,%r29),%fr7 |
|||
fldd -32(0,%r29),%fr8 |
|||
fldd -24(0,%r29),%fr9 |
|||
fldd -16(0,%r29),%fr10 |
|||
fldd -8(0,%r29),%fr11 |
|||
copy %r22,%r1 |
|||
ldd -64(%r29), %r26 |
|||
ldd -56(%r29), %r25 |
|||
ldd -48(%r29), %r24 |
|||
ldd -40(%r29), %r23 |
|||
ldd -32(%r29), %r22 |
|||
ldd -24(%r29), %r21 |
|||
ldd -16(%r29), %r20 |
|||
bve,l (%r1),%r2 |
|||
ldd -8(%r29), %r19 |
|||
break 4, 8 |
|||
mtsp %r21, %sr0 |
|||
ble 0(%sr0, %r22) |
|||
nop |
|||
*/ |
|||
|
|||
#undef CALL_DUMMY |
|||
#define CALL_DUMMY {0x349d0000, 0x34b60000, 0x34db0000, \ |
|||
0x53a43f83, 0x53a53f93, 0x53a63fa3, 0x53a73fb3,\ |
|||
0x53a83fc3, 0x53a93fd3, 0x2fa1100a, 0x2fb1100b,\ |
|||
0x36c10000, 0x53ba3f81, 0x53b93f91, 0x53b83fa1,\ |
|||
0x53b73fb1, 0x53b63fc1, 0x53b53fd1, 0x0fa110d4,\ |
|||
0xe820f000, 0x0fb110d3, 0x00010004, 0x00151820,\ |
|||
0xe6c00000, 0x08000240} |
|||
|
|||
#undef CALL_DUMMY_LENGTH |
|||
#define CALL_DUMMY_LENGTH (INSTRUCTION_SIZE * 25) |
|||
|
|||
#undef FUNC_LDIL_OFFSET |
|||
#undef FUNC_LDO_OFFSET |
|||
#undef SR4EXPORT_LDIL_OFFSET |
|||
#undef SR4EXPORT_LDO_OFFSET |
|||
#undef CALL_DUMMY_LOCATION |
|||
/* jimb: need to find out what AT_WDB_CALL_DUMMY is about */ |
|||
#if 0 |
|||
#define CALL_DUMMY_LOCATION AFTER_TEXT_END |
|||
extern CORE_ADDR wdb_call_dummy_addr; |
|||
#undef PC_IN_CALL_DUMMY |
|||
#define PC_IN_CALL_DUMMY(pc, sp, frame_address) \ |
|||
((pc) >= wdb_call_dummy_addr && \ |
|||
(pc) <= wdb_call_dummy_addr + CALL_DUMMY_LENGTH) |
|||
#endif |
|||
|
|||
#undef REG_STRUCT_HAS_ADDR |
|||
|
|||
#undef EXTRACT_RETURN_VALUE |
|||
/* RM: floats are returned in FR4R, doubles in FR4
|
|||
* integral values are in r28, padded on the left |
|||
* aggregates less that 65 bits are in r28, right padded |
|||
* aggregates upto 128 bits are in r28 and r29, right padded |
|||
*/ |
|||
#define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ |
|||
{ \ |
|||
if (TYPE_CODE (TYPE) == TYPE_CODE_FLT && !SOFT_FLOAT) \ |
|||
memcpy ((VALBUF), \ |
|||
((char *)(REGBUF)) + REGISTER_BYTE (FP4_REGNUM) + \ |
|||
(REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (is_integral_type(TYPE) || SOFT_FLOAT) \ |
|||
memcpy ((VALBUF), \ |
|||
(char *)(REGBUF) + REGISTER_BYTE (28) + \ |
|||
(REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (TYPE_LENGTH (TYPE) <= 8) \ |
|||
memcpy ((VALBUF), \ |
|||
(char *)(REGBUF) + REGISTER_BYTE (28), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (TYPE_LENGTH (TYPE) <= 16) \ |
|||
{ \ |
|||
memcpy ((VALBUF), \ |
|||
(char *)(REGBUF) + REGISTER_BYTE (28), \ |
|||
8); \ |
|||
memcpy (((char *) VALBUF + 8), \ |
|||
(char *)(REGBUF) + REGISTER_BYTE (29), \ |
|||
TYPE_LENGTH (TYPE) - 8); \ |
|||
} \ |
|||
} |
|||
|
|||
/* RM: struct upto 128 bits are returned in registers */ |
|||
#undef USE_STRUCT_CONVENTION |
|||
#define USE_STRUCT_CONVENTION(gcc_p, value_type)\ |
|||
(TYPE_LENGTH (value_type) > 16) |
|||
|
|||
/* RM: for return command */ |
|||
#undef STORE_RETURN_VALUE |
|||
#define STORE_RETURN_VALUE(TYPE,VALBUF) \ |
|||
{ \ |
|||
if (TYPE_CODE (TYPE) == TYPE_CODE_FLT && !SOFT_FLOAT) \ |
|||
write_register_bytes \ |
|||
(REGISTER_BYTE (FP4_REGNUM) + \ |
|||
(REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ |
|||
(VALBUF), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (is_integral_type(TYPE) || SOFT_FLOAT) \ |
|||
write_register_bytes \ |
|||
(REGISTER_BYTE (28) + \ |
|||
(REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ |
|||
(VALBUF), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (TYPE_LENGTH (TYPE) <= 8) \ |
|||
write_register_bytes \ |
|||
( REGISTER_BYTE (28), \ |
|||
(VALBUF), \ |
|||
TYPE_LENGTH (TYPE)); \ |
|||
else if (TYPE_LENGTH (TYPE) <= 16) \ |
|||
{ \ |
|||
write_register_bytes \ |
|||
(REGISTER_BYTE (28), \ |
|||
(VALBUF), \ |
|||
8); \ |
|||
write_register_bytes \ |
|||
(REGISTER_BYTE (29), \ |
|||
((char *) VALBUF + 8), \ |
|||
TYPE_LENGTH (TYPE) - 8); \ |
|||
} \ |
|||
} |
|||
|
|||
/* RM: these are the PA64 equivalents of the macros in tm-hppah.h --
|
|||
* see comments there. For PA64, the save_state structure is at an |
|||
* offset of 24 32-bit words from the sigcontext structure. The 64 bit |
|||
* general registers are at an offset of 640 bytes from the beginning of the |
|||
* save_state structure, and the floating pointer register are at an offset |
|||
* of 256 bytes from the beginning of the save_state structure. |
|||
*/ |
|||
#undef FRAME_SAVED_PC_IN_SIGTRAMP |
|||
#define FRAME_SAVED_PC_IN_SIGTRAMP(FRAME, TMP) \ |
|||
{ \ |
|||
*(TMP) = read_memory_integer ((FRAME)->frame + (24 * 4) + 640 + (33 * 8), 8); \ |
|||
} |
|||
|
|||
#undef FRAME_BASE_BEFORE_SIGTRAMP |
|||
#define FRAME_BASE_BEFORE_SIGTRAMP(FRAME, TMP) \ |
|||
{ \ |
|||
*(TMP) = read_memory_integer ((FRAME)->frame + (24 * 4) + 640 + (30 * 8), 8); \ |
|||
} |
|||
|
|||
#undef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP |
|||
#define FRAME_FIND_SAVED_REGS_IN_SIGTRAMP(FRAME, FSR) \ |
|||
{ \ |
|||
int i; \ |
|||
CORE_ADDR TMP1, TMP2; \ |
|||
TMP1 = (FRAME)->frame + (24 * 4) + 640; \ |
|||
TMP2 = (FRAME)->frame + (24 * 4) + 256; \ |
|||
for (i = 0; i < NUM_REGS; i++) \ |
|||
{ \ |
|||
if (i == SP_REGNUM) \ |
|||
(FSR)->regs[SP_REGNUM] = read_memory_integer (TMP1 + SP_REGNUM * 8, 8); \ |
|||
else if (i >= FP0_REGNUM) \ |
|||
(FSR)->regs[i] = TMP2 + (i - FP0_REGNUM) * 8; \ |
|||
else \ |
|||
(FSR)->regs[i] = TMP1 + i * 8; \ |
|||
} \ |
|||
} |
|||
|
|||
/* jimb: omitted purify call support */ |
|||
@ -0,0 +1,28 @@ |
|||
/* Target machine description for VxWorks on the PowerPC,
|
|||
for GDB, the GNU debugger. |
|||
Copyright 1999 Free Software Foundation, Inc. |
|||
|
|||
This file is part of GDB. |
|||
|
|||
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 |
|||
the Free Software Foundation; either version 2 of the License, or |
|||
(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. |
|||
|
|||
You should have received a copy of the GNU General Public License |
|||
along with this program; if not, write to the Free Software |
|||
Foundation, Inc., 59 Temple Place - Suite 330, |
|||
Boston, MA 02111-1307, USA. */ |
|||
|
|||
#ifndef TM_VXWORKS_H |
|||
#define TM_VXWORKS_H |
|||
|
|||
#include "powerpc/tm-ppc-eabi.h" |
|||
#include "tm-vxworks.h" |
|||
|
|||
#endif /* ifndef TM_VXWORKS_H */ |
|||
@ -0,0 +1,3 @@ |
|||
# Target: Powerpc running VxWorks |
|||
TDEPFILES= rs6000-tdep.o |
|||
TM_FILE= tm-vxworks.h |
|||
File diff suppressed because it is too large
File diff suppressed because it is too large
@ -0,0 +1,430 @@ |
|||
# Copyright (C) 1988, 1990, 1991, 1992, 1994, 1997 Free Software Foundation, Inc. |
|||
|
|||
# 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 |
|||
# the Free Software Foundation; either version 2 of the License, or |
|||
# (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. |
|||
# |
|||
# You should have received a copy of the GNU General Public License |
|||
# along with this program; if not, write to the Free Software |
|||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
|||
|
|||
# Please email any bugs, comments, and/or additions to this file to: |
|||
# bug-gdb@prep.ai.mit.edu |
|||
|
|||
# This file was written by Rob Savoye. (rob@cygnus.com) |
|||
|
|||
if $tracelevel then { |
|||
strace $tracelevel |
|||
} |
|||
|
|||
set prms_id 0 |
|||
set bug_id 0 |
|||
|
|||
# are we on a target board |
|||
if [is_remote target] { |
|||
return |
|||
} |
|||
|
|||
if [istarget "m68k*-*-hpux*"] then { |
|||
# The top-level makefile passes CFLAGS= (no -g) for hp300. This probably |
|||
# should be fixed (it is only needed for gcc bootstrapping, not gdb), |
|||
# but until then..... |
|||
setup_xfail "*-*-*" |
|||
fail "cannot test self if compiled without debug info" |
|||
return -1 |
|||
} |
|||
|
|||
# Not all of the lines of code near the start of main are executed for |
|||
# every machine. Also, optimization may reorder some of the lines. |
|||
# So all we do is try to step or next over everything until we get |
|||
# to a line that we know is always executed. |
|||
|
|||
proc do_steps_and_nexts {} { |
|||
global gdb_prompt |
|||
global srcdir |
|||
|
|||
gdb_reinitialize_dir $srcdir/.. |
|||
|
|||
for {set count 0} {$count < 20} {incr count} { |
|||
send_gdb "list\n" |
|||
gdb_expect { |
|||
-re ".*symarg = NULL.*$gdb_prompt $" { |
|||
set description "step over symarg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*execarg = NULL.*$gdb_prompt $" { |
|||
set description "step over execarg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*corearg = NULL.*$gdb_prompt $" { |
|||
set description "step over corearg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*cdarg = NULL.*$gdb_prompt $" { |
|||
set description "step over cdarg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*ttyarg = NULL.*$gdb_prompt $" { |
|||
set description "step over ttyarg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*interparg = NULL.*$gdb_prompt $" { |
|||
set description "step over interparg initialization" |
|||
set command "step" |
|||
} |
|||
-re ".*time_at_startup = get_run_time.*$gdb_prompt $" { |
|||
set description "next over get_run_time and everything it calls" |
|||
set command "next" |
|||
} |
|||
-re ".*START_PROGRESS.*$gdb_prompt $" { |
|||
set description "next over START_PROGRESS and everything it calls" |
|||
set command "next" |
|||
} |
|||
-re ".*mac_init.*$gdb_prompt $" { |
|||
set description "next over mac_init and everything it calls" |
|||
set command "next" |
|||
} |
|||
-re ".*init_malloc.*$gdb_prompt $" { |
|||
set description "next over init_malloc and everything it calls" |
|||
set command "next" |
|||
} |
|||
-re ".*count . 0x3.*$gdb_prompt $" { |
|||
set description "next over conditional stack alignment code 1" |
|||
set command "next" |
|||
} |
|||
-re ".*if .i != 0.*$gdb_prompt $" { |
|||
set description "next over conditional stack alignment code 2" |
|||
set command "next" |
|||
} |
|||
-re ".*alloca .i - 4.*$gdb_prompt $" { |
|||
set description "next over conditional stack alignment alloca" |
|||
set command "next" |
|||
} |
|||
-re ".*SET_TOP_LEVEL.*$gdb_prompt $" { |
|||
set description "next over SET_TOP_LEVEL call" |
|||
set command "next" |
|||
} |
|||
-re ".*cmdsize = 1.*$gdb_prompt $" { |
|||
set description "step over cmdsize initialization" |
|||
set command "next" |
|||
} |
|||
-re ".*cmdarg = .* xmalloc.*$gdb_prompt $" { |
|||
set description "next over cmdarg initialization via xmalloc" |
|||
set command "next" |
|||
} |
|||
-re ".*ncmd = 0.*$gdb_prompt $" { |
|||
set description "next over ncmd initialization" |
|||
set command "next" |
|||
} |
|||
-re ".*dirsize = 1.*$gdb_prompt $" { |
|||
set description "next over dirsize initialization" |
|||
set command "next" |
|||
} |
|||
-re ".*dirarg = .* xmalloc.*$gdb_prompt $" { |
|||
return |
|||
} |
|||
-re "\[ \t\]+\{\r\n$gdb_prompt $" { |
|||
setup_xfail "mips-*-irix5*" |
|||
fail "$description ended up at odd location" |
|||
} |
|||
-re ".*main.c.*No such file or directory.*$gdb_prompt $" { |
|||
setup_xfail "rs6000-*-aix3*" |
|||
fail "must be able to list source lines" |
|||
return |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
fail "unknown source line after $description" |
|||
return |
|||
} |
|||
default { |
|||
fail "unknown source line near main" |
|||
return |
|||
} |
|||
} |
|||
send_gdb "$command\n" |
|||
gdb_expect { |
|||
-re ".*No such file or directory.\r\n$gdb_prompt $" { |
|||
fail "$description (no source available)" |
|||
} |
|||
-re ".*A file or directory .* does not exist..\r\n$gdb_prompt $" { |
|||
fail "$description (no source available)" |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
} |
|||
} |
|||
|
|||
proc test_with_self { executable } { |
|||
global gdb_prompt |
|||
global tool |
|||
global det_file |
|||
global decimal |
|||
global timeout |
|||
|
|||
# load yourself into the debugger |
|||
# This can take a relatively long time, particularly for testing where |
|||
# the executable is being accessed over a network, or where gdb does not |
|||
# support partial symbols for a particular target and has to load the |
|||
# entire symbol table. Set the timeout to 10 minutes, which should be |
|||
# adequate for most environments (it *has* timed out with 5 min on a |
|||
# SPARCstation SLC under moderate load, so this isn't unreasonable). |
|||
# After gdb is started, set the timeout to 30 seconds for the duration |
|||
# of this test, and then back to the original value. |
|||
|
|||
set oldtimeout $timeout |
|||
set timeout 600 |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
if {[gdb_load $executable] <0} then { |
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
return -1 |
|||
} |
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
|
|||
# disassemble yourself |
|||
gdb_test "x/10i main" \ |
|||
"x/10i.*main.*main.$decimal.*main.$decimal.*" \ |
|||
"Disassemble main" |
|||
|
|||
# Set a breakpoint at main |
|||
gdb_test "break main" \ |
|||
"Breakpoint.*at.* file.*, line.*" \ |
|||
"breakpoint in main" |
|||
|
|||
# We'll need this when we send a ^C to GDB. Need to do it before we |
|||
# run the program and gdb starts saving and restoring tty states. |
|||
# On Ultrix, we don't need it and it is really slow (because shell_escape |
|||
# doesn't use vfork). |
|||
if ![istarget "*-*-ultrix*"] then { |
|||
gdb_test "shell stty intr '^C'" "" \ |
|||
"set interrupt character in test_with_self" |
|||
} |
|||
|
|||
# FIXME: If we put this after the run to main, the first list |
|||
# command doesn't print the same line as the current line where |
|||
# gdb is stopped. |
|||
gdb_test "set listsize 1" "" "set listsize to 1" |
|||
|
|||
# run yourself |
|||
# It may take a very long time for the inferior gdb to start (lynx), |
|||
# so we bump it back up for the duration of this command. |
|||
set timeout 600 |
|||
|
|||
set description "run until breakpoint at main" |
|||
send_gdb "run -nw\n" |
|||
gdb_expect { |
|||
-re "Starting program.*Breakpoint \[0-9\]+,.*main .argc.*argv.* at .*main.c:.*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
-re "Starting program.*Breakpoint \[0-9\]+,.*main .argc.*argv.*$gdb_prompt $" { |
|||
xfail "$description (line numbers scrambled?)" |
|||
} |
|||
-re "vfork: No more processes.*$gdb_prompt $" { |
|||
fail "$description (out of virtual memory)" |
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
return -1 |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
fail "$description" |
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
return -1 |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
|
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
|
|||
# do we have a version number ? |
|||
send_gdb "print version\n" |
|||
gdb_expect { |
|||
-re ".\[0-9\]+ = +0x.*\[0-9.\]+.*$gdb_prompt $" { |
|||
pass "printed version" |
|||
} |
|||
-re ".\[0-9\]+ = +.+ +0x.*\[0-9.\]+.*$gdb_prompt $" { |
|||
pass "printed version with cast" |
|||
} |
|||
-re ".*$gdb_prompt $" { fail "printed version" } |
|||
timeout { fail "(timeout) printed version" } |
|||
} |
|||
|
|||
do_steps_and_nexts |
|||
|
|||
gdb_test "print \"foo\"" ".\[0-9\]+ = \"foo\"" "print a string" |
|||
|
|||
# do_steps_and_nexts left us ready to execute an xmalloc call, |
|||
# so give that a try. |
|||
# If we don't actually enter the xmalloc call when we give a |
|||
# step command that seems like a genuine bug. It seems to happen |
|||
# on most RISC processors. |
|||
setup_xfail "alpha-*-*" "mips-*-*" |
|||
set description "step into xmalloc call" |
|||
send_gdb "step\n" |
|||
gdb_expect { |
|||
-re "xmalloc.*size=.*at.*utils.c.*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
-re ".*No such file or directory.\r\n$gdb_prompt $" { |
|||
pass "$description (no source available)" |
|||
} |
|||
-re "A file or directory .* does not exist..\r\n$gdb_prompt $" { |
|||
pass "$description (no source available)" |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
fail "$description" |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
|
|||
# start the "xgdb" process |
|||
send_gdb "continue\n" |
|||
gdb_expect { |
|||
-re "GNU gdb \[0-9\.\]*.* |
|||
Copyright \[0-9\]* Free Software Foundation, Inc.* |
|||
GDB is free software, covered by the GNU General Public License, and you are.* |
|||
welcome to change it and/or distribute copies of it under certain conditions.* |
|||
Type \"show copying\" to see the conditions.* |
|||
There is absolutely no warranty for GDB. Type \"show warranty\" for details.* |
|||
This GDB was configured as .*$gdb_prompt $"\ |
|||
{ pass "xgdb is at prompt" } |
|||
-re "GDB is free software and you are welcome to distribute copies of it.* |
|||
under certain conditions; type \"show copying\" to see the conditions..* |
|||
There is absolutely no warranty for GDB; type \"show warranty\" for details..* |
|||
GDB.*Copyright \[0-9\]+ Free Software Foundation, Inc..*$gdb_prompt $"\ |
|||
{ pass "xgdb is at prompt (obsolescent gdb)" } |
|||
-re ".*$gdb_prompt $" { fail "xgdb is at prompt" } |
|||
timeout { fail "(timeout) xgdb is at prompt" } |
|||
} |
|||
|
|||
# set xgdb prompt so we can tell which is which |
|||
send_gdb "set prompt (xgdb) \n" |
|||
gdb_expect { |
|||
-re "\[(\]xgdb\[)\].*\[(\]xgdb\[)\] $" { pass "Set xgdb prompt" } |
|||
-re ".*$gdb_prompt $" { fail "Set xgdb prompt" } |
|||
default { fail "(timeout) Set xgdb prompt" } |
|||
} |
|||
|
|||
# kill the xgdb process |
|||
set description "send ^C to child process" |
|||
send_gdb "\003" |
|||
gdb_expect { |
|||
-re "Program received signal SIGINT.*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
fail "$description" |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
|
|||
set description "send SIGINT signal to child process" |
|||
send_gdb "signal SIGINT\n" |
|||
gdb_expect { |
|||
-re "Continuing with signal SIGINT.*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
fail "$description" |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
|
|||
# get a stack trace |
|||
# |
|||
# This fails on some linux systems for unknown reasons. On the |
|||
# systems where it fails, sometimes it works fine when run manually. |
|||
# The testsuite failures may not be limited to just aout systems. |
|||
setup_xfail "i*86-pc-linuxaout-gnu" "hppa*-*-hpux*" |
|||
set description "backtrace through signal handler" |
|||
send_gdb "backtrace\n" |
|||
gdb_expect { |
|||
-re "#0.*read.*in main \\(.*\\) at .*main\\.c.*$gdb_prompt $" { |
|||
pass "$description" |
|||
} |
|||
-re ".*$gdb_prompt $" { |
|||
# On the alpha, we hit the infamous problem about gdb |
|||
# being unable to get the frame pointer (mentioned in |
|||
# gdb/README). As it is intermittent, there is no way to |
|||
# XFAIL it which will give us an XPASS if the problem goes |
|||
# away. |
|||
setup_xfail "alpha*-*-osf*" |
|||
fail "$description" |
|||
} |
|||
timeout { |
|||
fail "$description (timeout)" |
|||
} |
|||
} |
|||
|
|||
|
|||
# Set the timeout back to the value it had when we were called. |
|||
set timeout $oldtimeout |
|||
verbose "Timeout is now $timeout seconds" 2 |
|||
|
|||
# Restart gdb in case next test expects it to be started already. |
|||
return 0 |
|||
} |
|||
|
|||
# Find a pathname to a file that we would execute if the shell was asked |
|||
# to run $arg using the current PATH. |
|||
|
|||
proc find_gdb { arg } { |
|||
|
|||
# If the arg directly specifies an existing executable file, then |
|||
# simply use it. |
|||
|
|||
if [file executable $arg] then { |
|||
return $arg |
|||
} |
|||
|
|||
set result [which $arg] |
|||
if [string match "/" [ string range $result 0 0 ]] then { |
|||
return $result |
|||
} |
|||
|
|||
# If everything fails, just return the unqualified pathname as default |
|||
# and hope for best. |
|||
|
|||
return $arg |
|||
} |
|||
|
|||
# Run the test with self. |
|||
# Copy the file executable file in case this OS doesn't like to edit its own |
|||
# text space. |
|||
|
|||
set GDB_FULLPATH [find_gdb $GDB] |
|||
|
|||
# Remove any old copy lying around. |
|||
remote_file host delete x$tool |
|||
|
|||
gdb_start |
|||
set file [remote_download host $GDB_FULLPATH x$tool] |
|||
set result [test_with_self $file]; |
|||
gdb_exit; |
|||
catch "remote_file host delete $file"; |
|||
|
|||
if {$result <0} then { |
|||
warning "Couldn't test self" |
|||
return -1 |
|||
} |
|||
Loading…
Reference in new issue