270 lines
10 KiB
C
270 lines
10 KiB
C
|
/*
|
||
|
|
* (c) Copyright 1990-1996 OPEN SOFTWARE FOUNDATION, INC.
|
||
|
|
* (c) Copyright 1990-1996 HEWLETT-PACKARD COMPANY
|
||
|
|
* (c) Copyright 1990-1996 DIGITAL EQUIPMENT CORPORATION
|
||
|
|
* (c) Copyright 1991, 1992 Siemens-Nixdorf Information Systems
|
||
|
|
* To anyone who acknowledges that this file is provided "AS IS" without
|
||
|
|
* any express or implied warranty: permission to use, copy, modify, and
|
||
|
|
* distribute this file for any purpose is hereby granted without fee,
|
||
|
|
* provided that the above copyright notices and this notice appears in
|
||
|
|
* all source code copies, and that none of the names listed above be used
|
||
|
|
* in advertising or publicity pertaining to distribution of the software
|
||
|
|
* without specific, written prior permission. None of these organizations
|
||
|
|
* makes any representations about the suitability of this software for
|
||
|
|
* any purpose.
|
||
|
|
*/
|
||
|
|
/*
|
||
|
|
* TCB-related type definitions.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef CMA_TCB_DEFS
|
||
|
|
#define CMA_TCB_DEFS
|
||
|
|
|
||
|
|
/*
|
||
|
|
* INCLUDE FILES
|
||
|
|
*/
|
||
|
|
# if !_CMA_THREAD_SYNC_IO_
|
||
|
|
# include <cma_thread_io.h>
|
||
|
|
# endif
|
||
|
|
#include <cma.h>
|
||
|
|
#include <cma_debug_client.h>
|
||
|
|
#include <cma_attr.h>
|
||
|
|
#include <cma_defs.h>
|
||
|
|
#include <cma_handle.h>
|
||
|
|
#include <cma_queue.h>
|
||
|
|
#if _CMA_OS_ == _CMA__UNIX
|
||
|
|
# if defined(SNI_DCOSX)
|
||
|
|
# include <sys/ucontext.h>
|
||
|
|
# endif
|
||
|
|
# include <signal.h>
|
||
|
|
#endif
|
||
|
|
#include <cma_sched.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
* CONSTANTS AND MACROS
|
||
|
|
*/
|
||
|
|
|
||
|
|
#if _CMA_PLATFORM_ == _CMA__IBMR2_UNIX
|
||
|
|
# define cma__c_ibmr2_ctx_stack_size 2048
|
||
|
|
# define cma__c_ibmr2_ctx_stack_top (cma__c_ibmr2_ctx_stack_size - 1)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/*
|
||
|
|
* TYPEDEFS
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef __STDC__
|
||
|
|
# if _CMA_HARDWARE_ != _CMA__HPPA
|
||
|
|
struct CMA__T_SEMAPHORE;
|
||
|
|
# endif
|
||
|
|
struct CMA__T_INT_CV;
|
||
|
|
struct CMA__T_INT_MUTEX;
|
||
|
|
struct CMA__T_INT_TCB;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
typedef cma_t_address *cma__t_context_list;
|
||
|
|
|
||
|
|
typedef struct CMA__T_TCB_PAD {
|
||
|
|
/*
|
||
|
|
* Adjust to align the tcb prolog at byte 32.
|
||
|
|
* 12 bytes are required as object header is currently
|
||
|
|
* 20 bytes long.
|
||
|
|
*/
|
||
|
|
cma_t_integer pad1; /* pad bytes */
|
||
|
|
cma_t_integer pad2; /* pad bytes */
|
||
|
|
cma_t_integer pad3; /* pad bytes */
|
||
|
|
} cma__t_tcb_pad;
|
||
|
|
|
||
|
|
#if (_CMA_OS_ == _CMA__UNIX) && !_CMA_THREAD_SYNC_IO_
|
||
|
|
typedef struct CMA__T_TCB_SELECT {
|
||
|
|
cma__t_queue queue;
|
||
|
|
#if (_CMA_UNIX_TYPE != _CMA__SVR4)
|
||
|
|
cma__t_file_mask *rfds;
|
||
|
|
cma__t_file_mask *wfds;
|
||
|
|
cma__t_file_mask *efds;
|
||
|
|
#else
|
||
|
|
cma__t_poll_info poll_info;
|
||
|
|
#endif /* (_CMA_UNIX_TYPE != _CMA__SVR4) */
|
||
|
|
cma_t_integer nfound;
|
||
|
|
} cma__t_tcb_select;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
typedef struct CMA__T_TCB_TIME {
|
||
|
|
cma__t_queue queue; /* must be first entry! */
|
||
|
|
cma_t_integer mode;
|
||
|
|
struct CMA__T_SEMAPHORE *semaphore; /* used for timed semaphores */
|
||
|
|
cma_t_date_time wakeup_time;
|
||
|
|
cma_t_integer quanta_remaining;
|
||
|
|
} cma__t_tcb_time;
|
||
|
|
|
||
|
|
typedef enum CMA__T_DEBEVT {
|
||
|
|
cma__c_debevt_activating = 1, /* First transition to running */
|
||
|
|
cma__c_debevt_running = 2, /* Any transition to running */
|
||
|
|
cma__c_debevt_preempting = 3, /* Preemted (replaced) another thread */
|
||
|
|
cma__c_debevt_blocking = 4, /* Any transition to blocked */
|
||
|
|
cma__c_debevt_terminating = 5, /* Final state transition */
|
||
|
|
cma__c_debevt_term_alert = 6, /* Terminated due to alert/cancel */
|
||
|
|
cma__c_debevt_term_exc = 7, /* Terminated due to exception */
|
||
|
|
cma__c_debevt_exc_handled = 8 /* Exception is being handled */
|
||
|
|
} cma__t_debevt;
|
||
|
|
|
||
|
|
#define cma__c_debevt__first ((cma_t_integer)cma__c_debevt_activating)
|
||
|
|
#define cma__c_debevt__last ((cma_t_integer)cma__c_debevt_exc_handled)
|
||
|
|
#define cma__c_debevt__dim (cma__c_debevt__last + 1)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Type defining thread substate, which is used by the debugger.
|
||
|
|
* If the state is blocked, substate indicates WHY the thread is blocked.
|
||
|
|
*/
|
||
|
|
typedef enum CMA__T_SUBSTATE {
|
||
|
|
cma__c_substa_normal = 0,
|
||
|
|
cma__c_substa_mutex = 1,
|
||
|
|
cma__c_substa_cv = 2,
|
||
|
|
cma__c_substa_timed_cv = 3,
|
||
|
|
cma__c_substa_term_alt = 4,
|
||
|
|
cma__c_substa_term_exc = 5,
|
||
|
|
cma__c_substa_delay =6,
|
||
|
|
cma__c_substa_not_yet_run = 7
|
||
|
|
} cma__t_substate;
|
||
|
|
#define cma__c_substa__first ((cma_t_integer)cma__c_substa_normal)
|
||
|
|
#define cma__c_substa__last ((cma_t_integer)cma__c_substa_not_yet_run)
|
||
|
|
#define cma__c_substa__dim (cma__c_substa__last + 1)
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Per-thread state for the debugger
|
||
|
|
*/
|
||
|
|
typedef struct CMA__T_TCB_DEBUG {
|
||
|
|
cma_t_boolean on_hold; /* Thread was put on hold by debugger */
|
||
|
|
cma_t_boolean activated; /* Activation event was reported */
|
||
|
|
cma_t_boolean did_preempt; /* Thread preempted prior one */
|
||
|
|
cma_t_address start_pc; /* Start routine address */
|
||
|
|
cma_t_address object_addr; /* Addr of thread object */
|
||
|
|
cma__t_substate substate; /* Reason blocked, terminated, etc.*/
|
||
|
|
cma_t_boolean notify_debugger;/* Notify debugger thread is running */
|
||
|
|
cma_t_address SPARE2; /* SPARE */
|
||
|
|
cma_t_address SPARE3; /* SPARE */
|
||
|
|
struct CMA__T_INT_TCB
|
||
|
|
*preempted_tcb; /* TCB of thread that got preempted */
|
||
|
|
cma_t_boolean flags[cma__c_debevt__dim];
|
||
|
|
/* Events enabled for this thread */
|
||
|
|
} cma__t_tcb_debug;
|
||
|
|
|
||
|
|
typedef struct CMA__T_TCB_SCHED {
|
||
|
|
cma_t_integer adj_time; /* Abs. time in ticks of last prio adj */
|
||
|
|
cma_t_integer tot_time; /* Weighted ave in ticks (scaled) */
|
||
|
|
cma_t_integer time_stamp; /* Abs. time in ticks of last update */
|
||
|
|
cma_t_integer cpu_time; /* Weighted average in ticks */
|
||
|
|
cma_t_integer cpu_ticks; /* # of ticks while comp. (scaled) */
|
||
|
|
cma_t_integer q_num; /* Number of last ready queue on */
|
||
|
|
cma_t_priority priority; /* Thread priority */
|
||
|
|
cma_t_sched_policy policy; /* Scheduling policy of thread */
|
||
|
|
cma_t_boolean rtb; /* "Run 'Till Block" scheduling */
|
||
|
|
cma_t_boolean spp; /* "Strict Priority Preemption" sched */
|
||
|
|
cma_t_boolean fixed_prio; /* Fixed priority */
|
||
|
|
cma__t_sched_class class; /* Scheduling class */
|
||
|
|
struct CMA__T_VP *processor; /* Current processor (if running) */
|
||
|
|
} cma__t_tcb_sched;
|
||
|
|
|
||
|
|
typedef struct CMA__T_INT_ALERT {
|
||
|
|
cma_t_boolean pending : 1; /* alert_pending bit */
|
||
|
|
cma_t_boolean g_enable : 1; /* general delivery state */
|
||
|
|
cma_t_boolean a_enable : 1; /* asynchronous delivery state */
|
||
|
|
cma_t_integer spare : 29; /* Pad to longword */
|
||
|
|
cma_t_natural count; /* Alert scope nesting count */
|
||
|
|
} cma__t_int_alert;
|
||
|
|
|
||
|
|
typedef enum CMA__T_STATE {
|
||
|
|
cma__c_state_running = 0, /* For consistency with initial TCB */
|
||
|
|
cma__c_state_ready = 1,
|
||
|
|
cma__c_state_blocked = 2,
|
||
|
|
cma__c_state_terminated = 3
|
||
|
|
} cma__t_state;
|
||
|
|
#define cma__c_state__first ((cma_t_integer)cma__c_state_running)
|
||
|
|
#define cma__c_state__last ((cma_t_integer)cma__c_state_terminated)
|
||
|
|
#define cma__c_state__dim (cma__c_state__last + 1)
|
||
|
|
|
||
|
|
typedef enum CMA__T_THKIND {
|
||
|
|
cma__c_thkind_initial = 0, /* Initial thread */
|
||
|
|
cma__c_thkind_normal = 1, /* Normal thread */
|
||
|
|
cma__c_thkind_null = 2 /* A null thread */
|
||
|
|
} cma__t_thkind;
|
||
|
|
#define cma__c_thkind__first ((cma_t_integer)cma__c_thkind_initial)
|
||
|
|
#define cma__c_thkind__last ((cma_t_integer)cma__c_thkind_null)
|
||
|
|
#define cma__c_thkind__dim (cma__c_thkind__last + 1)
|
||
|
|
|
||
|
|
typedef enum CMA__T_SYSCALL_STATE {
|
||
|
|
cma__c_syscall_ok = 1, /* syscall was not interrupted */
|
||
|
|
cma__c_syscall_intintrpt = 1, /* syscall was interrupted by VTALRM */
|
||
|
|
cma__c_syscall_extintrpt = 2 /* syscall was interrupted by external signal */
|
||
|
|
} cma__t_syscall_state;
|
||
|
|
|
||
|
|
|
||
|
|
typedef struct CMA__T_INT_TCB {
|
||
|
|
/*
|
||
|
|
* Fixed part of TCB.
|
||
|
|
* Modifications to the following three fields must be coordinated.
|
||
|
|
* The object header must always be first, and the prolog must always
|
||
|
|
* remain at the same offset (32) for all time. Thus the object header
|
||
|
|
* must never grow beyond a maximum of 32 bytes.
|
||
|
|
*/
|
||
|
|
cma__t_object header; /* Common object header */
|
||
|
|
cma__t_tcb_pad pad1; /* Pad required to align prolog */
|
||
|
|
cma_t_tcb_prolog prolog; /* Standard prolog for tasks, threads */
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Floating part of TCB (fields here on are free to be moved and resized).
|
||
|
|
*/
|
||
|
|
cma__t_queue threads; /* List of all known threads */
|
||
|
|
cma__t_int_attr *attributes; /* Backpointer to attr obj */
|
||
|
|
cma__t_state state; /* Current state of thread */
|
||
|
|
cma__t_thkind kind; /* Which kind of thread */
|
||
|
|
struct CMA__T_INT_MUTEX
|
||
|
|
*mutex; /* Mutex to control TCB access */
|
||
|
|
struct CMA__T_INT_CV
|
||
|
|
*term_cv; /* CV for join */
|
||
|
|
struct CMA__T_INT_MUTEX
|
||
|
|
*tswait_mutex; /* Mutex for thread-synchronous waits */
|
||
|
|
struct CMA__T_INT_CV
|
||
|
|
*tswait_cv; /* CV for thread-synchronous waits */
|
||
|
|
cma_t_start_routine start_code; /* Address of start routine */
|
||
|
|
cma_t_address start_arg; /* Argument to pass to start_code */
|
||
|
|
cma__t_queue stack; /* Queue header for stack descr. */
|
||
|
|
cma_t_natural context_count; /* Size of context array */
|
||
|
|
cma__t_context_list contexts; /* Context value array pointer */
|
||
|
|
cma_t_exit_status exit_status; /* Exit status of thread */
|
||
|
|
cma_t_address return_value; /* Thread's return value */
|
||
|
|
cma__t_async_ctx async_ctx; /* Asynchronous context switch info */
|
||
|
|
cma__t_static_ctx static_ctx; /* Static context switch information */
|
||
|
|
cma_t_integer event_status; /* Status of semaphore operation */
|
||
|
|
cma__t_tcb_time timer; /* Time info for dispatcher */
|
||
|
|
cma__t_tcb_sched sched; /* Scheduler info */
|
||
|
|
cma__t_tcb_debug debug; /* Debugger info */
|
||
|
|
#if _CMA_OS_ == _CMA__UNIX
|
||
|
|
# if !_CMA_THREAD_SYNC_IO_
|
||
|
|
cma__t_tcb_select select; /* Select info for timed selects */
|
||
|
|
# endif
|
||
|
|
struct sigaction sigaction_data[NSIG];
|
||
|
|
#endif
|
||
|
|
cma_t_natural syscall_state; /* set if one of the cma wrapped syscalls was interrupted. */
|
||
|
|
cma_t_boolean detached; /* Set if already detached */
|
||
|
|
cma_t_boolean terminated; /* Set if terminated */
|
||
|
|
cma_t_integer joiners; /* Count of joiners, for zombie frees */
|
||
|
|
cma__t_int_alert alert; /* Current alert state info */
|
||
|
|
struct CMA__T_INT_CV
|
||
|
|
*wait_cv; /* CV thread is currently waiting on */
|
||
|
|
struct CMA__T_INT_MUTEX
|
||
|
|
*wait_mutex; /* Mutex thread is waiting on */
|
||
|
|
struct EXC_CONTEXT_T
|
||
|
|
*exc_stack; /* Top of exception stack */
|
||
|
|
#if _CMA_PLATFORM_ == _CMA__IBMR2_UNIX
|
||
|
|
char ctx_stack[cma__c_ibmr2_ctx_stack_size];
|
||
|
|
#endif
|
||
|
|
cma_t_integer thd_errno; /* Per-thread errno value */
|
||
|
|
#if _CMA_OS_ == _CMA__VMS
|
||
|
|
cma_t_integer thd_vmserrno; /* Per-thread VMS errno value */
|
||
|
|
#endif
|
||
|
|
} cma__t_int_tcb;
|
||
|
|
|
||
|
|
#endif
|