void ProcLinsym( void )
/****************************/
{
list_of_names * symname;
symbol * sym;
bool is32bit;
unsigned sym_len;
ObjBuff++; /* skip flags */
symname = FindName( GetIdx() );
sym_len = strlen( symname->name );
sym = SymOp( ST_FIND | ST_STATIC, symname->name, sym_len );
if( sym == NULL ) sym = SymOp( ST_FIND, symname->name, sym_len );
if( sym == NULL ) {
BadObject();
return;
}
if( !IS_SYM_COMDAT(sym) ) return;
is32bit = (ObjFormat & FMT_32BIT_REC) != 0;
if( sym->mod == CurrMod && !(sym->info & SYM_DEAD) ) {
DBIAddLines( sym->p.seg, ObjBuff, EOObjRec - ObjBuff, is32bit );
}
}
static orl_return DeclareSegment( orl_sec_handle sec )
/****************************************************/
// declare the "segment"
{
segdata *sdata;
segnode *snode;
char *name;
unsigned_32 _WCUNALIGNED *contents;
size_t len;
orl_sec_flags flags;
orl_sec_type type;
unsigned numlines;
unsigned segidx;
type = ORLSecGetType( sec );
if( type != ORL_SEC_TYPE_NO_BITS && type != ORL_SEC_TYPE_PROG_BITS ) {
return( ORL_OKAY );
}
flags = ORLSecGetFlags( sec );
name = ORLSecGetName( sec );
sdata = AllocSegData();
segidx = ORLCvtSecHdlToIdx( sec );
snode = AllocNodeIdx( SegNodes, segidx );
snode->entry = sdata;
snode->handle = sec;
sdata->iscdat = (flags & ORL_SEC_FLAG_COMDAT) != 0;
len = sizeof( CoffIDataSegName ) - 1;
if( strnicmp( CoffIDataSegName, name, len ) == 0 ) {
SeenDLLRecord();
CurrMod->modinfo |= MOD_IMPORT_LIB;
if( name[len + 1] == '6' ) { // it is the segment containg the name
ORLSecGetContents( sec, (unsigned_8 **)&ImpExternalName );
ImpExternalName += 2;
} else if( name[len + 1] == '4' ) { // it is an import by ordinal
ORLSecGetContents( sec, (void *) &contents );
ImpOrdinal = *contents;
}
sdata->isdead = true;
sdata->isidata = true;
}
sdata->combine = COMBINE_ADD;
if( flags & ORL_SEC_FLAG_NO_PADDING ) {
sdata->align = 0;
} else {
sdata->align = ORLSecGetAlignment( sec );
}
sdata->is32bit = true;
sdata->length = ORLSecGetSize( sec );
sdata->u.name = name;
if( flags & ORL_SEC_FLAG_EXEC ) {
sdata->iscode = true;
} else if( flags & ORL_SEC_FLAG_UNINITIALIZED_DATA ) {
sdata->isuninit = true;
#ifdef _DEVELOPMENT
} else {
unsigned namelen;
namelen = strlen(name);
if( namelen >= 3 && memicmp(name + namelen - 3, "bss", 3) == 0 ) {
LnkMsg( ERR+MSG_INTERNAL, "s", "Initialized BSS found" );
}
#endif
}
numlines = ORLSecGetNumLines( sec );
if( numlines > 0 ) {
numlines *= sizeof(orl_linnum);
DBIAddLines( sdata, ORLSecGetLines( sec ), numlines, true );
}
return( ORL_OKAY );
}
