/* BFD back-end for Intel 386 PE IMAGE COFF files.
|
/* BFD back-end for Intel 386 PE IMAGE COFF files.
|
Copyright 2006, 2007, 2009 Free Software Foundation, Inc.
|
Copyright 2006, 2007, 2009 Free Software Foundation, Inc.
|
|
|
This file is part of BFD, the Binary File Descriptor library.
|
This file is part of BFD, the Binary File Descriptor library.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
MA 02110-1301, USA.
|
MA 02110-1301, USA.
|
|
|
Written by Kai Tietz, OneVision Software GmbH&CoKg. */
|
Written by Kai Tietz, OneVision Software GmbH&CoKg. */
|
|
|
#include "sysdep.h"
|
#include "sysdep.h"
|
#include "bfd.h"
|
#include "bfd.h"
|
|
|
#define TARGET_SYM x86_64pei_vec
|
#define TARGET_SYM x86_64pei_vec
|
#define TARGET_NAME "pei-x86-64"
|
#define TARGET_NAME "pei-x86-64"
|
#define COFF_IMAGE_WITH_PE
|
#define COFF_IMAGE_WITH_PE
|
#define COFF_WITH_PE
|
#define COFF_WITH_PE
|
#define COFF_WITH_pex64
|
#define COFF_WITH_pex64
|
#define PCRELOFFSET TRUE
|
#define PCRELOFFSET TRUE
|
#define TARGET_UNDERSCORE '_'
|
#define TARGET_UNDERSCORE '_'
|
/* Long section names not allowed in executable images, only object files. */
|
/* Long section names not allowed in executable images, only object files. */
|
#define COFF_LONG_SECTION_NAMES 0
|
#define COFF_LONG_SECTION_NAMES 0
|
#define COFF_SUPPORT_GNU_LINKONCE
|
#define COFF_SUPPORT_GNU_LINKONCE
|
#define COFF_LONG_FILENAMES
|
#define COFF_LONG_FILENAMES
|
#define PDATA_ROW_SIZE (3 * 4)
|
#define PDATA_ROW_SIZE (3 * 4)
|
|
|
#define COFF_SECTION_ALIGNMENT_ENTRIES \
|
#define COFF_SECTION_ALIGNMENT_ENTRIES \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".bss"), \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".bss"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".data"), \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".data"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".rdata"), \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".rdata"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".text"), \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".text"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 4 }, \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".idata"), \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".idata"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".pdata"), \
|
{ COFF_SECTION_NAME_EXACT_MATCH (".pdata"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".debug"), \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".debug"), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }, \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }, \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".gnu.linkonce.wi."), \
|
{ COFF_SECTION_NAME_PARTIAL_MATCH (".gnu.linkonce.wi."), \
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }
|
COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }
|
|
|
/* Note we have to make sure not to include headers twice.
|
/* Note we have to make sure not to include headers twice.
|
Not all headers are wrapped in #ifdef guards, so we define
|
Not all headers are wrapped in #ifdef guards, so we define
|
PEI_HEADERS to prevent double including in coff-x86_64.c */
|
PEI_HEADERS to prevent double including in coff-x86_64.c */
|
#define PEI_HEADERS
|
#define PEI_HEADERS
|
#include "sysdep.h"
|
#include "sysdep.h"
|
#include "bfd.h"
|
#include "bfd.h"
|
#include "libbfd.h"
|
#include "libbfd.h"
|
#include "coff/x86_64.h"
|
#include "coff/x86_64.h"
|
#include "coff/internal.h"
|
#include "coff/internal.h"
|
#include "coff/pe.h"
|
#include "coff/pe.h"
|
#include "libcoff.h"
|
#include "libcoff.h"
|
#include "libpei.h"
|
#include "libpei.h"
|
#include "libiberty.h"
|
#include "libiberty.h"
|
|
|
#undef AOUTSZ
|
#undef AOUTSZ
|
#define AOUTSZ PEPAOUTSZ
|
#define AOUTSZ PEPAOUTSZ
|
#define PEAOUTHDR PEPAOUTHDR
|
#define PEAOUTHDR PEPAOUTHDR
|
|
|
static const char *pex_regs[16] = {
|
static const char *pex_regs[16] = {
|
"rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi",
|
"rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi",
|
"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15"
|
"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15"
|
};
|
};
|
|
|
static void
|
static void
|
pex64_get_runtime_function (bfd *abfd, struct pex64_runtime_function *rf,
|
pex64_get_runtime_function (bfd *abfd, struct pex64_runtime_function *rf,
|
const void *data)
|
const void *data)
|
{
|
{
|
const struct external_pex64_runtime_function *ex_rf =
|
const struct external_pex64_runtime_function *ex_rf =
|
(const struct external_pex64_runtime_function *) data;
|
(const struct external_pex64_runtime_function *) data;
|
rf->rva_BeginAddress = bfd_get_32 (abfd, ex_rf->rva_BeginAddress);
|
rf->rva_BeginAddress = bfd_get_32 (abfd, ex_rf->rva_BeginAddress);
|
rf->rva_EndAddress = bfd_get_32 (abfd, ex_rf->rva_EndAddress);
|
rf->rva_EndAddress = bfd_get_32 (abfd, ex_rf->rva_EndAddress);
|
rf->rva_UnwindData = bfd_get_32 (abfd, ex_rf->rva_UnwindData);
|
rf->rva_UnwindData = bfd_get_32 (abfd, ex_rf->rva_UnwindData);
|
rf->isChained = PEX64_IS_RUNTIME_FUNCTION_CHAINED (rf);
|
rf->isChained = PEX64_IS_RUNTIME_FUNCTION_CHAINED (rf);
|
rf->rva_UnwindData = PEX64_GET_UNWINDDATA_UNIFIED_RVA (rf);
|
rf->rva_UnwindData = PEX64_GET_UNWINDDATA_UNIFIED_RVA (rf);
|
}
|
}
|
|
|
static void
|
static void
|
pex64_get_unwind_info (bfd *abfd, struct pex64_unwind_info *ui, void *data)
|
pex64_get_unwind_info (bfd *abfd, struct pex64_unwind_info *ui, void *data)
|
{
|
{
|
struct external_pex64_unwind_info *ex_ui =
|
struct external_pex64_unwind_info *ex_ui =
|
(struct external_pex64_unwind_info *) data;
|
(struct external_pex64_unwind_info *) data;
|
bfd_byte *ex_dta = (bfd_byte *) data;
|
bfd_byte *ex_dta = (bfd_byte *) data;
|
|
|
memset (ui, 0, sizeof (struct pex64_unwind_info));
|
memset (ui, 0, sizeof (struct pex64_unwind_info));
|
ui->Version = PEX64_UWI_VERSION (ex_ui->Version_Flags);
|
ui->Version = PEX64_UWI_VERSION (ex_ui->Version_Flags);
|
ui->Flags = PEX64_UWI_FLAGS (ex_ui->Version_Flags);
|
ui->Flags = PEX64_UWI_FLAGS (ex_ui->Version_Flags);
|
ui->SizeOfPrologue = (bfd_vma) ex_ui->SizeOfPrologue;
|
ui->SizeOfPrologue = (bfd_vma) ex_ui->SizeOfPrologue;
|
ui->CountOfCodes = (bfd_vma) ex_ui->CountOfCodes;
|
ui->CountOfCodes = (bfd_vma) ex_ui->CountOfCodes;
|
ui->FrameRegister = PEX64_UWI_FRAMEREG (ex_ui->FrameRegisterOffset);
|
ui->FrameRegister = PEX64_UWI_FRAMEREG (ex_ui->FrameRegisterOffset);
|
ui->FrameOffset = PEX64_UWI_FRAMEOFF (ex_ui->FrameRegisterOffset);
|
ui->FrameOffset = PEX64_UWI_FRAMEOFF (ex_ui->FrameRegisterOffset);
|
ui->sizeofUnwindCodes = PEX64_UWI_SIZEOF_UWCODE_ARRAY (ui->CountOfCodes);
|
ui->sizeofUnwindCodes = PEX64_UWI_SIZEOF_UWCODE_ARRAY (ui->CountOfCodes);
|
ui->SizeOfBlock = ui->sizeofUnwindCodes + 4;
|
ui->SizeOfBlock = ui->sizeofUnwindCodes + 4;
|
ui->rawUnwindCodes = &ex_dta[4];
|
ui->rawUnwindCodes = &ex_dta[4];
|
ex_dta += ui->SizeOfBlock;
|
ex_dta += ui->SizeOfBlock;
|
switch (ui->Flags)
|
switch (ui->Flags)
|
{
|
{
|
case UNW_FLAG_EHANDLER:
|
case UNW_FLAG_EHANDLER:
|
ui->rva_ExceptionHandler = bfd_get_32 (abfd, ex_dta);
|
ui->rva_ExceptionHandler = bfd_get_32 (abfd, ex_dta);
|
break;
|
break;
|
case UNW_FLAG_UHANDLER:
|
case UNW_FLAG_UHANDLER:
|
ui->rva_TerminationHandler = bfd_get_32 (abfd, ex_dta);
|
ui->rva_TerminationHandler = bfd_get_32 (abfd, ex_dta);
|
break;
|
break;
|
case UNW_FLAG_FHANDLER:
|
case UNW_FLAG_FHANDLER:
|
ui->rva_FrameHandler = bfd_get_32 (abfd, ex_dta);
|
ui->rva_FrameHandler = bfd_get_32 (abfd, ex_dta);
|
ui->FrameHandlerArgument = bfd_get_32 (abfd, ex_dta + 4);
|
ui->FrameHandlerArgument = bfd_get_32 (abfd, ex_dta + 4);
|
ui->SizeOfBlock += 8;
|
ui->SizeOfBlock += 8;
|
return;
|
return;
|
case UNW_FLAG_CHAININFO:
|
case UNW_FLAG_CHAININFO:
|
ui->rva_FunctionEntry = bfd_get_32 (abfd, ex_dta);
|
ui->rva_FunctionEntry = bfd_get_32 (abfd, ex_dta);
|
ui->SizeOfBlock += 4;
|
ui->SizeOfBlock += 4;
|
return;
|
return;
|
default:
|
default:
|
return;
|
return;
|
}
|
}
|
ex_dta += 4;
|
ex_dta += 4;
|
ui->SizeOfBlock += 8;
|
ui->SizeOfBlock += 8;
|
ui->CountOfScopes = bfd_get_32 (abfd, ex_dta);
|
ui->CountOfScopes = bfd_get_32 (abfd, ex_dta);
|
ex_dta += 4;
|
ex_dta += 4;
|
ui->rawScopeEntries = ex_dta;
|
ui->rawScopeEntries = ex_dta;
|
ui->SizeOfBlock += (ui->CountOfScopes * PEX64_SCOPE_ENTRY_SIZE);
|
ui->SizeOfBlock += (ui->CountOfScopes * PEX64_SCOPE_ENTRY_SIZE);
|
}
|
}
|
|
|
static void
|
static void
|
pex64_get_scope_entry (bfd *abfd, struct pex64_scope_entry *se,
|
pex64_get_scope_entry (bfd *abfd, struct pex64_scope_entry *se,
|
bfd_vma idx, const bfd_byte *x)
|
bfd_vma idx, const bfd_byte *x)
|
{
|
{
|
const struct external_pex64_scope_entry *ex_se;
|
const struct external_pex64_scope_entry *ex_se;
|
x += (idx * PEX64_SCOPE_ENTRY_SIZE);
|
x += (idx * PEX64_SCOPE_ENTRY_SIZE);
|
ex_se = (const struct external_pex64_scope_entry *) x;
|
ex_se = (const struct external_pex64_scope_entry *) x;
|
memset (se, 0, sizeof (struct pex64_scope_entry));
|
memset (se, 0, sizeof (struct pex64_scope_entry));
|
se->rva_BeginAddress = bfd_get_32 (abfd, ex_se->rva_BeginAddress);
|
se->rva_BeginAddress = bfd_get_32 (abfd, ex_se->rva_BeginAddress);
|
se->rva_EndAddress = bfd_get_32 (abfd, ex_se->rva_EndAddress);
|
se->rva_EndAddress = bfd_get_32 (abfd, ex_se->rva_EndAddress);
|
se->rva_HandlerAddress = bfd_get_32 (abfd, ex_se->rva_HandlerAddress);
|
se->rva_HandlerAddress = bfd_get_32 (abfd, ex_se->rva_HandlerAddress);
|
se->rva_JumpAddress = bfd_get_32 (abfd, ex_se->rva_JumpAddress);
|
se->rva_JumpAddress = bfd_get_32 (abfd, ex_se->rva_JumpAddress);
|
}
|
}
|
|
|
static void
|
static void
|
pex64_xdata_print_uwd_codes (FILE *file, struct pex64_unwind_info *ui,
|
pex64_xdata_print_uwd_codes (FILE *file, struct pex64_unwind_info *ui,
|
bfd_vma pc_addr)
|
bfd_vma pc_addr)
|
{
|
{
|
bfd_vma i;
|
bfd_vma i;
|
bfd_vma tmp = 0;
|
bfd_vma tmp = 0;
|
const bfd_byte *insns[256];
|
const bfd_byte *insns[256];
|
bfd_vma insns_count = 0;
|
bfd_vma insns_count = 0;
|
const bfd_byte *dta = ui->rawUnwindCodes;
|
const bfd_byte *dta = ui->rawUnwindCodes;
|
|
|
if (ui->CountOfCodes == 0 || !dta)
|
if (ui->CountOfCodes == 0 || !dta)
|
return;
|
return;
|
|
|
/* Sort array ascending. Note: it is stored in reversed order. */
|
/* Sort array ascending. Note: it is stored in reversed order. */
|
for (i = 0; i < ui->CountOfCodes; i++)
|
for (i = 0; i < ui->CountOfCodes; i++)
|
{
|
{
|
const bfd_byte *t;
|
const bfd_byte *t;
|
|
|
t = insns[insns_count++] = &dta[i * 2];
|
t = insns[insns_count++] = &dta[i * 2];
|
switch (PEX64_UNWCODE_CODE (t[1]))
|
switch (PEX64_UNWCODE_CODE (t[1]))
|
{
|
{
|
case UWOP_PUSH_NONVOL:
|
case UWOP_PUSH_NONVOL:
|
case UWOP_ALLOC_SMALL:
|
case UWOP_ALLOC_SMALL:
|
case UWOP_SET_FPREG:
|
case UWOP_SET_FPREG:
|
case UWOP_PUSH_MACHFRAME:
|
case UWOP_PUSH_MACHFRAME:
|
break;
|
break;
|
case UWOP_ALLOC_LARGE:
|
case UWOP_ALLOC_LARGE:
|
if (PEX64_UNWCODE_INFO (t[1]) == 0)
|
if (PEX64_UNWCODE_INFO (t[1]) == 0)
|
{
|
{
|
i += 1;
|
i += 1;
|
break;
|
break;
|
}
|
}
|
else if (PEX64_UNWCODE_INFO (t[1]) == 1)
|
else if (PEX64_UNWCODE_INFO (t[1]) == 1)
|
{
|
{
|
i += 2;
|
i += 2;
|
break;
|
break;
|
}
|
}
|
/* fall through. */
|
/* fall through. */
|
default:
|
default:
|
fprintf (file, "\t contains unknown code (%u).\n",
|
fprintf (file, "\t contains unknown code (%u).\n",
|
(unsigned int) PEX64_UNWCODE_CODE (t[1]));
|
(unsigned int) PEX64_UNWCODE_CODE (t[1]));
|
return;
|
return;
|
case UWOP_SAVE_NONVOL:
|
case UWOP_SAVE_NONVOL:
|
case UWOP_SAVE_XMM:
|
case UWOP_SAVE_XMM:
|
case UWOP_SAVE_XMM128:
|
case UWOP_SAVE_XMM128:
|
i++;
|
i++;
|
break;
|
break;
|
case UWOP_SAVE_NONVOL_FAR:
|
case UWOP_SAVE_NONVOL_FAR:
|
case UWOP_SAVE_XMM_FAR:
|
case UWOP_SAVE_XMM_FAR:
|
case UWOP_SAVE_XMM128_FAR:
|
case UWOP_SAVE_XMM128_FAR:
|
i += 2;
|
i += 2;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
fprintf (file, "\t At pc 0x");
|
fprintf (file, "\t At pc 0x");
|
fprintf_vma (file, pc_addr);
|
fprintf_vma (file, pc_addr);
|
fprintf (file, " there are the following saves (in logical order).\n");
|
fprintf (file, " there are the following saves (in logical order).\n");
|
for (i = insns_count; i > 0;)
|
for (i = insns_count; i > 0;)
|
{
|
{
|
--i;
|
--i;
|
dta = insns[i];
|
dta = insns[i];
|
fprintf (file, "\t insn ends at pc+0x%02x: ", (unsigned int) dta[0]);
|
fprintf (file, "\t insn ends at pc+0x%02x: ", (unsigned int) dta[0]);
|
switch (PEX64_UNWCODE_CODE (dta[1]))
|
switch (PEX64_UNWCODE_CODE (dta[1]))
|
{
|
{
|
case UWOP_PUSH_NONVOL:
|
case UWOP_PUSH_NONVOL:
|
fprintf (file, "push %s.\n", pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
fprintf (file, "push %s.\n", pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
break;
|
break;
|
case UWOP_ALLOC_LARGE:
|
case UWOP_ALLOC_LARGE:
|
if (PEX64_UNWCODE_INFO (dta[1]) == 0)
|
if (PEX64_UNWCODE_INFO (dta[1]) == 0)
|
{
|
{
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp *= 8;
|
tmp *= 8;
|
}
|
}
|
else
|
else
|
tmp = (bfd_vma) (*((unsigned int *)&dta[2]));
|
tmp = (bfd_vma) (*((unsigned int *)&dta[2]));
|
fprintf (file, "save stack region of size 0x");
|
fprintf (file, "save stack region of size 0x");
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file,".\n");
|
fprintf (file,".\n");
|
break;
|
break;
|
case UWOP_ALLOC_SMALL:
|
case UWOP_ALLOC_SMALL:
|
tmp = (bfd_vma) PEX64_UNWCODE_INFO (dta[1]);
|
tmp = (bfd_vma) PEX64_UNWCODE_INFO (dta[1]);
|
tmp += 1;
|
tmp += 1;
|
tmp *= 8;
|
tmp *= 8;
|
fprintf (file, "save stack region of size 0x");
|
fprintf (file, "save stack region of size 0x");
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file,".\n");
|
fprintf (file,".\n");
|
break;
|
break;
|
case UWOP_SET_FPREG:
|
case UWOP_SET_FPREG:
|
tmp = (bfd_vma) PEX64_UNWCODE_INFO (dta[1]);
|
tmp = (bfd_vma) PEX64_UNWCODE_INFO (dta[1]);
|
tmp *= 16;
|
tmp *= 16;
|
fprintf (file, "FPReg = (FrameReg) + 0x");
|
fprintf (file, "FPReg = (FrameReg) + 0x");
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_NONVOL:
|
case UWOP_SAVE_NONVOL:
|
fprintf (file, "mov %s at 0x",
|
fprintf (file, "mov %s at 0x",
|
pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp *= 8;
|
tmp *= 8;
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_NONVOL_FAR:
|
case UWOP_SAVE_NONVOL_FAR:
|
fprintf (file, "mov %s at 0x",
|
fprintf (file, "mov %s at 0x",
|
pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
pex_regs[PEX64_UNWCODE_INFO (dta[1])]);
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_XMM:
|
case UWOP_SAVE_XMM:
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp *= 8;
|
tmp *= 8;
|
fprintf (file, "mov mm%u at 0x",
|
fprintf (file, "mov mm%u at 0x",
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_XMM_FAR:
|
case UWOP_SAVE_XMM_FAR:
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
fprintf (file, "mov mm%u at 0x",
|
fprintf (file, "mov mm%u at 0x",
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_XMM128:
|
case UWOP_SAVE_XMM128:
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned short *) &dta[2]));
|
tmp *= 16;
|
tmp *= 16;
|
fprintf (file, "mov xmm%u at 0x",
|
fprintf (file, "mov xmm%u at 0x",
|
(unsigned int) PEX64_UNWCODE_INFO ( dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO ( dta[1]));
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_SAVE_XMM128_FAR:
|
case UWOP_SAVE_XMM128_FAR:
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
tmp = (bfd_vma) (*((unsigned int *) &dta[2]));
|
fprintf (file, "mov xmm%u at 0x",
|
fprintf (file, "mov xmm%u at 0x",
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
fprintf_vma (file, tmp);
|
fprintf_vma (file, tmp);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
break;
|
break;
|
case UWOP_PUSH_MACHFRAME:
|
case UWOP_PUSH_MACHFRAME:
|
fprintf (file, "interrupt entry (SS, old RSP, EFLAGS, CS, RIP");
|
fprintf (file, "interrupt entry (SS, old RSP, EFLAGS, CS, RIP");
|
if (PEX64_UNWCODE_INFO (dta[1]) == 0)
|
if (PEX64_UNWCODE_INFO (dta[1]) == 0)
|
{
|
{
|
fprintf (file, ")");
|
fprintf (file, ")");
|
}
|
}
|
else if (PEX64_UNWCODE_INFO (dta[1]) == 1)
|
else if (PEX64_UNWCODE_INFO (dta[1]) == 1)
|
{
|
{
|
fprintf (file, ",ErrorCode)");
|
fprintf (file, ",ErrorCode)");
|
}
|
}
|
else
|
else
|
fprintf (file, ", unknown(%u))",
|
fprintf (file, ", unknown(%u))",
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
fprintf (file,".\n");
|
fprintf (file,".\n");
|
break;
|
break;
|
default:
|
default:
|
fprintf (file, "unknown code %u.\n",
|
fprintf (file, "unknown code %u.\n",
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
(unsigned int) PEX64_UNWCODE_INFO (dta[1]));
|
break;
|
break;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
static asection *
|
static asection *
|
pex64_get_section_by_rva (bfd *abfd, bfd_vma addr, const char *sec_name)
|
pex64_get_section_by_rva (bfd *abfd, bfd_vma addr, const char *sec_name)
|
{
|
{
|
asection *section = bfd_get_section_by_name (abfd, sec_name);
|
asection *section = bfd_get_section_by_name (abfd, sec_name);
|
bfd_vma vsize;
|
bfd_vma vsize;
|
bfd_size_type datasize = 0;
|
bfd_size_type datasize = 0;
|
|
|
if (section == NULL
|
if (section == NULL
|
|| coff_section_data (abfd, section) == NULL
|
|| coff_section_data (abfd, section) == NULL
|
|| pei_section_data (abfd, section) == NULL)
|
|| pei_section_data (abfd, section) == NULL)
|
return NULL;
|
return NULL;
|
vsize = section->vma - pe_data (abfd)->pe_opthdr.ImageBase;
|
vsize = section->vma - pe_data (abfd)->pe_opthdr.ImageBase;
|
datasize = section->size;
|
datasize = section->size;
|
if (!datasize || vsize > addr || (vsize + datasize) < addr)
|
if (!datasize || vsize > addr || (vsize + datasize) < addr)
|
return NULL;
|
return NULL;
|
return section;
|
return section;
|
}
|
}
|
|
|
static void
|
static void
|
pex64_dump_xdata (FILE *file, bfd *abfd, bfd_vma addr, bfd_vma pc_addr)
|
pex64_dump_xdata (FILE *file, bfd *abfd, bfd_vma addr, bfd_vma pc_addr)
|
{
|
{
|
asection *section = pex64_get_section_by_rva (abfd, addr, ".rdata");
|
asection *section = pex64_get_section_by_rva (abfd, addr, ".rdata");
|
bfd_vma vsize;
|
bfd_vma vsize;
|
bfd_byte *data = NULL;
|
bfd_byte *data = NULL;
|
bfd_vma i;
|
bfd_vma i;
|
|
|
if (!section)
|
if (!section)
|
section = pex64_get_section_by_rva (abfd, addr, ".data");
|
section = pex64_get_section_by_rva (abfd, addr, ".data");
|
if (!section)
|
if (!section)
|
section = pex64_get_section_by_rva (abfd, addr, ".xdata");
|
section = pex64_get_section_by_rva (abfd, addr, ".xdata");
|
if (!section)
|
if (!section)
|
{
|
{
|
section = pex64_get_section_by_rva (abfd, addr, ".pdata");
|
section = pex64_get_section_by_rva (abfd, addr, ".pdata");
|
if (section)
|
if (section)
|
{
|
{
|
fprintf (file, "\t Shares information with pdata element at 0x");
|
fprintf (file, "\t Shares information with pdata element at 0x");
|
fprintf_vma (file, addr + pe_data (abfd)->pe_opthdr.ImageBase);
|
fprintf_vma (file, addr + pe_data (abfd)->pe_opthdr.ImageBase);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
}
|
}
|
}
|
}
|
if (!section)
|
if (!section)
|
return;
|
return;
|
vsize = section->vma - pe_data (abfd)->pe_opthdr.ImageBase;
|
vsize = section->vma - pe_data (abfd)->pe_opthdr.ImageBase;
|
addr -= vsize;
|
addr -= vsize;
|
if (bfd_malloc_and_get_section (abfd, section, &data))
|
if (bfd_malloc_and_get_section (abfd, section, &data))
|
{
|
{
|
struct pex64_unwind_info ui;
|
struct pex64_unwind_info ui;
|
|
|
if (!data)
|
if (!data)
|
return;
|
return;
|
|
|
pex64_get_unwind_info (abfd, &ui, &data[addr]);
|
pex64_get_unwind_info (abfd, &ui, &data[addr]);
|
|
|
if (ui.Version != 1)
|
if (ui.Version != 1)
|
{
|
{
|
fprintf (file, "\tVersion %u (unknown).\n", (unsigned int) ui.Version);
|
fprintf (file, "\tVersion %u (unknown).\n", (unsigned int) ui.Version);
|
return;
|
return;
|
}
|
}
|
|
|
fprintf (file, "\tFlags: ");
|
fprintf (file, "\tFlags: ");
|
switch (ui.Flags)
|
switch (ui.Flags)
|
{
|
{
|
case UNW_FLAG_NHANDLER:
|
case UNW_FLAG_NHANDLER:
|
fprintf (file, "UNW_FLAG_NHANDLER");
|
fprintf (file, "UNW_FLAG_NHANDLER");
|
break;
|
break;
|
case UNW_FLAG_EHANDLER:
|
case UNW_FLAG_EHANDLER:
|
fprintf (file, "UNW_FLAG_EHANDLER");
|
fprintf (file, "UNW_FLAG_EHANDLER");
|
break;
|
break;
|
case UNW_FLAG_UHANDLER:
|
case UNW_FLAG_UHANDLER:
|
fprintf (file, "UNW_FLAG_UHANDLER");
|
fprintf (file, "UNW_FLAG_UHANDLER");
|
break;
|
break;
|
case UNW_FLAG_FHANDLER:
|
case UNW_FLAG_FHANDLER:
|
fprintf (file, "UNW_FLAG_FHANDLER = (UNW_FLAG_EHANDLER | UNW_FLAG_UHANDLER)");
|
fprintf (file, "UNW_FLAG_FHANDLER = (UNW_FLAG_EHANDLER | UNW_FLAG_UHANDLER)");
|
break;
|
break;
|
case UNW_FLAG_CHAININFO:
|
case UNW_FLAG_CHAININFO:
|
fprintf (file, "UNW_FLAG_CHAININFO");
|
fprintf (file, "UNW_FLAG_CHAININFO");
|
break;
|
break;
|
default:
|
default:
|
fprintf (file, "unknown flags value 0x%x", (unsigned int) ui.Flags);
|
fprintf (file, "unknown flags value 0x%x", (unsigned int) ui.Flags);
|
break;
|
break;
|
}
|
}
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
if (ui.CountOfCodes != 0)
|
if (ui.CountOfCodes != 0)
|
fprintf (file, "\tEntry has %u codes.", (unsigned int) ui.CountOfCodes);
|
fprintf (file, "\tEntry has %u codes.", (unsigned int) ui.CountOfCodes);
|
fprintf (file, "\tPrologue size: %u, Frame offset = 0x%x.\n",
|
fprintf (file, "\tPrologue size: %u, Frame offset = 0x%x.\n",
|
(unsigned int) ui.SizeOfPrologue, (unsigned int) ui.FrameOffset);
|
(unsigned int) ui.SizeOfPrologue, (unsigned int) ui.FrameOffset);
|
fprintf (file, "\tFrame register is %s.\n",
|
fprintf (file, "\tFrame register is %s.\n",
|
ui.FrameRegister == 0 ? "CFA"
|
ui.FrameRegister == 0 ? "CFA"
|
: pex_regs[(unsigned int) ui.FrameRegister]);
|
: pex_regs[(unsigned int) ui.FrameRegister]);
|
|
|
pex64_xdata_print_uwd_codes (file, &ui, pc_addr);
|
pex64_xdata_print_uwd_codes (file, &ui, pc_addr);
|
|
|
switch (ui.Flags)
|
switch (ui.Flags)
|
{
|
{
|
case UNW_FLAG_NHANDLER:
|
case UNW_FLAG_NHANDLER:
|
return;
|
return;
|
case UNW_FLAG_EHANDLER:
|
case UNW_FLAG_EHANDLER:
|
fprintf (file, "\texception_handler at 0x%x.\n", (unsigned int) ui.rva_ExceptionHandler);
|
fprintf (file, "\texception_handler at 0x%x.\n", (unsigned int) ui.rva_ExceptionHandler);
|
break;
|
break;
|
case UNW_FLAG_UHANDLER:
|
case UNW_FLAG_UHANDLER:
|
fprintf (file, "\ttermination_handler at 0x%x.\n", (unsigned int) ui.rva_TerminationHandler);
|
fprintf (file, "\ttermination_handler at 0x%x.\n", (unsigned int) ui.rva_TerminationHandler);
|
case UNW_FLAG_FHANDLER:
|
case UNW_FLAG_FHANDLER:
|
fprintf (file, "\tframe_handler at 0x%x.\n", (unsigned int) ui.rva_FrameHandler);
|
fprintf (file, "\tframe_handler at 0x%x.\n", (unsigned int) ui.rva_FrameHandler);
|
fprintf (file, "\t Argument for FrameHandler: 0x%x.\n",
|
fprintf (file, "\t Argument for FrameHandler: 0x%x.\n",
|
(unsigned int) ui.FrameHandlerArgument);
|
(unsigned int) ui.FrameHandlerArgument);
|
return;
|
return;
|
case UNW_FLAG_CHAININFO:
|
case UNW_FLAG_CHAININFO:
|
fprintf (file, "\t Function Entry: 0x%x\n", (unsigned int) ui.rva_FunctionEntry);
|
fprintf (file, "\t Function Entry: 0x%x\n", (unsigned int) ui.rva_FunctionEntry);
|
return;
|
return;
|
default:
|
default:
|
fprintf (file, "\t Unknown flag value of 0x%x\n", (unsigned int) ui.Flags);
|
fprintf (file, "\t Unknown flag value of 0x%x\n", (unsigned int) ui.Flags);
|
return;
|
return;
|
}
|
}
|
fprintf (file, "\t 0x%x # of scope(s)\n", (unsigned int) ui.CountOfScopes);
|
fprintf (file, "\t 0x%x # of scope(s)\n", (unsigned int) ui.CountOfScopes);
|
for (i = 0; i < ui.CountOfScopes; i++)
|
for (i = 0; i < ui.CountOfScopes; i++)
|
{
|
{
|
struct pex64_scope_entry se;
|
struct pex64_scope_entry se;
|
pex64_get_scope_entry (abfd, &se, i, ui.rawScopeEntries);
|
pex64_get_scope_entry (abfd, &se, i, ui.rawScopeEntries);
|
fprintf (file, "\t scope #%u: BeginAddress: 0x%x, EndAddress: 0x%x,"
|
fprintf (file, "\t scope #%u: BeginAddress: 0x%x, EndAddress: 0x%x,"
|
"\n\t\tHandlerAddress:0x%x, JumpTarget:0x%x\n",
|
"\n\t\tHandlerAddress:0x%x, JumpTarget:0x%x\n",
|
(unsigned int) (i + 1),
|
(unsigned int) (i + 1),
|
(unsigned int) se.rva_BeginAddress,
|
(unsigned int) se.rva_BeginAddress,
|
(unsigned int) se.rva_EndAddress,
|
(unsigned int) se.rva_EndAddress,
|
(unsigned int) se.rva_HandlerAddress,
|
(unsigned int) se.rva_HandlerAddress,
|
(unsigned int) se.rva_JumpAddress);
|
(unsigned int) se.rva_JumpAddress);
|
}
|
}
|
}
|
}
|
if (data != NULL)
|
if (data != NULL)
|
free (data);
|
free (data);
|
}
|
}
|
|
|
static bfd_boolean
|
static bfd_boolean
|
pex64_bfd_print_pdata (bfd *abfd, void *vfile)
|
pex64_bfd_print_pdata (bfd *abfd, void *vfile)
|
{
|
{
|
FILE *file = (FILE *) vfile;
|
FILE *file = (FILE *) vfile;
|
bfd_byte *data = NULL;
|
bfd_byte *data = NULL;
|
asection *section = bfd_get_section_by_name (abfd, ".pdata");
|
asection *section = bfd_get_section_by_name (abfd, ".pdata");
|
bfd_size_type datasize = 0;
|
bfd_size_type datasize = 0;
|
bfd_size_type i;
|
bfd_size_type i;
|
bfd_size_type start, stop;
|
bfd_size_type start, stop;
|
int onaline = PDATA_ROW_SIZE;
|
int onaline = PDATA_ROW_SIZE;
|
|
|
if (section == NULL
|
if (section == NULL
|
|| coff_section_data (abfd, section) == NULL
|
|| coff_section_data (abfd, section) == NULL
|
|| pei_section_data (abfd, section) == NULL)
|
|| pei_section_data (abfd, section) == NULL)
|
return TRUE;
|
return TRUE;
|
|
|
stop = pei_section_data (abfd, section)->virt_size;
|
stop = pei_section_data (abfd, section)->virt_size;
|
if ((stop % onaline) != 0)
|
if ((stop % onaline) != 0)
|
fprintf (file,
|
fprintf (file,
|
_("warning: .pdata section size (%ld) is not a multiple of %d\n"),
|
_("warning: .pdata section size (%ld) is not a multiple of %d\n"),
|
(long) stop, onaline);
|
(long) stop, onaline);
|
|
|
fprintf (file,
|
fprintf (file,
|
_("\nThe Function Table (interpreted .pdata section contents)\n"));
|
_("\nThe Function Table (interpreted .pdata section contents)\n"));
|
|
|
fprintf (file, _("vma:\t\t\tBeginAddress\t EndAddress\t UnwindData\n"));
|
fprintf (file, _("vma:\t\t\tBeginAddress\t EndAddress\t UnwindData\n"));
|
|
|
datasize = section->size;
|
datasize = section->size;
|
if (datasize == 0)
|
if (datasize == 0)
|
return TRUE;
|
return TRUE;
|
|
|
if (!bfd_malloc_and_get_section (abfd, section, &data))
|
if (!bfd_malloc_and_get_section (abfd, section, &data))
|
{
|
{
|
if (data != NULL)
|
if (data != NULL)
|
free (data);
|
free (data);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
start = 0;
|
start = 0;
|
|
|
for (i = start; i < stop; i += onaline)
|
for (i = start; i < stop; i += onaline)
|
{
|
{
|
struct pex64_runtime_function rf;
|
struct pex64_runtime_function rf;
|
|
|
if (i + PDATA_ROW_SIZE > stop)
|
if (i + PDATA_ROW_SIZE > stop)
|
break;
|
break;
|
pex64_get_runtime_function (abfd, &rf, &data[i]);
|
pex64_get_runtime_function (abfd, &rf, &data[i]);
|
|
|
if (rf.rva_BeginAddress == 0 && rf.rva_EndAddress == 0
|
if (rf.rva_BeginAddress == 0 && rf.rva_EndAddress == 0
|
&& rf.rva_UnwindData == 0)
|
&& rf.rva_UnwindData == 0)
|
/* We are probably into the padding of the section now. */
|
/* We are probably into the padding of the section now. */
|
break;
|
break;
|
|
|
fputc (' ', file);
|
fputc (' ', file);
|
fprintf_vma (file, i + section->vma);
|
fprintf_vma (file, i + section->vma);
|
fprintf (file, ":\t");
|
fprintf (file, ":\t");
|
rf.rva_BeginAddress += pe_data (abfd)->pe_opthdr.ImageBase;
|
rf.rva_BeginAddress += pe_data (abfd)->pe_opthdr.ImageBase;
|
fprintf_vma (file, rf.rva_BeginAddress);
|
fprintf_vma (file, rf.rva_BeginAddress);
|
fputc (' ', file);
|
fputc (' ', file);
|
rf.rva_EndAddress += pe_data (abfd)->pe_opthdr.ImageBase;
|
rf.rva_EndAddress += pe_data (abfd)->pe_opthdr.ImageBase;
|
fprintf_vma (file, rf.rva_EndAddress);
|
fprintf_vma (file, rf.rva_EndAddress);
|
fputc (' ', file);
|
fputc (' ', file);
|
fprintf_vma (file, rf.rva_UnwindData);
|
fprintf_vma (file, rf.rva_UnwindData);
|
fprintf (file, "\n");
|
fprintf (file, "\n");
|
|
|
if (rf.rva_UnwindData != 0)
|
if (rf.rva_UnwindData != 0)
|
{
|
{
|
if (rf.isChained)
|
if (rf.isChained)
|
{
|
{
|
fprintf (file, "\t shares information with pdata element at 0x");
|
fprintf (file, "\t shares information with pdata element at 0x");
|
fprintf_vma (file, rf.rva_UnwindData + pe_data (abfd)->pe_opthdr.ImageBase);
|
fprintf_vma (file, rf.rva_UnwindData + pe_data (abfd)->pe_opthdr.ImageBase);
|
fprintf (file, ".\n");
|
fprintf (file, ".\n");
|
}
|
}
|
else
|
else
|
pex64_dump_xdata (file, abfd, rf.rva_UnwindData, rf.rva_BeginAddress);
|
pex64_dump_xdata (file, abfd, rf.rva_UnwindData, rf.rva_BeginAddress);
|
}
|
}
|
}
|
}
|
|
|
free (data);
|
free (data);
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
#define bfd_pe_print_pdata pex64_bfd_print_pdata
|
#define bfd_pe_print_pdata pex64_bfd_print_pdata
|
|
|
#include "coff-x86_64.c"
|
#include "coff-x86_64.c"
|
|
|
