FreeCalypso > hg > fc-tourmaline
view src/nucleus/smce.c @ 303:f76436d19a7a default tip
!GPRS config: fix long-standing AT+COPS chance hanging bug
There has been a long-standing bug in FreeCalypso going back years:
sometimes in the AT command bring-up sequence of an ACI-only MS,
the AT+COPS command would produce only a power scan followed by
cessation of protocol stack activity (only L1 ADC traces), instead
of the expected network search sequence. This behaviour was seen
in different FC firmware versions going back to Citrine, and seemed
to follow some law of chance, not reliably repeatable.
This bug has been tracked down and found to be specific to !GPRS
configuration, stemming from our TCS2/TCS3 hybrid and reconstruction
of !GPRS support that was bitrotten in TCS3.2/LoCosto version.
ACI module psa_mms.c, needed only for !GPRS, was missing in the TCS3
version and had to be pulled from TCS2 - but as it turns out,
there is a new field in the MMR_REG_REQ primitive that needs to be
set correctly, and that psa_mms.c module is the place where this
initialization needed to be added.
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Thu, 08 Jun 2023 08:23:37 +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); }