void cv8_termfile()
{
//printf("cv8_termfile()\n");
/* Write out the debug info sections.
*/
int seg = MsCoffObj::seg_debugS();
unsigned v = 4;
objmod->bytes(seg,0,4,&v);
// Write out "F2" sections
unsigned length = funcdata->size();
unsigned char *p = funcdata->buf;
for (unsigned u = 0; u < length; u += sizeof(FuncData))
{ FuncData *fd = (FuncData *)(p + u);
F2_buf->setsize(0);
F2_buf->write32(fd->sfunc->Soffset);
F2_buf->write32(0);
F2_buf->write32(fd->section_length);
F2_buf->write32(fd->srcfileoff);
F2_buf->write32(fd->linepairnum);
F2_buf->write32(fd->linepairnum * 8 + 12);
F2_buf->write(linepair->buf + fd->linepairstart * 8, fd->linepairnum * 8);
int f2seg = seg;
if (symbol_iscomdat(fd->sfunc))
{
f2seg = MsCoffObj::seg_debugS_comdat(fd->sfunc);
objmod->bytes(f2seg,0,4,&v);
}
unsigned offset = SegData[f2seg]->SDoffset + 8;
cv8_writesection(f2seg, 0xF2, F2_buf);
objmod->reftoident(f2seg, offset, fd->sfunc, 0, CFseg | CFoff);
}
// Write out "F3" section
cv8_writesection(seg, 0xF3, F3_buf);
// Write out "F4" section
cv8_writesection(seg, 0xF4, F4_buf);
}
void cv8_termfile(const char *objfilename)
{
//printf("cv8_termfile()\n");
/* Write out the debug info sections.
*/
int seg = MsCoffObj::seg_debugS();
unsigned v = 4;
objmod->bytes(seg,0,4,&v);
/* Start with starting symbol in separate "F1" section
*/
Outbuffer buf(1024);
size_t len = strlen(objfilename);
buf.writeWord(2 + 4 + len + 1);
buf.writeWord(S_COMPILAND_V3);
buf.write32(0);
buf.write(objfilename, len + 1);
// write S_COMPILE record
buf.writeWord(2 + 1 + 1 + 2 + 1 + sizeof(VERSION));
buf.writeWord(S_COMPILE);
buf.writeByte(I64 ? 0xD0 : 6); // target machine AMD64 or x86 (Pentium II)
buf.writeByte(config.flags2 & CFG2gms ? (CPP != 0) : 'D'); // language index (C/C++/D)
buf.writeWord(0x800 | (config.inline8087 ? 0 : (1<<3))); // 32-bit, float package
buf.writeByte(sizeof(VERSION));
buf.writeByte('Z');
buf.write(VERSION, sizeof(VERSION) - 1);
cv8_writesection(seg, 0xF1, &buf);
// Write out "F2" sections
unsigned length = funcdata->size();
unsigned char *p = funcdata->buf;
for (unsigned u = 0; u < length; u += sizeof(FuncData))
{ FuncData *fd = (FuncData *)(p + u);
F2_buf->setsize(0);
F2_buf->write32(fd->sfunc->Soffset);
F2_buf->write32(0);
F2_buf->write32(fd->section_length);
F2_buf->write32(fd->srcfileoff);
F2_buf->write32(fd->linepairnum);
F2_buf->write32(fd->linepairnum * 8 + 12);
F2_buf->write(linepair->buf + fd->linepairstart * 8, fd->linepairnum * 8);
int f2seg = seg;
if (symbol_iscomdat(fd->sfunc))
{
f2seg = MsCoffObj::seg_debugS_comdat(fd->sfunc);
objmod->bytes(f2seg,0,4,&v);
}
unsigned offset = SegData[f2seg]->SDoffset + 8;
cv8_writesection(f2seg, 0xF2, F2_buf);
objmod->reftoident(f2seg, offset, fd->sfunc, 0, CFseg | CFoff);
if (f2seg != seg && fd->f1buf->size())
{
// Write out "F1" section
unsigned f1offset = SegData[f2seg]->SDoffset;
cv8_writesection(f2seg, 0xF1, fd->f1buf);
// Fixups for "F1" section
unsigned length = fd->f1fixup->size();
unsigned char *p = fd->f1fixup->buf;
for (unsigned u = 0; u < length; u += sizeof(F1_Fixups))
{ F1_Fixups *f = (F1_Fixups *)(p + u);
objmod->reftoident(f2seg, f1offset + 8 + f->offset, f->s, 0, CFseg | CFoff);
}
}
}
// Write out "F3" section
cv8_writesection(seg, 0xF3, F3_buf);
// Write out "F4" section
cv8_writesection(seg, 0xF4, F4_buf);
if (F1_buf->size())
{
// Write out "F1" section
unsigned f1offset = SegData[seg]->SDoffset;
cv8_writesection(seg, 0xF1, F1_buf);
// Fixups for "F1" section
length = F1fixup->size();
p = F1fixup->buf;
for (unsigned u = 0; u < length; u += sizeof(F1_Fixups))
{ F1_Fixups *f = (F1_Fixups *)(p + u);
objmod->reftoident(seg, f1offset + 8 + f->offset, f->s, 0, CFseg | CFoff);
}
}
// Write out .debug$T section
cv_term();
}
