epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Old style, pre R3.12, c code in init_record was updated.

Browse Source
This commit is contained in:
Janet B. Anderson
1996-10-30 17:39:23 +00:00
parent 4de3accb61
commit bab66fe7cc
2 changed files with 9 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/rec/mbboDirectRecord.c
View File

@@ -117,18 +117,9 @@ static long init_record(pmbboDirect,pass)
if (pass==0) return(0);
/* mbbo.siml must be a CONSTANT or a PV_LINK or a DB_LINK */
switch (pmbboDirect->siml.type) {
case (CONSTANT) :
/* mbboDirect.siml must be a CONSTANT or a PV_LINK or a DB_LINK */
if (pmbboDirect->siml.type == CONSTANT) {
recGblInitConstantLink(&pmbboDirect->siml,DBF_USHORT,&pmbboDirect->simm);
break;
case (PV_LINK) :
case (DB_LINK) :
break;
default :
recGblRecordError(S_db_badField,(void *)pmbboDirect,
"mbboDirect: init_record Illegal SIML field");
return(S_db_badField);
}
if(!(pdset = (struct mbbodset *)(pmbboDirect->dset))) {
@@ -141,7 +132,8 @@ static long init_record(pmbboDirect,pass)
return(S_dev_missingSup);
}
if (pmbboDirect->dol.type == CONSTANT){
recGblInitConstantLink(&pmbboDirect->dol,DBF_USHORT,&pmbboDirect->val);
if(recGblInitConstantLink(&pmbboDirect->dol,DBF_USHORT,&pmbboDirect->val))
pmbboDirect->udf = FALSE;
}
/* initialize mask*/
pmbboDirect->mask = 0;
@@ -177,7 +169,7 @@ static long process(pmbboDirect)
}
if (!pmbboDirect->pact) {
if(pmbboDirect->dol.type==DB_LINK && pmbboDirect->omsl==CLOSED_LOOP){
if(pmbboDirect->dol.type!=CONSTANT && pmbboDirect->omsl==CLOSED_LOOP){
long status;
unsigned short val;
@@ -186,6 +178,7 @@ static long process(pmbboDirect)
pmbboDirect->pact = FALSE;
if(status==0) {
pmbboDirect->val= val;
pmbboDirect->udf= FALSE;
}
}
/* convert val to rval */

23
src/rec/waitRecord.c
View File

@@ -593,32 +593,15 @@ static long initSiml(pwait)
struct waitRecord *pwait;
{
long status;
/* wait.siml must be a CONSTANT or a PV_LINK or a DB_LINK */
switch (pwait->siml.type) {
case (CONSTANT) :
if (pwait->siml.type == CONSTANT) {
recGblInitConstantLink(&pwait->siml,DBF_USHORT,&pwait->simm);
break;
case (PV_LINK) :
case (DB_LINK) :
break;
default :
recGblRecordError(S_db_badField,(void *)pwait,
"wait: init_record Illegal SIML field");
return(S_db_badField);
}
/* wait.siol must be a CONSTANT or a PV_LINK or a DB_LINK */
switch (pwait->siol.type) {
case (CONSTANT) :
if (pwait->siol.type == CONSTANT) {
recGblInitConstantLink(&pwait->siol,DBF_DOUBLE,&pwait->sval);
break;
case (PV_LINK) :
case (DB_LINK) :
break;
default :
recGblRecordError(S_db_badField,(void *)pwait,
"wait: init_record Illegal SIOL field");
return(S_db_badField);
}
return(0);