Ada95, gnat, go32

6 files changed, 354 insertions, 0 deletions

diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/README b/c/src/lib/libbsp/unix/posix/shmsupp/README
new file mode 100644
index 0000000000..93d6fcbe8c
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/README
@@ -0,0 +1,9 @@
+#
+#  $Id$
+#
+
+This directory contains the SHM driver support files for 
+System V/POSIX derived UNIX flavors.
+
+WARNING: The interrupt support in this directory currently will
+         only work in a homogeneous system.
diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/addrconv.c b/c/src/lib/libbsp/unix/posix/shmsupp/addrconv.c
new file mode 100644
index 0000000000..fd3ba689bd
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/addrconv.c
@@ -0,0 +1,32 @@
+/*  rtems_unsigned32 *Shm_Convert_address( addr )
+ *
+ *  No address range conversion is required.
+ *
+ *  Input parameters:
+ *    addr    - address to convert
+ *
+ *  Output parameters:
+ *    returns - converted address
+ *
+ *  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 <bsp.h>
+#include <shm.h>
+
+void *Shm_Convert_address(
+  void *addr
+)
+{
+  return ( addr );
+}
diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/getcfg.c b/c/src/lib/libbsp/unix/posix/shmsupp/getcfg.c
new file mode 100644
index 0000000000..14158f4516
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/getcfg.c
@@ -0,0 +1,136 @@
+/*  void Shm_get_config( localnode, &shmcfg )
+ *
+ *  This routine initializes, if necessary, and returns a pointer
+ *  to the Shared Memory Configuration Table for the UNIX
+ *  simulator.
+ *
+ *  INPUT PARAMETERS:
+ *    localnode - local node number
+ *    shmcfg    - address of pointer to SHM Config Table
+ *
+ *  OUTPUT PARAMETERS:
+ *    *shmcfg   - pointer to SHM Config Table
+ *
+ *  NOTES:  The MP interrupt used is the Runway bus' ability to directly
+ *          address the control registers of up to four CPUs and cause
+ *          interrupts on them.
+ *
+ *          The following table illustrates the configuration limitations:
+ *
+ *                                   BUS     MAX
+ *                          MODE    ENDIAN  NODES
+ *                        ========= ====== =======
+ *                         POLLED    BIG    2+
+ *                        INTERRUPT  BIG    2..4
+ *
+ *  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 <bsp.h>
+
+#include <stdio.h>
+#include <errno.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+
+#define INTERRUPT 0        /* can be interrupt or polling */
+#define POLLING   1
+
+shm_config_table BSP_shm_cfgtbl;
+
+int              semid;
+
+void Shm_Cause_interrupt_unix(
+  rtems_unsigned32 node
+);
+
+void Shm_Get_configuration(
+  rtems_unsigned32   localnode,
+  shm_config_table **shmcfg
+)
+{
+    rtems_unsigned32 maximum_nodes;
+    int          i;
+    int          shmid;
+    char        *shm_addr;
+    key_t        shm_key;
+    key_t        sem_key;
+    struct sembuf  sb;
+    int          status;
+
+    shm_key = 0xa000;
+
+    shmid = shmget(shm_key, 16 * KILOBYTE, IPC_CREAT | 0660);
+    if ( shmid == -1 ) {
+       perror( "shmget" );
+       exit( 0 );
+    }
+
+    shm_addr = shmat(shmid, (char *)0, SHM_RND);
+    if ( shm_addr == (void *)-1 ) {
+       perror( "shmat" );
+       exit( 0 );
+    }
+
+    sem_key = 0xa001;
+
+    maximum_nodes = Shm_RTEMS_MP_Configuration->maximum_nodes;
+    semid = semget(sem_key, maximum_nodes + 1, IPC_CREAT | 0660);
+    if ( semid == -1 ) {
+       perror( "semget" );
+       exit( 0 );
+    }
+
+    if ( Shm_Is_master_node() ) {
+      for ( i=0 ; i <= maximum_nodes ; i++ ) {
+        sb.sem_op  = 1;
+        sb.sem_num = i;
+        sb.sem_flg = 0;
+        status = semop( semid, &sb, 1 );
+        if ( status == -1 ) {
+          fprintf( stderr, "Sem init failed %d\n", errno ); fflush( stderr );
+          exit( 0 );
+        }
+      }
+    }
+
+    BSP_shm_cfgtbl.base         = (vol_u32 *)shm_addr;
+    BSP_shm_cfgtbl.length       = 16 * KILOBYTE;
+    BSP_shm_cfgtbl.format       = SHM_BIG;
+
+    BSP_shm_cfgtbl.cause_intr   = Shm_Cause_interrupt_unix;
+
+#ifdef NEUTRAL_BIG
+    BSP_shm_cfgtbl.convert      = NULL_CONVERT;
+#else
+    BSP_shm_cfgtbl.convert      = CPU_swap_u32;
+#endif
+
+#if ( POLLING == 1 )
+    BSP_shm_cfgtbl.poll_intr    = POLLED_MODE;
+    BSP_shm_cfgtbl.Intr.address = NO_INTERRUPT;
+    BSP_shm_cfgtbl.Intr.value   = NO_INTERRUPT;
+    BSP_shm_cfgtbl.Intr.length  = NO_INTERRUPT;
+#else
+    BSP_shm_cfgtbl.poll_intr    = INTR_MODE;
+    BSP_shm_cfgtbl.Intr.address = 0;    /* process id? */
+    BSP_shm_cfgtbl.Intr.value   = 0;    /* signal to send? */
+    BSP_shm_cfgtbl.Intr.length  = LONG;
+#endif
+
+    *shmcfg = &BSP_shm_cfgtbl;
+}
diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/intr.c b/c/src/lib/libbsp/unix/posix/shmsupp/intr.c
new file mode 100644
index 0000000000..44259479db
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/intr.c
@@ -0,0 +1,31 @@
+/*  void Shm_interrupt_unix( node )
+ *
+ *  This routine is the shared memory driver routine which
+ *  generates interrupts to other CPUs.
+ *
+ *  Input parameters:
+ *    node          - destination of this packet (0 = broadcast)
+ *
+ *  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 <stdio.h>
+
+void Shm_Cause_interrupt_unix(
+  rtems_unsigned32 node
+)
+{
+}
diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/lock.c b/c/src/lib/libbsp/unix/posix/shmsupp/lock.c
new file mode 100644
index 0000000000..da39cc86f5
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/lock.c
@@ -0,0 +1,117 @@
+/*  Shared Memory Lock Routines
+ *
+ *  This shared memory locked queue support routine need to be
+ *  able to lock the specified locked queue.  Interrupts are
+ *  disabled while the queue is locked to prevent preemption
+ *  and deadlock when two tasks poll for the same lock.
+ *  previous level.
+ *
+ *  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 <bsp.h>
+#include <shm.h>
+
+#include <errno.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+
+extern int      semid;
+
+/*
+ *  Shm_Initialize_lock
+ *
+ *  Initialize the lock for the specified locked queue.
+ */
+
+void Shm_Initialize_lock(
+  Shm_Locked_queue_Control *lq_cb
+)
+{
+  lq_cb->lock = 
+    ( lq_cb - Shm_Locked_queues ) / sizeof( Shm_Locked_queue_Control );
+}
+
+/*  Shm_Lock( &lq_cb )
+ *
+ *  This shared memory locked queue support routine locks the
+ *  specified locked queue.  It disables interrupts to prevent
+ *  a deadlock condition.
+ */
+
+void Shm_Lock(
+  Shm_Locked_queue_Control *lq_cb
+)
+{
+    rtems_unsigned32   isr_level;
+    struct sembuf      sb;
+    int                status;
+
+    isr_level = 0;
+
+    sb.sem_num = lq_cb->lock;
+    sb.sem_op  = -1;
+    sb.sem_flg = 0;
+    rtems_interrupt_disable( isr_level );
+
+    Shm_isrstat = isr_level;
+
+    while (1) {
+      status = semop(semid, &sb, 1);
+      if ( status == 0 )
+        break;
+      if ( status == -1 && errno == EINTR )
+        continue;
+
+      fprintf( stderr, "shm lock (%d %d)\n", status, errno );
+      exit( 0 );
+    }
+}
+
+/*
+ *  Shm_Unlock
+ *
+ *  Unlock the lock for the specified locked queue.
+ */
+
+void Shm_Unlock(
+  Shm_Locked_queue_Control *lq_cb
+)
+{
+    rtems_unsigned32   isr_level;
+    struct sembuf      sb;
+    int                status;
+
+    isr_level = 0;
+
+    sb.sem_num = lq_cb->lock;
+    sb.sem_op  = 1;
+    sb.sem_flg = 0;
+
+    while (1) {
+      status = semop(semid, &sb, 1);
+      if ( status == 0 )
+        break;
+      if ( status == -1 && errno == EINTR )
+        continue;
+
+      fprintf( stderr, "shm lock (%d %d)\n", status, errno ); fflush( stderr );
+      exit( 0 );
+    }
+
+    isr_level = Shm_isrstat;
+    rtems_interrupt_enable( isr_level );
+}
diff --git a/c/src/lib/libbsp/unix/posix/shmsupp/mpisr.c b/c/src/lib/libbsp/unix/posix/shmsupp/mpisr.c
new file mode 100644
index 0000000000..02bee168a6
--- /dev/null
+++ b/c/src/lib/libbsp/unix/posix/shmsupp/mpisr.c
@@ -0,0 +1,29 @@
+/*  Shm_setvec
+ *
+ *  This driver routine sets the SHM interrupt vector to point to the
+ *  driver's SHM 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 <bsp.h>
+#include <shm.h>
+
+void Shm_setvec( void )
+{
+  set_vector( Shm_isr, INTERRUPT_EXTERNAL_MPCI, 1 );
+}