reactos/sdk/tools/dumpstab.c

211 lines
5.3 KiB
C
Raw Normal View History

/*
* Usage: dumpstab input-file
*
* There are two sources of information: the .stab/.stabstr
* sections of the executable and the COFF symbol table. Most
* of the information is in the .stab/.stabstr sections.
* However, most of our asm files don't contain .stab directives,
* so routines implemented in assembler won't show up in the
* .stab section. They are present in the COFF symbol table.
* So, we mostly use the .stab/.stabstr sections, but we augment
* the info there with info from the COFF symbol table when
* possible.
*
* This is a tool and is compiled using the host compiler,
* i.e. on Linux gcc and not mingw-gcc (cross-compiler).
* Therefore we can't include SDK headers and we have to
* duplicate some definitions here.
* Also note that the internal functions are "old C-style",
* returning an int, where a return of 0 means success and
* non-zero is failure.
*/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <assert.h>
#include "rsym.h"
const char*
stab_type_name ( int stab_type )
{
static char buf[32];
switch ( stab_type )
{
#define X(n) case n: return #n;
X(N_GYSM)
X(N_FNAME)
X(N_FUN)
X(N_STSYM)
X(N_LCSYM)
X(N_MAIN)
X(N_PC)
X(N_NSYMS)
X(N_NOMAP)
X(N_RSYM)
X(N_M2C)
X(N_SLINE)
X(N_DSLINE)
X(N_BSLINE)
//X(N_BROWS)
X(N_DEFD)
X(N_EHDECL)
//X(N_MOD2)
X(N_CATCH)
X(N_SSYM)
X(N_SO)
X(N_LSYM)
X(N_BINCL)
X(N_SOL)
X(N_PSYM)
X(N_EINCL)
X(N_ENTRY)
X(N_LBRAC)
X(N_EXCL)
X(N_SCOPE)
X(N_RBRAC)
X(N_BCOMM)
X(N_ECOMM)
X(N_ECOML)
X(N_LENG)
}
sprintf ( buf, "%lu", stab_type );
return buf;
}
static int
GetStabInfo(void *FileData, PIMAGE_FILE_HEADER PEFileHeader,
PIMAGE_SECTION_HEADER PESectionHeaders,
ULONG *StabSymbolsLength, void **StabSymbolsBase,
ULONG *StabStringsLength, void **StabStringsBase)
{
ULONG Idx;
/* Load .stab and .stabstr sections if available */
*StabSymbolsBase = NULL;
*StabSymbolsLength = 0;
*StabStringsBase = NULL;
*StabStringsLength = 0;
for (Idx = 0; Idx < PEFileHeader->NumberOfSections; Idx++)
{
/* printf("section: '%.08s'\n", PESectionHeaders[Idx].Name); */
if ((strncmp((char*)PESectionHeaders[Idx].Name, ".stab", 5) == 0)
&& (PESectionHeaders[Idx].Name[5] == 0))
{
/* printf(".stab section found. Size %d\n",
PESectionHeaders[Idx].SizeOfRawData); */
*StabSymbolsLength = PESectionHeaders[Idx].SizeOfRawData;
*StabSymbolsBase = (void *)((char *) FileData + PESectionHeaders[Idx].PointerToRawData);
}
if (strncmp((char*)PESectionHeaders[Idx].Name, ".stabstr", 8) == 0)
{
/* printf(".stabstr section found. Size %d\n",
PESectionHeaders[Idx].SizeOfRawData); */
*StabStringsLength = PESectionHeaders[Idx].SizeOfRawData;
*StabStringsBase = (void *)((char *) FileData + PESectionHeaders[Idx].PointerToRawData);
}
}
return 0;
}
static void
IterateStabs(ULONG StabSymbolsLength, void *StabSymbolsBase,
ULONG StabStringsLength, void *StabStringsBase,
ULONG_PTR ImageBase, PIMAGE_FILE_HEADER PEFileHeader,
PIMAGE_SECTION_HEADER PESectionHeaders)
{
PSTAB_ENTRY e;
ULONG Count, i;
e = StabSymbolsBase;
Count = StabSymbolsLength / sizeof(STAB_ENTRY);
if (Count == 0) /* No symbol info */
return;
printf ( "type,other,desc,value,str\n" );
for (i = 0; i < Count; i++)
{
printf ( "%s,%lu(0x%x),%lu(0x%x),%lu(0x%x),%s\n",
stab_type_name(e[i].n_type),
e[i].n_other,
e[i].n_other,
e[i].n_desc,
e[i].n_desc,
e[i].n_value,
e[i].n_value,
(char *) StabStringsBase + e[i].n_strx );
}
}
int main(int argc, char* argv[])
{
PIMAGE_DOS_HEADER PEDosHeader;
PIMAGE_FILE_HEADER PEFileHeader;
PIMAGE_OPTIONAL_HEADER PEOptHeader;
PIMAGE_SECTION_HEADER PESectionHeaders;
ULONG ImageBase;
void *StabBase;
ULONG StabsLength;
void *StabStringBase;
ULONG StabStringsLength;
char* path1;
size_t FileSize;
void *FileData;
if (2 != argc)
{
fprintf(stderr, "Usage: dumpstabs <exefile>\n");
exit(1);
}
path1 = convert_path(argv[1]);
FileData = load_file ( path1, &FileSize );
if ( !FileData )
{
fprintf ( stderr, "An error occured loading '%s'\n", path1 );
exit(1);
}
/* Check if MZ header exists */
PEDosHeader = (PIMAGE_DOS_HEADER) FileData;
if (PEDosHeader->e_magic != IMAGE_DOS_MAGIC || PEDosHeader->e_lfanew == 0L)
{
perror("Input file is not a PE image.\n");
free(FileData);
exit(1);
}
/* Locate PE file header */
/* sizeof(ULONG) = sizeof(MAGIC) */
PEFileHeader = (PIMAGE_FILE_HEADER)((char *) FileData + PEDosHeader->e_lfanew + sizeof(ULONG));
/* Locate optional header */
assert(sizeof(ULONG) == 4);
PEOptHeader = (PIMAGE_OPTIONAL_HEADER)(PEFileHeader + 1);
ImageBase = PEOptHeader->ImageBase;
/* Locate PE section headers */
PESectionHeaders = (PIMAGE_SECTION_HEADER)((char *) PEOptHeader + PEFileHeader->SizeOfOptionalHeader);
if (GetStabInfo(FileData, PEFileHeader, PESectionHeaders, &StabsLength, &StabBase,
&StabStringsLength, &StabStringBase))
{
free(FileData);
exit(1);
}
IterateStabs( StabsLength, StabBase, StabStringsLength, StabStringBase,
ImageBase, PEFileHeader, PESectionHeaders);
free(FileData);
return 0;
}