From 519f3d29cf9ec9b0ae6ba9164094bca8e4257636 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Tue, 12 Aug 2003 22:18:46 +0000
Subject: [PATCH] Set PACT if error occurred during record init

---
 src/dev/testDev/devAiTestAsyn.c        | 1 +
 src/dev/testDev/devAoTestAsyn.c        | 1 +
 src/dev/testDev/devBiTestAsyn.c        | 1 +
 src/dev/testDev/devBoTestAsyn.c        | 1 +
 src/dev/testDev/devHistogramTestAsyn.c | 1 +
 src/dev/testDev/devMbbiTestAsyn.c      | 1 +
 src/dev/testDev/devMbboTestAsyn.c      | 1 +
 src/dev/testDev/devSiTestAsyn.c        | 1 +
 src/dev/testDev/devSoTestAsyn.c        | 1 +
 src/dev/testDev/devWfTestAsyn.c        | 1 +
 10 files changed, 10 insertions(+)

diff --git a/src/dev/testDev/devAiTestAsyn.c b/src/dev/testDev/devAiTestAsyn.c
index 00f8bdd4d..4c1f461bc 100644
--- a/src/dev/testDev/devAiTestAsyn.c
+++ b/src/dev/testDev/devAiTestAsyn.c
@@ -60,6 +60,7 @@ static long init_record(struct aiRecord *pai)
     default :
         recGblRecordError(S_db_badField,(void *)pai,
             "devAiTestAsyn (init_record) Illegal INP field");
+        pai->pact=TRUE;
         return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devAoTestAsyn.c b/src/dev/testDev/devAoTestAsyn.c
index c3d56740e..d38160e01 100644
--- a/src/dev/testDev/devAoTestAsyn.c
+++ b/src/dev/testDev/devAoTestAsyn.c
@@ -72,6 +72,7 @@ static long init_record(pao)
     default :
 	recGblRecordError(S_db_badField,(void *)pao,
 		"devAoTestAsyn (init_record) Illegal OUT field");
+	pao->pact=TRUE;
 	return(S_db_badField);
     }
     return(2);
diff --git a/src/dev/testDev/devBiTestAsyn.c b/src/dev/testDev/devBiTestAsyn.c
index dc8ebc082..d9b4f194d 100644
--- a/src/dev/testDev/devBiTestAsyn.c
+++ b/src/dev/testDev/devBiTestAsyn.c
@@ -73,6 +73,7 @@ static long init_record(pbi)
     default :
 	recGblRecordError(S_db_badField,(void *)pbi,
 		"devBiTestAsyn (init_record) Illegal INP field");
+        pbi->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devBoTestAsyn.c b/src/dev/testDev/devBoTestAsyn.c
index 1b1b96b12..0f0fc4c4a 100644
--- a/src/dev/testDev/devBoTestAsyn.c
+++ b/src/dev/testDev/devBoTestAsyn.c
@@ -72,6 +72,7 @@ static long init_record(pbo)
     default :
 	recGblRecordError(S_db_badField,(void *)pbo,
 		"devBoTestAsyn (init_record) Illegal OUT field");
+        pbo->pact=TRUE;
 	return(S_db_badField);
     }
     return(2);
diff --git a/src/dev/testDev/devHistogramTestAsyn.c b/src/dev/testDev/devHistogramTestAsyn.c
index efa2f4a89..7d0710dae 100644
--- a/src/dev/testDev/devHistogramTestAsyn.c
+++ b/src/dev/testDev/devHistogramTestAsyn.c
@@ -69,6 +69,7 @@ static long init_record(phistogram)
     default :
 	recGblRecordError(S_db_badField,(void *)phistogram,
 	    "devHistogramTestAsyn (init_record) Illegal SVL field");
+        phistogram->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devMbbiTestAsyn.c b/src/dev/testDev/devMbbiTestAsyn.c
index 5e9a4256b..d97d88ba9 100644
--- a/src/dev/testDev/devMbbiTestAsyn.c
+++ b/src/dev/testDev/devMbbiTestAsyn.c
@@ -73,6 +73,7 @@ static long init_record(pmbbi)
     default :
 	recGblRecordError(S_db_badField,(void *)pmbbi,
 		"devMbbiTestAsyn (init_record) Illegal INP field");
+        pmbbi->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devMbboTestAsyn.c b/src/dev/testDev/devMbboTestAsyn.c
index 2cd2314ce..e3a04ee7d 100644
--- a/src/dev/testDev/devMbboTestAsyn.c
+++ b/src/dev/testDev/devMbboTestAsyn.c
@@ -72,6 +72,7 @@ static long init_record(pmbbo)
     default :
 	recGblRecordError(S_db_badField,(void *)pmbbo,
 	    "devMbboTestAsyn (init_record) Illegal OUT field");
+        pmbbo->pact=TRUE;
 	return(S_db_badField);
     }
     return(2);
diff --git a/src/dev/testDev/devSiTestAsyn.c b/src/dev/testDev/devSiTestAsyn.c
index cb8d4636c..aa0169bc7 100644
--- a/src/dev/testDev/devSiTestAsyn.c
+++ b/src/dev/testDev/devSiTestAsyn.c
@@ -72,6 +72,7 @@ static long init_record(pstringin)
     default :
 	recGblRecordError(S_db_badField,(void *)pstringin,
 		"devSiTestAsyn (init_record) Illegal INP field");
+        pstringin->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devSoTestAsyn.c b/src/dev/testDev/devSoTestAsyn.c
index 4549dd213..4bb41ccfa 100644
--- a/src/dev/testDev/devSoTestAsyn.c
+++ b/src/dev/testDev/devSoTestAsyn.c
@@ -71,6 +71,7 @@ static long init_record(pstringout)
     default :
 	recGblRecordError(S_db_badField,(void *)pstringout,
 		"devSoTestAsyn (init_record) Illegal OUT field");
+        pstringout->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);
diff --git a/src/dev/testDev/devWfTestAsyn.c b/src/dev/testDev/devWfTestAsyn.c
index 4a239c2a2..a4b7da316 100644
--- a/src/dev/testDev/devWfTestAsyn.c
+++ b/src/dev/testDev/devWfTestAsyn.c
@@ -72,6 +72,7 @@ static long init_record(pwf)
     default :
 	recGblRecordError(S_db_badField,(void *)pwf,
 		"devWfTestAsyn (init_record) Illegal INP field");
+	pwf->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);