1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/* This is a stub file to support single-threading.
* We need the following globals:
*
* 1) THREAD_PROTECT(varname)
* = a pseudo code NOT TERMINATED BY A SEMICOLON. After this point all
* code until a THREAD_UNPROTECT is executed by one thread at once.
* This may be done by a call to a semaphore action or something else.
* THREAD_PROTECT and THREAD_UNPROTECT define a C block logically.
* varname ist a variable created by PROTECTION_VAR()
* 2) THREAD_UNPROTECT(varname)
* = see above
* 3) PROTECTION_VAR(varname)
* = a pseudo code NOT TERMINATED BY A SEMICOLON. This define will
* create and initialize a local variable which may be used by
* THREAD_PROTECT and THREAD_UNPROTECT.
* Typical examples are the protection of static local variables.
* 4) GLOBAL_PROTECTION_VAR(varname)
* = a pseudo code NOT TERMINATED BY A SEMICOLON. This define will
* create and initialize a global variable which may be used by
* THREAD_PROTECT and THREAD_UNPROTECT.
* Typical examples are the usage of the parser or global variables
* like macro_serialno.
* 5) EXPORT_GLOBAL_PROTECTION_VAR(varname)
* = a pseudo code NOT TERMINATED BY A SEMICOLON. This define will
* export the varname in header files. There must exist one declaration
* of the variable done by GLOBAL_PROTECTION_VAR.
* 6) GLOBAL_ENTRY_POINT()
* = initializes the process specific data and the thread specific data.
* This pseudo function is only called by those functions which are
* external (rexxsaa.h).
* It should return (tsd_t *) of the current thread.
* 7) __regina_get_tsd()
* = pointer to a variable of type tsd_t.
* This may only exist after a GLOBAL_ENTRY_POINT()-call and must then
* exist.
*
*/
#ifndef MT_H_INCLUDED
# error This file should included by mt.h, only.
#endif
#define THREAD_PROTECT(varname) {
#define THREAD_UNPROTECT(varname) }
#define PROTECTION_VAR(varname)
#define EXPORT_GLOBAL_PROTECTION_VAR(varname)
#define GLOBAL_PROTECTION_VAR(varname)
tsd_t *ReginaInitializeProcess(void);
#define GLOBAL_ENTRY_POINT() ((__regina_tsd_initialized) ? &__regina_tsd : \
ReginaInitializeProcess() )
extern tsd_t __regina_tsd;
extern int __regina_tsd_initialized; /* We are single-threaded -> allowed! */
/* we need a pointer to tsd_t sometimes: */
#define __regina_get_tsd() (&__regina_tsd)
/* NEVER USE __regina_get_tsd() IF YOU CAN GET THE VALUE FROM SOMEWHERE ELSE.
* IT REDUCES THE EXECUTION SPEED SIGNIFICANTLY. TAKE THE VALUE FROM THE CALLER
* WHERE IT IS POSSIBLE.
*/
#ifdef TRACK_TSD_USAGE
tsd_t *__regina_WorkHeavy(void);
# undef __regina_get_tsd
# define __regina_get_tsd() __regina_WorkHeavy()
#endif
|
