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

* Try to update i386/openbsd port

Browse Source 
git-svn-id: trunk@19350 -
This commit is contained in:
pierre 2011-10-03 23:22:28 +00:00
parent 7e87ca4c3c
commit 7f69e6426d
3 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/bsd/bunxsysc.inc
View File

@ -50,6 +50,7 @@ begin
FPsigsuspend:= do_syscall(syscall_nr_sigsuspend,TSysParam(@sigmask)); FPsigsuspend:= do_syscall(syscall_nr_sigsuspend,TSysParam(@sigmask));
end; end;
{$ifndef FPC_SYS_SIGTIMEDWAIT_UNAVAILABLE}
function fpsigtimedwait(const sigset:TSigSet;info:Psiginfo;timeout:Ptimespec):cint; function fpsigtimedwait(const sigset:TSigSet;info:Psiginfo;timeout:Ptimespec):cint;
begin begin
@ -58,6 +59,7 @@ begin
Tsysparam(info), Tsysparam(info),
Tsysparam(timeout)); Tsysparam(timeout));
end; end;
{$endif ndef FPC_SYS_SIGTIMEDWAIT_UNAVAILABLE}
Type // implementation side for now. Should move to BSD unit. Type // implementation side for now. Should move to BSD unit.

2
rtl/unix/bunxh.inc
View File

@ -24,7 +24,9 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpSigProcMask (how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK'; Function FpSigProcMask (how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
Function FpSigPending (var nset : TSigSet): cInt; Function FpSigPending (var nset : TSigSet): cInt;
Function FpSigSuspend (Const sigmask : TSigSet): cInt; Function FpSigSuspend (Const sigmask : TSigSet): cInt;
{$ifndef FPC_SYS_SIGTIMEDWAIT_UNAVAILABLE}
Function FpSigTimedWait (Const sigset : TSigSet; info : Psiginfo; timeout:Ptimespec): cInt; Function FpSigTimedWait (Const sigset : TSigSet; info : Psiginfo; timeout:Ptimespec): cInt;
{$endif ndef FPC_SYS_SIGTIMEDWAIT_UNAVAILABLE}
Function FpUmask (cmask : TMode): TMode; Function FpUmask (cmask : TMode): TMode;
Function FpLink (existing : pChar; newone : pChar): cInt; Function FpLink (existing : pChar; newone : pChar): cInt;

10
rtl/unix/ipc.pp
View File

@ -47,7 +47,7 @@ Type
Const Const
{ IPC flags for get calls } { IPC flags for get calls }
{$if defined(FreeBSD) or defined(NetBSD)} // BSD_VISIBLE {$if defined(FreeBSD) or defined(NetBSD) or defined(OpenBSD)} // BSD_VISIBLE
IPC_R = 4 shl 6; IPC_R = 4 shl 6;
IPC_W = 2 shl 6; IPC_W = 2 shl 6;
IPC_M = 2 shl 12; IPC_M = 2 shl 12;
@ -63,7 +63,7 @@ Const
IPC_EXCL = 2 shl 9; { fail if key exists } IPC_EXCL = 2 shl 9; { fail if key exists }
IPC_NOWAIT = 4 shl 9; { return error on wait } IPC_NOWAIT = 4 shl 9; { return error on wait }
{$if defined(FreeBSD) or defined(Darwin) or defined(Linux)} {$if defined(FreeBSD) or defined(Darwin) or defined(Linux) or defined(OpenBSD)}
IPC_PRIVATE : TKey = 0; IPC_PRIVATE : TKey = 0;
{$endif} {$endif}
@ -81,7 +81,7 @@ type
{$ifdef darwin} {$ifdef darwin}
{$packrecords 4} {$packrecords 4}
{$endif} {$endif}
{$if defined(FreeBSD) or defined(Darwin)} {$if defined(FreeBSD) or defined(Darwin) or defined(OpenBSD)}
TIPC_Perm = record TIPC_Perm = record
cuid : cushort; { creator user id } cuid : cushort; { creator user id }
cgid : cushort; { creator group id } cgid : cushort; { creator group id }
@ -146,7 +146,7 @@ Function ftok (Path : pchar; ID : cint) : TKey; {$ifdef FPC_USE_LIBC} cdecl; ex
Type Type
PShmid_DS = ^TShmid_ds; PShmid_DS = ^TShmid_ds;
{$ifdef FreeBSD} {$if defined(FreeBSD) or defined(OpenBSD)}
TShmid_ds = record TShmid_ds = record
shm_perm : TIPC_Perm; shm_perm : TIPC_Perm;
shm_segsz : cint; shm_segsz : cint;
@ -243,7 +243,7 @@ type // the shm*info kind is "kernel" only.
shmall : cint; shmall : cint;
end; end;
{$if defined(FreeBSD) or defined(Linux)} {$if defined(FreeBSD) or defined(OpenBSD) or defined(Linux)}
PSHM_info = ^TSHM_info; PSHM_info = ^TSHM_info;
TSHM_info = record TSHM_info = record
used_ids : cint; used_ids : cint;