moved includes; .ascii=> .db; path changes

1996-01-25 21:13:33 +00:00
parent ecaaeb439a
commit dbfab6b29e
49 changed files with 4925 additions and 261 deletions
@@ -0,0 +1,191 @@
+/* fast_lock.h */
+/* share/epicsH $Id$ */
+
+/*
+ *      Author:          Jeff Hill
+ *      Date:            4-11-89
+ *
+ *      Experimental Physics and Industrial Control System (EPICS)
+ *
+ *      Copyright 1991, the Regents of the University of California,
+ *      and the University of Chicago Board of Governors.
+ *
+ *      This software was produced under  U.S. Government contracts:
+ *      (W-7405-ENG-36) at the Los Alamos National Laboratory,
+ *      and (W-31-109-ENG-38) at Argonne National Laboratory.
+ *
+ *      Initial development by:
+ *              The Controls and Automation Group (AT-8)
+ *              Ground Test Accelerator
+ *              Accelerator Technology Division
+ *              Los Alamos National Laboratory
+ *
+ *      Co-developed with
+ *              The Controls and Computing Group
+ *              Accelerator Systems Division
+ *              Advanced Photon Source
+ *              Argonne National Laboratory
+ *
+ * Modification Log:
+ * -----------------
+ * .01 joh 041189	initial release into middle age
+ * .02 joh 071989	added fast lock test
+ * .03 joh 090391	VRTX kernel ifdef for V5 vxWorks
+ * .04 joh 091091	Now uses V5 vxWorks binary semaphore
+ * .05 joh 092491	Dont use V5 semaphore on V3 EPICS yet
+ * .06 jba 030692	added cast to vxTas arg in FASTLOCK vxWorks5
+ * .07 jba 081092	added cast to vxTas arg in FASTLOCKNOWAIT
+ * .08 mgb 082493	Removed V5/V4 conditional defines
+ * .09 joh 082493	include vxLib.h for vxWorks V5.1
+ * .10 joh 082593	made lock char as vxTas expects	
+ *			(padded structure to identical size)
+ * .11 joh 082593	made fast lock structure fields volatile
+ * .12 joh 091493	added sem and task lock based fast locks
+ *			with ifdefs - removed volatile 
+ */
+
+/*
+ * 
+ *
+ *	Macros and data structures for a much faster (than vrtx semaphore) 
+ *	mutual exclusion lock/unlock.
+ *	(semaphore in this case is only used to wait for unlock)
+ *
+ *      On a 68020 the following times include lock and unlock
+ *
+ *	FASTLOCK-FASTUNLOCK     8 microsecs
+ *	semTake-semGive(Macro) 80 microsecs
+ *	semTake-semGive	       92 microsecs
+ *
+ */
+
+#ifndef INCLfast_lockh
+#define INCLfast_lockh
+
+#ifndef INCLsemLibh
+#include <semLib.h>
+#endif
+#ifndef INCLvxLibh
+#include <vxLib.h>
+#endif
+
+/*
+ *        Macro equivalent of vxWorks glue for better performance
+ */
+#ifdef VRTX_KERNEL
+#	define semGive(SEMID)\
+	{    if ((SEMID)->count == 0)vrtxPost (&((SEMID)->count), 1);    }
+
+#	define semTake(SEMID)\
+	{int dummy;    vrtxPend (&((SEMID)->count), 0, &dummy);    }
+#endif
+
+typedef struct{
+  	SEM_ID		ppend;		/* wait for lock sem */
+  	unsigned short	count;		/* cnt of tasks waiting for lock */
+  	unsigned char	lock;		/* test and set lock bit */
+  	char		pad;		/* structure alignment */
+}FAST_LOCK;
+
+#define SEM_FAST_LOCK
+
+#if defined(SEM_FAST_LOCK) /* no lock test */
+
+#define FASTLOCKINIT(PFAST_LOCK)\
+	(((FAST_LOCK *)(PFAST_LOCK))->ppend = \
+		semBCreate(SEM_Q_PRIORITY, SEM_FULL)) 
+#define FASTLOCKFREE(PFAST_LOCK)\
+	semDelete( ((FAST_LOCK *)(PFAST_LOCK))->ppend )
+#define FASTLOCK(PFAST_LOCK)\
+	semTake(((FAST_LOCK *)(PFAST_LOCK))->ppend, WAIT_FOREVER);
+#define FASTUNLOCK(PFAST_LOCK)\
+  	semGive(((FAST_LOCK *)(PFAST_LOCK))->ppend);
+#define FASTLOCKNOWAIT(PFAST_LOCK) \
+	((semTake(((FAST_LOCK *)(PFAST_LOCK))->ppend,NO_WAIT)==0) ? TRUE : FALSE)
+#define FASTLOCKTEST(PFAST_LOCK) \
+(\
+	(semTake(((FAST_LOCK *)(PFAST_LOCK))->ppend,NO_WAIT)==0 )\
+	? (semGive(((FAST_LOCK *)(PFAST_LOCK))->ppend),FALSE)\
+	: TRUE \
+)
+	
+
+#elif defined(TASK_LOCK_FAST_LOCK)
+
+#define FASTLOCKINIT(PFAST_LOCK)\
+	(\
+	((FAST_LOCK *)(PFAST_LOCK))->count =0, \
+	((FAST_LOCK *)(PFAST_LOCK))->lock =0, \
+	((FAST_LOCK *)(PFAST_LOCK))->ppend = \
+		semBCreate(SEM_Q_PRIORITY, SEM_EMPTY) \
+	)
+#define FASTLOCKFREE(PFAST_LOCK)\
+  		semDelete( ((FAST_LOCK *)(PFAST_LOCK))->ppend )
+
+#define FASTLOCK(PFAST_LOCK)\
+	{\
+	TASK_LOCK;\
+	while( ((FAST_LOCK *)(PFAST_LOCK))->lock ){\
+		((FAST_LOCK *)(PFAST_LOCK))->count++;\
+		TASK_UNLOCK;\
+		semTake(((FAST_LOCK *)(PFAST_LOCK))->ppend, WAIT_FOREVER);\
+		TASK_LOCK;\
+		(((FAST_LOCK *)(PFAST_LOCK))->count)--;\
+	}\
+	((FAST_LOCK *)(PFAST_LOCK))->lock= TRUE;
+	TASK_UNLOCK;
+	}
+
+#define FASTUNLOCK(PFAST_LOCK)\
+	{\
+	((FAST_LOCK *)(PFAST_LOCK))->lock = FALSE;\
+	if( ((FAST_LOCK *)(PFAST_LOCK))->count )\
+  		semGive(((FAST_LOCK *)(PFAST_LOCK))->ppend);\
+	};
+
+#define FASTLOCKTEST(PFAST_LOCK)\
+( ((FAST_LOCK *)(PFAST_LOCK))->lock )
+
+#else /* vxTas() fast lock */
+
+/*
+ *	extra paren avoids order of ops problems
+ *	(returns what semBCreate returns on v5 vxWorks)
+ */
+#define FASTLOCKINIT(PFAST_LOCK)\
+	(\
+	((FAST_LOCK *)(PFAST_LOCK))->count =0, \
+	((FAST_LOCK *)(PFAST_LOCK))->lock =0, \
+	((FAST_LOCK *)(PFAST_LOCK))->ppend = \
+		semBCreate(SEM_Q_PRIORITY, SEM_EMPTY) \
+	)
+
+/* 
+ * new requirement with v5 vxWorks
+ */
+#define FASTLOCKFREE(PFAST_LOCK)\
+  		semDelete( ((FAST_LOCK *)(PFAST_LOCK))->ppend )
+
+#define FASTLOCK(PFAST_LOCK)\
+	{\
+	((FAST_LOCK *)(PFAST_LOCK))->count++;\
+	while(!vxTas( (char *)&( ((FAST_LOCK *)(PFAST_LOCK))->lock ) ))\
+  		semTake(((FAST_LOCK *)(PFAST_LOCK))->ppend, WAIT_FOREVER);\
+	(  ((FAST_LOCK *)(PFAST_LOCK))->count)--;\
+	}
+
+#define FASTUNLOCK(PFAST_LOCK)\
+	{\
+	((FAST_LOCK *)(PFAST_LOCK))->lock = FALSE;\
+	if( ((FAST_LOCK *)(PFAST_LOCK))->count )\
+  		semGive(((FAST_LOCK *)(PFAST_LOCK))->ppend);\
+	};
+
+#define FASTLOCKNOWAIT(PFAST_LOCK) (vxTas((char *)&(((FAST_LOCK *)(PFAST_LOCK))->lock)))
+
+#define FASTLOCKTEST(PFAST_LOCK)\
+( ((FAST_LOCK *)(PFAST_LOCK))->lock )
+
+#endif
+
+#endif /* Nothing after this endif */