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

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

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

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

rev	line source
7 0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 /* Copyright Mentor Graphics Corporation 2002 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 /* All Rights Reserved. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 /* THIS WORK CONTAINS TRADE SECRET AND PROPRIETARY INFORMATION WHICH IS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 /* THE PROPERTY OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS AND IS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 /* SUBJECT TO LICENSE TERMS. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 /* FILE NAME VERSION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 /* tms.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 /* TM - Timer 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 supplemental routines for the timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 /* management 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 /* TMS_Create_Timer Create an application timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /* TMS_Delete_Timer Delete an application timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 /* TMS_Reset_Timer Reset application timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 /* TMS_Control_Timer Enable/Disable application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 /* timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 /* DEPENDENCIES */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 /* cs_extr.h Common Service functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 /* tc_extr.h Thread Control functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 /* tm_extr.h Timer functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 /* hi_extr.h History functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 /* 03-01-1994 Created initial version 1.1 from */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 /* previous version of TMC.C */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 /* 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	54 /* 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	55 /* 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	56 /* 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	57 /* numbering scheme) */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 /* 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	59 /* 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	60 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #define NU_SOURCE_FILE
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #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	65 #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	66 #include "tm_extr.h" /* Timer functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 #include "hi_extr.h" /* History functions */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 #include "profiler.h" /* ProView interface */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 /* 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	72
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 extern CS_NODE *TMD_Created_Timers_List;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 extern UNSIGNED TMD_Total_Timers;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 extern TM_TCB *TMD_Active_Timers_List;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 extern INT TMD_Active_List_Busy;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 extern TC_PROTECT TMD_Created_List_Protect;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 /* Define internal function prototypes. */
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 VOID TMC_Start_Timer(TM_TCB *timer, UNSIGNED time);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 VOID TMC_Stop_Timer(TM_TCB *timer);
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
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 /*************************************************************************/
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 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 /* TMS_Create_Timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 /* DESCRIPTION */
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 /* This function creates an application timer and places it on the */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 /* list of created timers. The timer is activated if designated by */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 /* the enable parameter. */
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 /* CALLED BY */
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 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 /* TMSE_Create_Timer Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 /* CALLS */
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 /* 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	107 /* [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	108 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 /* TCT_Protect Data structure protect */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 /* TCT_Unprotect Un-protect data structure */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 /* TMS_Control_Timer Enable the new timer */
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 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 /* timer_ptr Timer control block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 /* name Timer name */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 /* expiration_routine Timer expiration routine */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 /* id Timer expiration ID */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 /* initial_time Initial expiration time */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 /* reschedule_time Reschedule expiration time */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 /* enable Automatic enable option */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 /* NU_SUCCESS */
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 /* HISTORY */
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 /* DATE REMARKS */
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 /* 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	132 /* 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	133 /* 03-01-1994 Changed function prototype, */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 /* resulting in version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 /* 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	137 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 STATUS TMS_Create_Timer(NU_TIMER timer_ptr, CHAR name,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 VOID (*expiration_routine)(UNSIGNED), UNSIGNED id,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 UNSIGNED initial_time, UNSIGNED reschedule_time, OPTION enable)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 {
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 R1 TM_APP_TCB timer; / Timer control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 INT i; /* Working index variable */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 NU_SUPERV_USER_VARIABLES
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 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 /* Move input timer pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 timer = (TM_APP_TCB *) timer_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 /* 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	158 TCT_Check_Stack();
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 #endif
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 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 /* 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	165 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 HIC_Make_History_Entry(NU_CREATE_TIMER_ID, (UNSIGNED) timer,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 (UNSIGNED) name, (UNSIGNED) expiration_routine);
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 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 /* First, clear the timer ID just in case it is an old Timer
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 Control Block. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 timer -> tm_id = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 /* Fill in the timer name. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 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	177 timer -> tm_name[i] = name[i];
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 /* Load the timer with the appropriate values. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 timer -> tm_expiration_routine = expiration_routine;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 timer -> tm_expiration_id = id;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 timer -> tm_expirations = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 timer -> tm_initial_time = initial_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 timer -> tm_reschedule_time = reschedule_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 timer -> tm_actual_timer.tm_timer_type = TM_APPL_TIMER;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 timer -> tm_enabled = NU_FALSE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 /* Initialize link pointers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 timer -> tm_created.cs_previous = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 timer -> tm_created.cs_next = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 timer -> tm_actual_timer.tm_next_timer = NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 timer -> tm_actual_timer.tm_previous_timer= NU_NULL;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 timer -> tm_actual_timer.tm_information = (VOID *) timer;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 /* Protect against access to the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 TCT_Protect(&TMD_Created_List_Protect);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 /* At this point the timer 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	199 set and it can be linked into the created timer list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 timer -> tm_id = TM_TIMER_ID;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 /* Link the timer into the list of created timers and increment the
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 total number of timers in the system. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 CSC_Place_On_List(&TMD_Created_Timers_List, &(timer -> tm_created));
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 TMD_Total_Timers++;
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 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 _RTProf_DumpTimer(RT_PROF_CREATE_TIMER,timer,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 /* Release protection against access to the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 TCT_Unprotect();
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 /* Determine if the timer should be enabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 if (enable == NU_ENABLE_TIMER)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 /* Activate the timer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 TMS_Control_Timer(timer_ptr, NU_ENABLE_TIMER);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 NU_USER_MODE();
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 /* Return successful completion. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 return(NU_SUCCESS);
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
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227
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 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 /* FUNCTION */
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 /* TMS_Delete_Timer */
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 /* DESCRIPTION */
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 /* This function deletes an application timer and removes it from */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 /* the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 /* TMSE_Delete_Timer Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 /* 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	247 /* [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	248 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 /* TCT_Protect Protect created list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 /* TCT_System_Protect Protect active list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 /* timer_ptr Timer control block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 /* NU_NOT_DISABLED Timer not disabled first */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 /* NU_SUCCESS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 /* 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	267 /* 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	268 /* 03-01-1994 Modified protection logic to use */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 /* system protection, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 /* function prototype, resulting */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 /* in version 1.1 */
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 /* 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	274 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 STATUS TMS_Delete_Timer(NU_TIMER *timer_ptr)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 TM_APP_TCB timer; / Timer control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 STATUS status; /* Completion status */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 NU_SUPERVISOR_MODE();
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 /* Move input timer pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 timer = (TM_APP_TCB *) timer_ptr;
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
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 #ifdef NU_ENABLE_STACK_CHECK
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 /* 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	293 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 /* 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	300 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 HIC_Make_History_Entry(NU_DELETE_TIMER_ID, (UNSIGNED) timer,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 (UNSIGNED) 0, (UNSIGNED) 0);
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 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 /* Initialize the status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 status = NU_SUCCESS;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 /* Use system protect to protect the active timer list temporarily. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 TCT_System_Protect();
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 /* Determine if the timer is currently disabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 if (timer -> tm_enabled)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 /* Error, indicate to the caller that the timer is currently active. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 status = NU_NOT_DISABLED;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 _RTProf_DumpTimer(RT_PROF_DELETE_TIMER,timer,RT_PROF_FAIL);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 /* Clear the timer ID. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 timer -> tm_id = 0;
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 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 _RTProf_DumpTimer(RT_PROF_DELETE_TIMER,timer,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 #endif /* INCLUDE_PROVIEW */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 }
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 /* Release protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 TCT_Unprotect();
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 /* Determine if an error was detected. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 if (status == NU_SUCCESS)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 {
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 /* Protect against access to the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 TCT_Protect(&TMD_Created_List_Protect);
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 /* Remove the timer from the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 CSC_Remove_From_List(&TMD_Created_Timers_List, &(timer -> tm_created));
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 /* Decrement the total number of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 TMD_Total_Timers--;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 /* Release protection against access to the list of created timers. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 /* Return completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 return(status);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360
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 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 /* TMS_Reset_Timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 /* DESCRIPTION */
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 /* This function resets the specified application timer. Note that */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 /* the timer must be in a disabled state prior to this call. The */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 /* timer is activated after it is reset if the enable parameter */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 /* specifies automatic activation. */
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 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 /* TMSE_Reset_Timer Error checking shell */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 /* CALLS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 /* [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	383 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 /* TCT_System_Protect Protect active list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 /* TMS_Control_Timer Enable/disable timer */
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 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 /* timer_ptr Timer control block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 /* expiration_routine Timer expiration routine */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 /* initial_time Initial expiration time */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 /* reschedule_time Reschedule expiration time */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 /* enable Automatic enable option */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 /* OUTPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 /* NU_NOT_DISABLED Timer not disabled first */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 /* NU_SUCCESS Successful completion */
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 /* HISTORY */
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 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 /* 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	406 /* 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	407 /* 03-01-1994 Modified protection logic to use */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 /* system protection, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 /* function prototype, resulting */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 /* in version 1.1 */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 /* 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	413 /* */
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 STATUS TMS_Reset_Timer(NU_TIMER *timer_ptr,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 VOID (*expiration_routine)(UNSIGNED),
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 UNSIGNED initial_time, UNSIGNED reschedule_time, OPTION enable)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 {
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 R1 TM_APP_TCB timer; / Timer control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 STATUS status; /* Completion status */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 NU_SUPERVISOR_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 /* Move input timer pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 timer = (TM_APP_TCB *) timer_ptr;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 /* 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	434 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 #ifdef NU_ENABLE_HISTORY
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 /* 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	441 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 HIC_Make_History_Entry(NU_RESET_TIMER_ID, (UNSIGNED) timer,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 (UNSIGNED) expiration_routine, (UNSIGNED) initial_time);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 /* Protect against access to the active timer list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 TCT_System_Protect();
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 /* Determine if this timer is active. An active timer cannot be
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 reset. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 if (timer -> tm_enabled)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 {
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 /* Indicate that the timer is active by returning the proper status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 status = NU_NOT_DISABLED;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 _RTProf_DumpTimer(RT_PROF_RESET_TIMER,timer,RT_PROF_FAIL);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 #endif /* INCLUDE_PROVIEW */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461
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 else
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 {
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 /* Load the timer with the appropriate values. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 timer -> tm_expiration_routine = expiration_routine;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 timer -> tm_expirations = 0;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 timer -> tm_initial_time = initial_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 timer -> tm_reschedule_time = reschedule_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 /* Indicate successful completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 status = NU_SUCCESS;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 _RTProf_DumpTimer(RT_PROF_RESET_TIMER,timer,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 #endif /* INCLUDE_PROVIEW */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 }
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 /* Release protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 TCT_Unprotect();
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 /* Determine if the timer needs to be enabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 if ((status == NU_SUCCESS) && (enable == NU_ENABLE_TIMER))
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 /* Activate the timer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 TMS_Control_Timer(timer_ptr, NU_ENABLE_TIMER);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 NU_USER_MODE();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 /* Return completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 return(status);
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
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 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 /* FUNCTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 /* TMS_Control_Timer */
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 /* DESCRIPTION */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 /* This function either enables or disables the specified timer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 /* If the timer is already in the desired state, simply leave it */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 /* alone. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 /* CALLED BY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 /* Application */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 /* TMSE_Control_Timer Error checking shell */
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 /* CALLS */
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 /* [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	517 /* [TCT_Check_Stack] Stack checking function */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 /* TCT_System_Protect Protect the active list */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 /* TCT_Unprotect Release protection */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 /* TMC_Start_Timer Start a timer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 /* TMC_Stop_Timer Stop a timer */
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 /* INPUTS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 /* app_timer Timer control block pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 /* enable Disable/enable timer option */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 /* OUTPUTS */
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 /* NU_SUCCESS If service is successful */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 /* HISTORY */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 /* DATE REMARKS */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 /* 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	537 /* 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	538 /* 03-01-1994 Modified protection logic to use */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 /* system protection, changed */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 /* function prototype, resulting */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 /* in version 1.1 */
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 /* 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	544 /* */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 /*************************************************************************/
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 STATUS TMS_Control_Timer(NU_TIMER *app_timer, OPTION enable)
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 {
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 R1 TM_APP_TCB timer; / Timer control block ptr */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 TM_TCB timer_ptr; / Actual timer pointer */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 UNSIGNED time; /* Variable to hold request */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 NU_SUPERV_USER_VARIABLES
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 /* Switch to supervisor mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 NU_SUPERVISOR_MODE();
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 /* Move input timer pointer into internal pointer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 timer = (TM_APP_TCB *) app_timer;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559
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 #ifdef NU_ENABLE_STACK_CHECK
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 /* 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	564 TCT_Check_Stack();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 #ifdef NU_ENABLE_HISTORY
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 /* 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	571 log. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 HIC_Make_History_Entry(NU_CONTROL_TIMER_ID, (UNSIGNED) timer,
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 (UNSIGNED) enable, (UNSIGNED) 0);
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 #endif
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 /* Protect against simultaneous access to the active timer list. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 TCT_System_Protect();
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 /* Setup pointer to actual timer part of the control block. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 timer_ptr = &(timer -> tm_actual_timer);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 /* Determine what type of request is present. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 if ((enable == NU_ENABLE_TIMER) && (!timer -> tm_enabled))
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 {
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 /* Enable timer request is present and timer is currently disabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 /* Determine how to setup the remaining field in the actual timer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 if (timer -> tm_expirations)
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 /* Use reschedule time since this timer has expired previously. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 time = timer -> tm_reschedule_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 else
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 /* Use initial time since this timer has never expired. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 time = timer -> tm_initial_time;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 /* Mark the application timer as enabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 timer -> tm_enabled = NU_TRUE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 /* Call the start timer routine to actually start the timer. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 TMC_Start_Timer(&(timer -> tm_actual_timer), time);
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 else if ((enable == NU_DISABLE_TIMER) && (timer -> tm_enabled))
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
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 /* Disable timer request is present and timer is currently enabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 TMC_Stop_Timer(timer_ptr);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 /* Mark the timer as disabled. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 timer -> tm_enabled = NU_FALSE;
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 }
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 #ifdef INCLUDE_PROVIEW
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 _RTProf_DumpTimer(RT_PROF_CONTROL_TIMER,timer,RT_PROF_OK);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 #endif /* INCLUDE_PROVIEW */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 /* Release protection. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 TCT_Unprotect();
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 /* Return to user mode */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 NU_USER_MODE();
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 /* Return the completion status. */
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 return(NU_SUCCESS);
0f80e1e4dce4 src/nucleus: library C code import from FreeNucleus package Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 }
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
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

FreeCalypso > hg > fc-selenite

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