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

Forgot initial for CHOICE types

Browse Source
This commit is contained in:
Marty Kraimer
1995-11-30 21:59:22 +00:00
parent 83ee1e7a8a
commit 09b0f88c24
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/cvtDctsdr/sdr2recordtype.c
View File

@@ -381,17 +381,29 @@ gen_rectype:
break;
case DBF_GBLCHOICE: {
fprintf(fp,"\t\tmenu(%s)\n",pgblMenuNames[pfldDes->choice_set]);
if(pfldDes->initial.ushort_value)
fprintf(fp,"\t\tinitial(\"%u\")\n",
pfldDes->initial.ushort_value);
}
break;
case DBF_CVTCHOICE: {
fprintf(fp,"\t\tmenu(menuConvert)\n");
if(pfldDes->initial.ushort_value)
fprintf(fp,"\t\tinitial(\"%u\")\n",
pfldDes->initial.ushort_value);
}
break;
case DBF_RECCHOICE: {
fprintf(fp,"\t\tmenu(%s)\n",paprecChoiceNames[pfldDes->choice_set]);
if(pfldDes->initial.ushort_value)
fprintf(fp,"\t\tinitial(\"%u\")\n",
pfldDes->initial.ushort_value);
}
break;
case DBF_DEVCHOICE: {
if(pfldDes->initial.ushort_value)
fprintf(fp,"\t\tinitial(\"%u\")\n",
pfldDes->initial.ushort_value);
}
break;
case DBF_INLINK: {