static void RegModify( a_window *wnd, int row, int piece )
{
int i;
item_mach value;
reg_window *reg = WndReg( wnd );
bool ok;
mad_radix old_radix;
reg_display_piece disp;
mad_type_info tinfo;
mad_modify_list const *possible;
int num_possible;
if( row < 0 )
return;
piece >>= 1;
i = GetRegIdx( reg, row, piece );
if( i == -1 )
return;
if( !GetDisplayPiece( &disp, reg, DbgRegs, i ) )
return;
if( disp.reginfo == NULL )
return;
if( MADRegSetDisplayModify( reg->data, disp.reginfo, &possible, &num_possible ) != MS_OK )
return;
old_radix = NewCurrRadix( MADTypePreferredRadix( disp.disp_type ) );
MADRegFullName( disp.reginfo, ".", TxtBuff, TXT_LEN );
RegValue( &value, disp.reginfo, DbgRegs );
if( num_possible == 1 ) {
ok = DlgMadTypeExpr( TxtBuff, &value, disp.disp_type );
if( ok ) {
RegNewValue( disp.reginfo, &value, possible->type );
}
} else {
for( i = 0; i < num_possible; ++i ) {
MADTypeInfo( possible[i].type, &tinfo );
if( memcmp( &value, possible[i].data, tinfo.b.bits / BITS_PER_BYTE ) == 0 ) {
break;
}
}
if( num_possible == 2 ) {
if( i == 0 ) {
i = 1;
} else {
i = 0;
}
} else { //MJC const cast
i = DlgPickWithRtn( TxtBuff, possible, i, RegValueName, num_possible );
}
if( i != -1 ) {
RegNewValue( disp.reginfo, possible[i].data, possible[i].type );
}
}
NewCurrRadix( old_radix );
}
OVL_EXTERN void IOMenuItem( a_window wnd, gui_ctl_id id, wnd_row row, wnd_piece piece )
{
io_window *io = WndIO( wnd );
address addr;
bool ok;
item_mach item;
io_location *curr;
mad_radix old_radix;
/* unused parameters */ (void)piece;
if( row < io->num_rows && row >= 0 ) {
curr = &io->list[row];
} else {
curr = NULL;
}
switch( id ) {
case MENU_INITIALIZE:
if( curr == NULL ) {
WndMenuGrayAll( wnd );
} else {
WndMenuEnableAll( wnd );
}
WndMenuEnable( wnd, MENU_IO_NEW_ADDRESS, true );
break;
case MENU_IO_DELETE:
io->num_rows--;
memcpy( &io->list[row], &io->list[row + 1],
( io->num_rows - row ) * sizeof( io_location ) );
WndNoSelect( wnd );
WndSetRepaint( wnd );
break;
case MENU_IO_NEW_ADDRESS:
addr = NilAddr;
if( !DlgGivenAddr( LIT_DUI( New_Port_Addr ), &addr ) )
return;
WndRowDirty( wnd, io->num_rows );
IOAddNewAddr( wnd, &addr, MENU_IO_FIRST_TYPE );
WndScrollBottom( wnd );
break;
case MENU_IO_MODIFY:
if( row >= io->num_rows || row < 0 )
break;
if( piece == PIECE_VALUE ) {
old_radix = NewCurrRadix( IOData.info[curr->type].piece_radix );
item.ud = curr->value_known ? curr->value.ud : 0;
ok = DlgMadTypeExpr( TxtBuff, &item, IOData.info[curr->type].mth );
if( ok ) {
curr->value = item;
curr->value_known = true;
}
NewCurrRadix( old_radix );
} else {
addr = curr->addr;
if( !DlgGivenAddr( LIT_DUI( New_Port_Addr ), &addr ) )
return;
curr->addr = addr;
curr->value_known = false;
}
WndRowDirty( wnd, row );
break;
case MENU_IO_READ:
curr->value_known = true;
if( ItemGetMAD( &curr->addr, &curr->value, IT_IO, IOData.info[curr->type].mth ) == IT_NIL ) {
curr->value_known = false;
}
WndPieceDirty( wnd, row, PIECE_VALUE );
break;
case MENU_IO_WRITE:
if( curr->value_known ) {
ItemPutMAD( &curr->addr, &curr->value, IT_IO, IOData.info[curr->type].mth );
}
break;
default:
curr->type = PIECE_TYPE( id );
WndZapped( wnd );
break;
}
}
