FreeCalypso > hg > fc-tourmaline
view src/nucleus/smce.c @ 268:f2e52cab0a73
abb_inth.c: check all interrupt causes, not just one
The original code used if - else if - else if etc constructs, thus
the first detected interrupt was the only one handled. However,
Iota ITSTATREG is a clear-on-read register, thus if we only handle
the first detected interrupt and skip checking the others, then the
other interrupts will be lost, if more than one interrupt happened
to occur in one ABB interrupt handling cycle - a form of rare race
condition. Change the code to check all interrupts that were read
in this cycle.
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Sun, 13 Jun 2021 18:17:53 +0000 |
| parents | 4e78acac3d88 |
| 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); }