Error rntRun(void)
{
Error rval = ERR_None;
enableTrace();
do
{
rval = executeNextInstr();
} while(rval == ERR_None);
// The only thing that can interrupt a running program is a breakpoint.
// Or the "error" ERR_EndOfProgram. Other values are REAL errors.
if(rval != ERR_Breakpoint)
{
displayError(rval);
}
else
{
consoleOut("==> A breakpoint has been hit!\n");
}
displayTrace();
disableTrace();
rntDisplayStatus();
return rval; // forward return value
}
//---------------------------------------------------------------------------
void __fastcall TMinosControlForm::FormClose( TObject *Sender,
TCloseAction &/*Action*/ )
{
closing = true;
// we need to close down all the ports
monitor.closeDown();
controlLineEventThread->GJV_join();
delete controlLineEventThread;
LineSet *ls = LineSet::GetLineSet();
delete ls;
MinosRPCObj::clearRPCObjects();
XMPPClosedown();
LogTimerTimer( Sender );
disableTrace();
// and tidy up all loose ends
GJV_scoped_lock::ClearDown();
disableInterrupts::terminate();
CsGuard::ClearDown();
}
void DeInitProcessor(void)
{
disableTrace();
freeMemList(memory);
memory = NULL;
freeNumberList(&breakpoints);
numberout = NULL;
numberinp = NULL;
}
