FreeCalypso > hg > fc-tourmaline
diff src/nucleus/smce.c @ 0:4e78acac3d88
src/{condat,cs,gpf,nucleus}: import from Selenite
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Fri, 16 Oct 2020 06:23:26 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/nucleus/smce.c Fri Oct 16 06:23:26 2020 +0000 @@ -0,0 +1,377 @@ +/*************************************************************************/ +/* */ +/* Copyright Mentor Graphics Corporation 2002 */ +/* All Rights Reserved. */ +/* */ +/* THIS WORK CONTAINS TRADE SECRET AND PROPRIETARY INFORMATION WHICH IS */ +/* THE PROPERTY OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS AND IS */ +/* SUBJECT TO LICENSE TERMS. */ +/* */ +/*************************************************************************/ + +/*************************************************************************/ +/* */ +/* FILE NAME VERSION */ +/* */ +/* smce.c Nucleus PLUS 1.14 */ +/* */ +/* COMPONENT */ +/* */ +/* SM - Semaphore Management */ +/* */ +/* DESCRIPTION */ +/* */ +/* This file contains the error checking routines for the core */ +/* functions of the Semaphore component. This permits easy removal */ +/* of error checking logic when it is not needed. */ +/* */ +/* DATA STRUCTURES */ +/* */ +/* None */ +/* */ +/* FUNCTIONS */ +/* */ +/* SMCE_Create_Semaphore Create a semaphore */ +/* SMCE_Delete_Semaphore Delete a semaphore */ +/* SMCE_Obtain_Semaphore Obtain an instance of a */ +/* semaphore */ +/* SMCE_Release_Semaphore Release an instance of a */ +/* semaphore */ +/* */ +/* DEPENDENCIES */ +/* */ +/* cs_extr.h Common Service functions */ +/* tc_extr.h Thread Control functions */ +/* sm_extr.h Semaphore functions */ +/* */ +/* HISTORY */ +/* */ +/* DATE REMARKS */ +/* */ +/* 03-01-1993 Created initial version 1.0 */ +/* 04-19-1993 Verified version 1.0 */ +/* 05-15-1993 Corrected comment problem in */ +/* the header, making the new */ +/* version 1.0a */ +/* 05-15-1993 Verified version 1.0a */ +/* 03-01-1994 Split original error checking */ +/* file and changed function */ +/* interfaces, resulting in */ +/* version 1.1 */ +/* */ +/* 03-18-1994 Verified version 1.1 */ +/* 04-17-1996 updated to version 1.2 */ +/* 03-24-1998 Released version 1.3. */ +/* 04-17-2002 Released version 1.13m */ +/* 11-07-2002 Released version 1.14 */ +/*************************************************************************/ +#define NU_SOURCE_FILE + + +#include "cs_extr.h" /* Common service functions */ +#include "tc_extr.h" /* Thread control functions */ +#include "sm_extr.h" /* Semaphore functions */ + + + +/*************************************************************************/ +/* */ +/* FUNCTION */ +/* */ +/* SMCE_Create_Semaphore */ +/* */ +/* DESCRIPTION */ +/* */ +/* This function performs error checking on the parameters supplied */ +/* to the create semaphore function. */ +/* */ +/* CALLED BY */ +/* */ +/* Application */ +/* */ +/* CALLS */ +/* */ +/* SMC_Create_Semaphore Actual semaphore create func.*/ +/* */ +/* INPUTS */ +/* */ +/* semaphore_ptr Semaphore control block ptr */ +/* name Semaphore name */ +/* initial_count Initial semaphore instance */ +/* count */ +/* suspend_type Suspension type */ +/* */ +/* OUTPUTS */ +/* */ +/* NU_INVALID_SEMAPHORE Semaphore control block ptr */ +/* is NULL */ +/* NU_INVALID_SUSPEND Semaphore suspension is */ +/* invalid */ +/* */ +/* HISTORY */ +/* */ +/* DATE REMARKS */ +/* */ +/* 03-01-1993 Created initial version 1.0 */ +/* 04-19-1993 Verified version 1.0 */ +/* 03-01-1994 Modified function interface, */ +/* resulting in version 1.1 */ +/* */ +/* 03-18-1994 Verified version 1.1 */ +/* */ +/*************************************************************************/ +STATUS SMCE_Create_Semaphore(NU_SEMAPHORE *semaphore_ptr, CHAR *name, + UNSIGNED initial_count, OPTION suspend_type) +{ + +SM_SCB *semaphore; /* Semaphore control blk ptr */ +STATUS status; /* Completion status */ + + + /* Move input semaphore pointer into internal pointer. */ + semaphore = (SM_SCB *) semaphore_ptr; + + /* Check for a NULL semaphore pointer or an already created semaphore. */ + if ((semaphore == NU_NULL) || (semaphore -> sm_id == SM_SEMAPHORE_ID)) + + /* Invalid semaphore control block pointer. */ + status = NU_INVALID_SEMAPHORE; + + else if ((suspend_type != NU_FIFO) && (suspend_type != NU_PRIORITY)) + + /* Invalid suspension type. */ + status = NU_INVALID_SUSPEND; + + else + + /* Call the actual service to create the semaphore. */ + status = SMC_Create_Semaphore(semaphore_ptr, name, initial_count, + suspend_type); + + /* Return completion status. */ + return(status); +} + + +/*************************************************************************/ +/* */ +/* FUNCTION */ +/* */ +/* SMCE_Delete_Semaphore */ +/* */ +/* DESCRIPTION */ +/* */ +/* This function performs error checking on the parameters supplied */ +/* to the delete semaphore function. */ +/* */ +/* CALLED BY */ +/* */ +/* Application */ +/* */ +/* CALLS */ +/* */ +/* SMC_Delete_Semaphore Actual delete semaphore func.*/ +/* */ +/* INPUTS */ +/* */ +/* semaphore_ptr Semaphore control block ptr */ +/* */ +/* OUTPUTS */ +/* */ +/* NU_INVALID_SEMAPHORE Invalid semaphore pointer */ +/* */ +/* HISTORY */ +/* */ +/* DATE REMARKS */ +/* */ +/* 03-01-1993 Created initial version 1.0 */ +/* 04-19-1993 Verified version 1.0 */ +/* 03-01-1994 Modified function interface, */ +/* resulting in version 1.1 */ +/* */ +/* 03-18-1994 Verified version 1.1 */ +/* */ +/*************************************************************************/ +STATUS SMCE_Delete_Semaphore(NU_SEMAPHORE *semaphore_ptr) +{ + +SM_SCB *semaphore; /* Semaphore control blk ptr */ +STATUS status; /* Completion status */ + + + /* Move input semaphore pointer into internal pointer. */ + semaphore = (SM_SCB *) semaphore_ptr; + + /* Determine if the semaphore pointer is valid. */ + if ((semaphore) && (semaphore -> sm_id == SM_SEMAPHORE_ID)) + + /* Semaphore pointer is valid, call function to delete it. */ + status = SMC_Delete_Semaphore(semaphore_ptr); + + else + + /* Semaphore pointer is invalid, indicate in completion status. */ + status = NU_INVALID_SEMAPHORE; + + /* Return completion status. */ + return(status); +} + + +/*************************************************************************/ +/* */ +/* FUNCTION */ +/* */ +/* SMCE_Obtain_Semaphore */ +/* */ +/* DESCRIPTION */ +/* */ +/* This function performs error checking on the parameters supplied */ +/* to the obtain semaphore function. */ +/* */ +/* CALLED BY */ +/* */ +/* Application */ +/* */ +/* CALLS */ +/* */ +/* SMC_Obtain_Semaphore Actual function to obtain an */ +/* instance of the semaphore */ +/* TCCE_Suspend_Error Check for illegal suspend */ +/* */ +/* INPUTS */ +/* */ +/* semaphore_ptr Semaphore control block ptr */ +/* suspend Suspension option if full */ +/* */ +/* OUTPUTS */ +/* */ +/* NU_INVALID_SEMAPHORE Invalid semaphore pointer */ +/* NU_INVALID_SUSPEND Suspension from non-task */ +/* */ +/* HISTORY */ +/* */ +/* DATE REMARKS */ +/* */ +/* 03-01-1993 Created initial version 1.0 */ +/* 04-19-1993 Verified version 1.0 */ +/* 03-01-1994 Modified function interface, */ +/* resulting in version 1.1 */ +/* */ +/* 03-18-1994 Verified version 1.1 */ +/* */ +/*************************************************************************/ +STATUS SMCE_Obtain_Semaphore(NU_SEMAPHORE *semaphore_ptr, UNSIGNED suspend) +{ + +SM_SCB *semaphore; /* Semaphore control blk ptr */ +STATUS status; /* Completion status */ + + + /* Move input semaphore pointer into internal pointer. */ + semaphore = (SM_SCB *) semaphore_ptr; + + /* Determine if semaphore pointer is invalid. */ + if (semaphore == NU_NULL) + + /* Semaphore pointer is invalid, indicate in completion status. */ + status = NU_INVALID_SEMAPHORE; + + else if (semaphore -> sm_id != SM_SEMAPHORE_ID) + + /* Semaphore pointer is invalid, indicate in completion status. */ + status = NU_INVALID_SEMAPHORE; + + else if ((suspend) && (TCCE_Suspend_Error())) + + /* Suspension from an non-task thread. */ + status = NU_INVALID_SUSPEND; + + else + { + + /* Parameters are valid, call actual function. */ + status = SMC_Obtain_Semaphore(semaphore_ptr, suspend); + } + + /* Return the completion status. */ + return(status); +} + + +/*************************************************************************/ +/* */ +/* FUNCTION */ +/* */ +/* SMCE_Release_Semaphore */ +/* */ +/* DESCRIPTION */ +/* */ +/* This function performs error checking on the parameters supplied */ +/* to the release semaphore function. */ +/* */ +/* CALLED BY */ +/* */ +/* Application */ +/* */ +/* CALLS */ +/* */ +/* SMC_Release_Semaphore Actual release semaphore fct.*/ +/* */ +/* INPUTS */ +/* */ +/* semaphore_ptr Semaphore control block ptr */ +/* */ +/* OUTPUTS */ +/* */ +/* NU_INVALID_SEMAPHORE Invalid semaphore pointer */ +/* */ +/* HISTORY */ +/* */ +/* DATE REMARKS */ +/* */ +/* 03-01-1993 Created initial version 1.0 */ +/* 04-19-1993 Verified version 1.0 */ +/* 03-01-1994 Modified function interface, */ +/* resulting in version 1.1 */ +/* */ +/* 03-18-1994 Verified version 1.1 */ +/* */ +/*************************************************************************/ +STATUS SMCE_Release_Semaphore(NU_SEMAPHORE *semaphore_ptr) +{ + +SM_SCB *semaphore; /* Semaphore control blk ptr */ +STATUS status; /* Completion status */ + + + /* Move input semaphore pointer into internal pointer. */ + semaphore = (SM_SCB *) semaphore_ptr; + + /* Determine if semaphore pointer is invalid. */ + if (semaphore == NU_NULL) + + /* Semaphore pointer is invalid, indicate in completion status. */ + status = NU_INVALID_SEMAPHORE; + + else if (semaphore -> sm_id != SM_SEMAPHORE_ID) + + /* Semaphore pointer is invalid, indicate in completion status. */ + status = NU_INVALID_SEMAPHORE; + + else + { + + /* Parameters are valid, call actual function. */ + status = SMC_Release_Semaphore(semaphore_ptr); + } + + /* Return the completion status. */ + return(status); +} + + + + + +