freecalypso-sw: nuc-fw/nucleus/tcc.c annotate

annotate nuc-fw/nucleus/tcc.c @ 84:ccc5161848c7

loadtools: support building for GTA0x AP

author	Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
date	Tue, 20 Aug 2013 04:51:15 +0000
parents	947b1f473960
children	2c5160a9d652

rev	line source
79 947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3 /* Copyright Mentor Graphics Corporation 2002 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	4 /* All Rights Reserved. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	5 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	6 /* THIS WORK CONTAINS TRADE SECRET AND PROPRIETARY INFORMATION WHICH IS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	7 /* THE PROPERTY OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS AND IS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	8 /* SUBJECT TO LICENSE TERMS. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	9 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	10 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	11
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	12 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	13 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	14 /* FILE NAME VERSION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	15 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	16 /* tcc.c Nucleus PLUS 1.14 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	17 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	18 /* COMPONENT */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	19 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	20 /* TC - Thread Control */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	21 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	22 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	23 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	24 /* This file contains the core routines for the Thread Control */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	25 /* component. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	26 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	27 /* DATA STRUCTURES */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	28 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	29 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	30 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	31 /* FUNCTIONS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	32 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	33 /* TCC_Create_Task Create a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	34 /* TCC_Delete_Task Delete a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	35 /* TCC_Create_HISR Create HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	36 /* TCC_Delete_HISR Delete HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	37 /* TCC_Reset_Task Reset the specified task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	38 /* TCC_Terminate_Task Terminate the specified task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	39 /* TCC_Resume_Task Resume a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	40 /* TCC_Resume_Service Resume a task service call */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	41 /* TCC_Suspend_Task Suspend a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	42 /* TCC_Suspend_Service Suspend a task service call */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	43 /* TCC_Task_Timeout Task timeout function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	44 /* TCC_Task_Sleep Task sleep request */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	45 /* TCC_Relinquish Relinquish task execution */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	46 /* TCC_Time_Slice Process task time-slice */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	47 /* TCC_Current_Task_Pointer Retrieve current task pointer*/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	48 /* TCC_Current_HISR_Pointer Retrieve current HISR pointer*/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	49 /* TCC_Task_Shell Task execution shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	50 /* TCC_Signal_Shell Signal execution shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	51 /* TCC_Dispatch_LISR Dispatch LISR routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	52 /* TCC_Register_LISR Register an LISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	53 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	54 /* DEPENDENCIES */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	55 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	56 /* cs_extr.h Common Service functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	57 /* tc_extr.h Thread Control functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	58 /* in_extr.h Initialization/Interrupt */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	59 /* functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	60 /* tm_extr.h Timer Control function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	61 /* er_extr.h Error handling function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	62 /* hi_extr.h History functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	63 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	64 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	65 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	66 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	67 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	68 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	69 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	70 /* 05-15-1993 Corrected comment problems in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	71 /* TCC_Control_Signals and */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	72 /* TCC_Register_Signal_Handler, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	73 /* making version 1.0a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	74 /* 05-15-1993 Verified version 1.0a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	75 /* 06-01-1993 Modified a multi-line comment */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	76 /* after a #include directive */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	77 /* that gave some compilers a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	78 /* problem, making version 1.0b */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	79 /* 06-01-1993 Verified version 1.0b */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	80 /* 08-09-1993 Corrected pointer retrieval */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	81 /* loop, resulting in version 1.0c */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	82 /* 08-09-1993 Verified version 1.0c */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	83 /* 09-19-1993 Corrected an initialization */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	84 /* problem of de-referencing a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	85 /* NULL pointer, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	86 /* version 1.0d */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	87 /* 09-19-1993 Verified version 1.0d */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	88 /* 11-01-1993 Added logic to save unhandled */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	89 /* interrupt vector number in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	90 /* a global variable, resulting */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	91 /* in version 1.0e */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	92 /* 11-01-1993 Verified version 1.0e */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	93 /* 02-01-1994 Corrected a suspension with */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	94 /* timeout problem that caused */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	95 /* unconditional task suspension */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	96 /* for timeouts and sleeps for 1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	97 /* tick, resulting in version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	98 /* 02-01-1994 Verified version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	99 /* 03-01-1994 Added another routine that */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	100 /* validates resume calls with */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	101 /* the appropriate protection and */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	102 /* added code to clear cleanup */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	103 /* information at task create and */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	104 /* task resume time, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	105 /* version 1.0g */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	106 /* 03-01-1994 Verified version 1.0g */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	107 /* 03-01-1994 Moved non-core functions into */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	108 /* supplemental files, changed */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	109 /* function interfaces to match */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	110 /* those in prototype, added */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	111 /* register options, fixed bug */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	112 /* in suspending current task from */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	113 /* a HISR, added a system protect */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	114 /* structure to reduce overhead */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	115 /* in protection, moved resume */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	116 /* validate to error checking */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	117 /* file, resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	118 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	119 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	120 /* 12-18-1995 Modified TCC_Resume_Service, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	121 /* resulting in version 1.1+ */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	122 /* (SPR 36, 64, 66, 77) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	123 /* 04-17-1996 updated to version 1.2 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	124 /* 06-01-1996 Modified TCC_Suspend_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	125 /* (SPR152) creating version 1.2a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	126 /* 10-29-1997 Modified TCC_Resume_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	127 /* (SPR115) creating vresion 1.2b */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	128 /* 01-23-1998 Released version 1.2b */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	129 /* 03-20-1998 Corrected problem where tasks */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	130 /* created with NU_NO_PREEMPT in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	131 /* Application_Initialize would */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	132 /* start in the order of creation */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	133 /* and not in priority order. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	134 /* SPR455 creates version 1.2c */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	135 /* 03-24-1998 Released version 1.3. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	136 /* 10-02-1998 Another protect problem (1.3a) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	137 /* 10-02-1998 Corrected a problem where a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	138 /* a timer expiration occurs */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	139 /* during signal handler execution */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	140 /* and causes the task to never */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	141 /* run again (SPR 923) creating */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	142 /* version 1.3b. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	143 /* 03-26-1999 Released 1.11m (new release */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	144 /* numbering scheme) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	145 /* 04-17-2002 Released version 1.13m */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	146 /* 11-07-2002 Released version 1.14 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	147 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	148 #define NU_SOURCE_FILE
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	149
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	150 #include "in_defs.h" /* Initialization defines */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	151 #include "cs_extr.h" /* Common service functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	152 #include "tc_extr.h" /* Thread control functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	153 #include "in_extr.h" /* Initialization/Interrupt */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	154 /* functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	155 #include "tm_extr.h" /* Timer control functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	156 #include "er_extr.h" /* Error handling function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	157 #include "hi_extr.h" /* History functions */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	158 #include "profiler.h" /* Nucleus Profiling header */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	159
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	160 #if ((defined(NU_MODULE_SUPPORT)) && (NU_MODULE_SUPPORT > 0))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	161 #include "module/inc/ms_defs.h" /* MS_Module typedef */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	162 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	163
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	164 /* Define external inner-component global data references. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	165
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	166 extern INT INC_Initialize_State;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	167 extern CS_NODE *TCD_Created_Tasks_List;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	168 extern UNSIGNED TCD_Total_Tasks;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	169 extern TC_TCB *TCD_Priority_List[TC_PRIORITIES];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	170 extern UNSIGNED TCD_Priority_Groups;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	171 extern DATA_ELEMENT TCD_Sub_Priority_Groups[TC_MAX_GROUPS];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	172 extern UNSIGNED_CHAR TCD_Lowest_Set_Bit[];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	173 extern INT TCD_Highest_Priority;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	174 extern TC_TCB *TCD_Execute_Task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	175 extern VOID *TCD_Current_Thread;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	176 extern UNSIGNED_CHAR TCD_Registered_LISRs[NU_MAX_VECTORS+1];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	177 extern VOID (*TCD_LISR_Pointers[NU_MAX_LISRS+1])(INT vector);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	178 extern INT TCD_Interrupt_Count;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	179 extern INT TCD_Stack_Switched;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	180 extern TC_PROTECT TCD_List_Protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	181 extern TC_PROTECT TCD_System_Protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	182 extern TC_PROTECT TCD_LISR_Protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	183 extern CS_NODE *TCD_Created_HISRs_List;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	184 extern UNSIGNED TCD_Total_HISRs;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	185 extern TC_PROTECT TCD_HISR_Protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	186 extern INT TCD_Unhandled_Interrupt;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	187
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	188
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	189 /* Define external inner-component function calls that are not available to
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	190 other components. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	191
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	192 VOID TCT_Build_Task_Stack(TC_TCB *task_ptr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	193 VOID TCT_Build_HISR_Stack(TC_HCB *hisr_ptr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	194 VOID TCT_Build_Signal_Frame(TC_TCB *task_ptr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	195 VOID TCT_Protect_Switch(TC_TCB *task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	196 VOID TCT_Signal_Exit(VOID);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	197
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	198
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	199 /* Define internal function calls. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	200
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	201 VOID TCC_Signal_Shell(VOID);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	202
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	203
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	204 #if defined(NU_MODULE_SUPPORT) && (NU_MODULE_SUPPORT > 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	205
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	206 /* Define service routines "privately" imported from other components */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	207 extern MS_MODULE* msd_current_module;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	208
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	209 STATUS MSC_Bind_Module_HISR(MS_MODULE* module, TC_HCB* hisr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	210 STATUS MSC_Bind_Module_Task(MS_MODULE* module, TC_TCB* task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	211
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	212 #endif /* NU_MODULE_SUPPORT */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	213
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	214 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	215 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	216 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	217 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	218 /* TCC_Create_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	219 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	220 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	221 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	222 /* This function creates a task and then places it on the list of */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	223 /* created tasks. All the resources necessary to create the task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	224 /* are supplied to this routine. If specified, the newly created */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	225 /* task is started. Otherwise, it is left in a suspended state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	226 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	227 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	228 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	229 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	230 /* TCCE_Create_Task Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	231 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	232 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	233 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	234 /* CSC_Place_On_List Add TCB to linked-list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	235 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	236 /* TCC_Resume_Task Start the created task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	237 /* TCT_Build_Task_Stack Build an initial task stack */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	238 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	239 /* TCT_Control_To_System Transfer control to system */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	240 /* TCT_Protect Protect created task list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	241 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	242 /* TMC_Init_Task_Timer Initialize the task's timer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	243 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	244 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	245 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	246 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	247 /* name Task name */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	248 /* task_entry Entry function of the task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	249 /* argc Optional task parameter */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	250 /* argv Optional task parameter */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	251 /* stack_address Pointer to start of stack */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	252 /* stack_size Size of task stack in bytes */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	253 /* priority Task priority */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	254 /* time_slice Task time slice */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	255 /* preempt Task preemptability flag */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	256 /* auto_start Automatic task start */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	257 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	258 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	259 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	260 /* NU_SUCCESS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	261 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	262 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	263 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	264 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	265 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	266 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	267 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	268 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	269 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	270 /* added system protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	271 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	272 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	273 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	274 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	275 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	276 STATUS TCC_Create_Task(NU_TASK task_ptr, CHAR name,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	277 VOID (task_entry)(UNSIGNED, VOID ), UNSIGNED argc, VOID *argv,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	278 VOID *stack_address, UNSIGNED stack_size,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	279 OPTION priority, UNSIGNED time_slice,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	280 OPTION preempt, OPTION auto_start)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	281 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	282
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	283 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	284 R2 INT i; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	285 STATUS status = NU_SUCCESS;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	286
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	287 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	288
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	289 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	290 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	291
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	292 /* Move input task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	293 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	294
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	295
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	296 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	297
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	298 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	299 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	300
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	301 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	302
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	303 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	304
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	305 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	306 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	307 HIC_Make_History_Entry(NU_CREATE_TASK_ID, (UNSIGNED) task,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	308 (UNSIGNED) name, (UNSIGNED) task_entry);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	309
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	310 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	311
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	312 /* First, clear the task ID just in case it is an old Task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	313 Control Block. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	314 task -> tc_id = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	315
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	316 /* Fill in the task name. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	317 for (i = 0; i < NU_MAX_NAME; i++)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	318 task -> tc_name[i] = name[i];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	319
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	320 /* Fill in the basic task information. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	321 task -> tc_entry = task_entry;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	322 task -> tc_argc = argc;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	323 task -> tc_argv = argv;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	324 task -> tc_status = NU_PURE_SUSPEND;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	325 task -> tc_delayed_suspend = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	326 task -> tc_scheduled = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	327 task -> tc_time_slice = time_slice;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	328 task -> tc_cur_time_slice = time_slice;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	329 task -> tc_current_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	330 task -> tc_suspend_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	331 task -> tc_cleanup = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	332 task -> tc_cleanup_info = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	333
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	334 /* Setup task's preemption posture. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	335 if (preempt == NU_PREEMPT)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	336 task -> tc_preemption = NU_TRUE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	337 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	338 task -> tc_preemption = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	339
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	340 /* Fill in information about the task's stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	341 task -> tc_stack_start = stack_address;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	342 task -> tc_stack_end = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	343 task -> tc_stack_size = stack_size;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	344 task -> tc_stack_minimum = stack_size;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	345
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	346 /* Setup priority information for the task. There are two bit maps
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	347 associated with each task. The first bit map indicates which group
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	348 of 8-priorities it is. The second bit map indicates the actual
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	349 priority within the group. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	350 task -> tc_priority = priority;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	351 task -> tc_priority_head = &(TCD_Priority_List[priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	352 task -> tc_sub_priority = (DATA_ELEMENT) (1 << (priority & 7));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	353 priority = priority >> 3;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	354 task -> tc_priority_group = ((UNSIGNED) 1) << priority;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	355 task -> tc_sub_priority_ptr = &(TCD_Sub_Priority_Groups[priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	356
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	357 /* Initialize link pointers. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	358 task -> tc_created.cs_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	359 task -> tc_created.cs_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	360 task -> tc_ready_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	361 task -> tc_ready_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	362
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	363 /* Build a stack frame for this task by calling TCT_Build_Task_Stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	364 TCT_Build_Task_Stack(task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	365
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	366 /* Initialize the signal information of the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	367 task -> tc_signals = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	368 task -> tc_enabled_signals = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	369 task -> tc_signal_handler = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	370 task -> tc_signal_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	371 /* Initialize additional kernel options data */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	372
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	373 #if (NU_SUPERV_USER_MODE == 1)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	374 task->tc_su_mode = 0; /* Initially in User mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	375 task->tc_module = 0; /* Not initially bound to a module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	376 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	377
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	378 /* Initialize the task timer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	379 task -> tc_timer_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	380 TMC_Init_Task_Timer(&(task -> tc_timer_control), (VOID *) task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	381
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	382 /* Protect the list of created tasks. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	383 TCT_Protect(&TCD_List_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	384
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	385 /* At this point the task is completely built. The ID can now be
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	386 set and it can be linked into the created task list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	387 task -> tc_id = TC_TASK_ID;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	388
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	389 #if defined(NU_MODULE_SUPPORT) && (NU_MODULE_SUPPORT > 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	390 /* If executing in a thread's context, bind to that thread's module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	391 if(TCD_Current_Thread != NU_NULL)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	392 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	393 status = MSC_Bind_Module_Task(
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	394 (MS_MODULE)(((TC_TCB)(TCD_Current_Thread))->tc_module), task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	395 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	396 else /* It must be initialization time, so use the current module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	397 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	398 status = MSC_Bind_Module_Task(msd_current_module, task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	399 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	400 #endif /* NU_MODULE_SUPPORT */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	401
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	402 /* Link the task into the list of created tasks and increment the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	403 total number of tasks in the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	404 CSC_Place_On_List(&TCD_Created_Tasks_List, &(task -> tc_created));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	405 TCD_Total_Tasks++;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	406
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	407 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	408 _RTProf_DumpTask(task,RT_PROF_CREATE_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	409 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	410
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	411 /* Release the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	412 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	413
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	414 /* Determine if the task should be automatically started. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	415 if (auto_start == NU_START)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	416 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	417
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	418 /* Protect the system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	419 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	420
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	421 /* Start the task by resuming it. If the preemption is required,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	422 leave the current task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	423 if (TCC_Resume_Task(task_ptr, NU_PURE_SUSPEND))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	424
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	425
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	426 /* Transfer control back to the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	427 TCT_Control_To_System();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	428 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	429
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	430 /* Release the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	431 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	432 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	433
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	434 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	435 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	436
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	437 /* Return successful completion. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	438 return(status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	439 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	440
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	441
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	442 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	443 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	444 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	445 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	446 /* TCC_Create_HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	447 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	448 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	449 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	450 /* This function creates a High-Level Interrupt Service Routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	451 /* (HISR) and then places it on the list of created HISRs. All */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	452 /* the resources necessary to create the HISR are supplied to this */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	453 /* routine. HISRs are always created in a dormant state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	454 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	455 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	456 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	457 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	458 /* TCCE_Create_HISR Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	459 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	460 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	461 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	462 /* CSC_Place_On_List Add TCB to linked-list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	463 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	464 /* TCT_Build_HISR_Stack Build an initial HISR stack */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	465 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	466 /* TCT_Protect Protect created HISR list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	467 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	468 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	469 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	470 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	471 /* hisr_ptr HISR control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	472 /* name HISR name */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	473 /* hisr_entry Entry function of the HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	474 /* priority Task priority */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	475 /* stack_address Pointer to start of stack */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	476 /* stack_size Size of HISR stack in bytes */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	477 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	478 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	479 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	480 /* NU_SUCCESS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	481 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	482 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	483 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	484 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	485 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	486 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	487 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	488 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	489 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	490 /* added more control block */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	491 /* initialization, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	492 /* version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	493 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	494 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	495 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	496 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	497 STATUS TCC_Create_HISR(NU_HISR hisr_ptr, CHAR name,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	498 VOID (*hisr_entry)(VOID), OPTION priority,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	499 VOID *stack_address, UNSIGNED stack_size)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	500 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	501
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	502 R1 TC_HCB hisr; / HISR control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	503 R2 INT i; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	504 STATUS status = NU_SUCCESS;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	505
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	506 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	507
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	508 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	509 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	510
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	511 /* Move input HISR pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	512 hisr = (TC_HCB *) hisr_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	513
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	514
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	515 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	516
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	517 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	518 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	519
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	520 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	521
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	522 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	523
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	524 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	525 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	526 HIC_Make_History_Entry(NU_CREATE_HISR_ID, (UNSIGNED) hisr,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	527 (UNSIGNED) name, (UNSIGNED) hisr_entry);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	528
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	529 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	530
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	531 /* First, clear the HISR ID just in case it is an old HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	532 Control Block. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	533 hisr -> tc_id = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	534
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	535 /* Fill in the HISR name. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	536 for (i = 0; i < NU_MAX_NAME; i++)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	537 hisr -> tc_name[i] = name[i];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	538
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	539 /* Fill in the basic HISR information. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	540 hisr -> tc_entry = hisr_entry;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	541 hisr -> tc_scheduled = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	542 hisr -> tc_activation_count = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	543 hisr -> tc_cur_time_slice = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	544
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	545 /* Fill in information about the HISR's stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	546 hisr -> tc_stack_start = stack_address;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	547 hisr -> tc_stack_end = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	548 hisr -> tc_stack_size = stack_size;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	549 hisr -> tc_stack_minimum = stack_size;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	550
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	551 /* Setup priority information for the HISR. Priorities range from 0 to
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	552 TC_HISR_PRIORITIES - 1. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	553 hisr -> tc_priority = priority & 3;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	554
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	555 /* Initialize link pointers. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	556 hisr -> tc_created.cs_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	557 hisr -> tc_created.cs_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	558 hisr -> tc_active_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	559
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	560 /* Clear protect pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	561 hisr -> tc_current_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	562
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	563 /* Initialize additional kernel options data */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	564 #if (NU_SUPERV_USER_MODE == 1)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	565 hisr->tc_su_mode = 1; /* TCT_HISR_Shell in Supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	566 hisr->tc_module = 0; /* Not initially bound to a module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	567 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	568
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	569 /* Build a stack frame for this HISR by calling TCT_Build_HISR_Stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	570 TCT_Build_HISR_Stack(hisr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	571
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	572 /* Protect the list of created HISRs. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	573 TCT_Protect(&TCD_HISR_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	574
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	575 /* At this point the HISR is completely built. The ID can now be
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	576 set and it can be linked into the created HISR list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	577 hisr -> tc_id = TC_HISR_ID;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	578
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	579 #if defined(NU_MODULE_SUPPORT) && (NU_MODULE_SUPPORT > 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	580 /* If executing in a thread's context, bind to that thread's module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	581 if(TCD_Current_Thread != NU_NULL)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	582 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	583 status = MSC_Bind_Module_HISR(
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	584 (MS_MODULE)(((TC_TCB)(TCD_Current_Thread))->tc_module), hisr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	585 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	586 else /* It must be initialization time, so use the current module */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	587 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	588 status = MSC_Bind_Module_HISR(msd_current_module, hisr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	589 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	590 #endif /* NU_MODULE_SUPPORT */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	591
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	592 /* Link the HISR into the list of created HISRs and increment the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	593 total number of HISRs in the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	594 CSC_Place_On_List(&TCD_Created_HISRs_List, &(hisr -> tc_created));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	595 TCD_Total_HISRs++;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	596
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	597 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	598 _RTProf_DumpHisr(hisr,RT_PROF_CREATE_HISR);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	599 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	600
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	601 /* Release the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	602 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	603
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	604 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	605 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	606
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	607 /* Return successful completion. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	608 return(status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	609 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	610
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	611
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	612 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	613 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	614 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	615 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	616 /* TCC_Delete_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	617 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	618 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	619 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	620 /* This function deletes a task and removes it from the list of */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	621 /* created tasks. It is assumed by this function that the task is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	622 /* in a finished or terminated state. Note that this function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	623 /* does not free memory associated with the task's control block or */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	624 /* its stack. This is the responsibility of the application. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	625 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	626 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	627 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	628 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	629 /* TCCE_Delete_Task Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	630 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	631 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	632 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	633 /* CSC_Remove_From_List Remove node from list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	634 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	635 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	636 /* TCT_Protect Protect created task list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	637 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	638 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	639 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	640 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	641 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	642 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	643 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	644 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	645 /* NU_SUCCESS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	646 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	647 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	648 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	649 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	650 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	651 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	652 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	653 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	654 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	655 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	656 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	657 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	658 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	659 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	660 STATUS TCC_Delete_Task(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	661 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	662
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	663 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	664 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	665
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	666 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	667 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	668
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	669 /* Move input task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	670 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	671
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	672
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	673 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	674
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	675 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	676 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	677
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	678 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	679
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	680 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	681
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	682 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	683 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	684 HIC_Make_History_Entry(NU_DELETE_TASK_ID, (UNSIGNED) task,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	685 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	686
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	687 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	688
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	689 /* Protect the list of created tasks. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	690 TCT_Protect(&TCD_List_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	691
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	692 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	693 _RTProf_DumpTask(task,RT_PROF_DELETE_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	694 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	695
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	696 /* Remove the task from the list of created tasks. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	697 CSC_Remove_From_List(&TCD_Created_Tasks_List, &(task -> tc_created));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	698
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	699 /* Decrement the total number of created tasks. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	700 TCD_Total_Tasks--;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	701
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	702 /* Clear the task ID just in case. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	703 task -> tc_id = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	704
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	705 /* Release protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	706 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	707
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	708 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	709 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	710
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	711 /* Return a successful completion. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	712 return(NU_SUCCESS);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	713 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	714
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	715
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	716 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	717 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	718 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	719 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	720 /* TCC_Delete_HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	721 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	722 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	723 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	724 /* This function deletes a HISR and removes it from the list of */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	725 /* created HISRs. It is assumed by this function that the HISR is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	726 /* in a non-active state. Note that this function does not free */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	727 /* memory associated with the HISR's control block or its stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	728 /* This is the responsibility of the application. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	729 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	730 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	731 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	732 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	733 /* TCCE_Delete_HISR Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	734 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	735 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	736 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	737 /* CSC_Remove_From_List Remove node from list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	738 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	739 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	740 /* TCT_Protect Protect created HISR list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	741 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	742 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	743 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	744 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	745 /* hisr_ptr HISR control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	746 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	747 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	748 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	749 /* NU_SUCCESS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	750 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	751 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	752 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	753 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	754 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	755 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	756 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	757 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	758 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	759 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	760 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	761 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	762 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	763 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	764 STATUS TCC_Delete_HISR(NU_HISR *hisr_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	765 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	766
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	767 R1 TC_HCB hisr; / HISR control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	768 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	769
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	770 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	771 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	772
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	773 /* Move input HISR pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	774 hisr = (TC_HCB *) hisr_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	775
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	776
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	777 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	778
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	779 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	780 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	781
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	782 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	783
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	784 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	785
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	786 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	787 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	788 HIC_Make_History_Entry(NU_DELETE_HISR_ID, (UNSIGNED) hisr,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	789 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	790
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	791 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	792
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	793 /* Protect the list of created HISRs. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	794 TCT_Protect(&TCD_HISR_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	795
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	796 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	797 _RTProf_DumpHisr(hisr,RT_PROF_DELETE_HISR);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	798 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	799
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	800 /* Remove the HISR from the list of created HISRs. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	801 CSC_Remove_From_List(&TCD_Created_HISRs_List, &(hisr -> tc_created));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	802
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	803 /* Decrement the total number of created HISRs. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	804 TCD_Total_HISRs--;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	805
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	806 /* Clear the HISR ID just in case. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	807 hisr -> tc_id = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	808
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	809 /* Release protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	810 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	811
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	812 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	813 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	814
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	815 /* Return a successful completion. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	816 return(NU_SUCCESS);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	817 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	818
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	819
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	820 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	821 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	822 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	823 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	824 /* TCC_Reset_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	825 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	826 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	827 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	828 /* This function resets the specified task. Note that a task reset */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	829 /* can only be performed on tasks in a finished or terminated state.*/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	830 /* The task is left in an unconditional suspended state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	831 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	832 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	833 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	834 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	835 /* TCCE_Reset_Task Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	836 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	837 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	838 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	839 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	840 /* TCT_Build_Task_Stack Build an initial task stack */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	841 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	842 /* TCT_Protect Protect created task list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	843 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	844 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	845 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	846 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	847 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	848 /* argc Optional task parameter */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	849 /* argv Optional task parameter */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	850 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	851 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	852 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	853 /* NU_SUCCESS Indicates successful request */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	854 /* NU_NOT_TERMINATED Indicates task was not */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	855 /* finished or terminated */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	856 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	857 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	858 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	859 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	860 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	861 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	862 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	863 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	864 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	865 /* added system protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	866 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	867 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	868 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	869 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	870 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	871 STATUS TCC_Reset_Task(NU_TASK task_ptr, UNSIGNED argc, VOID argv)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	872 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	873
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	874 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	875 STATUS status; /* Status of the request */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	876 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	877
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	878 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	879 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	880
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	881 /* Move input task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	882 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	883
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	884 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	885
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	886 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	887 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	888
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	889 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	890
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	891 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	892
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	893 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	894 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	895 HIC_Make_History_Entry(NU_RESET_TASK_ID, (UNSIGNED) task,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	896 (UNSIGNED) argc, (UNSIGNED) argv);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	897
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	898 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	899
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	900 /* Protect system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	901 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	902
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	903 /* Determine if the task is in the proper state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	904 if ((task -> tc_status == NU_FINISHED) \|\|
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	905 (task -> tc_status == NU_TERMINATED))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	906 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	907
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	908 /* Yes, a valid reset is present. Indicate this in the status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	909 status = NU_SUCCESS;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	910
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	911 /* Fill in the new argument information and reset some of the other
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	912 fields. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	913 task -> tc_argc = argc;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	914 task -> tc_argv = argv;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	915 task -> tc_status = NU_PURE_SUSPEND;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	916 task -> tc_delayed_suspend = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	917 task -> tc_scheduled = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	918 task -> tc_stack_minimum = task -> tc_stack_size;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	919
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	920 #if (NU_SUPERV_USER_MODE == 1)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	921 /* Since we are doing a complete reset we need to ensure
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	922 that this field is 0 since the task will be started in
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	923 user mode. TCC_Task_Shell can not return and therefore
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	924 left the task in supervisor mode when the task completed.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	925 If we were to not re-initialize this field the task would
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	926 become locked in user mode and API would fail. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	927 task -> tc_su_mode = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	928 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	929
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	930 /* Build a stack frame for this task by calling
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	931 TCT_Build_Task_Stack. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	932 TCT_Build_Task_Stack(task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	933 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	934 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	935
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	936 /* The requested task is not in a finished or terminated state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	937 status = NU_NOT_TERMINATED;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	938
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	939 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	940 _RTProf_DumpTask(task,RT_PROF_RESET_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	941 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	942
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	943 /* Release the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	944 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	945
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	946 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	947 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	948
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	949 /* Return completion status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	950 return(status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	951 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	952
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	953
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	954 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	955 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	956 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	957 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	958 /* TCC_Terminate_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	959 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	960 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	961 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	962 /* This function terminates the specified task. If the task is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	963 /* already terminated, this function does nothing. If the task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	964 /* to terminate is currently suspended, the specified cleanup */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	965 /* routine is also invoked to cleanup suspension data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	966 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	967 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	968 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	969 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	970 /* TCCE_Terminate_Task Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	971 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	972 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	973 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	974 /* Cleanup routine Task's suspend cleanup funct */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	975 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	976 /* TCC_Suspend_Task Suspend a ready task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	977 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	978 /* TCT_Protect Protect created task list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	979 /* TCT_Unprotect Release protection of list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	980 /* TCT_Unprotect_Specific Specific unprotection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	981 /* TMC_Stop_Task_Timer Stop a task timer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	982 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	983 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	984 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	985 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	986 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	987 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	988 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	989 /* NU_SUCCESS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	990 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	991 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	992 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	993 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	994 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	995 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	996 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	997 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	998 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	999 /* added system protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1000 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1001 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1002 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1003 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1004 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1005 STATUS TCC_Terminate_Task(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1006 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1007
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1008 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1009 TC_PROTECT suspend_protect; / Suspension protection ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1010 DATA_ELEMENT status; /* Task status */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1011 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1012
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1013 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1014 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1015
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1016 /* Move task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1017 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1018
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1019
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1020 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1021
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1022 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1023 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1024
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1025 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1026
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1027 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1028
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1029 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1030 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1031 HIC_Make_History_Entry(NU_TERMINATE_TASK_ID, (UNSIGNED) task,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1032 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1033
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1034 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1035
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1036 /* Determine if the calling task is the current task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1037 if (task == (TC_TCB *) TCD_Current_Thread)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1038 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1039
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1040 /* Protect system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1041 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1042
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1043 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1044 _RTProf_DumpTask(task,RT_PROF_TERMINATE_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1045 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1046
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1047 /* Suspend the calling task with the NU_TERMINATED status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1048 TCC_Suspend_Task(task_ptr, NU_TERMINATED, NU_NULL, NU_NULL,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1049 NU_SUSPEND);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1050
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1051 /* No need to un-protect, since control never comes back to this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1052 point and the protection is cleared in TCT_Control_To_System. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1053 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1054 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1055 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1056
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1057 /* Protect scheduling structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1058 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1059
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1060 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1061 _RTProf_DumpTask(task,RT_PROF_TERMINATE_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1062 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1063
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1064 /* Keep trying to terminate the specified task until its status
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1065 indicates that it is terminated or finished. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1066 while ((task -> tc_status != NU_FINISHED) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1067 task -> tc_status != NU_TERMINATED)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1068 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1069
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1070 /* Is the task in a ready state? */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1071 if (task -> tc_status == NU_READY)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1072 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1073
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1074 /* Terminate the specified task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1075 TCC_Suspend_Task(task_ptr, NU_TERMINATED, NU_NULL,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1076 NU_NULL,NU_SUSPEND);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1077
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1078 /* Clear system protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1079 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1080 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1081 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1082 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1083
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1084 /* Task is suspended currently. Pickup the suspension
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1085 protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1086 suspend_protect = task -> tc_suspend_protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1087
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1088 /* Save the current status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1089 status = task -> tc_status;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1090
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1091 /* Release protection on system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1092 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1093
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1094 /* Determine if there was a suspension protection. If so
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1095 protect it first before the scheduling list protection.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1096 This avoids a deadlock situation. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1097 if (suspend_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1098
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1099 /* Protect the terminated task's last suspension
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1100 structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1101 TCT_Protect(suspend_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1102
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1103 /* Protect the system structures again. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1104 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1105
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1106 /* Now determine if the same suspension is in force. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1107 if ((task -> tc_status == status) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1108 (task -> tc_suspend_protect == suspend_protect))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1109 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1110
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1111 /* Yes, same suspension is in force. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1112
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1113 /* Call cleanup routine, if there is one. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1114 if (task -> tc_cleanup)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1115
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1116 /* Call cleanup function. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1117 (*(task -> tc_cleanup)) (task -> tc_cleanup_info);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1118
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1119 /* Status the task as terminated. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1120 task -> tc_status = NU_TERMINATED;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1121
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1122 /* Determine if there is a timer active. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1123 if (task -> tc_timer_active)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1124 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1125
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1126 /* Call the stop timer function. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1127 TMC_Stop_Task_Timer(&(task -> tc_timer_control));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1128
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1129 /* Clear the timer active flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1130 task -> tc_timer_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1131 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1132 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1133
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1134 /* Cleanup the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1135 if (suspend_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1136 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1137
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1138 /* Release specific protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1139 TCT_Unprotect_Specific(suspend_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1140
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1141 /* Clear the suspend protect field. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1142 task -> tc_suspend_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1143 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1144
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1145 /* Release current protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1146 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1147 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1148
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1149 /* Protect the scheduling list again. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1150 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1151 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1152
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1153 /* Release the protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1154 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1155 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1156
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1157 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1158 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1159
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1160 /* Return successful completion. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1161 return(NU_SUCCESS);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1162 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1163
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1164
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1165 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1166 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1167 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1168 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1169 /* TCC_Resume_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1170 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1171 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1172 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1173 /* This function resumes a previously suspended task. The task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1174 /* task must currently be suspended for the same reason indicated */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1175 /* by this request. If the task resumed is higher priority than */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1176 /* the calling task and the current task is preemptable, this */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1177 /* function returns a value of NU_TRUE. Otherwise, if no */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1178 /* preemption is required, a NU_FALSE is returned. This routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1179 /* must be called from Supervisor mode in a Supervisor/User mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1180 /* switching kernel. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1181 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1182 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1183 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1184 /* Other Components */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1185 /* TCC_Resume_Service Resume service function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1186 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1187 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1188 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1189 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1190 /* TCT_Set_Current_Protect Set current protection field */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1191 /* TCT_Set_Execute_Task Set TCD_Execute_Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1192 /* TMC_Stop_Task_Timer Stop task timer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1193 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1194 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1195 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1196 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1197 /* suspend_type Type of suspension to lift */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1198 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1199 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1200 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1201 /* NU_TRUE A higher priority task is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1202 /* ready to execute */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1203 /* NU_FALSE No change in the task to */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1204 /* execute */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1205 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1206 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1207 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1208 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1209 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1210 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1211 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1212 /* 09-19-1993 Corrected an initialization */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1213 /* problem of de-referencing a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1214 /* NULL pointer, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1215 /* version 1.0d */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1216 /* 09-19-1993 Verified version 1.0d */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1217 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1218 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1219 /* modified protection logic to */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1220 /* assume that system protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1221 /* is already in force, resulting */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1222 /* in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1223 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1224 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1225 /* 10-29-1997 Changed so that tc_cleanup, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1226 /* tc_cleanup_info, and */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1227 /* tc_suspend_protect are cleared */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1228 /* only if a signal is not active */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1229 /* (SPR115) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1230 /* 03-20-1998 Corrected SPR455. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1231 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1232 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1233 STATUS TCC_Resume_Task(NU_TASK *task_ptr, OPTION suspend_type)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1234 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1235
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1236 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1237 R2 TC_TCB head; / Pointer to priority list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1238 STATUS status = NU_FALSE; /* Status variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1239
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1240 /* Move task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1241 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1242
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1243
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1244 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1245
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1246 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1247 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1248
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1249 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1250
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1251
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1252 /* Check to see if the task is suspended for the reason that this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1253 resume is attempting to clear. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1254 if (task -> tc_status == suspend_type)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1255 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1256
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1257 /* Yes, this resume call is valid. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1258
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1259 /* If signals are not active, clear any suspend or cleanup
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1260 information (SPR115). */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1261 if (!task -> tc_signal_active)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1262 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1263 task -> tc_suspend_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1264 task -> tc_cleanup = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1265 task -> tc_cleanup_info = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1266 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1267
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1268 /* Determine if there is a timer active and the task is not being
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1269 resumed to handle a signal. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1270 if ((task -> tc_timer_active) && (!task -> tc_signal_active))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1271 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1272
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1273 /* Call the stop timer function. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1274 TMC_Stop_Task_Timer(&(task -> tc_timer_control));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1275
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1276 /* Clear the timer active flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1277 task -> tc_timer_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1278 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1279
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1280 /* Check to see if there is a pending pure suspension. If so,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1281 change the cause of the suspension and leave in a suspended
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1282 state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1283 if (task -> tc_delayed_suspend)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1284 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1285
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1286 /* Leave suspended but change the task's status and clear the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1287 delayed suspension flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1288 task -> tc_delayed_suspend = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1289 task -> tc_status = NU_PURE_SUSPEND;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1290 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1291 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1292 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1293
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1294 /* Lift the suspension of the specified task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1295
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1296 /* Clear the status of the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1297 task -> tc_status = NU_READY;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1298
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1299 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1300 _RTProf_TaskStatus(task,RT_TASK_READY);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1301 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1302
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1303 /* Link the task into the appropriate priority list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1304 head = *(task -> tc_priority_head);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1305
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1306 /* Determine if the list is non-empty. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1307 if (head)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1308 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1309
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1310 /* Add the new TCB to the end of the ready list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1311 task -> tc_ready_previous = head -> tc_ready_previous;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1312 (task -> tc_ready_previous) -> tc_ready_next = task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1313 task -> tc_ready_next = head;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1314 (task -> tc_ready_next) -> tc_ready_previous = task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1315
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1316 /* Note that the priority bit map does not need to be
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1317 modified since there are other active tasks at the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1318 same priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1319 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1320 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1321 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1322
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1323 /* Add the new TCB to an empty list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1324 task -> tc_ready_previous = task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1325 task -> tc_ready_next = task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1326 *(task -> tc_priority_head)= task;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1327
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1328 /* Update the priority group bit map to indicate that this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1329 priority now has a task ready. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1330 TCD_Priority_Groups =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1331 TCD_Priority_Groups \| (task -> tc_priority_group);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1332
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1333 /* Update the sub-priority bit map to show that this priority
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1334 is ready. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1335 *(task -> tc_sub_priority_ptr) =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1336 (*(task -> tc_sub_priority_ptr)) \| task -> tc_sub_priority;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1337
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1338 /* Determine if this newly ready task is higher priority
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1339 than the current task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1340 if ((INT) (task -> tc_priority) < TCD_Highest_Priority)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1341 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1342
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1343 /* Update the highest priority field. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1344 TCD_Highest_Priority = (INT) task -> tc_priority;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1345
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1346 /* See if there is a task to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1347 if (TCD_Execute_Task == NU_NULL)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1348
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1349 /* Make this task the current. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1350 TCT_Set_Execute_Task(task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1351
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1352 /* Check to see if the task to execute is preemptable. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1353 /* SPR455 checks if we are in Application_Initialize */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1354 else if ((TCD_Execute_Task -> tc_preemption)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1355 \|\| (INC_Initialize_State == INC_START_INITIALIZE))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1356 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1357
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1358 /* Yes, the task to execute is preemptable. Replace
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1359 it with the new task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1360 TCT_Set_Execute_Task(task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1361
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1362 /* Now, check and see if the current thread is a task.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1363 If so, return a status that indicates a context
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1364 switch is needed. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1365 if ((TCD_Current_Thread) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1366 (((TC_TCB *) TCD_Current_Thread) -> tc_id ==
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1367 TC_TASK_ID))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1368
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1369 /* Yes, a context switch is needed. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1370 status = NU_TRUE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1371 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1372 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1373 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1374 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1375 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1376 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1377 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1378
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1379 /* Check for a resumption of a delayed pure suspend. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1380 if (suspend_type == NU_PURE_SUSPEND)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1381
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1382 /* Clear the delayed suspension. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1383 task -> tc_delayed_suspend = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1384
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1385 /* Check for a signal active and the saved status the same as
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1386 the resume request. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1387 if ((suspend_type == task -> tc_saved_status) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1388 (task -> tc_signal_active))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1389 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1390
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1391 /* Indicate the saved status as ready. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1392 task -> tc_saved_status = NU_READY;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1393
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1394 /* Determine if the task's timer is active. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1395 if (task -> tc_timer_active)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1396 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1397
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1398 /* Stop the timer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1399 TMC_Stop_Task_Timer(&(task -> tc_timer_control));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1400
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1401 /* Clear the timer active flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1402 task -> tc_timer_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1403 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1404 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1405 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1406
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1407 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1408 _RTProf_DumpTask(task,RT_PROF_RESUME_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1409 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1410
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1411 /* Return back the status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1412 return(status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1413 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1414
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1415
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1416 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1417 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1418 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1419 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1420 /* TCC_Resume_Service */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1421 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1422 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1423 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1424 /* This function provides an interface identical to the application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1425 /* service call to resume a task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1426 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1427 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1428 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1429 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1430 /* TCCE_Resume_Service Error checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1431 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1432 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1433 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1434 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1435 /* TCC_Resume_Task Resume a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1436 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1437 /* TCT_Control_To_System Transfer control to system */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1438 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1439 /* TCT_Unprotect Release system protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1440 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1441 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1442 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1443 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1444 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1445 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1446 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1447 /* NU_SUCCESS Always returns success */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1448 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1449 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1450 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1451 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1452 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1453 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1454 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1455 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1456 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1457 /* added system protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1458 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1459 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1460 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1461 /* 12-19-1995 Changed the "task" parameter to */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1462 /* "task_ptr" in the */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1463 /* HIC_Make_History_Entry call, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1464 /* resulting in version 1.1+ */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1465 /* (SPR 36, 64, 66, 77) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1466 /* 10-02-1998 Another protect problem (1.3a) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1467 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1468 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1469 STATUS TCC_Resume_Service(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1470 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1471
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1472 TC_PROTECT save_protect; / Save current protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1473 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1474
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1475 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1476 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1477
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1478 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1479
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1480 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1481 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1482
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1483 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1484
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1485 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1486
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1487 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1488 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1489 HIC_Make_History_Entry(NU_RESUME_TASK_ID, (UNSIGNED) task_ptr,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1490 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1491
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1492 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1493
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1494 /* Save current protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1495 if (TCD_Current_Thread != NU_NULL)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1496 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1497 save_protect = TCT_Get_Current_Protect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1498 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1499 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1500 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1501 save_protect = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1502 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1503
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1504 /* Protect system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1505 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1506
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1507 /* Call the actual resume task function. If the function returns a
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1508 NU_TRUE, context switching is needed. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1509 if (TCC_Resume_Task(task_ptr, NU_PURE_SUSPEND))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1510 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1511
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1512 /* Transfer control back to the system for a context switch. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1513 TCT_Control_To_System();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1514 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1515
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1516 /* Determine how to get out of protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1517 if (save_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1518 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1519
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1520 /* Restore current protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1521 TCT_Set_Current_Protect(save_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1522
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1523 /* Release system protect. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1524 TCT_Unprotect_Specific(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1525 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1526 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1527
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1528 /* Release protection of system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1529 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1530
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1531 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1532 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1533
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1534 /* Always return a successful status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1535 return(NU_SUCCESS);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1536 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1537
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1538
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1539
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1540
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1541 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1542 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1543 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1544 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1545 /* TCC_Suspend_Task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1546 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1547 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1548 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1549 /* This function suspends the specified task. If the specified */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1550 /* task is the calling task, control is transferred back to the */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1551 /* system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1552 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1553 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1554 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1555 /* Other Components */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1556 /* TCC_Suspend_Service Task suspend service */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1557 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1558 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1559 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1560 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1561 /* TCT_Control_To_System Transfer control to system */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1562 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1563 /* TCT_Set_Execute_Task Set TCD_Execute_Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1564 /* TCT_Protect_Switch Allow protected task to run */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1565 /* briefly */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1566 /* TCT_Unprotect Release system protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1567 /* TMC_Start_Task_Timer Start a task timer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1568 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1569 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1570 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1571 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1572 /* suspend_type Type of suspension to lift */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1573 /* cleanup Cleanup routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1574 /* information Information for cleanup */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1575 /* timeout Timeout on the suspension */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1576 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1577 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1578 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1579 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1580 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1581 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1582 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1583 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1584 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1585 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1586 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1587 /* 02-01-1994 Corrected a suspension with */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1588 /* timeout problem that caused */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1589 /* unconditional task suspension */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1590 /* for timeouts and sleeps for 1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1591 /* tick, resulting in version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1592 /* 02-01-1994 Verified version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1593 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1594 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1595 /* fixed a possible suspending an */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1596 /* executing task from a HISR, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1597 /* removed excessive protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1598 /* logic since protection is now */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1599 /* in force upon function entry, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1600 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1601 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1602 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1603 /* 06-01-1996 Checked to see whether */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1604 /* task == TCD_Current_Thread */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1605 /* regardless of whether task == */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1606 /* TCD_Execute_Task (SPR152) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1607 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1608 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1609 VOID TCC_Suspend_Task(NU_TASK *task_ptr, OPTION suspend_type,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1610 VOID (cleanup) (VOID ), VOID *information, UNSIGNED timeout)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1611 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1612
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1613 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1614 R2 INT index; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1615 DATA_ELEMENT temp; /* Temporary variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1616
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1617
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1618
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1619 /* Move input task pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1620 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1621
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1622
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1623 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1624
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1625 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1626 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1627
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1628 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1629
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1630
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1631 /* Determine if there is a timeout to initiate. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1632 if (timeout != NU_SUSPEND)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1633 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1634
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1635 /* Indicate that a task timer is active. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1636 task -> tc_timer_active = NU_TRUE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1637
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1638 /* Start a timeout on the suspension. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1639 TMC_Start_Task_Timer(&(task -> tc_timer_control),timeout);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1640 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1641
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1642
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1643 /* Check for a non self-suspension. In such cases, the target task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1644 cannot have any type of protection in force. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1645 if (task != (TC_TCB *) TCD_Current_Thread)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1646 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1647
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1648 do
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1649 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1650
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1651 /* Check for protection. Remember that system protection is
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1652 in effect. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1653 if (task -> tc_current_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1654 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1655
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1656 /* Yes, target task is in a protected mode. Release
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1657 the protection on the scheduling list and transfer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1658 control briefly to the target task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1659 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1660
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1661 /* Switch to the protected task and wait until the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1662 task is not protected. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1663 TCT_Protect_Switch(task);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1664
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1665 /* Restore protection of the system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1666 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1667 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1668 } while (task -> tc_current_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1669 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1670
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1671 /* Check to see if the task is currently ready. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1672 if (task -> tc_status == NU_READY)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1673 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1674
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1675 /* Mark the task with the appropriate suspension code. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1676 task -> tc_status = suspend_type;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1677
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1678 /* Store off termination information in the tasks control block. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1679 task -> tc_cleanup = cleanup;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1680 task -> tc_cleanup_info = information;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1681
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1682 /* Remove the task from the ready list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1683
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1684 /* Determine if the task is the only one on the list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1685 if (task -> tc_ready_next == task)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1686 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1687
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1688 /* Only task on the list. Clear the task's pointers and
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1689 clear the entry in the priority table. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1690 task -> tc_ready_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1691 task -> tc_ready_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1692 *(task -> tc_priority_head) = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1693
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1694 /* Clear the sub-priority group. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1695 *(task -> tc_sub_priority_ptr) =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1696 (*(task -> tc_sub_priority_ptr)) & ~(task -> tc_sub_priority);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1697
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1698 /* Determine if the main priority group needs to be cleared.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1699 This is only true if there are no other bits set in this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1700 sub-priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1701 if (*(task -> tc_sub_priority_ptr) == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1702
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1703 /* Clear the main priority group bit. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1704 TCD_Priority_Groups =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1705 TCD_Priority_Groups & ~(task -> tc_priority_group);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1706
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1707 /* Determine if this priority group was the highest in the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1708 system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1709 if (task -> tc_priority == (DATA_ELEMENT) TCD_Highest_Priority)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1710 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1711
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1712 /* Determine the highest priority task in the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1713 if (TCD_Priority_Groups == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1714 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1715
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1716 /* Re-initialize the highest priority variable and
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1717 clear the current task pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1718 TCD_Highest_Priority = TC_PRIORITIES;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1719 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1720 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1721 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1722
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1723 /* Find the next highest priority task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1724 if (TCD_Priority_Groups & TC_HIGHEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1725
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1726 /* Base of sub-group is 0. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1727 index = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1728
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1729 else if (TCD_Priority_Groups & TC_NEXT_HIGHEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1730
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1731 /* Base of sub-group is 8. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1732 index = 8;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1733
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1734 else if (TCD_Priority_Groups & TC_NEXT_LOWEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1735
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1736 /* Base of sub-group is 16. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1737 index = 16;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1738 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1739
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1740 /* Base of sub-group is 24. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1741 index = 24;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1742
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1743 /* Calculate the highest available priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1744 index = index + TCD_Lowest_Set_Bit[(INT)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1745 ((TCD_Priority_Groups >> index) & TC_HIGHEST_MASK)];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1746
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1747 /* Get the mask of the priority within the group of
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1748 8 priorities. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1749 temp = TCD_Sub_Priority_Groups[index];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1750
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1751 /* Calculate the actual priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1752 TCD_Highest_Priority =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1753 (index << 3) + TCD_Lowest_Set_Bit[temp];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1754 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1755 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1756 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1757 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1758 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1759
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1760 /* Not the only task ready at the same priority level. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1761
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1762 /* Remove from the linked-list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1763 (task -> tc_ready_previous) -> tc_ready_next =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1764 task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1765 (task -> tc_ready_next) -> tc_ready_previous =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1766 task -> tc_ready_previous;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1767
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1768 /* See if the task being suspended is the current. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1769 if (*(task -> tc_priority_head) == task)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1770
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1771 /* Update the head of this priority list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1772 *(task -> tc_priority_head) = task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1773
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1774 /* Clear the task's pointers. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1775 task -> tc_ready_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1776 task -> tc_ready_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1777 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1778
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1779 /* Determine if this task the highest priority task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1780 if (task == TCD_Execute_Task)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1781 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1782
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1783 /* Determine the next task to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1784 if (TCD_Highest_Priority < TC_PRIORITIES)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1785
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1786 /* Put the next task to execute in TCD_Execute_Task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1787 TCT_Set_Execute_Task(TCD_Priority_List[TCD_Highest_Priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1788 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1789
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1790 /* No other task is ready for execution. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1791 TCT_Set_Execute_Task(NU_NULL);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1792 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1793
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1794 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1795 _RTProf_DumpTask(task,RT_PROF_SUSPEND_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1796
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1797 if (suspend_type == NU_SLEEP_SUSPEND)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1798 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1799 _RTProf_TaskStatus(task,RT_TASK_SLEEPING);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1800 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1801 else if (suspend_type == NU_PURE_SUSPEND)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1802 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1803 _RTProf_TaskStatus(task,RT_TASK_SUSPENDED);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1804 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1805 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1806 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1807 _RTProf_TaskStatus(task,RT_TASK_WAITING);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1808 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1809 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1810
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1811 /* See if the suspending task is the current thread. (SPR152) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1812 if (task == (TC_TCB *) TCD_Current_Thread)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1813
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1814 /* Leave the task, transfer control to the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1815 TCT_Control_To_System();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1816
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1817 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1818 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1819 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1820
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1821 /* Check for a pure suspension request. If present, the delayed
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1822 suspension flag is set. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1823 if (suspend_type == NU_PURE_SUSPEND)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1824
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1825 /* Setup the delayed suspension flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1826 task -> tc_delayed_suspend = NU_TRUE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1827 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1828 _RTProf_DumpTask(task,RT_PROF_SUSPEND_TASK);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1829 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1830
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1831 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1832 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1833
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1834
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1835 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1836 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1837 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1838 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1839 /* TCC_Suspend_Service */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1840 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1841 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1842 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1843 /* This function provides a suitable interface to the actual */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1844 /* service to suspend a task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1845 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1846 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1847 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1848 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1849 /* TCCE_Suspend_Service Error checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1850 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1851 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1852 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1853 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1854 /* TCC_Suspend_Task Suspend a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1855 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1856 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1857 /* TCT_Unprotect Release system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1858 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1859 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1860 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1861 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1862 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1863 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1864 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1865 /* NU_SUCCESS Always a successful status */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1866 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1867 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1868 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1869 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1870 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1871 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1872 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1873 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1874 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1875 /* added system protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1876 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1877 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1878 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1879 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1880 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1881 STATUS TCC_Suspend_Service(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1882 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1883
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1884 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1885
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1886 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1887 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1888
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1889 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1890
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1891 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1892 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1893
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1894 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1895
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1896 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1897
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1898 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1899 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1900 HIC_Make_History_Entry(NU_SUSPEND_TASK_ID, (UNSIGNED) task_ptr,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1901 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1902
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1903 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1904
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1905
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1906 /* Protect system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1907 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1908
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1909 /* Call the actual routine to suspend the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1910 TCC_Suspend_Task(task_ptr, NU_PURE_SUSPEND, NU_NULL, NU_NULL, NU_SUSPEND);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1911
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1912 /* Release system protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1913 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1914
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1915 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1916 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1917
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1918 /* Always return a successful status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1919 return(NU_SUCCESS);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1920 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1921
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1922
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1923 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1924 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1925 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1926 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1927 /* TCC_Task_Timeout */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1928 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1929 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1930 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1931 /* This function processes task suspension timeout conditions. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1932 /* Note that task sleep requests are also considered a timeout */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1933 /* condition. This routine must be called from Supervisor mode in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1934 /* a Supervisor/User mode switching kernel. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1935 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1936 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1937 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1938 /* TMC_Timer_Task Timer expiration task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1939 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1940 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1941 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1942 /* Caller's cleanup function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1943 /* TCC_Resume_Task Resume a suspended task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1944 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1945 /* TCT_Protect Protect scheduling list */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1946 /* TCT_Set_Current_Protect Setup current protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1947 /* TCT_Unprotect Release protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1948 /* TCT_Unprotect_Specific Release specific protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1949 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1950 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1951 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1952 /* task_ptr Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1953 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1954 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1955 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1956 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1957 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1958 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1959 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1960 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1961 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1962 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1963 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1964 /* 02-01-1994 Added logic to clear the timer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1965 /* active flag when the target */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1966 /* task is already in a ready */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1967 /* state, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1968 /* version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1969 /* 02-01-1994 Verified version 1.0f */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1970 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1971 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1972 /* removed logic for timeout */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1973 /* before suspension because new */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1974 /* protection logic eliminates */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1975 /* the possibility, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1976 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1977 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1978 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1979 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1980 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1981 VOID TCC_Task_Timeout(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1982 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1983
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1984 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1985 TC_PROTECT suspend_protect; / Suspension protect ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1986 DATA_ELEMENT task_status; /* Task status variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1987
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1988
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1989
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1990 /* Move task control block pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1991 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1992
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1993
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1994 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1995
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1996 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1997 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1998
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1999 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2000
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2001 /* Protect system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2002 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2003
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2004 /* Pickup the suspension protection saved-off when the task was
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2005 suspended. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2006 suspend_protect = task -> tc_suspend_protect;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2007
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2008 /* Is a signal handler currently running? */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2009 if (task -> tc_signal_active)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2010
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2011 /* Use the saved status for current task status */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2012 task_status = task -> tc_saved_status;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2013 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2014
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2015 /* Just use the current task status */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2016 task_status = task -> tc_status;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2017
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2018 /* Release protection of the scheduling list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2019 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2020
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2021 /* Determine if there is a suspend protect. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2022 if (suspend_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2023
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2024 /* Protect the suspended protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2025 TCT_Protect(suspend_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2026
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2027 /* Now protect the system structures again. Note that the order the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2028 protections are made prevents deadlocks. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2029 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2030
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2031 /* Determine if the task is still suspended in the same manner. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2032 if ((task -> tc_status == task_status) \|\|
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2033 ((task -> tc_signal_active) && (task -> tc_saved_status == task_status)))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2034 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2035
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2036 /* Make sure that this timeout processing is still valid. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2037 if ((task -> tc_timer_active) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2038 (task -> tc_timer_control.tm_remaining_time == 0))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2039 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2040
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2041 /* Clear the timer active flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2042 task -> tc_timer_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2043
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2044 /* Call the cleanup function, if there is one. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2045 if (task -> tc_cleanup)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2046
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2047 /* Call cleanup function. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2048 (*(task -> tc_cleanup)) (task -> tc_cleanup_info);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2049
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2050 /* Resume the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2051 TCC_Resume_Task(task_ptr, task_status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2052 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2053 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2054
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2055 /* Determine if a suspend protection was in force. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2056 if (suspend_protect)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2057 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2058
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2059 /* Set the current protection to the suspend protect. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2060 TCT_Set_Current_Protect(suspend_protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2061 TCT_Unprotect_Specific(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2062 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2063
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2064 /* Release current protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2065 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2066 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2067
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2068
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2069 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2070 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2071 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2072 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2073 /* TCC_Task_Sleep */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2074 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2075 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2076 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2077 /* This function provides task sleep suspensions. Its primary */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2078 /* purpose is to interface with the actual task suspension function.*/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2079 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2080 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2081 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2082 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2083 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2084 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2085 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2086 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2087 /* TCC_Suspend_Task Suspend a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2088 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2089 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2090 /* TCT_Unprotect Release system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2091 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2092 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2093 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2094 /* ticks Number of timer ticks */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2095 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2096 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2097 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2098 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2099 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2100 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2101 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2102 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2103 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2104 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2105 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2106 /* 03-01-1994 Modified call to suspend the */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2107 /* calling task, resulting in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2108 /* version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2109 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2110 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2111 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2112 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2113 VOID TCC_Task_Sleep(UNSIGNED ticks)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2114 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2115
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2116 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2117
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2118 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2119 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2120
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2121 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2122
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2123 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2124 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2125
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2126 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2127
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2128 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2129
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2130 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2131 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2132 HIC_Make_History_Entry(NU_SLEEP_ID, (UNSIGNED) ticks,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2133 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2134
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2135 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2136
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2137
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2138 /* Protect system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2139 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2140
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2141 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2142 _RTProf_DumpTask((TC_TCB *)TCD_Current_Thread,RT_PROF_SLEEP);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2143 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2144
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2145 /* Call the actual routine to suspend the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2146 TCC_Suspend_Task((NU_TASK *) TCD_Current_Thread, NU_SLEEP_SUSPEND,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2147 NU_NULL, NU_NULL, ticks);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2148
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2149 /* Release system protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2150 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2151
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2152 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2153 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2154 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2155
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2156
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2157 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2158 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2159 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2160 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2161 /* TCC_Relinquish */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2162 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2163 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2164 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2165 /* This function moves the calling task to the end of other tasks */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2166 /* at the same priority level. The calling task does not execute */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2167 /* again until all the other tasks of the same priority get a */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2168 /* chance to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2169 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2170 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2171 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2172 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2173 /* TCCE_Relinquish Error checking shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2174 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2175 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2176 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2177 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2178 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2179 /* TCT_Control_To_System Transfer control to system */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2180 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2181 /* TCT_Set_Execute_Task Set TCD_Execute_Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2182 /* TCT_Unprotect Release protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2183 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2184 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2185 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2186 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2187 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2188 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2189 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2190 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2191 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2192 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2193 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2194 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2195 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2196 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2197 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2198 /* 03-01-1994 Modified protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2199 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2200 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2201 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2202 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2203 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2204 VOID TCC_Relinquish(VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2205 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2206
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2207 TC_TCB task; / Pointer to task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2208 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2209
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2210 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2211 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2212
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2213 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2214
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2215 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2216 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2217
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2218 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2219
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2220 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2221
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2222 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2223 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2224 HIC_Make_History_Entry(NU_RELINQUISH_ID, (UNSIGNED) 0,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2225 (UNSIGNED) 0, (UNSIGNED) 0);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2226
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2227 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2228
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2229 /* Protect against multiple access to the system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2230 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2231
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2232 /* Pickup the current thread and place it in the task pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2233 task = (TC_TCB *) TCD_Current_Thread;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2234
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2235 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2236 _RTProf_DumpTask(task,RT_PROF_RELINQUISH);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2237 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2238
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2239 /* Determine if another task is ready to run. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2240 if ((task -> tc_ready_next != task) \|\|
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2241 (task -> tc_priority != (DATA_ELEMENT) TCD_Highest_Priority))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2242 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2243
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2244 /* Move the executing task to the end of tasks having the same
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2245 priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2246 *(task -> tc_priority_head) = task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2247
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2248 /* Setup the next task to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2249 TCT_Set_Execute_Task(TCD_Priority_List[TCD_Highest_Priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2250
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2251 /* Transfer control back to the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2252 TCT_Control_To_System();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2253 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2254
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2255 /* Release protection of system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2256 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2257
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2258 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2259 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2260 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2261
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2262
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2263 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2264 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2265 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2266 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2267 /* TCC_Time_Slice */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2268 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2269 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2270 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2271 /* This function moves the specified task to the end of the other */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2272 /* tasks at the same priority level. If the specified task is no */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2273 /* longer ready, this request is ignored. This routine must be */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2274 /* called from Supervisor mode in a Supervisor/User mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2275 /* switching kernel. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2276 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2277 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2278 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2279 /* TMC_Timer_HISR Time-slice interrupt */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2280 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2281 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2282 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2283 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2284 /* TCT_Protect Protect the scheduling data */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2285 /* TCT_Set_Execute_Task Set TCD_Execute_Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2286 /* TCT_Unprotect Release protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2287 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2288 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2289 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2290 /* task Task control block pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2291 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2292 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2293 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2294 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2295 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2296 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2297 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2298 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2299 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2300 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2301 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2302 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2303 /* added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2304 /* slightly modified protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2305 /* logic, resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2306 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2307 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2308 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2309 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2310 VOID TCC_Time_Slice(NU_TASK *task_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2311 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2312
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2313 R1 TC_TCB task; / Task control block ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2314
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2315
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2316 /* Move input task control block pointer into internal pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2317 task = (TC_TCB *) task_ptr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2318
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2319
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2320 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2321
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2322 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2323 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2324
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2325 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2326
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2327 /* Protect against multiple access to the system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2328 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2329
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2330 /* Determine if another task is ready to run. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2331 if (((task -> tc_status == NU_READY) && (task -> tc_preemption)) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2332 ((task -> tc_ready_next != task) \|\|
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2333 (task -> tc_priority != (DATA_ELEMENT) TCD_Highest_Priority)))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2334 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2335
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2336 /* Move the executing task to the end of tasks having the same
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2337 priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2338 *(task -> tc_priority_head) = task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2339
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2340 /* Setup the next task to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2341 TCT_Set_Execute_Task(TCD_Priority_List[TCD_Highest_Priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2342
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2343 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2344
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2345 /* Release protection of the system structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2346 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2347 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2348
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2349
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2350 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2351 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2352 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2353 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2354 /* TCC_Current_Task_Pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2355 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2356 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2357 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2358 /* This function returns the pointer of the currently executing */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2359 /* task. If the current thread is not a task thread, a NU_NULL */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2360 /* is returned. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2361 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2362 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2363 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2364 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2365 /* Other Components */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2366 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2367 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2368 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2369 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2370 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2371 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2372 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2373 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2374 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2375 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2376 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2377 /* Task Pointer Active tasks pointer or */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2378 /* NU_NULL if not a task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2379 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2380 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2381 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2382 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2383 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2384 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2385 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2386 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2387 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2388 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2389 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2390 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2391 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2392 NU_TASK *TCC_Current_Task_Pointer(VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2393 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2394
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2395
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2396 /* Determine if a task thread is executing. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2397 if ((TCD_Current_Thread) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2398 (((TC_TCB *) TCD_Current_Thread) -> tc_id == TC_TASK_ID))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2399
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2400 /* Task thread is running, return the pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2401 return((NU_TASK *) TCD_Current_Thread);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2402 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2403
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2404 /* No, task thread is not running, return a NU_NULL. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2405 return(NU_NULL);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2406 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2407
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2408
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2409 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2410 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2411 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2412 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2413 /* TCC_Current_HISR_Pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2414 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2415 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2416 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2417 /* This function returns the pointer of the currently executing */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2418 /* HISR. If the current thread is not a HISR thread, a NU_NULL */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2419 /* is returned. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2420 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2421 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2422 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2423 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2424 /* Other Components */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2425 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2426 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2427 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2428 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2429 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2430 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2431 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2432 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2433 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2434 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2435 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2436 /* HISR Pointer Active HISR pointer or */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2437 /* NU_NULL if not a HISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2438 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2439 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2440 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2441 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2442 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2443 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2444 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2445 /* 03-01-1994 Modified function interface, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2446 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2447 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2448 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2449 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2450 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2451 NU_HISR *TCC_Current_HISR_Pointer(VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2452 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2453
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2454
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2455 /* Determine if a HISR thread is executing. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2456 if ((TCD_Current_Thread) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2457 (((TC_HCB *) TCD_Current_Thread) -> tc_id == TC_HISR_ID))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2458
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2459 /* HISR thread is running, return the pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2460 return((NU_HISR *) TCD_Current_Thread);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2461 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2462
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2463 /* No, HISR thread is not running, return a NU_NULL. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2464 return(NU_NULL);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2465 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2466
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2467
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2468 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2469 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2470 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2471 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2472 /* TCC_Task_Shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2473 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2474 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2475 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2476 /* This function is shell from which all application tasks are */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2477 /* initially executed. The shell causes the task to finish when */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2478 /* control is returned from the application task. Also, the shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2479 /* passes argc and argv arguments to the task's entry function. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2480 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2481 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2482 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2483 /* TCC_Control_To_Task Control to task routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2484 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2485 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2486 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2487 /* Task Entry Function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2488 /* TCC_Suspend_Task Suspend task when finished */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2489 /* TCT_Protect Protect system structures */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2490 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2491 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2492 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2493 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2494 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2495 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2496 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2497 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2498 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2499 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2500 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2501 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2502 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2503 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2504 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2505 /* 03-01-1994 Added protection logic prior to */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2506 /* suspending the task, resulting */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2507 /* in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2508 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2509 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2510 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2511 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2512 VOID TCC_Task_Shell(VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2513 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2514 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2515
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2516 /* Call the task's entry function with the argc and argv parameters
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2517 supplied during task creation or reset. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2518 (*(TCD_Execute_Task -> tc_entry)) (TCD_Execute_Task -> tc_argc,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2519 TCD_Execute_Task -> tc_argv);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2520
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2521 /* Switch to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2522 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2523
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2524 /* Protect system data structures. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2525 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2526
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2527 /* If the task returns, suspend it in a finished state. Note that
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2528 the task cannot execute again until it is reset. Therefore, this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2529 call never returns. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2530 TCC_Suspend_Task((NU_TASK *) TCD_Execute_Task, NU_FINISHED,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2531 NU_NULL, NU_NULL, NU_SUSPEND);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2532
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2533 /* Return to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2534 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2535 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2536
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2537
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2538 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2539 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2540 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2541 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2542 /* TCC_Signal_Shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2543 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2544 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2545 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2546 /* This function processes signals by calling the task supplied */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2547 /* signal handling function. When signal handling is completed, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2548 /* the task is placed in the appropriate state. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2549 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2550 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2551 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2552 /* TCC_Control_Signals Control task's signals */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2553 /* TCC_Register_Signal_Handler Register a signal handler */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2554 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2555 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2556 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2557 /* task's signal handling routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2558 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2559 /* TCT_Signal_Exit Signal handling exit routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2560 /* TCT_Protect Protect against other access */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2561 /* TCT_Set_Execute_Task Set TCD_Execute_Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2562 /* TCT_Unprotect Release protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2563 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2564 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2565 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2566 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2567 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2568 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2569 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2570 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2571 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2572 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2573 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2574 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2575 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2576 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2577 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2578 /* 03-01-1994 Added register optimizations, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2579 /* modified protection logic, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2580 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2581 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2582 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2583 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2584 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2585 VOID TCC_Signal_Shell(VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2586 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2587
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2588 R2 UNSIGNED signals; /* Signals to send to task */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2589 INT index; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2590 DATA_ELEMENT temp; /* Temporary variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2591 R1 TC_TCB task; / Task pointer */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2592
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2593
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2594 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2595
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2596 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2597 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2598
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2599 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2600
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2601 /* Point at the current task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2602 task = (TC_TCB *) TCD_Current_Thread;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2603
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2604 /* Protect against simultaneous access. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2605 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2606
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2607 /* Process while there are signals to handle. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2608 while (task -> tc_signals & task -> tc_enabled_signals)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2609 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2610
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2611 /* Pickup the signals and clear them. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2612 signals = task -> tc_signals;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2613 task -> tc_signals = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2614
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2615 /* Release protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2616 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2617
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2618 /* Call the application signal handling function, if there still is
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2619 one. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2620 if (task -> tc_signal_handler)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2621 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2622 NU_SUPERV_USER_VARIABLES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2623
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2624 #if (defined(NU_SUPERV_USER_MODE)) && (NU_SUPERV_USER_MODE > 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2625 UNSIGNED savedMode = task->tc_su_mode;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2626 task->tc_su_mode = 1; /* Force transition to User mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2627 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2628 /* Switch to user mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2629 NU_USER_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2630
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2631 /* Call signal handler. (always in User mode) */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2632 (*(task -> tc_signal_handler))(signals);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2633
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2634 /* Return to supervisor mode */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2635 NU_SUPERVISOR_MODE();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2636
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2637 #if (defined(NU_SUPERV_USER_MODE)) && (NU_SUPERV_USER_MODE > 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2638 task->tc_su_mode = savedMode; /* Restore original nesting count */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2639 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2640 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2641
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2642 /* Protect against simultaneous access again. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2643 TCT_Protect(&TCD_System_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2644 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2645
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2646 /* At this point, signals have been exhausted and protection is in
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2647 force. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2648
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2649 /* Clear the signal in process flag. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2650 task -> tc_signal_active = NU_FALSE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2651
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2652 /* Determine how the signal handler was called. Either in a solicited or
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2653 an unsolicited manner. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2654 if (task -> tc_saved_stack_ptr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2655 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2656
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2657 /* Determine if the saved status still indicates that the task should
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2658 be suspended. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2659 if (task -> tc_saved_status != NU_READY)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2660 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2661
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2662 /* Suspend the task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2663 task -> tc_status = task -> tc_saved_status;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2664
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2665 /* Remove the task from the ready list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2666
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2667 /* Determine if the task is the only one on the list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2668 if (task -> tc_ready_next == task)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2669 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2670
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2671 /* Only task on the list. Clear the task's pointers and
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2672 clear the entry in the priority table. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2673 task -> tc_ready_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2674 task -> tc_ready_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2675 *(task -> tc_priority_head) = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2676
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2677 /* Clear the sub-priority group. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2678 *(task -> tc_sub_priority_ptr) =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2679 (*(task -> tc_sub_priority_ptr)) & ~(task -> tc_sub_priority);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2680
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2681 /* Determine if the main priority group needs to be cleared.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2682 This is only true if there are no other bits set in this
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2683 sub-priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2684 if (*(task -> tc_sub_priority_ptr) == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2685
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2686 /* Clear the main priority group bit. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2687 TCD_Priority_Groups =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2688 TCD_Priority_Groups & ~(task -> tc_priority_group);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2689
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2690 /* Determine if this priority group was the highest in the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2691 system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2692 if (task -> tc_priority == (DATA_ELEMENT) TCD_Highest_Priority)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2693 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2694
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2695 /* Determine the highest priority task in the system. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2696 if (TCD_Priority_Groups == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2697 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2698
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2699 /* Re-initialize the highest priority variable and
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2700 clear the current task pointer. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2701 TCD_Highest_Priority = TC_PRIORITIES;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2702 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2703 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2704 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2705
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2706 /* Find the next highest priority task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2707 if (TCD_Priority_Groups & TC_HIGHEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2708
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2709 /* Base of sub-group is 0. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2710 index = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2711
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2712 else if (TCD_Priority_Groups & TC_NEXT_HIGHEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2713
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2714 /* Base of sub-group is 8. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2715 index = 8;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2716
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2717 else if (TCD_Priority_Groups & TC_NEXT_LOWEST_MASK)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2718
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2719 /* Base of sub-group is 16. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2720 index = 16;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2721 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2722
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2723 /* Base of sub-group is 24. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2724 index = 24;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2725
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2726 /* Calculate the highest available priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2727 index = index + TCD_Lowest_Set_Bit[(INT)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2728 ((TCD_Priority_Groups >> index) & TC_HIGHEST_MASK)];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2729
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2730 /* Get the mask of the priority within the group of
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2731 8 priorities. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2732 temp = TCD_Sub_Priority_Groups[index];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2733
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2734 /* Calculate the actual priority. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2735 TCD_Highest_Priority =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2736 (index << 3) + TCD_Lowest_Set_Bit[temp];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2737 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2738 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2739 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2740 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2741 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2742
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2743 /* Not the only task ready at the same priority level. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2744
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2745 /* Remove from the linked-list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2746 (task -> tc_ready_previous) -> tc_ready_next =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2747 task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2748 (task -> tc_ready_next) -> tc_ready_previous =
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2749 task -> tc_ready_previous;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2750
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2751 /* See if the task being suspended is the current. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2752 if (*(task -> tc_priority_head) == task)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2753
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2754 /* Update the head of this priority list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2755 *(task -> tc_priority_head) = task -> tc_ready_next;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2756
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2757 /* Clear the task's pointers. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2758 task -> tc_ready_next = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2759 task -> tc_ready_previous = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2760 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2761
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2762 /* Determine the next task to execute. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2763 if (TCD_Highest_Priority < TC_PRIORITIES)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2764
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2765 /* Put the next task to execute in TCD_Execute_Task. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2766 TCT_Set_Execute_Task(TCD_Priority_List[TCD_Highest_Priority]);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2767 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2768
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2769 /* No other task is ready for execution. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2770 TCT_Set_Execute_Task(NU_NULL);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2771 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2772
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2773 /* At this point, just exit back to the system. Note that the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2774 signal exit routine clears the scheduling protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2775 TCT_Signal_Exit();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2776 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2777
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2778 /* A signal handler was called from the current task. Nothing needs
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2779 to be done except to release protection. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2780 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2781 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2782
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2783
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2784 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2785 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2786 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2787 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2788 /* TCC_Dispatch_LISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2789 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2790 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2791 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2792 /* This function dispatches the LISR associated with the specified */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2793 /* interrupt vector. Note that this function is called during */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2794 /* the interrupt thread. This routine must be called from */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2795 /* Supervisor mode in a Supervisor/User mode switching kernel. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2796 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2797 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2798 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2799 /* INT_Interrupt_Shell Shell of interrupt routine */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2800 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2801 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2802 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2803 /* application LISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2804 /* ERC_System_Error Unhandled interrupt error */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2805 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2806 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2807 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2808 /* vector Vector number of interrupt */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2809 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2810 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2811 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2812 /* None */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2813 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2814 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2815 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2816 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2817 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2818 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2819 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2820 /* 11-01-1993 Added logic to save unhandled */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2821 /* interrupt vector number in */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2822 /* a global variable, resulting */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2823 /* in version 1.0e */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2824 /* 11-01-1993 Verified version 1.0e */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2825 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2826 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2827 VOID TCC_Dispatch_LISR(INT vector)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2828 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2829
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2830 INT index; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2831
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2832
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2833 /* Determine if the specified vector has an LISR registered to it. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2834 index = (INT) TCD_Registered_LISRs[vector];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2835 if (index <= NU_MAX_LISRS)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2836 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2837 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2838 _RTProf_Dispatch_LISR_No_INT_Lock(vector);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2839 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2840
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2841 /* Yes, an LISR is associated with this vector. Call the actual
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2842 registered LISR routine. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2843 (*(TCD_LISR_Pointers[index])) (vector);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2844 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2845 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2846 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2847
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2848 /* Save interrupt vector number in TCD_Unhandled_Interrupt. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2849 TCD_Unhandled_Interrupt = vector;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2850
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2851 /* System error, unhandled interrupt. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2852 ERC_System_Error(NU_UNHANDLED_INTERRUPT);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2853 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2854 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2855
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2856
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2857 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2858 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2859 /* FUNCTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2860 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2861 /* TCC_Register_LISR */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2862 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2863 /* DESCRIPTION */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2864 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2865 /* This function registers the supplied LISR with the supplied */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2866 /* vector number. If the supplied LISR is NU_NULL, the supplied */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2867 /* vector is de-registered. The previously registered LISR is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2868 /* returned to the caller, along with the completion status. This */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2869 /* routine must be called from Supervisor mode in a Supervisor/ */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2870 /* User mode switching kernel. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2871 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2872 /* CALLED BY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2873 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2874 /* Application */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2875 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2876 /* CALLS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2877 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2878 /* [HIC_Make_History_Entry] Make entry in history log */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2879 /* INT_Retrieve_Shell Retrieve vector shell pointer*/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2880 /* INT_Setup_Vector Setup the actual vector */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2881 /* INT_Vectors_Loaded Determine if interrupt shell */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2882 /* routines are loaded */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2883 /* [TCT_Check_Stack] Stack checking function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2884 /* TCT_Protect Protect LISR registration */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2885 /* TCT_Unprotect Release LISR protection */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2886 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2887 /* INPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2888 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2889 /* vector Vector number of interrupt */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2890 /* new_lisr New LISR function */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2891 /* old_lisr Previous LISR function ptr */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2892 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2893 /* OUTPUTS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2894 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2895 /* NU_SUCCESS Successful registration */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2896 /* NU_INVALID_VECTOR Invalid interrupt vector */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2897 /* NU_NO_MORE_LISRS LISR registration table is */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2898 /* full */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2899 /* NU_NOT_REGISTERED LISR was not registered */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2900 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2901 /* HISTORY */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2902 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2903 /* DATE REMARKS */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2904 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2905 /* 03-01-1993 Created initial version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2906 /* 04-19-1993 Verified version 1.0 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2907 /* 03-01-1994 Added appropriate casting, */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2908 /* resulting in version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2909 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2910 /* 03-18-1994 Verified version 1.1 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2911 /* */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2912 /*************************************************************************/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2913 STATUS TCC_Register_LISR(INT vector, VOID (*new_lisr)(INT),
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2914 VOID (**old_lisr)(INT))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2915 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2916
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2917 INT index; /* Working index variable */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2918 STATUS status; /* Completion status */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2919
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2920
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2921 #ifdef NU_ENABLE_STACK_CHECK
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2922
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2923 /* Call stack checking function to check for an overflow condition. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2924 TCT_Check_Stack();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2925
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2926 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2927
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2928 #ifdef NU_ENABLE_HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2929
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2930 /* Make an entry that corresponds to this function in the system history
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2931 log. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2932 HIC_Make_History_Entry(NU_REGISTER_LISR_ID, (UNSIGNED) vector,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2933 (UNSIGNED) new_lisr, (UNSIGNED) old_lisr);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2934
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2935 #endif
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2936
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2937 /* Determine if the vector is legal. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2938 if (vector > NU_MAX_VECTORS)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2939 return(NU_INVALID_VECTOR);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2940
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2941 /* Initialize the completion status to successful. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2942 status = NU_SUCCESS;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2943
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2944 /* Protect against LISR registration list access. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2945 TCT_Protect(&TCD_LISR_Protect);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2946
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2947 /* Determine if a registration or deregistration is requested. This is
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2948 determined by the value of new_lisr. A NULL value indicates
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2949 deregistration. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2950 if (new_lisr)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2951 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2952
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2953 /* Register the new LISR. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2954
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2955 /* Determine if the vector already has a registration. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2956 if (TCD_Registered_LISRs[vector])
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2957 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2958
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2959 /* Yes, a registration exists. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2960
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2961 /* Pickup the index into the LISR pointer list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2962 index = (INT) TCD_Registered_LISRs[vector];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2963
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2964 /* Temporarily indicate that the LISR is not registered. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2965 TCD_Registered_LISRs[vector] = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2966
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2967 /* Copy the currently registered LISR into the old_lisr return
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2968 area. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2969 *old_lisr = TCD_LISR_Pointers[index];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2970
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2971 /* Place the new LISR into the list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2972 TCD_LISR_Pointers[index] = new_lisr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2973
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2974 /* Indicate the LISR is registered again. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2975 TCD_Registered_LISRs[vector] = (UNSIGNED_CHAR) index;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2976 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2977 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2978 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2979
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2980 /* An empty slot needs to be found in the LISR pointers list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2981
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2982 index = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2983 while ((index <= NU_MAX_LISRS) &&
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2984 (TCD_LISR_Pointers[index] != NU_NULL))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2985 index++;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2986
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2987 /* Determine if an empty slot was found. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2988 if (index <= NU_MAX_LISRS)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2989 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2990
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2991 /* Yes, an empty slot was found. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2992
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2993 /* Place the new LISR in the LISR pointers list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2994 TCD_LISR_Pointers[index] = new_lisr;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2995
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2996 /* Associate the index into the pointers list to the actual
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2997 vector. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2998 TCD_Registered_LISRs[vector] = (UNSIGNED_CHAR) index;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2999
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3000 /* Indicate that there was no previous LISR registered. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3001 *old_lisr = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3002
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3003 /* Determine if the actual vector needs to be stolen. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3004 if (!INT_Vectors_Loaded())
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3005
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3006 /* Actual vector needs to be replaced with the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3007 appropriate ISR shell. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3008 INT_Setup_Vector(vector, INT_Retrieve_Shell(vector));
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3009 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3010 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3011
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3012 /* Return the completion status that indicates that there
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3013 is no more room in the LISR pointers list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3014 status = NU_NO_MORE_LISRS;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3015 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3016 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3017 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3018 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3019
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3020 /* De-register the specified vector. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3021
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3022 /* Determine if the vector has a registration current. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3023 if (TCD_Registered_LISRs[vector])
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3024 {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3025
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3026 /* Pickup the index into the LISR pointer list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3027 index = (INT) TCD_Registered_LISRs[vector];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3028
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3029 /* Clear the registration table. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3030 TCD_Registered_LISRs[vector] = 0;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3031
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3032 /* Return the previously registered LISR. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3033 *old_lisr = TCD_LISR_Pointers[index];
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3034
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3035 /* Clear the LISR pointer list entry. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3036 TCD_LISR_Pointers[index] = NU_NULL;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3037 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3038 else
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3039
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3040 /* The vector is not registered. Return an error completion
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3041 status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3042 status = NU_NOT_REGISTERED;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3043 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3044
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3045 #ifdef INCLUDE_PROVIEW
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3046 _RTProf_RegisterLisr(vector);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3047 #endif /INCLUDE_PROVIEW/
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3048
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3049 /* Release protection on the LISR registration list. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3050 TCT_Unprotect();
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3051
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3052 /* Return the completion status. */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3053 return(status);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3054 }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3055
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3056
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3057
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3058
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3059
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3060

FreeCalypso > hg > freecalypso-sw

annotate nuc-fw/nucleus/tcc.c @ 84:ccc5161848c7