ret_code coff_write_header( struct module_info *modinfo )
/*******************************************************/
{
    struct dsym *exp;
#if DLLIMPORT
    struct dsym *imp = NULL;
#endif
    char buffer[MAX_ID_LEN + MANGLE_BYTES + 1];

    DebugMsg(("coff_write_header: enter, sections=%u\n", modinfo->g.num_segs ));

    LongNamesHead = NULL;
    SizeLongNames = sizeof(uint_32);

    srcname = CurrFName[ASM];
#ifndef __FULLSRCPATH
    srcname += strlen( srcname );
    while ( srcname > CurrFName[ASM] &&
	   *(srcname-1) != '/' &&
	   *(srcname-1) != '\\') srcname--;
#endif
