source: libcfa/src/concurrency/kernel_private.hfa @ 2026bb6

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 2026bb6 was 2026bb6, checked in by Thierry Delisle <tdelisle@…>, 5 years ago

More robust fix for optionally linking threads

  • Property mode set to 100644
File size: 3.2 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// kernel_private.hfa --
8//
9// Author           : Thierry Delisle
10// Created On       : Mon Feb 13 12:27:26 2017
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Thu Mar 29 14:06:40 2018
13// Update Count     : 3
14//
15
16#pragma once
17
18#include "kernel.hfa"
19#include "thread.hfa"
20
21#include "alarm.hfa"
22
23
24//-----------------------------------------------------------------------------
25// Scheduler
26
27extern "C" {
28        void disable_interrupts() OPTIONAL_THREAD;
29        void enable_interrupts_noPoll();
30        void enable_interrupts( __cfaabi_dbg_ctx_param );
31}
32
33void ScheduleThread( thread_desc * );
34static inline void WakeThread( thread_desc * thrd ) {
35        if( !thrd ) return;
36
37        disable_interrupts();
38        ScheduleThread( thrd );
39        enable_interrupts( __cfaabi_dbg_ctx );
40}
41thread_desc * nextThread(cluster * this);
42
43//Block current thread and release/wake-up the following resources
44void BlockInternal(void);
45void BlockInternal(__spinlock_t * lock);
46void BlockInternal(thread_desc * thrd);
47void BlockInternal(__spinlock_t * lock, thread_desc * thrd);
48void BlockInternal(__spinlock_t * locks [], unsigned short count);
49void BlockInternal(__spinlock_t * locks [], unsigned short count, thread_desc * thrds [], unsigned short thrd_count);
50void BlockInternal(__finish_callback_fptr_t callback);
51void LeaveThread(__spinlock_t * lock, thread_desc * thrd);
52
53//-----------------------------------------------------------------------------
54// Processor
55void main(processorCtx_t *);
56
57static inline void wake_fast(processor * this) {
58        __cfaabi_dbg_print_safe("Kernel : Waking up processor %p\n", this);
59        post( this->idleLock );
60}
61
62static inline void wake(processor * this) {
63        disable_interrupts();
64        wake_fast(this);
65        enable_interrupts( __cfaabi_dbg_ctx );
66}
67
68struct event_kernel_t {
69        alarm_list_t alarms;
70        __spinlock_t lock;
71};
72
73extern event_kernel_t * event_kernel;
74
75struct __cfa_kernel_preemption_state_t {
76        bool enabled;
77        bool in_progress;
78        unsigned short disable_count;
79};
80
81extern volatile thread_local __cfa_kernel_preemption_state_t preemption_state __attribute__ ((tls_model ( "initial-exec" )));
82
83//-----------------------------------------------------------------------------
84// Threads
85extern "C" {
86      forall(dtype T | is_thread(T))
87      void CtxInvokeThread(T * this);
88}
89
90extern void ThreadCtxSwitch(coroutine_desc * src, coroutine_desc * dst);
91
92__cfaabi_dbg_debug_do(
93        extern void __cfaabi_dbg_thread_register  ( thread_desc * thrd );
94        extern void __cfaabi_dbg_thread_unregister( thread_desc * thrd );
95)
96
97//-----------------------------------------------------------------------------
98// Utils
99#define KERNEL_STORAGE(T,X) static char storage_##X[sizeof(T)]
100
101
102void doregister( struct cluster & cltr );
103void unregister( struct cluster & cltr );
104
105void doregister( struct cluster * cltr, struct thread_desc & thrd );
106void unregister( struct cluster * cltr, struct thread_desc & thrd );
107
108void doregister( struct cluster * cltr, struct processor * proc );
109void unregister( struct cluster * cltr, struct processor * proc );
110
111// Local Variables: //
112// mode: c //
113// tab-width: 4 //
114// End: //
Note: See TracBrowser for help on using the repository browser.