bool Command::Execute( void )
{
switch( mCmdID )
{
case kCmdAssign : return DoAssign();
case kCmdClose : return DoCloseCursor();
case kCmdExec : return DoExec();
case kCmdFetch : return DoFetch();
case kCmdGoIf : return DoGoIf();
case kCmdGoIfNot : return DoGoIfNot();
case kCmdOpen : return DoOpenCursor();
case kCmdParam : return DoReadParam();
case kCmdPrint : return DoPrint();
case kCmdReset : return mpVM->mVariables[ mObject ]->mIsNULL = true;
case kCmdReturn : return DoReturn();
case kCmdSelect : return DoSelect();
case kCmdGo : mpVM->mPos = mParam.ToInt();
case kCmdNope : return true;
default:;
}
return false;
}
TrackList& TrackList::operator= (const TrackList &that)
{
if (this != &that) {
this->Clear(mDestructorDeletesTracks);
DoAssign(that);
}
return *this;
}
TrackList& TrackList::operator= (const TrackList &that)
{
if (this != &that) {
this->Clear();
DoAssign(that);
}
return *this;
}
bool PerformExplicitCall( address start, mad_string ctype, unsigned num_parms )
{
bool ret;
stack_entry *src;
address stack;
unsigned align;
unsigned long amount;
mad_type_info mti;
stack = GetRegSP();
GetMADTypeDefaultAt( stack, MTK_INTEGER, &mti );
align = mti.b.bits / BITS_PER_BYTE;
for( ; num_parms != 0; --num_parms ) {
if( ExprSP->v.loc.e[0].type!=LT_ADDR && ExprSP->v.loc.e[0].u.p==NULL ) {
/* push item */
src = StkEntry( 1 );
amount = (src->info.size + (align-1)) & -align;
if( _IsOff( SW_STACK_GROWS_UP ) ) {
stack.mach.offset -= amount;
}
LocationCreate( &ExprSP->v.loc, LT_ADDR, &stack );
if( _IsOn( SW_STACK_GROWS_UP ) ) {
stack.mach.offset += amount;
}
ExprSP->info = src->info;
ExprSP->flags |= SF_LOCATION;
ExprSP->th = NULL;
}
SwapStack( 1 );
DoAssign();
PopEntry();
}
AddrFix( &start );
SetRegSP( stack );
MADCallBuildFrame( ctype, start, start, &DbgRegs->mr, &DbgRegs->mr );
DbgTmpBrk.loc.addr = start;
NullStatus( &DbgTmpBrk );
DbgTmpBrk.status.b.active = TRUE;
ret = CallRoutine();
NullStatus( &DbgTmpBrk );
return( ret );
}
static unsigned MechDo( unsigned select, unsigned parm )
{
unsigned long size;
unsigned result = 0;
DIPHDL( type, th );
dip_type_info info;
mad_type_info mti;
switch( select ) {
case 0:
DoAssign();
break;
case 1:
DoMul();
break;
case 2:
DoDiv();
break;
case 3:
DoMod();
break;
case 4:
DoMinus();
break;
case 5:
DoShift();
break;
case 6:
DoAnd();
break;
case 7:
DoXor();
break;
case 8:
DoOr();
break;
case 9:
DoAddr();
break;
case 10:
ClassToTypeInfo( parm, &info );
DoPoints( info.kind );
break;
case 11:
DoField();
break;
case 12:
DoCall( Num, parm );
break;
case 13:
DoConvert();
break;
case 14:
DoPlus();
break;
case 15:
MakeAddr();
break;
case 16:
result = TstEQ( parm );
break;
case 17:
result = TstLT( parm );
break;
case 18:
result = TstTrue( parm );
break;
case 19:
result = TstExist( parm );
break;
case 20:
size = ExprSP->info.size;
PopEntry();
PushNum( size );
break;
case 21:
TypeBase( ExprSP->th, th, NULL, NULL );
PopEntry();
PushType( th );
break;
case 22:
GetMADTypeDefault( MTK_ADDRESS, &mti );
size = (mti.b.bits - mti.a.seg.bits) / BITS_PER_BYTE;
if( parm ) {
size += sizeof( addr_seg );
TypePointer( ExprSP->th, TM_FAR, size, th );
} else {
TypePointer( ExprSP->th, TM_NEAR, size, th );
}
PopEntry();
PushType( th );
break;
case 23:
result = UserType( th );
if( result ) {
PopEntry();
PushType( th );
}
break;
case 24:
DoMakeComplex();
break;
case 25:
DoStringConcat();
break;
case 26:
DoLConvert();
break;
case 27:
DoPlusScaled();
break;
case 28:
DoMinusScaled();
break;
case 29:
DoPoints( TI_KIND_EXTRACT( parm ) );
break;
case 30:
info.kind = TK_POINTER;
info.size = TI_SIZE_EXTRACT( parm );
info.modifier = TI_MOD_EXTRACT( parm );
FillInDefaults( &info );
TypePointer( ExprSP->th, info.modifier, info.size, th );
PopEntry();
PushType( th );
break;
case 31:
if( parm ) {
/* file scope */
if( ExprSP->flags & SF_NAME ) {
ExprSP->v.li.file_scope = TRUE;
} else {
Error( ERR_LOC, LIT( ERR_WANT_NAME ) );
}
} else {
/* in a namespace */
DoScope();
}
break;
}
return( result );
}
TrackList::TrackList(const TrackList &that)
{
DoAssign(that);
}
static ssl_value MechDo( unsigned select, ssl_value parm )
{
unsigned long size;
ssl_value result;
DIPHDL( type, th );
dig_type_info ti;
mad_type_info mti;
result = 0;
switch( select ) {
case 0:
DoAssign();
break;
case 1:
DoMul();
break;
case 2:
DoDiv();
break;
case 3:
DoMod();
break;
case 4:
DoMinus();
break;
case 5:
DoShift();
break;
case 6:
DoAnd();
break;
case 7:
DoXor();
break;
case 8:
DoOr();
break;
case 9:
DoAddr();
break;
case 10:
ClassToTypeInfo( parm, &ti );
DoPoints( ti.kind );
break;
case 11:
DoField();
break;
case 12:
DoCall( Num, SSL2BOOL( parm ) );
break;
case 13:
DoConvert();
break;
case 14:
DoPlus();
break;
case 15:
MakeAddr();
break;
case 16:
result = ( TstEQ( SSL2INT( parm ) ) != 0 );
break;
case 17:
result = ( TstLT( SSL2INT( parm ) ) != 0 );
break;
case 18:
result = ( TstTrue( SSL2INT( parm ) ) != 0 );
break;
case 19:
result = ( TstExist( SSL2INT( parm ) ) != 0 );
break;
case 20:
size = ExprSP->ti.size;
PopEntry();
PushNum( size );
break;
case 21:
DIPTypeBase( ExprSP->th, th, NULL, NULL );
PopEntry();
PushType( th );
break;
case 22:
GetMADTypeDefault( MTK_ADDRESS, &mti );
size = BITS2BYTES( mti.b.bits - mti.a.seg.bits );
if( parm ) {
size += sizeof( addr_seg );
DIPTypePointer( ExprSP->th, TM_FAR, size, th );
} else {
DIPTypePointer( ExprSP->th, TM_NEAR, size, th );
}
PopEntry();
PushType( th );
break;
case 23:
result = UserType( th );
if( result ) {
PopEntry();
PushType( th );
}
break;
case 24:
DoMakeComplex();
break;
case 25:
DoStringConcat();
break;
case 26:
DoLConvert();
break;
case 27:
DoPlusScaled();
break;
case 28:
DoMinusScaled();
break;
case 29:
DoPoints( TI_KIND_EXTRACT( parm ) );
break;
case 30:
ti.kind = TK_POINTER;
ti.size = TI_SIZE_EXTRACT( parm );
ti.modifier = TI_MOD_EXTRACT( parm );
ti.deref = false;
FillInDefaults( &ti );
DIPTypePointer( ExprSP->th, ti.modifier, ti.size, th );
PopEntry();
PushType( th );
break;
case 31:
if( SSL2BOOL( parm ) ) {
/* file scope */
if( ExprSP->flags & SF_NAME ) {
ExprSP->v.li.file_scope = true;
} else {
Error( ERR_LOC, LIT_ENG( ERR_WANT_NAME ) );
}
} else {
/* in a namespace */
DoScope();
}
break;
}
return( result );
}
TrackList::TrackList(const TrackList &that)
: ListOfTracks{}
{
DoAssign(that);
}
