static void writeexec(struct GlobalVars *gv,FILE *f)
/* creates a TOS executable file (which is relocatable) */
{
struct LinkedSection *sections[3];
int nsyms = tos_initwrite(gv,sections);
int i;
tos_header(f,sections[0] ? sections[0]->size+sections[0]->gapsize : 0,
sections[1] ? sections[1]->size+sections[1]->gapsize : 0,
sections[2] ? sections[2]->size : 0,
(unsigned long)nsyms*sizeof(struct DRIsym),gv->tosflags);
for (i=0; i<3; i++)
calc_relocs(gv,sections[i]);
if (sections[0]) {
fwritex(f,sections[0]->data,sections[0]->filesize);
fwritegap(f,(sections[0]->size-sections[0]->filesize)+sections[0]->gapsize);
}
if (sections[1]) {
fwritex(f,sections[1]->data,sections[1]->filesize);
fwritegap(f,(sections[1]->size-sections[1]->filesize)+sections[1]->gapsize);
}
if (nsyms)
tos_symboltable(gv,f,sections);
tos_writerelocs(gv,f,sections);
}
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);
}
