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
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Pierre Muller,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
type
{ REMARK: floating point regs are defined as arrays of
3 longints; I don't know if C does align this to
16 byte boundaries for each element of the array PM }
{ If C does we might need to define this as
array from 0 to 3 }
tfpreg = array[0..2] of longint;
pfpstate = ^tfpstate;
tfpstate = record
pcr,psr,fpiaddr : longint;
fpreg : array [0..7] of tfpreg;
end;
{ as defined in asm_m68k/signal.h }
Stack_T = Record
ss_sp : pointer;
ss_flags : longint;
ss_size : size_t;
end;
{ SigContextRec corresponds to the ucontext record
in linux asm-m68k/ucontext.h include file }
PSigContext = ^TSigContext;
TSigContext = record
uc_flags : cardinal;
uc_link : pSigContext;
uc_stack : stack_t; { what's that ?? }
{ fields from 'version' to 'pc'
correspond to the mcontext struct in asm-m68k/ucontext.h file }
version : longint; { SigContext version check }
{ 18 general registers }
d0,d1,d2,d3,d4,d5,d6,d7 : cardinal;
a0,a1,a2,a3,a4,a5 : cardinal;
fp,sp,ps,pc : cardinal;
{ fields from 'pcr' to 'fpreg'
are floating point part }
pcr,psr,fpiaddr : longint;
fpreg : array[0..7] of tfpreg; { how is this aligned ?? }
filler : array[0..79] of cardinal;
sigmask : TSigSet;
end;
|
