linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

corrected bug in device command

Browse Source
This commit is contained in:
cvs
2000-04-05 05:58:04 +00:00
parent 79061059c6
commit 27e555e0e7
1 changed files with 0 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tecsdriv.c
View File

@ -87,8 +87,6 @@
pEVControl self = NULL; pEVControl self = NULL;
char pBueffel[256]; char pBueffel[256];
int iRet; int iRet;
double fNum;
float fVal;
pEVDriver pD; pEVDriver pD;
pTecsDriv pMe; pTecsDriv pMe;
char *dev; char *dev;
@ -108,13 +106,6 @@
{ {
if(argc > 2) /* set case */ if(argc > 2) /* set case */
{ {
iRet = Tcl_GetDouble(pSics->pTcl,argv[2],&fNum);
if(iRet != TCL_OK)
{
sprintf(pBueffel,"ERROR: expected number, got %s",argv[2]);
SCWrite(pCon,pBueffel,eError);
return 0;
}
pD=self->pDriv; assert(pD); pD=self->pDriv; assert(pD);
pMe=pD->pPrivate; assert(pMe); pMe=pD->pPrivate; assert(pMe);
iRet=TeccSetDev(pMe->pData,argv[2]); iRet=TeccSetDev(pMe->pData,argv[2]);