From c4827bc1f7a3a1b2adf0bfa9d540c9f0885ed168 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Fri, 15 Sep 2000 19:27:36 +0000
Subject: [PATCH] lock while processing link

---
 src/db/dbCaTest.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/db/dbCaTest.c b/src/db/dbCaTest.c
index 453e34ab5..2b5ee8c32 100644
--- a/src/db/dbCaTest.c
+++ b/src/db/dbCaTest.c
@@ -38,6 +38,7 @@ of this distribution.
 /*end of conflicting definitions*/
 #include "cadef.h"
 #include "db_access.h"
+#include "dbLock.h"
 #include "dbDefs.h"
 #include "epicsPrint.h"
 #include "dbCommon.h"
@@ -83,6 +84,7 @@ long epicsShareAPI dbcar(char	*precordname,int level)
 		for(j=0; j<pdbRecordType->no_links; j++) {
 		    pdbFldDes = pdbRecordType->papFldDes[pdbRecordType->link_ind[j]];
 		    plink = (DBLINK *)((char *)precord + pdbFldDes->offset);
+                    dbLockSetGblLock();
 		    if (plink->type == CA_LINK) {
 			ncalinks++;
 			pca = (caLink *)plink->value.pv_link.pvt;
@@ -123,6 +125,7 @@ long epicsShareAPI dbcar(char	*precordname,int level)
 			    }
 			}
 		    }
+                    dbLockSetGblUnlock();
 		}
 		if(precordname) goto done;
 	    }