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

annotate src/nucleus/smc.c @ 182:5e1436690fe3

doc/Compiling: tangomdm target added, other minor updates

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 04 Jan 2020 22:59:51 +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 @ 182:5e1436690fe3