static void SetHeaders( ElfHdr *hdr )
/***********************************/
{
memcpy( hdr->eh.e_ident, ELF_SIGNATURE, ELF_SIGNATURE_LEN );
hdr->eh.e_ident[EI_CLASS] = ELFCLASS32;
#ifdef __BIG_ENDIAN__
hdr->eh.e_ident[EI_DATA] = ELFDATA2MSB;
#else
hdr->eh.e_ident[EI_DATA] = ELFDATA2LSB;
#endif
hdr->eh.e_ident[EI_VERSION] = EV_CURRENT;
hdr->eh.e_ident[EI_OSABI] = FmtData.u.elf.abitype;
hdr->eh.e_ident[EI_ABIVERSION] = FmtData.u.elf.abiversion;
memset( &hdr->eh.e_ident[EI_PAD], 0, EI_NIDENT - EI_PAD );
hdr->eh.e_type = ET_EXEC;
if( LinkState & HAVE_PPC_CODE ) {
hdr->eh.e_machine = EM_PPC;
} else if( LinkState & HAVE_MIPS_CODE ) {
hdr->eh.e_machine = EM_MIPS;
} else if( LinkState & HAVE_X64_CODE ) {
hdr->eh.e_machine = EM_X86_64;
} else {
hdr->eh.e_machine = EM_386;
}
hdr->eh.e_version = EV_CURRENT;
if( StartInfo.type == START_UNDEFED ) {
hdr->eh.e_entry = 0;
} else {
hdr->eh.e_entry = FindLinearAddr2( &StartInfo.addr );
}
hdr->eh.e_flags = 0;
hdr->eh.e_ehsize = sizeof(Elf32_Ehdr);
hdr->eh.e_phentsize = sizeof(Elf32_Phdr);
hdr->eh.e_shentsize = sizeof(Elf32_Shdr);
hdr->eh.e_phnum = NumGroups + 1;
hdr->eh.e_phoff = sizeof(Elf32_Ehdr);
hdr->ph_size = sizeof(Elf32_Phdr) * hdr->eh.e_phnum;
_ChkAlloc( hdr->ph, hdr->ph_size );
hdr->ph->p_type = PT_PHDR;
hdr->ph->p_offset = sizeof(Elf32_Ehdr);
hdr->ph->p_vaddr = sizeof(Elf32_Ehdr) + FmtData.base;
hdr->ph->p_paddr = 0;
hdr->ph->p_filesz = hdr->ph_size;
hdr->ph->p_memsz = hdr->ph_size;
hdr->ph->p_flags = PF_R | PF_X;
hdr->ph->p_align = 0;
InitStringTable( &hdr->secstrtab, FALSE );
AddCharStringTable( &hdr->secstrtab, '\0' );
InitSections( hdr );
hdr->curr_off = hdr->eh.e_ehsize + hdr->ph_size;
hdr->curr_off = ROUND_UP( hdr->curr_off, 0x100 );
SeekLoad( hdr->curr_off );
}
unsigned DoFmtStr( char *buff, unsigned len, char *src, va_list *args )
/****************************************************************************/
/* quick vsprintf routine */
/* assumptions - format string does not end in '%' */
/* - only use of '%' is as follows */
/* %s : string */
/* %tn : n character string (%ns) */
/* %c : character */
/* %x : 4 digit hex number (%4x) */
/* %h : 8 digit hex number (%8x) */
/* %d : decimal */
/* %l : long decimal */
/* %a : address ( %x:%x or 32 bit, depends on format) */
/* %A : address ( %x:%h or 32 bit, depends on format) */
/* %S : symbol name */
/* %f : an executable format name */
/********************************************************************/
{
char ch;
char *dest;
char *str;
unsigned_16 num;
unsigned_32 num2;
unsigned size;
targ_addr * addr;
unsigned int i;
static char hexchar[] = "0123456789abcdef";
int temp;
dest = buff;
for(;;) {
ch = *src++;
if( ch == '\0' || len == 1 ) break;
if( ch != '%' ) {
*dest++ = ch;
len--;
} else {
ch = *src++;
switch( ch ) {
case 'S' :
if( UseArgInfo() ) {
str = MsgArgInfo.arg[MsgArgInfo.index].symb->name;
IncremIndex();
} else {
str = va_arg( *args, symbol * )->name;
}
if( !(LinkFlags & DONT_UNMANGLE) ) {
size = __demangle_l( str, 0, dest, len );
if( size > (len-1) ) size = len - 1;
CurrSymName = dest;
} else {
size = strlen( str );
if( size > len ) size = len;
memcpy( dest, str, size );
CurrSymName = str;
}
len -= size;
dest += size;
break;
case 's' :
if( UseArgInfo() ) {
str = MsgArgInfo.arg[MsgArgInfo.index].string;
IncremIndex();
} else {
str = va_arg( *args, char * );
}
size = strlen( str );
if( size > len ) size = len;
memcpy( dest, str, size );
len -= size;
dest += size;
break;
case 't' :
str = va_arg( *args, char * );
num = *src++ - '0';
num = num * 10 + *src++ - '0';
if( num > len )
num = len;
for( ; (*str != '\0') && (num > 0); --num ) {
*dest++ = *str++;
}
while( num-- > 0 ) {
*dest++ = ' ';
}
len -= num;
break;
case 'c' :
*dest++ = va_arg( *args, int );
len--;
break;
case 'x' :
if( UseArgInfo() ) {
num = MsgArgInfo.arg[MsgArgInfo.index].int_16;
IncremIndex();
} else {
num = va_arg( *args, unsigned int );
}
if( len < 4 ) return( dest - buff ); //NOTE: premature return
dest += 4;
len -= 4;
str = dest;
for( i = 4; i > 0; i-- ) {
*--str = hexchar[num & 0x0f];
num >>= 4;
}
break;
case 'h' :
num2 = va_arg( *args, unsigned_32 );
if( len < 8) return( dest - buff ); //NOTE: premature return
dest += 8;
len -= 8;
str = dest;
for( i = 8; i > 0; i-- ) {
*--str = hexchar[num2 & 0x0f];
num2 >>= 4;
}
break;
case 'd' :
if( len < 5 ) return( dest - buff ); // NOTE: premature return
if( UseArgInfo() ) {
num = MsgArgInfo.arg[MsgArgInfo.index].int_16;
IncremIndex();
} else {
num = va_arg( *args, unsigned int );
}
ultoa( num, dest, 10 );
size = strlen( dest );
dest += size;
len -= size;
break;
case 'l' :
if( len < 10 ) return( dest - buff ); //NOTE: premature return
if( UseArgInfo() ) {
num2 = MsgArgInfo.arg[MsgArgInfo.index].int_32;
IncremIndex();
} else {
num2 = va_arg( *args, unsigned_32 );
}
ultoa( num2, dest, 10 );
size = strlen( dest );
dest += size;
len -= size;
break;
case 'a':
case 'A':
if( UseArgInfo() ) {
addr = MsgArgInfo.arg[MsgArgInfo.index].address;
IncremIndex();
} else {
addr = va_arg( *args, targ_addr * );
}
temp = MsgArgInfo.index;
MsgArgInfo.index = -1;
if( FmtData.type & MK_FLAT ) {
size = FmtStr( dest, len, "%h", addr->off );
} else if( FmtData.type & MK_QNX_FLAT) {
size = FmtStr( dest, len, "%h", FindLinearAddr( addr ) );
} else if( FmtData.type & (MK_ELF|MK_PE) ) {
size = FmtStr( dest, len, "%h", FindLinearAddr2( addr ) );
} else if( FmtData.type & MK_ID_SPLIT ) {
if( addr->seg == CODE_SEGMENT ) {
size = FmtStr( dest, len, "CODE:%h", addr->off );
} else {
size = FmtStr( dest, len, "DATA:%h", addr->off );
}
} else if( (FmtData.type & MK_32BIT) || ch == 'A' ) {
size = FmtStr( dest, len, "%x:%h", addr->seg, addr->off );
} else {
size = FmtStr( dest, len, "%x:%x", addr->seg, (unsigned short)addr->off );
}
dest += size;
len -= size;
MsgArgInfo.index = temp;
break;
case 'f':
num = MakeExeName( dest, len );
dest += num;
len -= num;
break;
}
}
}
MsgArgInfo.index = -1;
*dest = '\0';
return( dest - buff );
}
