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

* fixed some small problems left from merging. (waitpid has now last param longint)

Browse Source
This commit is contained in:
marco 2000-09-12 08:51:43 +00:00
parent 5b78988745
commit 6e5bd1ad97
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/ipc.pp
View File

@ -260,8 +260,9 @@ Const
function ipccall(Call,First,Second,Third : Longint; P : Pointer) : longint; function ipccall(Call,First,Second,Third : Longint; P : Pointer) : longint;
{$ifndef bsd}
Var SR : SysCallRegs; Var SR : SysCallRegs;
{$endif}
begin begin
{$IFNDEF bsd} {$IFNDEF bsd}
SR.Reg2:=Call; SR.Reg2:=Call;
@ -371,7 +372,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:48 michael Revision 1.3 2000-09-12 08:51:43 marco
* fixed some small problems left from merging. (waitpid has now last param longint)
Revision 1.2 2000/07/13 11:33:48 michael
+ removed logs + removed logs
} }

7
rtl/linux/linsysca.inc
View File

@ -116,7 +116,7 @@ begin
end; end;
Function WaitPid(Pid:longint;Status:pointer;Options:Integer):Longint; Function WaitPid(Pid:longint;Status:pointer;Options:Longint):Longint;
{ {
Waits until a child with PID Pid exits, or returns if it is exited already. Waits until a child with PID Pid exits, or returns if it is exited already.
Any resources used by the child are freed. Any resources used by the child are freed.
@ -1193,7 +1193,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2000-09-11 14:05:31 marco Revision 1.4 2000-09-12 08:51:43 marco
* fixed some small problems left from merging. (waitpid has now last param longint)
Revision 1.3 2000/09/11 14:05:31 marco
* FreeBSD support and removed old signalhandling * FreeBSD support and removed old signalhandling
Revision 1.2 2000/07/13 11:33:48 michael Revision 1.2 2000/07/13 11:33:48 michael

7
rtl/linux/linux.pp
View File

@ -469,7 +469,7 @@ Function Fork:longint;
{Clone for FreeBSD is copied from the LinuxThread port, and rfork based} {Clone for FreeBSD is copied from the LinuxThread port, and rfork based}
function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint;
Procedure ExitProcess(val:longint); Procedure ExitProcess(val:longint);
Function WaitPid(Pid:longint;Status:pointer;Options:Integer):Longint; Function WaitPid(Pid:longint;Status:pointer;Options:longint):Longint;
Procedure Nice(N:integer); Procedure Nice(N:integer);
{$ifdef bsd} {$ifdef bsd}
Function GetPriority(Which,Who:longint):longint; Function GetPriority(Which,Who:longint):longint;
@ -2799,7 +2799,10 @@ End.
{ {
$Log$ $Log$
Revision 1.6 2000-09-11 14:05:31 marco Revision 1.7 2000-09-12 08:51:43 marco
* fixed some small problems left from merging. (waitpid has now last param longint)
Revision 1.6 2000/09/11 14:05:31 marco
* FreeBSD support and removed old signalhandling * FreeBSD support and removed old signalhandling