jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Linux

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@952 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-11-26 17:37:08 +00:00
commit 5b2469bdee
6 changed files with 85 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

7
SWIG/Tools/WAD/Include/wad.h
View file

@ -89,9 +89,9 @@ extern void wad_elf_debug(WadObjectFile *wo);
typedef struct WadParm {
char name[64];
int loc;
int type;
int value;
int loc; /* Location: register or stack */
int type; /* Argument type */
int value; /* Argument position from stabs */
} WadParm;
/* Debugging information */
@ -176,6 +176,7 @@ extern WadReturnFunc *wad_check_return(const char *name);
#define DEBUG_INIT 0x100
#define DEBUG_NOSTACK 0x200
#define DEBUG_ONESHOT 0x400
#define DEBUG_STACK 0x800
extern int wad_debug_mode;

31
SWIG/Tools/WAD/Wad/default.c
View file

@ -27,16 +27,12 @@ char *wad_arg_string(WadFrame *frame) {
int i;
WadFrame *nf;
#ifdef WAD_LINUX
strcat(str,"");
return str;
#endif
if (frame->size)
if (frame->size) {
nf = (WadFrame *) (((char *) frame) + frame->size);
else
if (nf->size == 0) nf = 0;
} else {
nf = 0;
}
if (nf)
nextstack = STACK(nf);
else
@ -45,17 +41,25 @@ char *wad_arg_string(WadFrame *frame) {
str[0] = 0;
stack = STACK(frame);
#ifdef WAD_LINUX
if (!nf) {
return "";
}
#endif
if (frame->nargs < 0) {
/* No argument information is available. In this case
we will simply dump the %in registers. (assuming we can
find them) */
/* No argument information is available. If we are on SPARC, we'll dump
the %in registers since these usually hold input parameters. On
Linux, we do nothing */
#ifdef WAD_SOLARIS
for (i = 0; i < 6; i++) {
sprintf(temp,"0x%x", stack[8+i]);
strcat(str,temp);
if (i < 5)
strcat(str,",");
}
#endif
} else {
/* We were able to get some argument information out the debugging table */
wp = ARGUMENTS(frame);
@ -80,6 +84,7 @@ char *wad_arg_string(WadFrame *frame) {
}
}
} else if (wp->loc == PARM_REGISTER) {
#ifdef WAD_SOLARIS
if ((wp->value >= 24) && (wp->value < 32)) {
/* Value is located in the %in registers */
sprintf(temp,"0x%x", stack[wp->value - 16]);
@ -93,6 +98,10 @@ char *wad_arg_string(WadFrame *frame) {
sprintf(temp,"0x%x", frame->regs[wp->value - 16]);
strcat(str,temp);
}
#endif
#ifdef WAD_LINUX
strcat(str,"?");
#endif
}
if (i < (frame->nargs-1)) strcat(str,",");
}

4
SWIG/Tools/WAD/Wad/init.c
View file

@ -54,6 +54,10 @@ void wad_init() {
wad_debug_mode |= DEBUG_INIT;
}
if (getenv("WAD_DEBUG_STACK")) {
wad_debug_mode |= DEBUG_STACK;
}
if (getenv("WAD_NOSTACK")) {
wad_debug_mode |= DEBUG_NOSTACK;
}

31
SWIG/Tools/WAD/Wad/signal.c
View file

@ -133,7 +133,36 @@ void wad_signalhandler(int sig, siginfo_t *si, void *vcontext) {
/* We're really hosed here */
return;
}
if (wad_debug_mode & DEBUG_STACK) {
/* Walk the exception frames and try to find a return point */
framedata = (char *) frame;
while (frame->size) {
int i;
WadParm *p;
/* Print out detailed stack trace information */
printf("::: Stack frame - 0x%08x :::\n", frame);
printf(" sp = %x\n", frame->sp);
printf(" fp = %x\n", frame->fp);
printf(" size = %x\n", frame->stack_size);
printf(" pc = %x\n", frame->pc);
printf(" symbol = '%s'\n", SYMBOL(frame));
printf(" srcfile = '%s'\n", SRCFILE(frame));
printf(" objfile = '%s'\n", OBJFILE(frame));
printf(" numargs = %d\n", frame->nargs);
printf(" arguments [\n");
p = ARGUMENTS(frame);
for (i = 0; i < frame->nargs; i++, p++) {
printf(" arg[%d] : name = '%s', loc = %d, type = %d, value = %d\n", i, p->name, p->loc, p->type, p->value);
}
printf(" ]\n");
framedata = framedata + frame->size;
frame = (WadFrame *) framedata;
}
frame = origframe;
}
/* Walk the exception frames and try to find a return point */
framedata = (char *) frame;

24
SWIG/Tools/WAD/Wad/stab.c
View file

@ -158,18 +158,36 @@ wad_search_stab(void *sp, int size, char *stabstr, WadSymbol *wsym, unsigned lon
one identifies its location for the debugger */
if (debug->nargs > 0) {
if (strcmp(debug->parms[debug->nargs-1].name, pname) == 0)
debug->nargs--;
/* Need to do some fix up for linux here */
int i;
for (i = 0; i < debug->nargs; i++) {
if ((strncmp(debug->parms[i].name, pname,len) == 0) && (strlen(debug->parms[i].name) == len)) {
/* We already saw this argument. Given a choice between a register and a stack
argument. We will choose the stack version */
if (debug->parms[i].loc == PARM_STACK) {
break;
}
/* Go ahead and use the new argument */
if (s->n_type == 0x40)
debug->parms[i].loc = PARM_REGISTER;
else
debug->parms[i].loc = PARM_STACK;
debug->parms[i].value = s->n_value;
break;
}
}
if (i < debug->nargs) continue; /* We got an argument match. Just skip to next stab */
}
strncpy(debug->parms[debug->nargs].name,pname,len);
debug->parms[debug->nargs].name[len] = 0;
if (s->n_type == 0x40)
debug->parms[debug->nargs].loc = PARM_REGISTER;
else
debug->parms[debug->nargs].loc = PARM_STACK;
debug->parms[debug->nargs].value = s->n_value;
debug->parms[debug->nargs].type = 0; /* Not used yet */
debug->nargs++;
}
}

7
SWIG/Tools/WAD/Wad/stack.c
View file

@ -177,6 +177,7 @@ wad_stack_trace(unsigned long pc, unsigned long sp, unsigned long fp) {
firstframe = 0;
/* Determine stack frame size */
p_lastsp = p_sp;
stack_unwind(&p_sp, &p_pc, &p_fp);
if (p_sp) {
@ -190,7 +191,9 @@ wad_stack_trace(unsigned long pc, unsigned long sp, unsigned long fp) {
#endif
}
/* Set the frame pointer and stack size */
frame.fp = p_sp;
/* frame.fp = p_sp; */
frame.fp = p_sp;
frame.stack_size = stacksize;
/* Build the exception frame object we'll write */
@ -215,6 +218,7 @@ wad_stack_trace(unsigned long pc, unsigned long sp, unsigned long fp) {
frame.src_off = frame.sym_off + symsize;
frame.obj_off = frame.src_off + srcsize;
}
write(ffile,&frame,sizeof(WadFrame));
/* Write the argument data */
if (argsize > 0) {
@ -315,3 +319,4 @@ long wad_steal_outarg(WadFrame *f, char *symbol, int argno, int *error) {
*error = -1;
return 0;
}