STATIC void findRtnFromRow( sio_data *curr_sio, int row )
/*******************************************************/
{
file_info *curr_file;
rtn_info *curr_rtn;
cue_handle *ch;
sym_handle *sh;
int index;
mod_handle mh;
address addr;
index = 0;
ch = alloca( DIPHandleSize( HK_CUE, false ) );
curr_file = curr_sio->curr_file;
mh = curr_sio->curr_mod->mh;
if( DIPLineCue( mh, curr_sio->curr_file->fid, row, 0, ch ) == SR_NONE ) {
if( DIPLineCue( mh, curr_sio->curr_file->fid, 0, 0, ch ) == SR_NONE ) {
return;
}
}
sh = alloca( DIPHandleSize( HK_SYM, false ) );
addr = DIPCueAddr( ch );
if( DIPAddrSym( mh, addr, sh ) == SR_NONE )
return;
while( index < curr_file->rtn_count ) {
curr_rtn = curr_file->routine[index];
if( curr_rtn->sh != NULL && DIPSymCmp( curr_rtn->sh, sh ) == 0 ) {
curr_sio->curr_rtn = curr_rtn;
break;
}
index++;
}
}
static remap_return ReMapOnePoint( brkp *bp, image_entry *image )
{
mod_handle himage, mod;
bool ok;
address addr;
DIPHDL( cue, cueh );
DIPHDL( cue, cueh2 );
remap_return rc = REMAP_REMAPPED;
if( !bp->status.b.unmapped )
return( REMAP_WRONG_IMAGE );
if( bp->image_name == NULL || bp->mod_name == NULL ) {
if( image == NULL ) {
if( ReMapAddress( &bp->loc ) ) {
rc = REMAP_REMAPPED;
} else {
rc = REMAP_ERROR;
}
} else {
rc = ReMapImageAddress( &bp->loc, image );
}
} else {
himage = LookupImageName( bp->image_name, strlen( bp->image_name ) );
if( himage == NO_MOD )
return( REMAP_ERROR );
mod = LookupModName( himage, bp->mod_name, strlen( bp->mod_name ) );
if( mod == NO_MOD )
return( REMAP_ERROR );
ok = GetBPSymAddr( bp, &addr );
if( !ok )
return( REMAP_ERROR );
if( bp->cue_diff != 0 ) {
if( DeAliasAddrCue( mod, addr, cueh ) != SR_EXACT )
return( REMAP_ERROR );
if( DIPLineCue( mod, DIPCueFileId( cueh ), DIPCueLine( cueh ) + bp->cue_diff, 0, cueh2 ) != SR_EXACT )
return( REMAP_ERROR );
addr = DIPCueAddr( cueh2 );
}
if( bp->addr_diff != 0 ) {
addr.mach.offset += bp->addr_diff;
}
bp->loc.addr = addr;
rc = REMAP_REMAPPED;
}
if( rc == REMAP_REMAPPED ) {
bp->status.b.unmapped = false;
}
SetPointAddr( bp, bp->loc.addr );
if( bp->status.b.activate_on_remap ) {
ActPoint( bp, true );
}
return( rc );
}
static ssl_value MechGet( unsigned select, ssl_value parm )
{
ssl_value result;
DIPHDL( cue, cueh );
sym_list *sym;
address addr;
mad_radix old_radix;
const char *save_scan;
const char *mod_name;
unsigned mod_len;
tokens mod_spec_token;
result = 0;
switch( select ) {
case 0: /* init */
memset( &CurrGet, 0, sizeof( CurrGet ) );
CurrGet.li.mod = NO_MOD;
CurrGet.li.case_sensitive = _IsOn( SW_SSL_CASE_SENSITIVE );
break;
case 1: /* fini */
switch( CurrGet.kind ) {
case GET_NAME:
PushName( &CurrGet.li );
break;
case GET_OPERATOR:
CurrGet.li.type = ST_OPERATOR;
PushName( &CurrGet.li );
break;
case GET_LNUM:
switch( FindACue( cueh ) ) {
case SR_EXACT:
break;
case SR_CLOSEST:
if( ClosestLineOk )
break;
/* fall down */
default:
Error( ERR_NONE, LIT_ENG( ERR_NO_CODE ), CurrGet.li.name.len );
}
PushAddr( DIPCueAddr( cueh ) );
break;
}
break;
case 2: /* mod curr */
case 3: /* mod name lookup */
//NYI: temporary gunk
CurrGet.multi_module = true;
CurrGet.li.mod = NO_MOD;
save_scan = ScanPos();
ReScan( "@" );
mod_spec_token = CurrToken;
ReScan( save_scan );
if( CurrToken == T_NAME ) {
mod_name = NamePos();
mod_len = NameLen();
Scan();
} else {
mod_name = NULL;
mod_len = 0;
}
if( CurrToken == mod_spec_token ) {
if( select == 2 ) {
CurrGet.li.mod = ImagePrimary()->dip_handle;
if( CurrGet.li.mod == NO_MOD ) {
CurrGet.li.mod = ILL_MOD; /* cause lookup to fail */
}
} else {
CurrGet.li.mod = LookupImageName( CurrGet.li.name.start, CurrGet.li.name.len );
if( CurrGet.li.mod == NO_MOD ) {
#define ANY_IMAGE_NAME "_anyimage"
#define ANY_IMAGE_NAME_LEN (sizeof(ANY_IMAGE_NAME)-1)
if( CurrGet.li.name.len != ANY_IMAGE_NAME_LEN
|| memicmp( CurrGet.li.name.start, ANY_IMAGE_NAME, ANY_IMAGE_NAME_LEN ) != 0 ) {
Error( ERR_NONE, LIT_ENG( ERR_NO_IMAGE ), CurrGet.li.name.start, CurrGet.li.name.len );
} else {
CurrGet.any_image = true;
}
}
}
CurrGet.li.name.start = mod_name;
CurrGet.li.name.len = mod_len;
Scan();
} else {
ReScan( save_scan );
}
if( CurrGet.li.name.start != NULL ) {
CurrGet.li.mod = LookupModName( CurrGet.li.mod, CurrGet.li.name.start, CurrGet.li.name.len );
if( CurrGet.li.mod == NO_MOD ) {
Error( ERR_NONE, LIT_ENG( ERR_NO_MODULE ), CurrGet.li.name.start, CurrGet.li.name.len );
}
CurrGet.multi_module = false;
} else if( !CurrGet.any_image && CurrGet.li.mod == NO_MOD ) {
CurrGet.li.mod = CodeAddrMod;
CurrGet.multi_module = false;
}
break;
case 4: /* file scope */
CurrGet.li.file_scope = true;
break;
case 5: /* given scope */
CurrGet.li.file_scope = false;
break;
case 6: /* scope lookup */
CurrGet.li.scope.start = CurrGet.li.name.start;
CurrGet.li.scope.len = CurrGet.li.name.len;
break;
case 7: /* get name >>bool */
if( CurrToken == T_NAME ) {
CurrGet.kind = GET_NAME;
CurrGet.li.name.start = NamePos();
CurrGet.li.name.len = NameLen();
Scan();
result = true;
}
break;
case 8: /* get operator name */
CurrGet.kind = GET_OPERATOR;
CurrGet.li.name.start = NamePos();
CurrGet.li.name.len = NameLen();
Scan();
break;
case 9: /* get line number >>bool */
if( CurrToken == T_LEFT_BRACE ) {
size_t len;
/* Get a specfic file name for the module */
ScanQuote( &CurrGet.li.source.start, &len );
CurrGet.li.source.len = len;
}
if( CurrToken == T_INT_NUM ) {
unsigned_64 tmp;
result = true;
CurrGet.kind = GET_LNUM;
old_radix = SetCurrRadix( 10 );
tmp = IntNumVal();
CurrGet.li.name.len = U32FetchTrunc( tmp );
Scan();
SetCurrRadix( old_radix );
}
break;
case 10: /* GetDtorName >>bool */
if( CurrToken == T_NAME ) {
CurrGet.kind = GET_NAME;
CurrGet.li.name.start = NamePos();
CurrGet.li.name.len = NameLen();
CurrGet.li.type = ST_DESTRUCTOR;
addr = Context.execution;
sym = LookupSymList( SS_SCOPED, &addr, false, &CurrGet.li );
if( sym != NULL ) {
PurgeSymHandles();
Scan();
result = true;
} else {
CurrGet.li.type = ST_NONE;
}
}
break;
case 11: /* GetSetNameType(symbol_type) */
CurrGet.li.type = parm;
break;
case 12: /* GetQueryName >>bool */
CurrGet.kind = GET_NAME;
addr = Context.execution;
sym = LookupSymList( SS_SCOPED, &addr, false, &CurrGet.li );
if( sym != NULL ) {
PurgeSymHandles();
result = true;
} else {
CurrGet.li.type = ST_NONE;
}
break;
case 13: /* GetAddScope */
if( CurrGet.li.scope.len == 0 ) {
CurrGet.li.scope = CurrGet.li.name;
} else {
CurrGet.li.scope.len = ( CurrGet.li.name.start - CurrGet.li.scope.start ) + CurrGet.li.name.len;
}
break;
}
return( result );
}
