From 4f39a77f0ecf25fe8d8a4073f1b65d4c1e1e30de Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Fri, 29 Jan 1993 13:07:21 +0000
Subject: [PATCH] set pact to true during calls to dbPutLink

---
 src/db/recGbl.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/db/recGbl.c b/src/db/recGbl.c
index 925c8d807..9fa9b1c3c 100644
--- a/src/db/recGbl.c
+++ b/src/db/recGbl.c
@@ -1,5 +1,5 @@
 /* recGbl.c - Global record processing routines */
-/* share/src/db @(#)recGbl.c	1.15     8/29/92 */
+/* share/src/db/recGbl.c	$Id$ */
 
 /*
  *      Author:          Marty Kraimer
@@ -37,6 +37,7 @@
  * .07  08-07-92        jba     Added RTN_SUCCESS check for status
  * .08  09-15-92        jba     changed error parm in recGblRecordError calls
  * .09  09-17-92        jba     ANSI C changes
+ * .10  01-27-93        jba     set pact to true during calls to dbPutLink
  */
 
 #include	<vxWorks.h>
@@ -346,7 +347,10 @@ long recGblPutLinkValue(
 {
 	long		options=0;
 	long		status=0;
+	unsigned char   pact;
 
+	pact = precord->pact;
+	precord->pact = TRUE;
 	switch (plink->type){
 		case(CONSTANT):
 			break;
@@ -365,6 +369,7 @@ long recGblPutLinkValue(
 			status=-1;
 			recGblSetSevr(precord,SOFT_ALARM,INVALID_ALARM);
 	}
+	precord->pact = pact;
 	return(status);
 }