blob: fbbf3cd2867eba121779a10be36f7965eb3ef2fb (
plain)
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
70
71
72
73
74
|
#include <stddef.h>
#define TP_ADJ(p) (p)
#define CANCEL_REG_IP 0x1F
extern uintptr_t __teb_sys_idx;
extern uintptr_t __teb_libc_idx;
struct __os_tib {
void * exception_list;
void * stack_base;
void * stack_limit;
};
static __inline__ void * __os_get_teb_address(void)
{
void * ptrRet;
__asm__ __volatile__ (
"mov %%gs:0x30, %0\n\t"
: "=r" (ptrRet) : :
);
return ptrRet;
}
static inline void __pthread_convert(void)
{
/* (third-party thread support) */
__asm__ __volatile__ (
"push %rax\n\t"
"movq __psx_vtbl,%rax\n\t"
"call *(%rax)\n\t"
"pop %rax\n\t"
);
}
static inline struct pthread ** __psx_tlca(void)
{
struct pthread ** ptlca;
struct __os_tib * tib;
void ** slots;
void *** xslots;
uintptr_t sys_idx;
tib = __os_get_teb_address();
sys_idx = __teb_sys_idx;
if (sys_idx < 64) {
slots = (void **)((uintptr_t)tib + 0x1480);
ptlca = (struct pthread **)(slots[sys_idx]);
} else {
xslots = (void ***)((uintptr_t)tib + 0x1780);
slots = *xslots;
ptlca = (struct pthread **)(slots[sys_idx - 64]);
}
return ptlca;
}
static inline struct pthread * __pthread_self(void)
{
struct pthread ** ptlca;
ptlca = __psx_tlca();
if (ptlca) return *ptlca;
/* (third-party thread) */
__pthread_convert();
ptlca = __psx_tlca();
return *ptlca;
}
|
