paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 05:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed timespec and mcontext_t types for AIX 64 bit

Browse Source 
* fixed a few more (harmless because in fields we don't use) errors in AIX
    mcontext_t definition

git-svn-id: trunk@20978 -
This commit is contained in:
Jonas Maebe 2012-04-22 10:40:46 +00:00
parent 743e58ed0f
commit 2ec79fd357
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/aix/ptypes.inc
View File

@ -146,7 +146,7 @@ Type
timespec = record
tv_sec : time_t;
tv_nsec : suseconds_t;
tv_nsec : clong;
end;
ptimespec = ^timespec;
TTimeSpec = timespec;

31
rtl/aix/sighndh.inc
View File

@ -78,7 +78,7 @@ type
end;
__vmxreg_t = record
__v: array[0..3] of cint;
__v: array[0..3] of cuint;
end;
__vmx_context = record
@ -96,13 +96,34 @@ type
__u1: record
__vmx: __vmx_context
end;
__ukeys: cuint;
__ukeys: array[0..1] of cuint;
__reserved: array[0..4096-sizeof(__vmx_context)-7*sizeof(cint)-1] of byte;
__extctx_magic: cint;
end;
{$ifdef cpu64}
__context64 = record
gpr: array[0..31] of culonglong;
msr: culonglong;
iar: culonglong;
lr: culonglong;
ctr: culonglong;
cr: cuint;
xer: cuint;
fpscr: cuint;
fpscrx: cuint;
except_: array[0..0] of culonglong;
fpr: array[0..31] of double;
fpeu: byte;
fpinfo: byte;
pad: array[0..1] of byte;
excp_type: cint;
end;
mcontext_t = __context64;
{$else}
mcontext_t = mstsave;
{$endif}
pucontext_t = ^tucontext_t;
PSigContext = pucontext_t;
@ -111,10 +132,10 @@ type
uc_sigmask: sigset_t;
__sc_uerror: cint;
uc_mcontext: mcontext_t;
uc_link: ^pucontext_t;
uc_link: pucontext_t;
uc_stack: stack_t;
__extctx: __extctx_t;
__extctx: p__extctx_t;
__extctx_magic: cint;
__pad: array[0..{$ifdef cpu64}1{$else}0{$endif}] of cint;
__pad: array[0..{$ifdef cpu64}0{$else}1{$endif}] of cint;
end;