1 files changed, 40 insertions, 0 deletions
diff --git a/c/src/lib/libbsp/shmdr/poll.c b/c/src/lib/libbsp/shmdr/poll.c
new file mode 100644
index 0000000000..43f6711ff9
--- /dev/null
+++ b/c/src/lib/libbsp/shmdr/poll.c
@@ -0,0 +1,40 @@
+/*  void Shm_Poll()
+ *
+ *  This routine polls to see if a packet has arrived.  If one
+ *  has it informs the executive.  It is typically called from
+ *  the clock tick interrupt service routine.
+ *
+ *  Input parameters:  NONE
+ *
+ *  Output parameters: NONE
+ *
+ *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
+ *  On-Line Applications Research Corporation (OAR).
+ *  All rights assigned to U.S. Government, 1994.
+ *
+ *  This material may be reproduced by or for the U.S. Government pursuant
+ *  to the copyright license under the clause at DFARS 252.227-7013.  This
+ *  notice must appear in all copies of this file and its derivatives.
+ *
+ *  $Id$
+ */
+
+#include <rtems.h>
+#include "shm.h"
+#include "clockdrv.h"
+
+void Shm_Poll()
+{
+  rtems_unsigned32 tmpfront;
+
+  Clock_isr( 0 );             /* invoke standard clock ISR */
+
+  /* enable_tracing(); */
+  /* ticks += 1; */
+  Shm_Lock( Shm_Local_receive_queue );
+    tmpfront = Shm_Local_receive_queue->front;
+  Shm_Unlock( Shm_Local_receive_queue );
+  if ( Shm_Convert(tmpfront) == Shm_Locked_queue_End_of_list ) return;
+  rtems_multiprocessing_announce();
+  Shm_Interrupt_count++;
+}