osdMutex.c File Reference

#include <assert.h>
#include <stdio.h>
#include <rtems.h>
#include <rtems/error.h>
#include "epicsStdio.h"
#include "epicsMutex.h"
#include "epicsEvent.h"
#include "errlog.h"

Include dependency graph for osdMutex.c:

Go to the source code of this file.

Macros
#define	__RTEMS_VIOLATE_KERNEL_VISIBILITY__   1
#define	RTEMS_FAST_MUTEX
#define	SEMSTAT(i)

Functions
struct epicsMutexOSD *	epicsMutexOsdCreate (void)
void	epicsMutexOsdDestroy (struct epicsMutexOSD *id)
void	epicsMutexOsdUnlock (struct epicsMutexOSD *id)
epicsMutexLockStatus	epicsMutexOsdLock (struct epicsMutexOSD *id)
epicsMutexLockStatus	epicsMutexOsdTryLock (struct epicsMutexOSD *id)
LIBCOM_API void	epicsMutexOsdShow (struct epicsMutexOSD *id, unsigned int level)

Macro Definition Documentation

#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__   1

Definition at line 18 of file osdMutex.c.

#define RTEMS_FAST_MUTEX

Definition at line 30 of file osdMutex.c.

#define SEMSTAT

(

i

)

Definition at line 39 of file osdMutex.c.

Function Documentation

struct epicsMutexOSD* epicsMutexOsdCreate

(

void

)

The following are interfaces to the OS dependent implementation and should NOT be called directly by user code.

Definition at line 43 of file osdMutex.c.

{
    rtems_status_code sc;
    rtems_id sid;
    rtems_interrupt_level level;
    static char c1 = 'a';
    static char c2 = 'a';
    static char c3 = 'a';

    sc = rtems_semaphore_create (rtems_build_name ('M', c3, c2, c1),
        1,
        RTEMS_PRIORITY|RTEMS_BINARY_SEMAPHORE|RTEMS_INHERIT_PRIORITY|RTEMS_NO_PRIORITY_CEILING|RTEMS_LOCAL,
        0,
        &sid);
    if (sc != RTEMS_SUCCESSFUL) {
        errlogPrintf ("Can't create mutex semaphore: %s\n", rtems_status_text (sc));
        return NULL;
    }
    rtems_interrupt_disable (level);
    if (c1 == 'z') {
        if (c2 == 'z') {
            if (c3 == 'z') {
                c3 = 'a';
            }
            else {
                c3++;
            }
            c2 = 'a';
        }
        else {
            c2++;
        }
        c1 = 'a';
    }
    else {
        c1++;
    }
    rtems_interrupt_enable (level);
#ifdef RTEMS_FAST_MUTEX
    {
      Semaphore_Control *the_semaphore;
      Objects_Locations  location;

      the_semaphore = _Semaphore_Get( sid, &location );
      _Thread_Enable_dispatch();

      return (struct epicsMutexOSD *)the_semaphore;
    }
#endif
    return (struct epicsMutexOSD *)sid;
}

void epicsMutexOsdDestroy

(

struct epicsMutexOSD *

id

)

Definition at line 95 of file osdMutex.c.

{
    rtems_status_code sc;
    rtems_id sid;
#ifdef RTEMS_FAST_MUTEX
    Semaphore_Control *the_semaphore = (Semaphore_Control *)id;
    sid = the_semaphore->Object.id;
#else
    sid = (rtems_id)id;
#endif
    sc = rtems_semaphore_delete (sid);
    if (sc == RTEMS_RESOURCE_IN_USE) {
        rtems_semaphore_release (sid);
        sc = rtems_semaphore_delete (sid);
    }
    if (sc != RTEMS_SUCCESSFUL)
        errlogPrintf ("Can't destroy semaphore %p (%lx): %s\n", id, (unsigned long)sid, rtems_status_text (sc));
}

epicsMutexLockStatus epicsMutexOsdLock

(

struct epicsMutexOSD *

id

)

Definition at line 131 of file osdMutex.c.

{
#ifdef RTEMS_FAST_MUTEX
    Semaphore_Control *the_semaphore = (Semaphore_Control *)id;
    ISR_Level level;
    SEMSTAT(0)
    _ISR_Disable( level );
    _CORE_mutex_Seize(
        &the_semaphore->Core_control.mutex,
        the_semaphore->Object.id,
        1,   /* TRUE or FALSE */
        0, /* same as passed to obtain -- ticks */
        level
    );
    if (_Thread_Executing->Wait.return_code == 0)
        return epicsMutexLockOK;
    else
        return epicsMutexLockError;
#else
    SEMSTAT(0)
    return((epicsEventWait (id) == epicsEventWaitOK)
        ?epicsMutexLockOK : epicsMutexLockError);
#endif
}

LIBCOM_API void epicsMutexOsdShow	(	struct epicsMutexOSD *	id,
		unsigned int	level
	)

Definition at line 188 of file osdMutex.c.

{
#ifdef RTEMS_FAST_MUTEX
    Semaphore_Control *the_semaphore = (Semaphore_Control *)id;
    id = (struct epicsMutexOSD *)the_semaphore->Object.id;
#endif
    epicsEventShow ((epicsEventId)id,level);
}

epicsMutexLockStatus epicsMutexOsdTryLock

(

struct epicsMutexOSD *

id

)

Definition at line 156 of file osdMutex.c.

{
#ifdef RTEMS_FAST_MUTEX
    Semaphore_Control *the_semaphore = (Semaphore_Control *)id;
    ISR_Level level;
    SEMSTAT(2)
    _ISR_Disable( level );
    _CORE_mutex_Seize(
        &the_semaphore->Core_control.mutex,
        the_semaphore->Object.id,
        0,   /* TRUE or FALSE */
        0, /* same as passed to obtain -- ticks */
        level
    );
    if (_Thread_Executing->Wait.return_code == CORE_MUTEX_STATUS_SUCCESSFUL)
        return epicsMutexLockOK;
    else if (_Thread_Executing->Wait.return_code == CORE_MUTEX_STATUS_UNSATISFIED_NOWAIT)
        return epicsMutexLockTimeout;
    else
        return epicsMutexLockError;
#else
    epicsEventWaitStatus status;
    SEMSTAT(2)
    status = epicsEventTryWait(id);
    return((status==epicsEventWaitOK
        ? epicsMutexLockOK
        : (status==epicsEventWaitTimeout)
           ? epicsMutexLockTimeout
           : epicsMutexLockError));
#endif
}

void epicsMutexOsdUnlock

(

struct epicsMutexOSD *

id

)

Definition at line 114 of file osdMutex.c.

{
#ifdef RTEMS_FAST_MUTEX
    Semaphore_Control *the_semaphore = (Semaphore_Control *)id;
    _Thread_Disable_dispatch();
    _CORE_mutex_Surrender (
        &the_semaphore->Core_control.mutex,
        the_semaphore->Object.id,
        NULL
        );
    _Thread_Enable_dispatch();
#else
    epicsEventSignal (id);
#endif

}