/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 
/* |_o_o|\\   The Software Distillery					     */ 
/* |. o.| ||  Made available for the Amiga development community	     */ 
/* | .	| ||   author:						   BBS:      */ 
/* | o	| ||   John Mainwaring				     (919)-471-6436  */ 
/* |  . |//								     */ 
/* ======								     */ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 
 
/* global definitions for traceback dump utility */ 
 
#include "exec/types.h" 
#include "exec/memory.h" 
#include "proto/exec.h" 
#include "stdio.h" 
#include "string.h" 
#include "stdlib.h" 
 
#define FATAL 20 
 
/* bit flags for dump options */ 
#define SYMFLG		1<<0 
#define FAILFLG 	1<<1 
#define REGFLG		1<<2 
#define ENVFLG		1<<3 
#define STAKFLG		1<<4 
#define UDATFLG		1<<5 
#define FMEMFLG 	1<<6 
#define TRACEFLG	1<<7 
 
struct symbol_node { 
   struct symbol_node * sn_next; 
   long sn_memsize; 
   ULONG sn_value; 
   char sn_sym[4]; /* real length determined when allocated */ 
   }; 
 
struct line_elem { 
   ULONG le_line; 
   ULONG le_off; 
   }; 
 
struct line_node { 
   struct line_node * ln_next; 
   ULONG ln_size;	/* byte size of this block			*/ 
   ULONG ln_codesize;	/* byte size of this object file		*/ 
   ULONG ln_letabsize;	/* number of line_elems for this object file	*/ 
   ULONG ln_offset;	/* offset into segment of this object file	*/ 
   ULONG ln_nsize;	/* length of name (in longwords)		*/ 
   char  ln_name[4];	/* name of object file lines belong to		*/ 
			/* a table of line_elem comes after full name	*/ 
   }; 
 
/* element of table of seglist descriptors */ 
struct segment { 
   long addr; 
   long size; 
   struct symbol_node *symbols; 
   struct line_node *lines; 
   }; 
 
/* element of UDAT chain */ 
struct udata { 
   struct udata *udptr; 
   long udsize; 
   long udat[1];  /* actual length of array given by udsize */ 
   }; 
 
/* data structure to hold contents of PGTB traceback file */ 
struct tbtemplate { 
   /* FAIL stuff */ 
   long  gotfail;	/* found FAIL chunk		*/ 
   char *taskname;	/* name from task block		*/ 
   ULONG environ,	/* H/W environment		*/ 
	 vbfreq,	/* Vertical Blank		*/ 
	 psfreq,	/* Power Supply			*/ 
	 starter,	/* 0 = WB else CLI		*/ 
	 guru,		/* defined in alerts.h		*/ 
	 segcount;	/* longword count		*/ 
   struct segment *segments; /* seglist			*/ 
   /* REGS stuff */ 
   long  gotregs;	/* found REGS chunk		*/ 
   ULONG pc,		/* program counter		*/ 
	 cc,		/* condition code reg		*/ 
	 dregs[8],	/* D0-D7			*/ 
	 aregs[8];	/* A0-A7			*/ 
   /* VERS stuff */ 
   long  gotvers;	/* found VERS chunk		*/ 
   ULONG ver,		/* version of catch.o		*/ 
	 rev;		/* revision of catch.o		*/ 
   char *filename;	/* name of catch.o		*/ 
   /* FMEM stuff */ 
   long  gotfmem;	/* got FMEM chunk		*/ 
   ULONG memca,		/* available chip		*/ 
         memcm,		/* max chip			*/ 
	 memcl,		/* largest chip			*/ 
 	 memfa,		/* available fast		*/ 
         memfm,		/* max fast			*/ 
	 memfl;		/* largest fast			*/ 
   /* STAK stuff (pointer to data chain) */ 
   ULONG staktop,	/* top of stack			*/ 
	 stakptr,/* saved stack pointer			*/ 
	 staklen,	/* bottom of stack		*/ 
	 topseg,	/* bool top present		*/ 
	 botseg,	/* bool bot present		*/ 
	 seglen,	/* else entire size*/ 
	 stak[2048];	/* stack data, 8K bytes		*/ 
   /* UDAT stuff */ 
   struct udata *udhead; 
   }; 
 
struct addrinfo { 
   long hunknum; 
   long offset; 
   char *name; 
   char *objname; 
   long line; 
   long lineoff; 
   }; 
 
/* templates for functions called from outside defining section */ 
 
/* defined in tdrutil.c */ 
long getlong(FILE *); 
long forcegetlong(FILE *); 
void getblock(FILE *, ULONG *, long); 
void getbytes(FILE *, ULONG *, long); 
ULONG getascii(FILE *, char **); 
void skiplong(FILE *, long); 
void skipbytes(FILE *, long); 
 
/* defined in tdread.h */ 
int  tdread(FILE *); 
 
/* defined in tdsym.h */ 
int  readsym(FILE *); 
 
/* defined in tdump.c */ 
void tdump(int); 
 
/* defined in tdwutil.c */ 
void hexdump(FILE *, unsigned char *, long, long); 
void longtoascii(ULONG, char *); 
int  locaddr(ULONG, struct addrinfo *);