//----------------------------------------------------------------------
static void TouchArg(op_t &x,int isAlt,int isload)
{
switch ( x.type )
{
case o_reg:
case o_phrase:
case o_port:
break;
case o_imm:
if ( !isload ) goto badTouch;
doImmdValue(x.n);
if ( isOff(uFlag, x.n) )
ua_add_off_drefs2(x, dr_O, OOF_SIGNED);
break;
case o_displ:
doImmdValue(x.n);
if ( isAlt ) break;
if ( isOff(uFlag, x.n) )
{
ua_add_off_drefs2(x, isload ? dr_R : dr_W, OOF_ADDR);
ea_t ea = calc_target(cmd.ea+x.offb, cmd.ea, x.n, x.addr);
ua_dodata2(x.offb, ea, x.dtyp);
if ( !isload )
doVar(ea);
}
break;
case o_near:
{
cref_t ftype = fl_JN;
ea_t ea = toEA(cmd.cs, x.addr);
if ( InstrIsSet(cmd.itype, CF_CALL) )
{
if ( !func_does_return(ea) )
flow = false;
ftype = fl_CN;
}
ua_add_cref(x.offb, ea, ftype);
}
break;
case o_mem:
{
ea_t ea = toEA(dataSeg(), x.addr);
ua_add_dref(x.offb, ea, isload ? dr_R : dr_W);
}
break;
default:
badTouch:
if ( cmd.itype != AVR_lpm && cmd.itype != AVR_elpm )
warning("%a: %s,%d: bad optype %d", cmd.ea, cmd.get_canon_mnem(), x.n, x.type);
break;
}
}
//----------------------------------------------------------------------
static void process_operand(op_t &x,int isAlt,int isload)
{
switch ( x.type )
{
case o_reg:
break;
default:
// interr("emu");
break;
case o_imm:
// if ( !isload ) interr("emu2");
process_immediate_number(x.n);
if ( isOff(uFlag, x.n) )
ua_add_off_drefs2(x, dr_O, x.amode & amode_signed ? OOF_SIGNED : 0);
break;
case o_phrase:
if ( !isAlt && isOff(uFlag, x.n) )
{
ua_add_off_drefs2(x, isload ? dr_R : dr_W, OOF_ADDR);
ea_t ea = calc_target(cmd.ea+x.offb, cmd.ea, x.n, x.addr);
ua_dodata2(x.offb, ea, x.dtyp);
if ( !isload ) doVar(ea);
}
break;
case o_mem:
{
ea_t ea = calc_mem(x);
ua_add_dref(x.offb, ea, isload ? dr_R : dr_W);
ua_dodata2(x.offb, ea, x.dtyp);
if ( !isload ) doVar(ea);
}
break;
case o_near:
add_near_ref(x, calc_mem(x));
break;
case o_textphrase:
break;
case o_local: // local variables
if ( may_create_stkvars() )
{
func_t *pfn = get_func(cmd.ea);
if ( (pfn != NULL) && (pfn->flags & FUNC_FRAME) && ua_stkvar2(x, x.addr, STKVAR_VALID_SIZE) )
op_stkvar(cmd.ea, x.n);
}
break;
}
}
/* garray_put()
*/
int64_t garray_put(garray_t *ga, int64_t *lo, int64_t *hi, void *buf_)
{
int64_t count = (hi[0] - lo[0]) + 1, length = count * ga->elem_size,
tlonid, tloidx, thinid, thiidx, tnid, tidx, n, oidx = 0;
int8_t *buf = (int8_t *)buf_;
calc_target(ga, lo[0], &tlonid, &tloidx);
calc_target(ga, hi[0], &thinid, &thiidx);
/* is all data going to the same target? */
if (tlonid == thinid) {
LOG_DEBUG(ga->g->glog, "[%d] garray put %ld-%ld, single target %ld.%ld\n",
ga->g->nid, lo[0], hi[0], tlonid, tloidx);
//MPI_Win_lock(MPI_LOCK_EXCLUSIVE, tlonid, 0, ga->win);
MPI_Put(buf, length, MPI_INT8_T,
tlonid, (tloidx * ga->elem_size), length, MPI_INT8_T,
ga->win);
//MPI_Win_unlock(tlonid, ga->win);
MPI_Win_flush(tlonid, ga->win);
return 0;
}
/* put the data into the lo nid */
n = ga->nelems_per_node + (tlonid < ga->nextra_elems ? 1 : 0) - tloidx;
LOG_DEBUG(ga->g->glog, "[%d] garray putting %ld elements into %ld.%ld\n",
ga->g->nid, n, tlonid, tloidx);
//MPI_Win_lock(MPI_LOCK_SHARED, tlonid, 0, ga->win);
MPI_Put(buf, length, MPI_INT8_T,
tlonid, (tloidx * ga->elem_size), (n * ga->elem_size), MPI_INT8_T,
ga->win);
//MPI_Win_unlock(tlonid, ga->win);
oidx = (n*ga->elem_size);
/* put the data into the in-between nids */
tidx = 0;
for (tnid = tlonid + 1; tnid < thinid; ++tnid) {
n = ga->nelems_per_node + (tnid < ga->nextra_elems ? 1 : 0);
LOG_DEBUG(ga->g->glog, "[%d] garray putting %ld elements into %ld.%ld\n",
ga->g->nid, n, tnid, tidx);
//MPI_Win_lock(MPI_LOCK_EXCLUSIVE, tnid, 0, ga->win);
MPI_Put(&buf[oidx], (n * ga->elem_size), MPI_INT8_T,
tnid, 0, (n * ga->elem_size), MPI_INT8_T,
ga->win);
//MPI_Win_unlock(tnid, ga->win);
oidx += (n*ga->elem_size);
}
/* put the data into the hi nid */
n = thiidx + 1;
LOG_DEBUG(ga->g->glog, "[%d] garray putting %ld elements up to %ld.%ld\n",
ga->g->nid, n, thinid, thiidx);
//MPI_Win_lock(MPI_LOCK_EXCLUSIVE, thinid, 0, ga->win);
MPI_Put(&buf[oidx], (n * ga->elem_size), MPI_INT8_T,
thinid, 0, (n * ga->elem_size), MPI_INT8_T,
ga->win);
//MPI_Win_unlock(thinid, ga->win);
MPI_Win_flush_all(ga->win);
return 0;
}
//----------------------------------------------------------------------
static void TouchArg(op_t &x,int isAlt,int isload)
{
switch (x.type)
{
case o_phrase:
//Добавляем в список ошибок(выводим сообщение)
//ошибку и адресс где это случилось
//QueueMark(Q_jumps, cmd.ea);
case o_void:
case o_reg:
break;
case o_imm:
{
//Установить для данного байта признак immedia
doImmd(cmd.ea);
//Получить флаг для указанного линейного адресса
if(!isAlt)
{
uint32 offb;
ushort addr = ushort(x.addr);
if(x.type == o_displ )
{
addr += (ushort)cmd.ip;
addr += cmd.size;
//Получить линейный адресс
offb = (uint32)toEA(codeSeg(addr,x.n), 0);
DataSet(x, offb+addr, isload);
}
else if ( isOff(uFlag, x.n) )
{
reref:
ua_add_off_drefs(x, dr_O);
if ( x.type == o_displ )
//Преобразовать данные по указанному линейному адрессу в указанный тип
ua_dodata2(x.offb, calc_target(cmd.ea+x.offb, cmd.ea, x.n, x.addr), x.dtyp);
}
else if(x.type == o_displ && !x.reg && !isDefArg(uFlag, x.n) &&
set_offset(cmd.ea, x.n, toEA(cmd.cs,0))) goto reref;
}
} break;
case o_bit:
case o_mem:
// Конвертирование в данные(указан адресс) по указанному типу,
//добавить крос референсы для текущей инструкции
DataSet(x, toEA(codeSeg(x.addr,x.n), x.addr), isload);
break;
case o_near:
{
//Получить линейный адресс
ea_t ea = toEA(cmd.cs, x.addr);
//Проверить является ли значение по указанному линейному адрессу - инструкцией
int iscall = InstrIsSet(cmd.itype, CF_CALL);
//добавить крос референсы для текущей инструкции
ua_add_cref(x.offb, ea, iscall ? fl_CN : fl_JN);
if ( iscall ) flow = func_does_return(ea);
} break;
default:
warning("%a: %s,%d: bad optype %d", cmd.ea, cmd.get_canon_mnem(), x.n, x.type);
break;
}
}
//----------------------------------------------------------------------
static void TouchArg(op_t &x,int isAlt,int isload) {
switch ( x.type ) {
case o_phrase:
//Добавляем в список ошибок(выводим сообщение)
//ошибку и адресс где это случилось
//QueueMark(Q_jumps, cmd.ea);
case o_void:
case o_reg:
break;
case o_sr:
case o_displ:
//Установить для данного байта признак immedia
doImmd(cmd.ea);
//Получить флаг для указанного линейного адресса
if ( !isAlt ) {
uint32 offb;
ushort addr = ushort(x.addr);
if ( x.type == o_displ ) {
addr += (ushort)cmd.ip;
addr += cmd.size;
//Получить линейный адресс
offb = (uint32)toEA(codeSeg(addr,x.n), 0);
DataSet(x, offb+addr, isload);
} else if ( isOff(uFlag, x.n) ) {
reref:
ua_add_off_drefs2(x, dr_O, x.type == o_displ ? OOF_ADDR : 0);
if ( x.type == o_displ )
//Преобразовать данные по указанному линейному адрессу в указанный тип
ua_dodata2(x.offb, calc_target(cmd.ea+x.offb, cmd.ea, x.n, x.addr), x.dtyp);
} else if ( x.type == o_displ && !x.reg && !isDefArg(uFlag, x.n ) &&
set_offset(cmd.ea, x.n, toEA(cmd.cs,0))) goto reref;
}
break;
case o_stk:
case o_imm:
{
//Установить для данного байта признак immedia
doImmd(cmd.ea);
if ( isOff(get_flags_novalue(cmd.ea), x.n) )
ua_add_off_drefs2(x, dr_O, 0);
}
break;
case o_ab:
{
if ( x.TypeOper == TAB_INDIRECTED_ABS_X )
{
ea_t ea = toEA(cmd.cs, x.addr);
ua_dodata2(x.offb, ea, dt_word);
//добавить крос референсы для текущей инструкции
ua_add_dref(x.offb, ea, isload ? dr_R : dr_W);
//получить данные
uint32 Addr;
Addr = get_word(ea);
Addr = uint32( Addr | (getPG<<16));
//добавить крос референсы для текущей инструкции
ua_add_cref(2, Addr, fl_JF);
}
else
DataSet(x, toEA(codeSeg(x.addr,x.n), x.addr), isload);
}
break;
case o_mem:
{
// Конвертирование в данные(указан адресс) по указанному типу,
//добавить крос референсы для текущей инструкции
switch ( x.TypeOper )
{
case TDIR_DIR_Y:
case TDIR_DIR_X:
case TDIR_DIR:
case TDIR_INDIRECT_DIR:
case TDIR_INDIRECT_DIR_X:
case TDIR_INDIRECT_DIR_Y:
case TDIR_L_INDIRECT_DIR:
case TDIR_L_INDIRECT_DIR_Y:
{
if ( getDPReg == 1 )
{
uint32 d = x.addr & 0xC;
x.addr &= 0xFF3F;
DataSet(x, toEA(codeSeg(x.addr,x.n), x.addr), isload);
x.addr |=d;
}
else
DataSet(x, toEA(codeSeg(x.addr,x.n), x.addr), isload);
}
break;
default:
DataSet(x, toEA(codeSeg(x.addr,x.n), x.addr), isload);
}//end switch
}
break;
case o_near:
{
//Получить линейный адресс
ea_t ea = toEA(cmd.cs, x.addr);
switch ( cmd.itype )
{
case m7900_jsr:
{
//добавить крос референсы для текущей инструкции
ua_add_cref(x.offb, ea, fl_CN );
if ( !func_does_return(ea) )
flow = false;
}
break;
case m7900_jsrl:
//добавить крос референсы для текущей инструкции
ua_add_cref(x.offb, ea, fl_CF);
if ( !func_does_return(ea) )
flow = false;
break;
case m7900_jmpl:
//добавить крос референсы для текущей инструкции
ua_add_cref(x.offb, ea, fl_JF);
break;
default:
ua_add_cref(x.offb, ea, fl_JN);
break;
}
}
break;
default:
// warning("%a: %s,%d: bad optype %d", cmd.ea, cmd.get_canon_mnem(), x.n, x.type);
break;
}
}
