fc-selenite: src/nucleus/smc.c annotate

annotate src/nucleus/smc.c @ 134:7d50d8d13711

FFS code sync with Magnetite + gcc version fix This change brings the new flash autodetection for FC and Pirelli targets from Magnetite, and should also fix the gcc version for C1xx and gtamodem targets, which were previously broken because they used TI's original flash autodetect code (which operates at address 0) while the boot ROM is mapped there.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 11 Dec 2018 08:43:25 +0000
parents	0f80e1e4dce4
children

rev	line source
7 0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 /* Copyright Mentor Graphics Corporation 2002 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 /* All Rights Reserved. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 /* THIS WORK CONTAINS TRADE SECRET AND PROPRIETARY INFORMATION WHICH IS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 /* THE PROPERTY OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS AND IS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 /* SUBJECT TO LICENSE TERMS. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 /* FILE NAME VERSION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 /* smc.c Nucleus PLUS 1.14 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 /* COMPONENT */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 /* SM - Semaphore Management */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 /* This file contains the core routines for the Semaphore Management*/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 /* component. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 /* DATA STRUCTURES */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 /* None */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 /* FUNCTIONS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 /* SMC_Create_Semaphore Create a semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /* SMC_Delete_Semaphore Delete a semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 /* SMC_Obtain_Semaphore Obtain instance of semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 /* SMC_Release_Semaphore Release instance of semaphore*/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 /* SMC_Cleanup Cleanup on timeout or a */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 /* terminate condition */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 /* DEPENDENCIES */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 /* cs_extr.h Common Service functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 /* tc_extr.h Thread Control functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 /* sm_extr.h Semaphore functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /* hi_extr.h History functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 /* 08-09-1993 Corrected pointer retrieval */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 /* loop, resulting in version 1.0a */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /* 08-09-1993 Verified version 1.0a */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 /* 03-01-1994 Moved non-core functions into */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 /* supplemental files, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 /* function interfaces to match */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 /* those in prototype, added */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 /* register options, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 /* protection logic to reduce */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 /* overhead, resulting in */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 /* version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 /* 03-18-1994 Verified version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 /* 04-17-1996 updated to version 1.2 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 /* 03-24-1998 Released version 1.3 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 /* 03-26-1999 Released 1.11m (new release */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 /* numbering scheme) */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 /* 04-17-2002 Released version 1.13m */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 /* 11-07-2002 Released version 1.14 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #define NU_SOURCE_FILE
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #include "cs_extr.h" /* Common service functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #include "tc_extr.h" /* Thread control functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 #include "sm_extr.h" /* Semaphore functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 #include "hi_extr.h" /* History functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 #include "profiler.h" /* ProView interface */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 /* Define external inner-component global data references. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 extern CS_NODE *SMD_Created_Semaphores_List;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 extern UNSIGNED SMD_Total_Semaphores;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 extern TC_PROTECT SMD_List_Protect;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 /* Define internal component function prototypes. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 VOID SMC_Cleanup(VOID *information);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 /* SMC_Create_Semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 /* This function creates a semaphore and then places it on the list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 /* of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 /* SMCE_Create_Semaphore Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 /* CSC_Place_On_List Add node to linked-list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 /* [HIC_Make_History_Entry] Make entry in history log */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 /* TCT_Protect Data structure protect */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 /* TCT_Unprotect Un-protect data structure */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 /* semaphore_ptr Semaphore control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 /* name Semaphore name */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 /* initial_count Initial semaphore instance */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 /* count */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 /* suspend_type Suspension type */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 /* NU_SUCCESS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 /* 03-01-1994 Changed function interfaces to */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 /* match those in prototype, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 /* added register options, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 /* resulting in version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 /* 03-18-1994 Verified version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 STATUS SMC_Create_Semaphore(NU_SEMAPHORE semaphore_ptr, CHAR name,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 UNSIGNED initial_count, OPTION suspend_type)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 R1 SM_SCB semaphore; / Semaphore control blk ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 INT i; /* Working index variable */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 /* Move input semaphore pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 semaphore = (SM_SCB *) semaphore_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 /* Call stack checking function to check for an overflow condition. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 /* Make an entry that corresponds to this function in the system history
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 HIC_Make_History_Entry(NU_CREATE_SEMAPHORE_ID, (UNSIGNED) semaphore,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 (UNSIGNED) name, (UNSIGNED) initial_count);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 /* First, clear the semaphore ID just in case it is an old Semaphore
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 Control Block. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 semaphore -> sm_id = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 /* Fill in the semaphore name. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 for (i = 0; i < NU_MAX_NAME; i++)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 semaphore -> sm_name[i] = name[i];
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 /* Setup the initial semaphore instance count. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 semaphore -> sm_semaphore_count = initial_count;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 /* Setup the semaphore suspension type. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 if (suspend_type == NU_FIFO)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 /* FIFO suspension is selected, setup the flag accordingly. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 semaphore -> sm_fifo_suspend = NU_TRUE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 /* Priority suspension is selected. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 semaphore -> sm_fifo_suspend = NU_FALSE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 /* Clear the suspension list pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 semaphore -> sm_suspension_list = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 /* Clear the number of tasks waiting on the semaphore counter. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 semaphore -> sm_tasks_waiting = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 /* Initialize link pointers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 semaphore -> sm_created.cs_previous = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 semaphore -> sm_created.cs_next = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 /* Protect against access to the list of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 TCT_Protect(&SMD_List_Protect);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 /* At this point the semaphore is completely built. The ID can now be
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 set and it can be linked into the created semaphore list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 semaphore -> sm_id = SM_SEMAPHORE_ID;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 /* Link the semaphore into the list of created semaphores and increment the
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 total number of semaphores in the system. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 CSC_Place_On_List(&SMD_Created_Semaphores_List,&(semaphore -> sm_created));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 SMD_Total_Semaphores++;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 _RTProf_DumpSema(RT_PROF_CREATE_SEMAPHORE,semaphore, RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 /* Release protection against access to the list of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 /* Return successful completion. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 return(NU_SUCCESS);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 /* SMC_Delete_Semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 /* This function deletes a semaphore and removes it from the list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 /* of created semaphores. All tasks suspended on the semaphore are */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 /* resumed. Note that this function does not free the memory */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 /* associated with the semaphore control block. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 /* SMCE_Delete_Semaphore Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 /* CSC_Remove_From_List Remove node from list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 /* [HIC_Make_History_Entry] Make entry in history log */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 /* TCC_Resume_Task Resume a suspended task */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 /* TCT_Control_To_System Transfer control to system */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 /* TCT_Protect Protect created list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 /* TCT_Set_Current_Protect Modify current protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 /* TCT_System_Protect Setup system protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 /* TCT_System_Unprotect Release system protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 /* semaphore_ptr Semaphore control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 /* NU_SUCCESS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 /* 03-01-1994 Changed function interfaces to */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 /* match those in prototype, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 /* added register options, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 /* protection logic to reduce */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 /* overhead, resulting in */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 /* version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 /* 03-18-1994 Verified version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 STATUS SMC_Delete_Semaphore(NU_SEMAPHORE *semaphore_ptr)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 R1 SM_SCB semaphore; / Semaphore control blk ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 SM_SUSPEND suspend_ptr; / Suspend block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 SM_SUSPEND next_ptr; / Next suspend block */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 STATUS preempt; /* Status for resume call */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 /* Move input semaphore pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 semaphore = (SM_SCB *) semaphore_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 /* Call stack checking function to check for an overflow condition. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 /* Make an entry that corresponds to this function in the system history
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 HIC_Make_History_Entry(NU_DELETE_SEMAPHORE_ID, (UNSIGNED) semaphore,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 (UNSIGNED) 0, (UNSIGNED) 0);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /* Protect against access to the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 TCT_System_Protect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 _RTProf_DumpSema(RT_PROF_DELETE_SEMAPHORE,semaphore, RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 /* Clear the semaphore ID. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 semaphore -> sm_id = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 /* Release protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 /* Protect against access to the list of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 TCT_Protect(&SMD_List_Protect);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 /* Remove the semaphore from the list of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 CSC_Remove_From_List(&SMD_Created_Semaphores_List,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 &(semaphore -> sm_created));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 /* Decrement the total number of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 SMD_Total_Semaphores--;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 /* Pickup the suspended task pointer list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 suspend_ptr = semaphore -> sm_suspension_list;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 /* Walk the chain task(s) currently suspended on the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 preempt = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 while (suspend_ptr)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 /* Protect against system access. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 TCT_System_Protect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 /* Resume the suspended task. Insure that the status returned is
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 NU_SEMAPHORE_DELETED. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 suspend_ptr -> sm_return_status = NU_SEMAPHORE_DELETED;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 /* Point to the next suspend structure in the link. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 next_ptr = (SM_SUSPEND *) (suspend_ptr -> sm_suspend_link.cs_next);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 /* Resume the specified task. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 preempt = preempt \|
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 TCC_Resume_Task((NU_TASK *) suspend_ptr -> sm_suspended_task,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 NU_SEMAPHORE_SUSPEND);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 /* Determine if the next is the same as the current pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 if (next_ptr == semaphore -> sm_suspension_list)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 /* Clear the suspension pointer to signal the end of the list
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 traversal. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 suspend_ptr = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 /* Move the next pointer into the suspend block pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 suspend_ptr = next_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 /* Modify current protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 TCT_Set_Current_Protect(&SMD_List_Protect);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 /* Clear the system protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 TCT_System_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 /* Determine if preemption needs to occur. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 if (preempt)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 /* Transfer control to system to facilitate preemption. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 TCT_Control_To_System();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 /* Release protection against access to the list of created semaphores. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 /* Return a successful completion. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 return(NU_SUCCESS);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 /* SMC_Obtain_Semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 /* This function obtains an instance of the semaphore. An instance */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 /* corresponds to decrementing the counter by 1. If the counter is */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 /* greater than zero at the time of this call, this function can be */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 /* completed immediately. Otherwise, suspension is possible. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 /* SMCE_Obtain_Semaphore Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 /* CSC_Place_On_List Place on suspend list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 /* CSC_Priority_Place_On_List Place on priority list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 /* [HIC_Make_History_Entry] Make entry in history log */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 /* TCC_Suspend_Task Suspend calling task */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 /* TCC_Task_Priority Obtain task's priority */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 /* TCT_Current_Thread Pickup current thread pointer*/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 /* TCT_System_Protect Protect semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 /* semaphore_ptr Semaphore control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 /* suspend Suspension option if full */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 /* NU_SUCCESS If service is successful */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 /* NU_UNAVAILABLE If an instance of the */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 /* semaphore is not available */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 /* NU_TIMEOUT If timeout on service */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 /* NU_SEMAPHORE_DELETED If semaphore deleted during */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 /* suspension */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 /* NU_SEMAPHORE_RESET If semaphore reset during */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 /* suspension */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 /* 03-01-1994 Changed function interfaces to */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 /* match those in prototype, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 /* added register options, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 /* protection logic to reduce */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 /* overhead, resulting in */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 /* version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /* 03-18-1994 Verified version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 STATUS SMC_Obtain_Semaphore(NU_SEMAPHORE *semaphore_ptr, UNSIGNED suspend)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 R1 SM_SCB semaphore; / Semaphore control blk ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 R2 SM_SUSPEND suspend_ptr; / Suspend block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 SM_SUSPEND suspend_block; /* Allocate suspension block */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 TC_TCB task; / Task pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 STATUS status; /* Completion status */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 /* Move input semaphore pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 semaphore = (SM_SCB *) semaphore_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 /* Call stack checking function to check for an overflow condition. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 /* Make an entry that corresponds to this function in the system history
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 HIC_Make_History_Entry(NU_OBTAIN_SEMAPHORE_ID, (UNSIGNED) semaphore,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 (UNSIGNED) suspend, (UNSIGNED) 0);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 /* Initialize the status as successful. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 status = NU_SUCCESS;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 /* Protect against simultaneous access to the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 TCT_System_Protect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 /* Determine if the semaphore has an instance (can be decremented). */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 if (semaphore -> sm_semaphore_count)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 /* Semaphore available. Decrement and return to the caller. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 semaphore -> sm_semaphore_count--;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 _RTProf_DumpSema(RT_PROF_OBTAIN_SEMAPHORE,semaphore, RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 /* Semaphore is not available. Determine if suspension is required. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 if (suspend)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 /* Suspension is selected. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 /* Increment the number of tasks waiting. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 semaphore -> sm_tasks_waiting++;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 _RTProf_DumpSema(RT_PROF_OBTAIN_SEMAPHORE,semaphore , RT_PROF_WAIT);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 /* Setup the suspend block and suspend the calling task. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 suspend_ptr = &suspend_block;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 suspend_ptr -> sm_semaphore = semaphore;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 suspend_ptr -> sm_suspend_link.cs_next = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 suspend_ptr -> sm_suspend_link.cs_previous = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 task = (TC_TCB *) TCT_Current_Thread();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 suspend_ptr -> sm_suspended_task = task;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 /* Determine if priority or FIFO suspension is associated with the
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 if (semaphore -> sm_fifo_suspend)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 /* FIFO suspension is required. Link the suspend block into
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 the list of suspended tasks on this semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 CSC_Place_On_List((CS_NODE **)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 &(semaphore -> sm_suspension_list),
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 &(suspend_ptr -> sm_suspend_link));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 /* Get the priority of the current thread so the suspend block
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 can be placed in the appropriate place. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 suspend_ptr -> sm_suspend_link.cs_priority =
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 TCC_Task_Priority(task);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 CSC_Priority_Place_On_List((CS_NODE **)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 &(semaphore -> sm_suspension_list),
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 &(suspend_ptr -> sm_suspend_link));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 /* Finally, suspend the calling task. Note that the suspension call
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 automatically clears the protection on the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 TCC_Suspend_Task((NU_TASK *) task, NU_SEMAPHORE_SUSPEND,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 SMC_Cleanup, suspend_ptr, suspend);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 /* Pickup the return status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 status = suspend_ptr -> sm_return_status;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 /* No suspension requested. Simply return an error status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 status = NU_UNAVAILABLE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 _RTProf_DumpSema(RT_PROF_OBTAIN_SEMAPHORE, semaphore,RT_PROF_FAIL);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 /* Release protection against access to the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 /* Return the completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 return(status);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 /* SMC_Release_Semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 /* This function releases a previously obtained semaphore. If one */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 /* or more tasks are waiting, the first task is given the released */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 /* instance of the semaphore. Otherwise, the semaphore instance */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 /* counter is simply incremented. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 /* SMCE_Release_Semaphore Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 /* CSC_Remove_From_List Remove from suspend list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 /* [HIC_Make_History_Entry] Make entry in history log */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 /* TCC_Resume_Task Resume a suspended task */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 /* TCT_Control_To_System Transfer control to system */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 /* TCT_System_Protect Protect semaphore */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 /* semaphore_ptr Semaphore control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 /* NU_SUCCESS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 /* 03-01-1994 Changed function interfaces to */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 /* match those in prototype, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 /* added register options, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 /* protection logic to reduce */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 /* overhead, resulting in */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 /* version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 /* 03-18-1994 Verified version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 STATUS SMC_Release_Semaphore(NU_SEMAPHORE *semaphore_ptr)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 R1 SM_SCB semaphore; / Semaphore control blk ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 R2 SM_SUSPEND suspend_ptr; / Pointer to suspend block */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 STATUS preempt; /* Preemption flag */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 STATUS status; /* Completion status */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 /* Move input semaphore pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 semaphore = (SM_SCB *) semaphore_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 /* Call stack checking function to check for an overflow condition. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 /* Make an entry that corresponds to this function in the system history
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 HIC_Make_History_Entry(NU_RELEASE_SEMAPHORE_ID, (UNSIGNED) semaphore,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 (UNSIGNED) 0, (UNSIGNED) 0);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 /* Initialize the status as successful. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 status = NU_SUCCESS;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 /* Protect against simultaneous access to the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 TCT_System_Protect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 /* Determine if another task is waiting on the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 if (semaphore -> sm_tasks_waiting)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 /* Yes, another task is waiting for an instance of the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 /* Decrement the number of tasks waiting counter. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 semaphore -> sm_tasks_waiting--;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 _RTProf_DumpSema(RT_PROF_RELEASE_SEMAPHORE, semaphore,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 /* Remove the first suspended block from the list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 suspend_ptr = semaphore -> sm_suspension_list;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 CSC_Remove_From_List((CS_NODE **) &(semaphore -> sm_suspension_list),
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 &(suspend_ptr -> sm_suspend_link));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 /* Setup the appropriate return value. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 suspend_ptr -> sm_return_status = NU_SUCCESS;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 /* Resume the suspended task. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 preempt =
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 TCC_Resume_Task((NU_TASK *) suspend_ptr -> sm_suspended_task,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 NU_SEMAPHORE_SUSPEND);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 /* Determine if a preempt condition is present. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 if (preempt)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 /* Transfer control to the system if the resumed task function
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 detects a preemption condition. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 TCT_Control_To_System();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 /* Increment the semaphore instance counter. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 semaphore -> sm_semaphore_count++;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 _RTProf_DumpSema(RT_PROF_RELEASE_SEMAPHORE, semaphore,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 /* Release protection against access to the semaphore. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 /* Return the completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 return(status);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 /* SMC_Cleanup */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 /* This function is responsible for removing a suspension block */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 /* from a semaphore. It is not called unless a timeout or a task */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 /* terminate is in progress. Note that protection is already in */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 /* effect - the same protection at suspension time. This routine */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 /* must be called from Supervisor mode in Supervisor/User mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 /* switching kernels. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 /* TCC_Timeout Task timeout */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 /* TCC_Terminate Task terminate */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 /* CSC_Remove_From_List Remove suspend block from */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 /* the suspension list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 /* information Pointer to suspend block */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 /* None */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 /* 03-01-1993 Created initial version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 /* 04-19-1993 Verified version 1.0 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 VOID SMC_Cleanup(VOID *information)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 SM_SUSPEND suspend_ptr; / Suspension block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 /* Use the information pointer as a suspend pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 suspend_ptr = (SM_SUSPEND *) information;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 /* By default, indicate that the service timed-out. It really does not
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 matter if this function is called from a terminate request since
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 the task does not resume. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 suspend_ptr -> sm_return_status = NU_TIMEOUT;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 /* Decrement the number of tasks waiting counter. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 (suspend_ptr -> sm_semaphore) -> sm_tasks_waiting--;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 /* Unlink the suspend block from the suspension list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 CSC_Remove_From_List((CS_NODE **)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 &((suspend_ptr -> sm_semaphore) -> sm_suspension_list),
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 &(suspend_ptr -> sm_suspend_link));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811

FreeCalypso > hg > fc-selenite

annotate src/nucleus/smc.c @ 134:7d50d8d13711