blob: 7292903580ca96d6cffd00f91d3333012d8ce04c (
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
type
P_fpreg = ^_fpreg;
_fpreg = record
significand : array[0..3] of word;
exponent : word;
end;
P_fpxreg = ^_fpxreg;
_fpxreg = record
significand : array[0..3] of word;
exponent : word;
padding : array[0..2] of word;
end;
P_xmmreg = ^_xmmreg;
_xmmreg = record
element : array[0..3] of dword;
end;
P_fpstate = ^_fpstate;
_fpstate = record
cw : dword;
sw : dword;
tag : dword;
ipoff : dword;
cssel : dword;
dataoff : dword;
datasel : dword;
_st : array[0..7] of _fpreg;
status : word;
magic : word;
_fxsr_env : array[0..5] of dword;
mxcsr : dword;
reserved : dword;
_fxsr_st : array[0..7] of _fpxreg;
_xmm : array[0..7] of _xmmreg;
padding : array[0..55] of dword;
end;
const
X86_FXSR_MAGIC = $0000;
type
Psigcontext = ^sigcontext;
sigcontext = record
gs : word;
__gsh : word;
fs : word;
__fsh : word;
es : word;
__esh : word;
ds : word;
__dsh : word;
edi : dword;
esi : dword;
ebp : dword;
esp : dword;
ebx : dword;
edx : dword;
ecx : dword;
eax : dword;
trapno : dword;
err : dword;
eip : dword;
cs : word;
__csh : word;
eflags : dword;
esp_at_signal : dword;
ss : word;
__ssh : word;
fpstate : P_fpstate;
oldmask : dword;
cr2 : dword;
end;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
TFPreg = _fpreg;
PFPreg = ^TFPreg;
TFPstate = _fpstate;
PFPstate = ^TFPstate;
TSigContext = sigcontext;
|
