FreeCalypso > hg > freecalypso-citrine
view nucleus/smce.c @ 25:85b080d6fb39
L1/cfile/l1_{cmplx,init}.c: support for feature tch-reroute re-added
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Sat, 11 Jun 2016 05:51:09 +0000 |
| parents | 75a11d740a02 |
| children |
line wrap: on
line source
/*************************************************************************/ /* */ /* 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); }