void write32(bool be,void *p,uint32_t d)
{
if (be)
write32be(p,d);
else
write32le(p,d);
}
static void write_dri_sym(FILE *f,const char *name,
uint16_t type,uint32_t value)
{
struct DRIsym stab;
int longname = strlen(name) > DRI_NAMELEN;
strncpy(stab.name,name,DRI_NAMELEN);
write16be(stab.type,longname?(type|STYP_LONGNAME):type);
write32be(stab.value,value);
fwritex(f,&stab,sizeof(struct DRIsym));
if (longname) {
char rest_of_name[sizeof(struct DRIsym)];
memset(rest_of_name,0,sizeof(struct DRIsym));
strncpy(rest_of_name,name+DRI_NAMELEN,sizeof(struct DRIsym));
fwritex(f,rest_of_name,sizeof(struct DRIsym));
}
}
inline int
pack_body(uint8_t* dest, int dest_len) const
{
if (dest_len < body_size()) {
return -1;
}
write64be(id, dest);
dest += 8;
write64be(seq, dest);
dest += 8;
write64be(round, dest);
dest += 8;
write64be(next, dest);
dest += 8;
write32be(next_content.size(), dest);
dest += 4;
memcpy(dest, next_content.c_str(), next_content.size());
return 0;
}
static void tos_header(FILE *f,unsigned long tsize,unsigned long dsize,
unsigned long bsize,unsigned long ssize,
unsigned long flags)
{
PH hdr;
write16be(hdr.ph_branch,0x601a);
write32be(hdr.ph_tlen,tsize);
write32be(hdr.ph_dlen,dsize);
write32be(hdr.ph_blen,bsize);
write32be(hdr.ph_slen,ssize);
write32be(hdr.ph_magic,0);
write32be(hdr.ph_flags,flags);
write16be(hdr.ph_abs,0);
fwritex(f,&hdr,sizeof(PH));
}
static void aoutmint_writeexec(struct GlobalVars *gv,FILE *f)
/* creates an a.out-MiNT executable file */
{
const int be = _BIG_ENDIAN_;
uint8_t jmp_entry_code[] = { 0x20,0x3a,0x00,0x1a,0x4e,0xfb,0x08,0xfa };
struct LinkedSection *sections[3];
unsigned long secsizes[2];
struct mint_exec me;
long tparel_offset,tparel_size;
struct nlist32 *stksize;
aout_initwrite(gv,sections);
if (sections[0] == NULL) /* this requires a .text section! */
error(97,fff[gv->dest_format]->tname,TEXTNAME);
memset(&me,0,sizeof(struct mint_exec)); /* init header with zero */
text_data_bss_gaps(sections); /* calculate gap size between sections */
secsizes[0] = sections[0]->size + sections[0]->gapsize;
secsizes[1] = sections[1] ? sections[1]->filesize : 0;
/* init TOS header */
write16be(me.tos.ph_branch,0x601a);
write32be(me.tos.ph_tlen,secsizes[0]+TEXT_OFFSET);
write32be(me.tos.ph_dlen,secsizes[1]);
write32be(me.tos.ph_blen,(sections[2]?sections[2]->size:0) +
(sections[1]?sections[1]->gapsize:0));
write32be(me.tos.ph_magic,0x4d694e54); /* "MiNT" */
write32be(me.tos.ph_flags,gv->tosflags); /* Atari memory flags */
write16be(me.tos.ph_abs,0); /* includes relocations */
aout_addsymlist(gv,sections,BIND_GLOBAL,0,be);
aout_addsymlist(gv,sections,BIND_WEAK,0,be);
aout_addsymlist(gv,sections,BIND_LOCAL,0,be);
aout_debugsyms(gv,be);
calc_relocs(gv,sections[0]);
calc_relocs(gv,sections[1]);
/* The Atari symbol table size is the sum of a.out symbols and strings,
which is now known. */
write32be(me.tos.ph_slen,aoutsymlist.nextindex * sizeof(struct nlist32) +
aoutstrlist.nextoffset);
/* set jmp_entry to move.l a_entry(pc),d0
jmp (-6,pc,d0.l) */
memcpy(me.jmp_entry,jmp_entry_code,sizeof(jmp_entry_code));
/* init a.out NMAGIC header */
SETMIDMAG(&me.aout,NMAGIC,0,0);
write32be(me.aout.a_text,sections[0]->size+sections[0]->gapsize);
write32be(me.aout.a_data,sections[1]?sections[1]->filesize:0);
write32be(me.aout.a_bss,(sections[2]?sections[2]->size:0) +
(sections[1]?sections[1]->gapsize:0));
write32be(me.aout.a_syms,aoutsymlist.nextindex*sizeof(struct nlist32));
write32be(me.aout.a_entry,TEXT_OFFSET);
/* save offset to __stksize when symbol is present */
if (stksize = find_aout_sym("__stksize")) {
write32be(me.stkpos,
read32be(&stksize->n_value)+sizeof(me)-TEXT_OFFSET);
}
/* write a.out-MiNT header (256 bytes) */
fwritex(f,&me,sizeof(me));
/* write sections */
fwritex(f,sections[0]->data,sections[0]->size);
fwritegap(f,sections[0]->gapsize);
if (sections[1])
fwritex(f,sections[1]->data,sections[1]->filesize);
/* write a.out symbols */
aout_writesymbols(f);
aout_writestrings(f,be);
/* write TPA relocs */
tparel_offset = ftell(f);
tos_writerelocs(gv,f,sections);
tparel_size = ftell(f) - tparel_offset;
/* we have to patch tparel_pos and tparel_size in the header, as we
didn't know about the size of the TPA relocs table before */
fseek(f,offsetof(struct mint_exec,tparel_pos),SEEK_SET);
fwrite32be(f,tparel_offset);
fwrite32be(f,tparel_size);
}
