- Added code to read SANS TOF frames from a) files and b) from HM
- Fixed an bug causing core dumps on bad Tcl scripts - Started on a syntax checker for SICS
This commit is contained in:
11
devexec.c
11
devexec.c
@ -162,7 +162,7 @@
|
||||
{
|
||||
pDevEntry pNew = NULL;
|
||||
int iRet;
|
||||
char pBueffel[132];
|
||||
char pBueffel[132], pError[80];
|
||||
pIDrivable pDrivInt = NULL;
|
||||
pICountable pCountInt = NULL;
|
||||
|
||||
@ -199,16 +199,16 @@
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* start it */
|
||||
/* start it */
|
||||
pDrivInt = pDes->GetInterface(pData,DRIVEID);
|
||||
pCountInt = pDes->GetInterface(pData,COUNTID);
|
||||
if(pDrivInt)
|
||||
{
|
||||
iRet = pDrivInt->SetValue(pData,pCon,fNew);
|
||||
iRet = pDrivInt->SetValue(pData,pCon,fNew);
|
||||
}
|
||||
else if(pCountInt)
|
||||
{
|
||||
iRet = pCountInt->StartCount(pData,pCon);
|
||||
iRet = pCountInt->StartCount(pData,pCon);
|
||||
}
|
||||
else
|
||||
{ /* this is a programmers error */
|
||||
@ -356,6 +356,9 @@
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*
|
||||
check the status of all registered devices. Remove when finished
|
||||
*/
|
||||
iRet = LLDnodePtr2First(self->iList);
|
||||
while(iRet != 0)
|
||||
{
|
||||
|
Reference in New Issue
Block a user